From 0e408840fde0d0f73fb9ad652bc39df571a2a7ec Mon Sep 17 00:00:00 2001 From: Russoul Date: Tue, 25 Aug 2020 17:49:23 +0300 Subject: [PATCH] Revert "Update bootstrap files V2" This reverts commit 9acbdbfcd9f43e2bf22b03a98ab6d8d32ecdf259. --- bootstrap/idris2_app/idris2.rkt | 7892 +++++++++++++++--------------- bootstrap/idris2_app/idris2.ss | 7895 +++++++++++++++---------------- 2 files changed, 7827 insertions(+), 7960 deletions(-) diff --git a/bootstrap/idris2_app/idris2.rkt b/bootstrap/idris2_app/idris2.rkt index 87b1ef492..252eafa7f 100755 --- a/bootstrap/idris2_app/idris2.rkt +++ b/bootstrap/idris2_app/idris2.rkt @@ -74,13 +74,6 @@ (define integer->bits32 (lambda (x) (modulo x (expt 2 32)))) (define integer->bits64 (lambda (x) (modulo x (expt 2 64)))) -(define bits16->bits8 (lambda (x) (modulo x (expt 2 8)))) -(define bits32->bits8 (lambda (x) (modulo x (expt 2 8)))) -(define bits32->bits16 (lambda (x) (modulo x (expt 2 16)))) -(define bits64->bits8 (lambda (x) (modulo x (expt 2 8)))) -(define bits64->bits16 (lambda (x) (modulo x (expt 2 16)))) -(define bits64->bits32 (lambda (x) (modulo x (expt 2 32)))) - (define blodwen-bits-shl (lambda (x y bits) (remainder (arithmetic-shift x y) (arithmetic-shift 1 bits)))) (define blodwen-shl (lambda (x y) (arithmetic-shift x y))) (define blodwen-shr (lambda (x y) (arithmetic-shift x (- y)))) @@ -109,12 +102,6 @@ (define cast-string-double (lambda (x) (cast-num (string->number (destroy-prefix x))))) -(define (from-idris-list xs) - (if (= (vector-ref xs 0) 0) - '() - (cons (vector-ref xs 1) (from-idris-list (vector-ref xs 2))))) -(define (string-concat xs) (apply string-append (from-idris-list xs))) -(define (string-pack xs) (apply string (from-idris-list xs))) (define string-cons (lambda (x y) (string-append (string x) y))) (define get-tag (lambda (x) (vector-ref x 0))) (define string-reverse (lambda (x) @@ -303,8 +290,6 @@ (define System-prim__getEnv (lambda (farg-0 farg-1) (getenv farg-0))) (define System-prim__getArgs (lambda (farg-0) (blodwen-args ))) (define System-prim__exit (lambda (farg-0 farg-1) (exit farg-0) (vector 0 ))) -(define Strings-Data-fastConcat (lambda (farg-0) (string-concat farg-0))) -(define Types-Prelude-fastPack (lambda (farg-0) (string-pack farg-0))) (define PrimIO-prim__nullAnyPtr (lambda (farg-0) (idris2_isNull farg-0))) (define IO-Prelude-prim__putStr (lambda (farg-0 farg-1) (idris2_putStr farg-0) (vector 0 ))) (define IO-Prelude-prim__getString (lambda (farg-0) (idris2_getString farg-0))) @@ -331,15 +316,6 @@ (define Directory-System-prim__createDir (lambda (farg-0 farg-1) (idris2_createDir farg-0))) (define Directory-System-prim__closeDir (lambda (farg-0 farg-1) (idris2_closeDir farg-0) (vector 0 ))) (define Directory-System-prim__changeDir (lambda (farg-0 farg-1) (idris2_changeDir farg-0))) -(define Clock-System-prim__osClockValid (lambda (farg-0 farg-1) (blodwen-is-time? farg-0))) -(define Clock-System-prim__osClockSecond (lambda (farg-0 farg-1) (blodwen-clock-second farg-0))) -(define Clock-System-prim__osClockNanosecond (lambda (farg-0 farg-1) (blodwen-clock-nanosecond farg-0))) -(define Clock-System-prim__clockTimeUtc (lambda (farg-0) (blodwen-clock-time-utc ))) -(define Clock-System-prim__clockTimeThread (lambda (farg-0) (blodwen-clock-time-thread ))) -(define Clock-System-prim__clockTimeProcess (lambda (farg-0) (blodwen-clock-time-process ))) -(define Clock-System-prim__clockTimeMonotonic (lambda (farg-0) (blodwen-clock-time-monotonic ))) -(define Clock-System-prim__clockTimeGcReal (lambda (farg-0) (blodwen-clock-time-gcreal ))) -(define Clock-System-prim__clockTimeGcCpu (lambda (farg-0) (blodwen-clock-time-gccpu ))) (define Buffer-Data-stringByteLength (lambda (farg-0) (strlen farg-0))) (define Buffer-Data-prim__writeBufferData (lambda (farg-0 farg-1 farg-2 farg-3 farg-4) (idris2_writeBufferData farg-0 farg-1 farg-2 farg-3))) (define Buffer-Data-prim__setString (lambda (farg-0 farg-1 farg-2 farg-3) (blodwen-buffer-setstring farg-0 farg-1 farg-2))) @@ -442,7 +418,6 @@ (define prim__cast_DoubleString (lambda (arg-0) (number->string arg-0))) (define prim__cast_StringInteger (lambda (arg-0) (cast-string-int arg-0))) (define prim__cast_IntInteger (lambda (arg-0) arg-0)) -(define prim__cast_Bits64Integer (lambda (arg-0) arg-0)) (define prim__cast_CharInteger (lambda (arg-0) (char->integer arg-0))) (define prim__cast_DoubleInteger (lambda (arg-0) (exact-floor arg-0))) (define prim__cast_StringInt (lambda (arg-0) (cast-string-int arg-0))) @@ -454,74 +429,75 @@ (define prim__cast_IntegerDouble (lambda (arg-0) (exact->inexact arg-0))) (define prim__cast_IntChar (lambda (arg-0) (cast-int-char arg-0))) (define Main-Idris-main (lambda (ext-0) (Driver-Idris-mainWithCodegens (vector 0 ) ext-0))) -(define Driver-Idris-case--caseC-32blockC-32inC-32mainWithCodegens-5041 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Term-Utils-setupTerm eta-0))) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Driver-Idris-stMain arg-0 arg-1 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-25 (arg-317 eta-2))) ((arg-318 act-25) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-1))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-26 (arg-317 eta-2))) ((arg-318 act-26) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0)))) (else (lambda (eta-0) (vector 0 ))))))) -(define Driver-Idris-case--mainWithCodegens-5027 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Driver-Idris-quitOpts e-2) eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (let ((act-25 (Term-Utils-setupTerm eta-0))) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Driver-Idris-stMain arg-0 e-2 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-26 (arg-317 eta-2))) ((arg-318 act-26) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-1))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-27 (arg-317 eta-2))) ((arg-318 act-27) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0))) (else (vector 0 )))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-5) eta-0))) ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (CommandLine-Idris-usage)) eta-0))))))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4925 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 arg-5 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24)))))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-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 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 e-5 e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0)))))))))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4324 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (REPL-IDEMode-Idris-initIDESocketFile e-2 e-3 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-4) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-26 (arg-317 eta-1))) ((arg-318 act-26) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 e-6 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0)))))))))))))))))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4188 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 (File-System-stdin) (File-System-stdout)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))))))) (else (Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4324 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 (CommandLine-Idris-ideSocketModeAddress arg-0))))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-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 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (cond ((equal? sc0 0) (Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4188 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 (Basics-Prelude-not arg-13))) (else (lambda (eta-0) (let ((act-24 (REPL-Idris-repl arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Context-Core-showTimeRecord arg-6 eta-0))))))))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (cond ((equal? sc0 0) (let ((doRepl 0)) (Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4124 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 doRepl (Basics-Prelude-C-124C-124 arg-12 (lambda () arg-13))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-16))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-showTimeRecord arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((doRepl 1)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4705 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 doRepl e-5 e-6 (let ((sc3 e-5)) (let ((e-14 (vector-ref sc3 7))) e-14))) eta-0)))))))))))))))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-logTime 'erased arg-6 (lambda () "+ Loading prelude") (lambda (eta-1) (let ((act-24 (let ((sc1 (Basics-Prelude-not (let ((sc2 arg-24)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) (ProcessIdr-Idris-readPrelude arg-6 arg-21 arg-7 0 eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-6 (lambda () "+ Loading main file") (lambda (eta-1) (let ((act-24 (REPL-Idris-loadMainFile arg-6 arg-21 arg-7 arg-22 arg-16 e-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((REPL-Idris-displayErrors arg-6 arg-21 arg-7 arg-22 arg-16 e-5) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 e-5))))))))))) eta-0)))))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (Package-Idris-findIpkg arg-6 arg-16 arg-15 eta-0))) (else (lambda (eta-0) (vector 1 arg-15))))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((sc1 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc1 0) (REPLOpts-Idris-setOutput arg-16 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Driver-Idris-updateREPLOpts arg-16 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-getSession arg-6 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((sc6 (Basics-Prelude-not (let ((sc7 e-9)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (cond ((equal? sc6 0) (let ((act-29 (REPLCommon-Idris-iputStrLn arg-16 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Driver-Idris-banner)) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((sc8 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc8 0) (REPLCommon-Idris-iputStrLn arg-16 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "With codegen for:") (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Builtin-fst 'erased 'erased eta-1))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((_-0 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3795 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 (let ((sc7 e-9)) (let ((e-2 (vector-ref sc7 3))) e-2))) eta-0)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (REPLOpts-Idris-setMainFile arg-16 e-11 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (Context-Core-logTime 'erased arg-6 (lambda () "+ Loading prelude") (lambda (eta-1) (let ((act-32 (let ((sc10 (Basics-Prelude-not (let ((sc11 e-9)) (let ((e-0 (vector-ref sc11 1))) e-0))))) (cond ((equal? sc10 0) (ProcessIdr-Idris-readPrelude arg-6 e-6 arg-7 0 eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) eta-0)) (else (let ((e-2 (vector-ref sc9 1))) (Context-Core-logTime 'erased arg-6 (lambda () "+ Loading main file") (lambda (eta-1) (let ((act-32 (REPL-Idris-loadMainFile arg-6 e-6 arg-7 e-7 arg-16 e-2 eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-33 ((REPL-Idris-displayErrors arg-6 e-6 arg-7 e-7 arg-16 e-13) eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (vector 1 e-13))))))))))) eta-0))))))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 ((SetOptions-Idris-postOptions arg-6 e-6 arg-7 e-7 arg-16 e-13 arg-0) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((_-0 0)) (let ((sc11 e-14)) (cond ((equal? sc11 0) (let ((doRepl 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4124 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl (Basics-Prelude-C-124C-124 arg-12 (lambda () arg-13))) eta-0))) (else (let ((act-34 (let ((act-34 (unbox arg-16))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-35 (Context-Core-showTimeRecord arg-6 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc13 1))) (let ((doRepl 1)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4705 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl e-15 e-16 (let ((sc14 e-15)) (let ((e-24 (vector-ref sc14 7))) e-24))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3558 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3477 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Options-Core-addCG (vector 0 e-2 (vector 5 e-2)) arg-5))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32stMain-3455 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Context-Core-initDefs eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((updated (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (Options-Core-addCG (vector 0 e-2 (vector 5 e-2)) o))))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-26 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 updated e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-setCG e-6 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (vector 5 (Builtin-fst 'erased 'erased eta-1)))) (List-Data-headC-39 'erased arg-1)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((InitPrimitives-Core-addPrimitives e-6) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-setWorkingDir e-6 "." eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Driver-Idris-updateEnv e-6 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc8 ide)) (cond ((equal? sc8 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-0))) (let ((act-31 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-1) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 ((Driver-Idris-showInfo e-6 e-12 arg-0) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((sc10 (Basics-Prelude-not e-13))) (cond ((equal? sc10 0) (let ((act-33 ((Package-Idris-processPackageOpts e-6 e-7 e-12 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Basics-Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-34 ((SetOptions-Idris-preOptions e-6 e-12 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((_-0 1)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((act-35 (let ((sc15 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc15 0) (REPLOpts-Idris-setOutput e-12 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-36 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc17 1))) (let ((act-38 (Driver-Idris-updateREPLOpts e-12 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc18 1))) (let ((act-39 (Context-Core-getSession e-6 eta-0))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc19 1))) (let ((act-40 (let ((sc20 (Basics-Prelude-not (let ((sc21 e-20)) (let ((e-1 (vector-ref sc21 2))) e-1))))) (cond ((equal? sc20 0) (let ((act-40 (REPLCommon-Idris-iputStrLn e-12 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Driver-Idris-banner)) eta-0))) (let ((sc21 act-40)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((sc22 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc22 0) (REPLCommon-Idris-iputStrLn e-12 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "With codegen for:") (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Builtin-fst 'erased 'erased eta-1))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-40)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc20 1))) (let ((act-41 (let ((_-1 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3795 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 e-13 e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 (let ((sc21 e-20)) (let ((e-2 (vector-ref sc21 3))) e-2))) eta-0)))) (let ((sc21 act-41)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc21 1))) (let ((act-42 (REPLOpts-Idris-setMainFile e-12 e-22 eta-0))) (let ((sc22 act-42)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc22 1))) (let ((act-43 (let ((sc23 e-22)) (case (vector-ref sc23 0) ((0) (Context-Core-logTime 'erased e-6 (lambda () "+ Loading prelude") (lambda (eta-1) (let ((act-43 (let ((sc24 (Basics-Prelude-not (let ((sc25 e-20)) (let ((e-0 (vector-ref sc25 1))) e-0))))) (cond ((equal? sc24 0) (ProcessIdr-Idris-readPrelude e-6 e-17 e-7 0 eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) eta-0)) (else (let ((e-2 (vector-ref sc23 1))) (Context-Core-logTime 'erased e-6 (lambda () "+ Loading main file") (lambda (eta-1) (let ((act-43 (REPL-Idris-loadMainFile e-6 e-17 e-7 e-18 e-12 e-2 eta-1))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-3 (vector-ref sc24 1))) (vector 0 e-3))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 ((REPL-Idris-displayErrors e-6 e-17 e-7 e-18 e-12 e-24) eta-1))) (let ((sc25 act-44)) (case (vector-ref sc25 0) ((0) (let ((e-3 (vector-ref sc25 1))) (vector 0 e-3))) (else (vector 1 e-24))))))))))) eta-0))))))) (let ((sc23 act-43)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc23 1))) (let ((act-44 ((SetOptions-Idris-postOptions e-6 e-17 e-7 e-18 e-12 e-24 arg-0) eta-0))) (let ((sc24 act-44)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc24 1))) (let ((_-1 0)) (let ((sc25 e-25)) (cond ((equal? sc25 0) (let ((doRepl 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4124 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 e-13 e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl (Basics-Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-45 (let ((act-45 (unbox e-12))) (vector 1 act-45)))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((act-46 (Context-Core-showTimeRecord e-6 eta-0))) (let ((sc27 act-46)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc27 1))) (let ((doRepl 1)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4705 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 e-13 e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl e-26 e-27 (let ((sc28 e-26)) (let ((e-35 (vector-ref sc28 7))) e-35))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--stMain-3444 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 ((Driver-Idris-tryTTM arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 1)) (let ((sc2 e-5)) (cond ((equal? sc2 1) (let ((act-25 (Context-Core-initDefs eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((updated (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (Options-Core-addCG (vector 0 e-2 (vector 5 e-2)) o))))) (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)) arg-1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 6))) (let ((e-26 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 updated e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Context-Core-setCG e-7 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (vector 5 (Builtin-fst 'erased 'erased eta-1)))) (List-Data-headC-39 'erased arg-1)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((InitPrimitives-Core-addPrimitives e-7) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (Context-Core-setWorkingDir e-7 "." eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (Driver-Idris-updateEnv e-7 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc9 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc10 ide)) (cond ((equal? sc10 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-0))) (let ((act-32 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-1) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-33 ((Driver-Idris-showInfo e-7 e-13 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Basics-Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-34 ((Package-Idris-processPackageOpts e-7 e-8 e-13 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((sc14 (Basics-Prelude-not e-15))) (cond ((equal? sc14 0) (let ((act-35 ((SetOptions-Idris-preOptions e-7 e-13 arg-0) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((_-1 1)) (let ((sc16 e-16)) (cond ((equal? sc16 0) (let ((act-36 (let ((sc17 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc17 0) (REPLOpts-Idris-setOutput e-13 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Driver-Idris-updateREPLOpts e-13 eta-0))) (let ((sc20 act-39)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-40 (Context-Core-getSession e-7 eta-0))) (let ((sc21 act-40)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-41 (let ((sc22 (Basics-Prelude-not (let ((sc23 e-21)) (let ((e-1 (vector-ref sc23 2))) e-1))))) (cond ((equal? sc22 0) (let ((act-41 (REPLCommon-Idris-iputStrLn e-13 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Driver-Idris-banner)) eta-0))) (let ((sc23 act-41)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((sc24 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc24 0) (REPLCommon-Idris-iputStrLn e-13 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "With codegen for:") (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Builtin-fst 'erased 'erased eta-1))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((_-2 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3795 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 e-14 e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 (let ((sc23 e-21)) (let ((e-2 (vector-ref sc23 3))) e-2))) eta-0)))) (let ((sc23 act-42)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-43 (REPLOpts-Idris-setMainFile e-13 e-23 eta-0))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (let ((sc25 e-23)) (case (vector-ref sc25 0) ((0) (Context-Core-logTime 'erased e-7 (lambda () "+ Loading prelude") (lambda (eta-1) (let ((act-44 (let ((sc26 (Basics-Prelude-not (let ((sc27 e-21)) (let ((e-0 (vector-ref sc27 1))) e-0))))) (cond ((equal? sc26 0) (ProcessIdr-Idris-readPrelude e-7 e-18 e-8 0 eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc26 act-44)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) eta-0)) (else (let ((e-2 (vector-ref sc25 1))) (Context-Core-logTime 'erased e-7 (lambda () "+ Loading main file") (lambda (eta-1) (let ((act-44 (REPL-Idris-loadMainFile e-7 e-18 e-8 e-19 e-13 e-2 eta-1))) (let ((sc26 act-44)) (case (vector-ref sc26 0) ((0) (let ((e-3 (vector-ref sc26 1))) (vector 0 e-3))) (else (let ((e-25 (vector-ref sc26 1))) (let ((act-45 ((REPL-Idris-displayErrors e-7 e-18 e-8 e-19 e-13 e-25) eta-1))) (let ((sc27 act-45)) (case (vector-ref sc27 0) ((0) (let ((e-3 (vector-ref sc27 1))) (vector 0 e-3))) (else (vector 1 e-25))))))))))) eta-0))))))) (let ((sc25 act-44)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc25 1))) (let ((act-45 ((SetOptions-Idris-postOptions e-7 e-18 e-8 e-19 e-13 e-25 arg-0) eta-0))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((_-2 0)) (let ((sc27 e-26)) (cond ((equal? sc27 0) (let ((doRepl 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4124 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 e-14 e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl (Basics-Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-46 (let ((act-46 (unbox e-13))) (vector 1 act-46)))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc28 1))) (let ((act-47 (Context-Core-showTimeRecord e-7 eta-0))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((doRepl 1)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4705 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 e-14 e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl e-27 e-28 (let ((sc30 e-27)) (let ((e-36 (vector-ref sc30 7))) e-36))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32updateREPLOpts-3303 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-2 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) -(define Driver-Idris-case--updateREPLOpts-3273 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (vector 0 e-0 e-14 e-2 e-3 e-4 e-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--updateEnv-3236 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setPrefix arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) eta-0))))))) -(define Driver-Idris-case--updateEnv-3196 (lambda (arg-0 arg-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-traverseList1_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (List1-Data-map_Functor__List1 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__Char arg-5 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--updateEnv-3148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverseList1_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (List1-Data-map_Functor__List1 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__Char arg-7 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--updateEnv-3092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverseList1_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (List1-Data-map_Functor__List1 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-9) (EqOrd-Prelude-C-61C-61_Eq__Char arg-9 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--caseC-32blockC-32inC-32updateEnv-3002 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Unknown code generator " (Show-Prelude-show_Show__String arg-10))) eta-0))))))) -(define Driver-Idris-case--updateEnv-2975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((cg (vector 1 e-1))) (Driver-Idris-case--caseC-32blockC-32inC-32updateEnv-3002 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 cg (Options-Core-getCG (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Driver-Idris-case--updateEnv-2894 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addLibDir arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) -(define Driver-Idris-updateREPLOpts (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-25 (arg-317 eta-0))) ((arg-318 act-25) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "EDITOR") ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-16 (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-14 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (vector 0 e-0 e-16 e-2 e-3 e-4 e-1 e-14 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-26)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define Driver-Idris-updateEnv (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-25 (arg-317 eta-0))) ((arg-318 act-25) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "IDRIS2_PREFIX") ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Context-Core-setPrefix arg-0 e-1 ext-0))) (else (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) ext-0)))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-27 (arg-317 eta-0))) ((arg-318 act-27) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "IDRIS2_PATH") ext-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) ((Core-Core-traverseList1_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (List1-Data-map_Functor__List1 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (EqOrd-Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-29 (arg-317 eta-0))) ((arg-318 act-29) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "IDRIS2_DATA") ext-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) ((Core-Core-traverseList1_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (List1-Data-map_Functor__List1 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (EqOrd-Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-31 (arg-317 eta-0))) ((arg-318 act-31) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "IDRIS2_LIBS") ext-0))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (let ((sc8 e-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) ((Core-Core-traverseList1_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (List1-Data-map_Functor__List1 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (EqOrd-Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (let ((act-33 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-33 (arg-317 eta-0))) ((arg-318 act-33) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "IDRIS2_CG") ext-0))) (vector 1 act-33)))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (let ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((cg (vector 1 e-1))) ((Driver-Idris-case--caseC-32blockC-32inC-32updateEnv-3002 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-1 cg (Options-Core-getCG (let ((sc11 e-5)) (let ((e-4 (vector-ref sc11 5))) e-4)) e-1)) ext-0)))) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (let ((act-35 (unbox arg-0))) (vector 1 act-35)))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-36 (SetOptions-Idris-addPkgDir arg-0 "prelude" ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-37 (SetOptions-Idris-addPkgDir arg-0 "base" ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-38 (Context-Core-addDataDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc14 (let ((sc15 (let ((sc16 e-16)) (let ((e-4 (vector-ref sc16 5))) e-4)))) (let ((e-0 (vector-ref sc15 1))) e-0)))) (let ((e-4 (vector-ref sc14 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Types-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "support")) ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-39 (Context-Core-addLibDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc15 (let ((sc16 (let ((sc17 e-16)) (let ((e-4 (vector-ref sc17 5))) e-4)))) (let ((e-0 (vector-ref sc16 1))) e-0)))) (let ((e-4 (vector-ref sc15 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Types-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "lib")) ext-0))) (let ((sc15 act-39)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-40 (let ((act-40 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-40 (arg-317 eta-0))) ((arg-318 act-40) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357)))) ext-0))) (vector 1 act-40)))) (let ((sc16 act-40)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc16 1))) (let ((sc17 e-21)) (case (vector-ref sc17 0) ((1) (let ((e-1 (vector-ref sc17 1))) (Context-Core-addLibDir arg-0 e-1 ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32mainWithCodegens-5047 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Term-Utils-setupTerm eta-0))) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Driver-Idris-stMain arg-0 arg-1 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-25 (arg-274 eta-2))) ((arg-275 act-25) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-1))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-26 (arg-274 eta-2))) ((arg-275 act-26) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0)))) (else (lambda (eta-0) (vector 0 ))))))) +(define Driver-Idris-case--mainWithCodegens-5033 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Driver-Idris-quitOpts e-2) eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (let ((act-25 (Term-Utils-setupTerm eta-0))) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Driver-Idris-stMain arg-0 e-2 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-26 (arg-274 eta-2))) ((arg-275 act-26) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-1))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-27 (arg-274 eta-2))) ((arg-275 act-27) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (vector 0 ))) eta-0))) (else (vector 0 )))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-5) eta-0))) ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (CommandLine-Idris-usage)) eta-0))))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 arg-5 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24)))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4406 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 e-5 e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0)))))))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4330 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (REPL-IDEMode-Idris-initIDESocketFile e-2 e-3 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-4) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-26 (arg-274 eta-1))) ((arg-275 act-26) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 e-6 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0)))))))))))))))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4194 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-16 (vector 0 0 (File-System-stdin) (File-System-stdout)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (REPL-IDEMode-Idris-replIDE arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))))))) (else (Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4330 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 (CommandLine-Idris-ideSocketModeAddress arg-0))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4130 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (cond ((equal? sc0 0) (Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4194 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 (Basics-Prelude-not arg-13))) (else (lambda (eta-0) (let ((act-24 (REPL-Idris-repl arg-6 arg-21 arg-7 arg-22 arg-16 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Context-Core-showTimeRecord arg-6 eta-0))))))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (cond ((equal? sc0 0) (let ((doRepl 0)) (Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4130 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 doRepl (Basics-Prelude-C-124C-124 arg-12 (lambda () arg-13))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-16))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-showTimeRecord arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((doRepl 1)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4711 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 doRepl e-5 e-6 (let ((sc3 e-5)) (let ((e-14 (vector-ref sc3 7))) e-14))) eta-0)))))))))))))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3914 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-logTime 'erased arg-6 (lambda () "+ Loading prelude") (lambda (eta-1) (let ((act-24 (let ((sc1 (Basics-Prelude-not (let ((sc2 arg-24)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) (ProcessIdr-Idris-readPrelude arg-6 arg-21 arg-7 0 eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-6 (lambda () "+ Loading main file") (lambda (eta-1) (let ((act-24 (REPL-Idris-loadMainFile arg-6 arg-21 arg-7 arg-22 arg-16 e-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((REPL-Idris-displayErrors arg-6 arg-21 arg-7 arg-22 arg-16 e-5) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 e-5))))))))))) eta-0)))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3801 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (Package-Idris-findIpkg arg-6 arg-16 arg-15 eta-0))) (else (lambda (eta-0) (vector 1 arg-15))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3657 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((sc1 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc1 0) (REPLOpts-Idris-setOutput arg-16 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Driver-Idris-updateREPLOpts arg-16 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-getSession arg-6 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((sc6 (Basics-Prelude-not (let ((sc7 e-9)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (cond ((equal? sc6 0) (let ((act-29 (REPLCommon-Idris-iputStrLn arg-16 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Driver-Idris-banner)) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((sc8 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc8 0) (REPLCommon-Idris-iputStrLn arg-16 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "With codegen for:") (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Builtin-fst 'erased 'erased eta-1))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((_-0 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3801 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 (let ((sc7 e-9)) (let ((e-2 (vector-ref sc7 3))) e-2))) eta-0)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (REPLOpts-Idris-setMainFile arg-16 e-11 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (Context-Core-logTime 'erased arg-6 (lambda () "+ Loading prelude") (lambda (eta-1) (let ((act-32 (let ((sc10 (Basics-Prelude-not (let ((sc11 e-9)) (let ((e-0 (vector-ref sc11 1))) e-0))))) (cond ((equal? sc10 0) (ProcessIdr-Idris-readPrelude arg-6 e-6 arg-7 0 eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) eta-0)) (else (let ((e-2 (vector-ref sc9 1))) (Context-Core-logTime 'erased arg-6 (lambda () "+ Loading main file") (lambda (eta-1) (let ((act-32 (REPL-Idris-loadMainFile arg-6 e-6 arg-7 e-7 arg-16 e-2 eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-33 ((REPL-Idris-displayErrors arg-6 e-6 arg-7 e-7 arg-16 e-13) eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (vector 1 e-13))))))))))) eta-0))))))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 ((SetOptions-Idris-postOptions arg-6 e-6 arg-7 e-7 arg-16 e-13 arg-0) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((_-0 0)) (let ((sc11 e-14)) (cond ((equal? sc11 0) (let ((doRepl 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4130 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl (Basics-Prelude-C-124C-124 arg-12 (lambda () arg-13))) eta-0))) (else (let ((act-34 (let ((act-34 (unbox arg-16))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-35 (Context-Core-showTimeRecord arg-6 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc13 1))) (let ((doRepl 1)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4711 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl e-15 e-16 (let ((sc14 e-15)) (let ((e-24 (vector-ref sc14 7))) e-24))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3483 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (Options-Core-addCG (vector 0 e-2 (vector 5 e-2)) arg-5))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32stMain-3461 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Context-Core-initDefs eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((updated (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (Options-Core-addCG (vector 0 e-2 (vector 5 e-2)) o))))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)) arg-1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-26 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 updated e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-setCG e-6 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (vector 5 (Builtin-fst 'erased 'erased eta-1)))) (List-Data-headC-39 'erased arg-1)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((InitPrimitives-Core-addPrimitives e-6) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-setWorkingDir e-6 "." eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Driver-Idris-updateEnv e-6 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc8 ide)) (cond ((equal? sc8 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-0))) (let ((act-31 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-1) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 ((Driver-Idris-showInfo e-6 e-12 arg-0) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((sc10 (Basics-Prelude-not e-13))) (cond ((equal? sc10 0) (let ((act-33 ((Package-Idris-processPackageOpts e-6 e-7 e-12 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Basics-Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-34 ((SetOptions-Idris-preOptions e-6 e-12 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((_-0 1)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((act-35 (let ((sc15 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc15 0) (REPLOpts-Idris-setOutput e-12 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-36 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc17 1))) (let ((act-38 (Driver-Idris-updateREPLOpts e-12 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc18 1))) (let ((act-39 (Context-Core-getSession e-6 eta-0))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc19 1))) (let ((act-40 (let ((sc20 (Basics-Prelude-not (let ((sc21 e-20)) (let ((e-1 (vector-ref sc21 2))) e-1))))) (cond ((equal? sc20 0) (let ((act-40 (REPLCommon-Idris-iputStrLn e-12 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Driver-Idris-banner)) eta-0))) (let ((sc21 act-40)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((sc22 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc22 0) (REPLCommon-Idris-iputStrLn e-12 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "With codegen for:") (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Builtin-fst 'erased 'erased eta-1))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-40)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc20 1))) (let ((act-41 (let ((_-1 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3801 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 e-13 e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 (let ((sc21 e-20)) (let ((e-2 (vector-ref sc21 3))) e-2))) eta-0)))) (let ((sc21 act-41)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc21 1))) (let ((act-42 (REPLOpts-Idris-setMainFile e-12 e-22 eta-0))) (let ((sc22 act-42)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc22 1))) (let ((act-43 (let ((sc23 e-22)) (case (vector-ref sc23 0) ((0) (Context-Core-logTime 'erased e-6 (lambda () "+ Loading prelude") (lambda (eta-1) (let ((act-43 (let ((sc24 (Basics-Prelude-not (let ((sc25 e-20)) (let ((e-0 (vector-ref sc25 1))) e-0))))) (cond ((equal? sc24 0) (ProcessIdr-Idris-readPrelude e-6 e-17 e-7 0 eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) eta-0)) (else (let ((e-2 (vector-ref sc23 1))) (Context-Core-logTime 'erased e-6 (lambda () "+ Loading main file") (lambda (eta-1) (let ((act-43 (REPL-Idris-loadMainFile e-6 e-17 e-7 e-18 e-12 e-2 eta-1))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-3 (vector-ref sc24 1))) (vector 0 e-3))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 ((REPL-Idris-displayErrors e-6 e-17 e-7 e-18 e-12 e-24) eta-1))) (let ((sc25 act-44)) (case (vector-ref sc25 0) ((0) (let ((e-3 (vector-ref sc25 1))) (vector 0 e-3))) (else (vector 1 e-24))))))))))) eta-0))))))) (let ((sc23 act-43)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc23 1))) (let ((act-44 ((SetOptions-Idris-postOptions e-6 e-17 e-7 e-18 e-12 e-24 arg-0) eta-0))) (let ((sc24 act-44)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc24 1))) (let ((_-1 0)) (let ((sc25 e-25)) (cond ((equal? sc25 0) (let ((doRepl 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4130 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 e-13 e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl (Basics-Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-45 (let ((act-45 (unbox e-12))) (vector 1 act-45)))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((act-46 (Context-Core-showTimeRecord e-6 eta-0))) (let ((sc27 act-46)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc27 1))) (let ((doRepl 1)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4711 arg-0 arg-1 arg-2 _-0 e-5 updated e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 e-13 e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl e-26 e-27 (let ((sc28 e-26)) (let ((e-35 (vector-ref sc28 7))) e-35))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--stMain-3450 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 ((Driver-Idris-tryTTM arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 1)) (let ((sc2 e-5)) (cond ((equal? sc2 1) (let ((act-25 (Context-Core-initDefs eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((updated (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (Options-Core-addCG (vector 0 e-2 (vector 5 e-2)) o))))) (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 5))) e-4)) arg-1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-27 (vector-ref sc4 6))) (let ((e-26 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 updated e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Context-Core-setCG e-7 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (vector 5 (Builtin-fst 'erased 'erased eta-1)))) (List-Data-headC-39 'erased arg-1)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((InitPrimitives-Core-addPrimitives e-7) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (Context-Core-setWorkingDir e-7 "." eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (Driver-Idris-updateEnv e-7 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc9 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc10 ide)) (cond ((equal? sc10 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-0))) (let ((act-32 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-1) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-33 ((Driver-Idris-showInfo e-7 e-13 arg-0) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Basics-Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-34 ((Package-Idris-processPackageOpts e-7 e-8 e-13 arg-0) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc13 1))) (let ((sc14 (Basics-Prelude-not e-15))) (cond ((equal? sc14 0) (let ((act-35 ((SetOptions-Idris-preOptions e-7 e-13 arg-0) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc15 1))) (let ((_-1 1)) (let ((sc16 e-16)) (cond ((equal? sc16 0) (let ((act-36 (let ((sc17 (Driver-Idris-checkVerbose arg-0))) (cond ((equal? sc17 0) (REPLOpts-Idris-setOutput e-13 (vector 1 1) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-37 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Driver-Idris-updateREPLOpts e-13 eta-0))) (let ((sc20 act-39)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-40 (Context-Core-getSession e-7 eta-0))) (let ((sc21 act-40)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-41 (let ((sc22 (Basics-Prelude-not (let ((sc23 e-21)) (let ((e-1 (vector-ref sc23 2))) e-1))))) (cond ((equal? sc22 0) (let ((act-41 (REPLCommon-Idris-iputStrLn e-13 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Driver-Idris-banner)) eta-0))) (let ((sc23 act-41)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((sc24 (List-Data-isCons 'erased arg-1))) (cond ((equal? sc24 0) (REPLCommon-Idris-iputStrLn e-13 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "With codegen for:") (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Builtin-fst 'erased 'erased eta-1))) arg-1))) eta-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((_-2 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3801 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 e-14 e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 (let ((sc23 e-21)) (let ((e-2 (vector-ref sc23 3))) e-2))) eta-0)))) (let ((sc23 act-42)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-43 (REPLOpts-Idris-setMainFile e-13 e-23 eta-0))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (let ((sc25 e-23)) (case (vector-ref sc25 0) ((0) (Context-Core-logTime 'erased e-7 (lambda () "+ Loading prelude") (lambda (eta-1) (let ((act-44 (let ((sc26 (Basics-Prelude-not (let ((sc27 e-21)) (let ((e-0 (vector-ref sc27 1))) e-0))))) (cond ((equal? sc26 0) (ProcessIdr-Idris-readPrelude e-7 e-18 e-8 0 eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc26 act-44)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) eta-0)) (else (let ((e-2 (vector-ref sc25 1))) (Context-Core-logTime 'erased e-7 (lambda () "+ Loading main file") (lambda (eta-1) (let ((act-44 (REPL-Idris-loadMainFile e-7 e-18 e-8 e-19 e-13 e-2 eta-1))) (let ((sc26 act-44)) (case (vector-ref sc26 0) ((0) (let ((e-3 (vector-ref sc26 1))) (vector 0 e-3))) (else (let ((e-25 (vector-ref sc26 1))) (let ((act-45 ((REPL-Idris-displayErrors e-7 e-18 e-8 e-19 e-13 e-25) eta-1))) (let ((sc27 act-45)) (case (vector-ref sc27 0) ((0) (let ((e-3 (vector-ref sc27 1))) (vector 0 e-3))) (else (vector 1 e-25))))))))))) eta-0))))))) (let ((sc25 act-44)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc25 1))) (let ((act-45 ((SetOptions-Idris-postOptions e-7 e-18 e-8 e-19 e-13 e-25 arg-0) eta-0))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((_-2 0)) (let ((sc27 e-26)) (cond ((equal? sc27 0) (let ((doRepl 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4130 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 e-14 e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl (Basics-Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-46 (let ((act-46 (unbox e-13))) (vector 1 act-46)))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc28 1))) (let ((act-47 (Context-Core-showTimeRecord e-7 eta-0))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((doRepl 1)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4711 arg-0 arg-1 _-0 _-1 e-6 updated e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 e-14 e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 doRepl e-27 e-28 (let ((sc30 e-27)) (let ((e-36 (vector-ref sc30 7))) e-36))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32updateREPLOpts-3309 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-2 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) +(define Driver-Idris-case--updateREPLOpts-3279 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (vector 0 e-0 e-14 e-2 e-3 e-4 e-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--updateEnv-3242 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setPrefix arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) eta-0))))))) +(define Driver-Idris-case--updateEnv-3202 (lambda (arg-0 arg-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-traverseList1_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (List1-Data-map_Functor__List1 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__Char arg-5 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--updateEnv-3154 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverseList1_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (List1-Data-map_Functor__List1 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__Char arg-7 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--updateEnv-3098 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverseList1_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (List1-Data-map_Functor__List1 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-9) (EqOrd-Prelude-C-61C-61_Eq__Char arg-9 (Path-Utils-pathSeparator))) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--caseC-32blockC-32inC-32updateEnv-3008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Unknown code generator " (Show-Prelude-show_Show__String arg-10))) eta-0))))))) +(define Driver-Idris-case--updateEnv-2981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((cg (vector 1 e-1))) (Driver-Idris-case--caseC-32blockC-32inC-32updateEnv-3008 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 cg (Options-Core-getCG (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Driver-Idris-case--updateEnv-2900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addLibDir arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) +(define Driver-Idris-updateREPLOpts (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-25 (arg-274 eta-0))) ((arg-275 act-25) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "EDITOR") ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-16 (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-14 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (vector 0 e-0 e-16 e-2 e-3 e-4 e-1 e-14 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-26)))) (else (vector 1 (vector 0 ))))))))))))))))) +(define Driver-Idris-updateEnv (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-25 (arg-274 eta-0))) ((arg-275 act-25) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "IDRIS2_PREFIX") ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Context-Core-setPrefix arg-0 e-1 ext-0))) (else (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) ext-0)))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-27 (arg-274 eta-0))) ((arg-275 act-27) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "IDRIS2_PATH") ext-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) ((Core-Core-traverseList1_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (List1-Data-map_Functor__List1 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (EqOrd-Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-29 (arg-274 eta-0))) ((arg-275 act-29) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "IDRIS2_DATA") ext-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) ((Core-Core-traverseList1_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (List1-Data-map_Functor__List1 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (EqOrd-Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-31 (arg-274 eta-0))) ((arg-275 act-31) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "IDRIS2_LIBS") ext-0))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (let ((sc8 e-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) ((Core-Core-traverseList1_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (List1-Data-map_Functor__List1 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (EqOrd-Prelude-C-61C-61_Eq__Char arg-1 (Path-Utils-pathSeparator))) e-1))) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (let ((act-33 ((System-getEnv 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-33 (arg-274 eta-0))) ((arg-275 act-33) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "IDRIS2_CG") ext-0))) (vector 1 act-33)))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (let ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((cg (vector 1 e-1))) ((Driver-Idris-case--caseC-32blockC-32inC-32updateEnv-3008 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-1 cg (Options-Core-getCG (let ((sc11 e-5)) (let ((e-4 (vector-ref sc11 5))) e-4)) e-1)) ext-0)))) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (let ((act-35 (unbox arg-0))) (vector 1 act-35)))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-36 (SetOptions-Idris-addPkgDir arg-0 "prelude" ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-37 (SetOptions-Idris-addPkgDir arg-0 "base" ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-38 (Context-Core-addDataDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc14 (let ((sc15 (let ((sc16 e-16)) (let ((e-4 (vector-ref sc16 5))) e-4)))) (let ((e-0 (vector-ref sc15 1))) e-0)))) (let ((e-4 (vector-ref sc14 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Types-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "support")) ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-39 (Context-Core-addLibDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc15 (let ((sc16 (let ((sc17 e-16)) (let ((e-4 (vector-ref sc17 5))) e-4)))) (let ((e-0 (vector-ref sc16 1))) e-0)))) (let ((e-4 (vector-ref sc15 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Types-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) "lib")) ext-0))) (let ((sc15 act-39)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-40 (let ((act-40 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-40 (arg-274 eta-0))) ((arg-275 act-40) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832)))) ext-0))) (vector 1 act-40)))) (let ((sc16 act-40)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc16 1))) (let ((sc17 e-21)) (case (vector-ref sc17 0) ((1) (let ((e-1 (vector-ref sc17 1))) (Context-Core-addLibDir arg-0 e-1 ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define Driver-Idris-tryYaffle (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((24) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Main-Yaffle-yaffleMain e-4 (vector 0 ) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (vector 1 0))))))))(else (Driver-Idris-tryYaffle e-3))))))))))) (define Driver-Idris-tryTTM (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((25) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Metadata-Core-dumpTTM e-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (vector 1 0))))))))(else (Driver-Idris-tryTTM e-3))))))))))) -(define Driver-Idris-stMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Driver-Idris-tryYaffle arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 1) (let ((act-25 ((Driver-Idris-tryTTM arg-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 1)) (let ((sc3 e-6)) (cond ((equal? sc3 1) (let ((act-26 (Context-Core-initDefs ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((updated (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (Options-Core-addCG (vector 0 e-2 (vector 5 e-2)) o))))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)) arg-0))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-28 (vector-ref sc5 6))) (let ((e-27 (vector-ref sc5 7))) (let ((e-26 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (let ((e-21 (vector-ref sc5 22))) (let ((e-22 (vector-ref sc5 23))) (let ((e-23 (vector-ref sc5 24))) (let ((e-24 (vector-ref sc5 25))) (let ((e-25 (vector-ref sc5 26))) (vector 0 e-0 e-1 e-2 e-3 updated e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-setCG e-8 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 5 (Builtin-fst 'erased 'erased eta-0)))) (List-Data-headC-39 'erased arg-0)) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 ((InitPrimitives-Core-addPrimitives e-8) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (Context-Core-setWorkingDir e-8 "." ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 (Driver-Idris-updateEnv e-8 ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc10 1))) (let ((ide (SetOptions-Idris-ideMode arg-1))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-1))) (let ((outmode (let ((sc11 ide)) (cond ((equal? sc11 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-1))) (let ((act-33 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-0) ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 ((Driver-Idris-showInfo e-8 e-14 arg-1) ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc12 1))) (let ((sc13 (Basics-Prelude-not e-15))) (cond ((equal? sc13 0) (let ((act-35 ((Package-Idris-processPackageOpts e-8 e-9 e-14 arg-1) ext-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc14 1))) (let ((sc15 (Basics-Prelude-not e-16))) (cond ((equal? sc15 0) (let ((act-36 ((SetOptions-Idris-preOptions e-8 e-14 arg-1) ext-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((_-1 1)) (let ((sc17 e-17)) (cond ((equal? sc17 0) (let ((act-37 (let ((sc18 (Driver-Idris-checkVerbose arg-1))) (cond ((equal? sc18 0) (REPLOpts-Idris-setOutput e-14 (vector 1 1) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc20 act-39)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-40 (Driver-Idris-updateREPLOpts e-14 ext-0))) (let ((sc21 act-40)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-41 (Context-Core-getSession e-8 ext-0))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((sc23 (Basics-Prelude-not (let ((sc24 e-22)) (let ((e-1 (vector-ref sc24 2))) e-1))))) (cond ((equal? sc23 0) (let ((act-42 (REPLCommon-Idris-iputStrLn e-14 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Driver-Idris-banner)) ext-0))) (let ((sc24 act-42)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((sc25 (List-Data-isCons 'erased arg-0))) (cond ((equal? sc25 0) (REPLCommon-Idris-iputStrLn e-14 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "With codegen for:") (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Builtin-fst 'erased 'erased eta-0))) arg-0))) ext-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc23 act-42)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-43 (let ((_-2 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3795 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 e-15 e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc24 e-22)) (let ((e-2 (vector-ref sc24 3))) e-2))) ext-0)))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (REPLOpts-Idris-setMainFile e-14 e-24 ext-0))) (let ((sc25 act-44)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc25 1))) (let ((act-45 (let ((sc26 e-24)) (case (vector-ref sc26 0) ((0) (Context-Core-logTime 'erased e-8 (lambda () "+ Loading prelude") (lambda (eta-0) (let ((act-45 (let ((sc27 (Basics-Prelude-not (let ((sc28 e-22)) (let ((e-0 (vector-ref sc28 1))) e-0))))) (cond ((equal? sc27 0) (ProcessIdr-Idris-readPrelude e-8 e-19 e-9 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc27 act-45)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) ext-0)) (else (let ((e-2 (vector-ref sc26 1))) (Context-Core-logTime 'erased e-8 (lambda () "+ Loading main file") (lambda (eta-0) (let ((act-45 (REPL-Idris-loadMainFile e-8 e-19 e-9 e-20 e-14 e-2 eta-0))) (let ((sc27 act-45)) (case (vector-ref sc27 0) ((0) (let ((e-3 (vector-ref sc27 1))) (vector 0 e-3))) (else (let ((e-26 (vector-ref sc27 1))) (let ((act-46 ((REPL-Idris-displayErrors e-8 e-19 e-9 e-20 e-14 e-26) eta-0))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-3 (vector-ref sc28 1))) (vector 0 e-3))) (else (vector 1 e-26))))))))))) ext-0))))))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((act-46 ((SetOptions-Idris-postOptions e-8 e-19 e-9 e-20 e-14 e-26 arg-1) ext-0))) (let ((sc27 act-46)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc27 1))) (let ((_-2 0)) (let ((sc28 e-27)) (cond ((equal? sc28 0) (let ((doRepl 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4124 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 e-15 e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 doRepl (Basics-Prelude-C-124C-124 ide (lambda () ideSocket))) ext-0))) (else (let ((act-47 (let ((act-47 (unbox e-14))) (vector 1 act-47)))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((act-48 (Context-Core-showTimeRecord e-8 ext-0))) (let ((sc30 act-48)) (case (vector-ref sc30 0) ((0) (let ((e-2 (vector-ref sc30 1))) (vector 0 e-2))) (else (let ((e-29 (vector-ref sc30 1))) (let ((doRepl 1)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4705 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 e-15 e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 doRepl e-28 e-29 (let ((sc31 e-28)) (let ((e-37 (vector-ref sc31 7))) e-37))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))) +(define Driver-Idris-stMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Driver-Idris-tryYaffle arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 1) (let ((act-25 ((Driver-Idris-tryTTM arg-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 1)) (let ((sc3 e-6)) (cond ((equal? sc3 1) (let ((act-26 (Context-Core-initDefs ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((updated (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (o) (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (Options-Core-addCG (vector 0 e-2 (vector 5 e-2)) o))))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)) arg-0))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-28 (vector-ref sc5 6))) (let ((e-27 (vector-ref sc5 7))) (let ((e-26 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (let ((e-21 (vector-ref sc5 22))) (let ((e-22 (vector-ref sc5 23))) (let ((e-23 (vector-ref sc5 24))) (let ((e-24 (vector-ref sc5 25))) (let ((e-25 (vector-ref sc5 26))) (vector 0 e-0 e-1 e-2 e-3 updated e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-setCG e-8 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 5 (Builtin-fst 'erased 'erased eta-0)))) (List-Data-headC-39 'erased arg-0)) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 ((InitPrimitives-Core-addPrimitives e-8) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (Context-Core-setWorkingDir e-8 "." ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 (Driver-Idris-updateEnv e-8 ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc10 1))) (let ((ide (SetOptions-Idris-ideMode arg-1))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-1))) (let ((outmode (let ((sc11 ide)) (cond ((equal? sc11 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Driver-Idris-findInput arg-1))) (let ((act-33 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode arg-0) ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-34 ((Driver-Idris-showInfo e-8 e-14 arg-1) ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc12 1))) (let ((sc13 (Basics-Prelude-not e-15))) (cond ((equal? sc13 0) (let ((act-35 ((Package-Idris-processPackageOpts e-8 e-9 e-14 arg-1) ext-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc14 1))) (let ((sc15 (Basics-Prelude-not e-16))) (cond ((equal? sc15 0) (let ((act-36 ((SetOptions-Idris-preOptions e-8 e-14 arg-1) ext-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc16 1))) (let ((_-1 1)) (let ((sc17 e-17)) (cond ((equal? sc17 0) (let ((act-37 (let ((sc18 (Driver-Idris-checkVerbose arg-1))) (cond ((equal? sc18 0) (REPLOpts-Idris-setOutput e-14 (vector 1 1) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc18 act-37)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-38 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc19 act-38)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-39 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc20 act-39)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-40 (Driver-Idris-updateREPLOpts e-14 ext-0))) (let ((sc21 act-40)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-41 (Context-Core-getSession e-8 ext-0))) (let ((sc22 act-41)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-42 (let ((sc23 (Basics-Prelude-not (let ((sc24 e-22)) (let ((e-1 (vector-ref sc24 2))) e-1))))) (cond ((equal? sc23 0) (let ((act-42 (REPLCommon-Idris-iputStrLn e-14 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Driver-Idris-banner)) ext-0))) (let ((sc24 act-42)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((sc25 (List-Data-isCons 'erased arg-0))) (cond ((equal? sc25 0) (REPLCommon-Idris-iputStrLn e-14 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "With codegen for:") (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Builtin-fst 'erased 'erased eta-0))) arg-0))) ext-0)) (else (vector 1 (vector 0 )))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc23 act-42)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-43 (let ((_-2 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-3801 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 e-15 e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc24 e-22)) (let ((e-2 (vector-ref sc24 3))) e-2))) ext-0)))) (let ((sc24 act-43)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-44 (REPLOpts-Idris-setMainFile e-14 e-24 ext-0))) (let ((sc25 act-44)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc25 1))) (let ((act-45 (let ((sc26 e-24)) (case (vector-ref sc26 0) ((0) (Context-Core-logTime 'erased e-8 (lambda () "+ Loading prelude") (lambda (eta-0) (let ((act-45 (let ((sc27 (Basics-Prelude-not (let ((sc28 e-22)) (let ((e-0 (vector-ref sc28 1))) e-0))))) (cond ((equal? sc27 0) (ProcessIdr-Idris-readPrelude e-8 e-19 e-9 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc27 act-45)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) ext-0)) (else (let ((e-2 (vector-ref sc26 1))) (Context-Core-logTime 'erased e-8 (lambda () "+ Loading main file") (lambda (eta-0) (let ((act-45 (REPL-Idris-loadMainFile e-8 e-19 e-9 e-20 e-14 e-2 eta-0))) (let ((sc27 act-45)) (case (vector-ref sc27 0) ((0) (let ((e-3 (vector-ref sc27 1))) (vector 0 e-3))) (else (let ((e-26 (vector-ref sc27 1))) (let ((act-46 ((REPL-Idris-displayErrors e-8 e-19 e-9 e-20 e-14 e-26) eta-0))) (let ((sc28 act-46)) (case (vector-ref sc28 0) ((0) (let ((e-3 (vector-ref sc28 1))) (vector 0 e-3))) (else (vector 1 e-26))))))))))) ext-0))))))) (let ((sc26 act-45)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc26 1))) (let ((act-46 ((SetOptions-Idris-postOptions e-8 e-19 e-9 e-20 e-14 e-26 arg-1) ext-0))) (let ((sc27 act-46)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (vector 0 e-2))) (else (let ((e-27 (vector-ref sc27 1))) (let ((_-2 0)) (let ((sc28 e-27)) (cond ((equal? sc28 0) (let ((doRepl 0)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4130 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 e-15 e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 doRepl (Basics-Prelude-C-124C-124 ide (lambda () ideSocket))) ext-0))) (else (let ((act-47 (let ((act-47 (unbox e-14))) (vector 1 act-47)))) (let ((sc29 act-47)) (case (vector-ref sc29 0) ((0) (let ((e-2 (vector-ref sc29 1))) (vector 0 e-2))) (else (let ((e-28 (vector-ref sc29 1))) (let ((act-48 (Context-Core-showTimeRecord e-8 ext-0))) (let ((sc30 act-48)) (case (vector-ref sc30 0) ((0) (let ((e-2 (vector-ref sc30 1))) (vector 0 e-2))) (else (let ((e-29 (vector-ref sc30 1))) (let ((doRepl 1)) ((Driver-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32stMain-4711 arg-1 arg-0 _-0 _-1 e-7 updated e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 e-15 e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26 doRepl e-28 e-29 (let ((sc31 e-28)) (let ((e-37 (vector-ref sc31 7))) e-37))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 )))))))))))) (define Driver-Idris-showInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((34) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (REPLCommon-Idris-iputStrLn arg-1 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Options-Core-toString (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))(else (Driver-Idris-showInfo arg-0 arg-1 e-3))))))))))) -(define Driver-Idris-quitOpts (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (CommandLine-Idris-versionMsg)) eta-0))) 1))) ((11) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (CommandLine-Idris-usage)) eta-0))) 1))) ((9) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (IdrisPaths-yprefix)) eta-0))) 1)))(else (Driver-Idris-quitOpts e-3))))))))))) -(define Driver-Idris-mainWithCodegens (lambda (arg-0 ext-0) (let ((act-24 (CommandLine-Idris-getCmdOpts ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Driver-Idris-quitOpts e-2) ext-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (let ((act-26 (Term-Utils-setupTerm ext-0))) (Core-Core-coreRun 'erased 'erased (lambda (eta-0) (Driver-Idris-stMain arg-0 e-2 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-27 (arg-317 eta-1))) ((arg-318 act-27) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-28 (arg-317 eta-1))) ((arg-318 act-28) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 1 1 (vector 0 ))) eta-0)))) (lambda (res) (lambda (eta-0) (vector 0 ))) ext-0))) (else (vector 0 ))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-25 (arg-317 eta-0))) ((arg-318 act-25) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-5) ext-0))) ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-26 (arg-317 eta-0))) ((arg-318 act-26) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (CommandLine-Idris-usage)) ext-0))))))))) +(define Driver-Idris-quitOpts (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (CommandLine-Idris-versionMsg)) eta-0))) 1))) ((11) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (CommandLine-Idris-usage)) eta-0))) 1))) ((9) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (IdrisPaths-yprefix)) eta-0))) 1)))(else (Driver-Idris-quitOpts e-3))))))))))) +(define Driver-Idris-mainWithCodegens (lambda (arg-0 ext-0) (let ((act-24 (CommandLine-Idris-getCmdOpts ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Driver-Idris-quitOpts e-2) ext-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (let ((act-26 (Term-Utils-setupTerm ext-0))) (Core-Core-coreRun 'erased 'erased (lambda (eta-0) (Driver-Idris-stMain arg-0 e-2 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-27 (arg-274 eta-1))) ((arg-275 act-27) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err))) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-28 (arg-274 eta-1))) ((arg-275 act-28) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 1 1 (vector 0 ))) eta-0)))) (lambda (res) (lambda (eta-0) (vector 0 ))) ext-0))) (else (vector 0 ))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-25 (arg-274 eta-0))) ((arg-275 act-25) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-5) ext-0))) ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-26 (arg-274 eta-0))) ((arg-275 act-26) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (CommandLine-Idris-usage)) ext-0))))))))) (define Driver-Idris-findInput (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((21) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Driver-Idris-findInput e-3))))))))))) (define Driver-Idris-checkVerbose (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((14) 0)(else (Driver-Idris-checkVerbose e-3))))))))))) (define Driver-Idris-banner (lambda () (Strings-Types-Prelude-C-43C-43 " ____ __ _ ___ \u000a" (Strings-Types-Prelude-C-43C-43 " / _/___/ /____(_)____ |__ \\ \u000a" (Strings-Types-Prelude-C-43C-43 " / // __ / ___/ / ___/ __/ / Version " (Strings-Types-Prelude-C-43C-43 (Version-Idris-showVersion 0 (Version-Idris-version)) (Strings-Types-Prelude-C-43C-43 "\u000a" (Strings-Types-Prelude-C-43C-43 " _/ // /_/ / / / (__ ) / __/ https://www.idris-lang.org \u000a" (Strings-Types-Prelude-C-43C-43 " /___/\\__,_/_/ /_/____/ /____/ Type :? for help \u000a" (Strings-Types-Prelude-C-43C-43 "\u000a" "Welcome to Idris 2. Enjoy yourself!")))))))))) -(define Main-Yaffle-case--yaffleMain-2534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "ttc") (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Processing as TTC") eta-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2180 eta-1)))) arg-3 arg-5 0 (FC-Core-emptyFC) 0 arg-1 (vector 0 ) (vector 0 ) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-26 (arg-317 eta-1))) ((arg-318 act-26) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Read TTC") eta-0))) (vector 1 act-26))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Processing as TTImp") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (let ((act-26 ((Directory-Core-pathToNS (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) (let ((sc4 arg-6)) (let ((e-10 (vector-ref sc4 2))) e-10)) arg-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Directory-Core-makeBuildDirectory arg-3 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5317 arg-5318 eta-1)))) (lambda (arg-5319) (lambda (arg-5320) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5319 arg-5320 eta-1))))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2180 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-29 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-29 (arg-317 eta-1))) ((arg-318 act-29) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Written TTC") eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Processing as TTImp") eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (let ((act-26 ((Directory-Core-pathToNS (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Directory-Core-makeBuildDirectory arg-3 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5317 arg-5318 eta-1)))) (lambda (arg-5319) (lambda (arg-5320) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5319 arg-5320 eta-1))))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2180 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-29 (arg-317 eta-1))) ((arg-318 act-29) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Written TTC") eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))) +(define Main-Yaffle-case--yaffleMain-2540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "ttc") (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Processing as TTC") eta-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2180 eta-1)))) arg-3 arg-5 0 (FC-Core-emptyFC) 0 arg-1 (vector 0 ) (vector 0 ) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-26 (arg-274 eta-1))) ((arg-275 act-26) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Read TTC") eta-0))) (vector 1 act-26))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Processing as TTImp") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (let ((act-26 ((Directory-Core-pathToNS (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) (let ((sc4 arg-6)) (let ((e-10 (vector-ref sc4 2))) e-10)) arg-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Directory-Core-makeBuildDirectory arg-3 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5317 arg-5318 eta-1)))) (lambda (arg-5319) (lambda (arg-5320) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5319 arg-5320 eta-1))))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2180 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-29 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-29 (arg-274 eta-1))) ((arg-275 act-29) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Written TTC") eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Processing as TTImp") eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (let ((act-26 ((Directory-Core-pathToNS (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Directory-Core-makeBuildDirectory arg-3 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (Directory-Core-getTTCFileName arg-3 arg-1 "ttc" eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5317 arg-5318 eta-1)))) (lambda (arg-5319) (lambda (arg-5320) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5319 arg-5320 eta-1))))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2180 eta-1))))) arg-3 arg-5 (vector 0 ) e-9 eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-29 (arg-274 eta-1))) ((arg-275 act-29) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Written TTC") eta-0))) (vector 1 act-29)))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))) (define Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (vector 1 (vector 0 )))) (define Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (vector 1 (vector 0 )))) (define Main-Yaffle-__Impl_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-5317) (lambda (arg-5318) (lambda (eta-0) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5317 arg-5318 eta-0)))) (lambda (arg-5319) (lambda (arg-5320) (lambda (eta-0) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-5319 arg-5320 eta-0))))))) -(define Main-Yaffle-yaffleMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-initDefs ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-getDirs e-6 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Main-Yaffle-processArgs arg-1) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Context-Core-setLogTimings e-6 e-10 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 ((InitPrimitives-Core-addPrimitives e-6) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 ((Main-Yaffle-case--yaffleMain-2534 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (Path-Utils-extension arg-0)) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (let ((act-33 (unbox e-8))) (vector 1 act-33)))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (REPL-Yaffle-repl e-6 e-7 e-8 ext-0))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Main-Yaffle-yaffleMain (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-initDefs ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-getDirs e-6 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Main-Yaffle-processArgs arg-1) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Context-Core-setLogTimings e-6 e-10 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 ((InitPrimitives-Core-addPrimitives e-6) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 ((Main-Yaffle-case--yaffleMain-2540 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (Path-Utils-extension arg-0)) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (let ((act-33 (unbox e-8))) (vector 1 act-33)))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (REPL-Yaffle-repl e-6 e-7 e-8 ext-0))))))))))))))))))))))))))))))))))))))))))))))))))) (define Main-Yaffle-usage (lambda () "Usage: yaffle [--timing]")) -(define Main-Yaffle-processArgs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "--timing") (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))) -(define System-case--getEnv-2015 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (IO-Prelude-prim__getString arg-3)))))))))) +(define Main-Yaffle-processArgs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 "--timing") (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24)))))))) +(define System-case--getEnv-2021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (IO-Prelude-prim__getString arg-3)))))))))) (define System-system (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (System-prim__system arg-2 eta-0))))))) -(define System-getEnv (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (System-prim__getEnv arg-2 eta-0)))))) (lambda (env) (System-case--getEnv-2015 'erased arg-1 arg-2 env (EqOrd-Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased env)) 0)))))))) +(define System-getEnv (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (System-prim__getEnv arg-2 eta-0)))))) (lambda (env) (System-case--getEnv-2021 'erased arg-1 arg-2 env (EqOrd-Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased env)) 0)))))))) (define System-getArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (System-prim__getArgs eta-0))))))) (define System-exitWith (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim__exit 0 eta-0))))))) (else (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim__exit e-0 eta-0)))))))))))) -(define Strings-Data-with--parseIntegerC-44parseIntTrimmed-1187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 ))(else (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (Strings-Data-case--withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1202 'erased arg-1 arg-2 e-1 e-0 (EqOrd-Prelude-C-61C-61_Eq__Char e-0 #\-)))))))))(else (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Data-case--withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1202 'erased arg-1 arg-2 e-1 e-0 (EqOrd-Prelude-C-61C-61_Eq__Char e-0 #\-)))))))))) -(define Strings-Data-with--parsePositiveC-44parsePosTrimmed-1103 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 ))(else (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 e-0)) (cond ((equal? sc2 #\+) (Types-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 (Types-Prelude-unpack e-1) 0)))(else (Strings-Data-case--withC-32blockC-32inC-32parsePositiveC-44parsePosTrimmed-1135 'erased arg-1 arg-2 e-1 e-0 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (EqOrd-Prelude-C-60C-61_Ord__Char e-0 #\9))))))))))))))(else (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (cond ((equal? sc1 #\+) (Types-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 (Types-Prelude-unpack e-1) 0)))(else (Strings-Data-case--withC-32blockC-32inC-32parsePositiveC-44parsePosTrimmed-1135 'erased arg-1 arg-2 e-1 e-0 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (EqOrd-Prelude-C-60C-61_Ord__Char e-0 #\9))))))))))))))) -(define Strings-Data-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Types-Prelude-map_Functor__Maybe 'erased 'erased (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-3 (vector-ref sc1 3))) (lambda (arg-6) (e-3 arg-6)))) (Strings-Data-parseNumWithoutSign (Types-Prelude-unpack arg-3) (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int (Types-Prelude-ord arg-4) (Types-Prelude-ord #\0)))))) (else (vector 0 )))))) -(define Strings-Data-case--caseC-32blockC-32inC-32withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Types-Prelude-map_Functor__Maybe 'erased 'erased (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-3 (vector-ref sc1 3))) (lambda (arg-6) (e-3 arg-6)))) (Strings-Data-parseNumWithoutSign (Types-Prelude-unpack arg-3) (Types-Prelude-cast_Cast__Int_Integer 0)))) (else (Strings-Data-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1286 'erased arg-1 arg-2 arg-3 arg-4 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-62C-61_Ord__Char arg-4 #\0) (lambda () (EqOrd-Prelude-C-60C-61_Ord__Char arg-4 #\9))))))))) -(define Strings-Data-case--withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1202 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (y) (let ((sc1 (Builtin-snd 'erased 'erased arg-1))) (let ((e-2 (vector-ref sc1 2))) (e-2 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc2 3))) (e-4 y))))))) (Strings-Data-parseNumWithoutSign (Types-Prelude-unpack arg-3) 0))) (else (Strings-Data-case--caseC-32blockC-32inC-32withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1242 'erased arg-1 arg-2 arg-3 arg-4 (EqOrd-Prelude-C-61C-61_Eq__Char arg-4 #\+))))))) -(define Strings-Data-case--withC-32blockC-32inC-32parsePositiveC-44parsePosTrimmed-1135 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Types-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 (Types-Prelude-unpack arg-3) (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int (Types-Prelude-ord arg-4) (Types-Prelude-ord #\0)))))) (else (vector 0 )))))) -(define Strings-Data-case--parseNumWithoutSign-1068 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-parseNumWithoutSign arg-1 (+ (* arg-2 10) (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int (Types-Prelude-ord arg-0) (Types-Prelude-ord #\0)))))) (else (vector 0 )))))) -(define Strings-Data-case--span-953 (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 (Types-Prelude-pack e-2) (Types-Prelude-pack e-3))))))) -(define Strings-Data-case--ltrimC-44ltrimChars-908 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-n--2114-898-ltrimChars arg-0 arg-2)) (else (vector 1 arg-1 arg-2)))))) -(define Strings-Data-case--caseC-32blockC-32inC-32linesC-39-846 (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--linesC-39-832 (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--caseC-32blockC-32inC-32wordsC-39-772 (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--wordsC-39-759 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--caseC-32blockC-32inC-32wordsC-39-772 arg-0 arg-1 (List-Data-break 'erased (lambda (eta-0) (Types-Prelude-isSpace eta-0)) arg-1))))))) -(define Strings-Data-n--2301-1101-parsePosTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--parsePositiveC-44parsePosTrimmed-1103 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3)))) -(define Strings-Data-n--2382-1185-parseIntTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--parseIntegerC-44parseIntTrimmed-1187 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3)))) -(define Strings-Data-n--2114-898-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--ltrimC-44ltrimChars-908 arg-0 e-2 e-3 (Types-Prelude-isSpace e-2))))))))) -(define Strings-Data-n--2013-794-addSpace (lambda (arg-0 arg-1 arg-2) (List-Types-Prelude-C-43C-43 'erased arg-1 (vector 1 #\ arg-2)))) -(define Strings-Data-wordsC-39 (lambda (arg-0) (Strings-Data-case--wordsC-39-759 arg-0 (List-Data-dropWhile 'erased (lambda (eta-0) (Types-Prelude-isSpace eta-0)) arg-0)))) +(define Strings-Data-with--parseIntegerC-44parseIntTrimmed-1193 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 ))(else (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (Strings-Data-case--withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1208 'erased arg-1 arg-2 e-1 e-0 (EqOrd-Prelude-C-61C-61_Eq__Char e-0 #\-)))))))))(else (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Data-case--withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1208 'erased arg-1 arg-2 e-1 e-0 (EqOrd-Prelude-C-61C-61_Eq__Char e-0 #\-)))))))))) +(define Strings-Data-with--parsePositiveC-44parsePosTrimmed-1109 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 "") (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 ))(else (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 e-0)) (cond ((equal? sc2 #\+) (Types-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 (Types-Prelude-unpack e-1) 0)))(else (Strings-Data-case--withC-32blockC-32inC-32parsePositiveC-44parsePosTrimmed-1141 'erased arg-1 arg-2 e-1 e-0 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (EqOrd-Prelude-C-60C-61_Ord__Char e-0 #\9))))))))))))))(else (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (cond ((equal? sc1 #\+) (Types-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 (Types-Prelude-unpack e-1) 0)))(else (Strings-Data-case--withC-32blockC-32inC-32parsePositiveC-44parsePosTrimmed-1141 'erased arg-1 arg-2 e-1 e-0 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-62C-61_Ord__Char e-0 #\0) (lambda () (EqOrd-Prelude-C-60C-61_Ord__Char e-0 #\9))))))))))))))) +(define Strings-Data-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1292 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Types-Prelude-map_Functor__Maybe 'erased 'erased (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-3 (vector-ref sc1 3))) (lambda (arg-6) (e-3 arg-6)))) (Strings-Data-parseNumWithoutSign (Types-Prelude-unpack arg-3) (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int (Types-Prelude-ord arg-4) (Types-Prelude-ord #\0)))))) (else (vector 0 )))))) +(define Strings-Data-case--caseC-32blockC-32inC-32withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Types-Prelude-map_Functor__Maybe 'erased 'erased (let ((sc1 (Builtin-fst 'erased 'erased arg-1))) (let ((e-3 (vector-ref sc1 3))) (lambda (arg-6) (e-3 arg-6)))) (Strings-Data-parseNumWithoutSign (Types-Prelude-unpack arg-3) (Types-Prelude-cast_Cast__Int_Integer 0)))) (else (Strings-Data-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1292 'erased arg-1 arg-2 arg-3 arg-4 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-62C-61_Ord__Char arg-4 #\0) (lambda () (EqOrd-Prelude-C-60C-61_Ord__Char arg-4 #\9))))))))) +(define Strings-Data-case--withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1208 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (y) (let ((sc1 (Builtin-snd 'erased 'erased arg-1))) (let ((e-2 (vector-ref sc1 2))) (e-2 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc2 3))) (e-4 y))))))) (Strings-Data-parseNumWithoutSign (Types-Prelude-unpack arg-3) 0))) (else (Strings-Data-case--caseC-32blockC-32inC-32withC-32blockC-32inC-32parseIntegerC-44parseIntTrimmed-1248 'erased arg-1 arg-2 arg-3 arg-4 (EqOrd-Prelude-C-61C-61_Eq__Char arg-4 #\+))))))) +(define Strings-Data-case--withC-32blockC-32inC-32parsePositiveC-44parsePosTrimmed-1141 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Types-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 (Types-Prelude-unpack arg-3) (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int (Types-Prelude-ord arg-4) (Types-Prelude-ord #\0)))))) (else (vector 0 )))))) +(define Strings-Data-case--parseNumWithoutSign-1074 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-parseNumWithoutSign arg-1 (+ (* arg-2 10) (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int (Types-Prelude-ord arg-0) (Types-Prelude-ord #\0)))))) (else (vector 0 )))))) +(define Strings-Data-case--span-959 (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 (Types-Prelude-pack e-2) (Types-Prelude-pack e-3))))))) +(define Strings-Data-case--ltrimC-44ltrimChars-914 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-n--2013-904-ltrimChars arg-0 arg-2)) (else (vector 1 arg-1 arg-2)))))) +(define Strings-Data-case--caseC-32blockC-32inC-32linesC-39-852 (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--linesC-39-838 (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--caseC-32blockC-32inC-32wordsC-39-778 (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--wordsC-39-765 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--caseC-32blockC-32inC-32wordsC-39-778 arg-0 arg-1 (List-Data-break 'erased (lambda (eta-0) (Types-Prelude-isSpace eta-0)) arg-1))))))) +(define Strings-Data-n--1857-747-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--1857-747-toFArgs arg-0 e-3))))))))) +(define Strings-Data-n--2200-1107-parsePosTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--parsePositiveC-44parsePosTrimmed-1109 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3)))) +(define Strings-Data-n--2281-1191-parseIntTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--parseIntegerC-44parseIntTrimmed-1193 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3)))) +(define Strings-Data-n--2013-904-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--ltrimC-44ltrimChars-914 arg-0 e-2 e-3 (Types-Prelude-isSpace e-2))))))))) +(define Strings-Data-n--1912-800-addSpace (lambda (arg-0 arg-1 arg-2) (List-Types-Prelude-C-43C-43 'erased arg-1 (vector 1 #\ arg-2)))) +(define Strings-Data-wordsC-39 (lambda (arg-0) (Strings-Data-case--wordsC-39-765 arg-0 (List-Data-dropWhile 'erased (lambda (eta-0) (Types-Prelude-isSpace eta-0)) arg-0)))) (define Strings-Data-words (lambda (arg-0) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Types-Prelude-pack eta-0)) (Strings-Data-wordsC-39 (Types-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--2013-794-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--1912-800-addSpace arg-0 eta-0 eta-1))) arg-0)))))) (define Strings-Data-unwords (lambda (ext-0) (Types-Prelude-pack (Strings-Data-unwordsC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Types-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-Types-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) (Types-Prelude-pack (Strings-Data-unlinesC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Types-Prelude-unpack eta-0)) ext-0))))) @@ -531,18 +507,18 @@ (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) (List1-Data-map_Functor__List1 'erased 'erased (lambda (eta-0) (Types-Prelude-pack eta-0)) (List-Data-split 'erased arg-0 (Types-Prelude-unpack arg-1))))) -(define Strings-Data-span (lambda (arg-0 arg-1) (Strings-Data-case--span-953 arg-1 arg-0 (List-Data-span 'erased arg-0 (Types-Prelude-unpack arg-1))))) +(define Strings-Data-span (lambda (arg-0 arg-1) (Strings-Data-case--span-959 arg-1 arg-0 (List-Data-span 'erased arg-0 (Types-Prelude-unpack arg-1))))) (define Strings-Data-singleton (lambda (arg-0) (Types-Prelude-strCons arg-0 ""))) -(define Strings-Data-parsePositive (lambda (arg-0 arg-1 arg-2) (Strings-Data-n--2301-1101-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--parseNumWithoutSign-1068 e-2 e-3 arg-1 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-62C-61_Ord__Char e-2 #\0) (lambda () (EqOrd-Prelude-C-60C-61_Ord__Char e-2 #\9))))))))))) -(define Strings-Data-parseInteger (lambda (arg-0 arg-1 arg-2) (Strings-Data-n--2382-1185-parseIntTrimmed 'erased arg-1 arg-2 (Strings-Data-trim arg-2)))) -(define Strings-Data-ltrim (lambda (arg-0) (Types-Prelude-pack (Strings-Data-n--2114-898-ltrimChars arg-0 (Types-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--linesC-39-832 arg-0 (List-Data-break 'erased (lambda (eta-0) (Types-Prelude-isNL eta-0)) arg-0))))))) +(define Strings-Data-parsePositive (lambda (arg-0 arg-1 arg-2) (Strings-Data-n--2200-1107-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--parseNumWithoutSign-1074 e-2 e-3 arg-1 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-62C-61_Ord__Char e-2 #\0) (lambda () (EqOrd-Prelude-C-60C-61_Ord__Char e-2 #\9))))))))))) +(define Strings-Data-parseInteger (lambda (arg-0 arg-1 arg-2) (Strings-Data-n--2281-1191-parseIntTrimmed 'erased arg-1 arg-2 (Strings-Data-trim arg-2)))) +(define Strings-Data-ltrim (lambda (arg-0) (Types-Prelude-pack (Strings-Data-n--2013-904-ltrimChars arg-0 (Types-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--linesC-39-838 arg-0 (List-Data-break 'erased (lambda (eta-0) (Types-Prelude-isNL eta-0)) arg-0))))))) (define Strings-Data-lines (lambda (arg-0) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Types-Prelude-pack eta-0)) (Strings-Data-linesC-39 (Types-Prelude-unpack arg-0))))) (define Strings-Data-isSuffixOf (lambda (arg-0 arg-1) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Char arg-4 arg-5)))) (Types-Prelude-unpack arg-0) (Types-Prelude-unpack arg-1)))) (define Strings-Data-isPrefixOf (lambda (arg-0 arg-1) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Char arg-4 arg-5)))) (Types-Prelude-unpack arg-0) (Types-Prelude-unpack arg-1)))) (define Strings-Data-foldr1 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) e-1)(else ((arg-1 e-1) (Strings-Data-foldr1 'erased arg-1 e-2))))))))(else (Builtin-idris_crash 'erased "Unhandled input for Data.Strings.foldr1 at Data/Strings.idr:12:1--12:17")))))) -(define Strings-Data-fastAppend (lambda (ext-0) (Strings-Data-fastConcat ext-0))) +(define Strings-Data-fastAppend (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string-append (blodwen-read-args (Strings-Data-n--1857-747-toFArgs arg-0 arg-0))))))) (define Strings-Data-break (lambda (arg-0 ext-0) (Strings-Data-span (lambda (eta-0) (Basics-Prelude-not (arg-0 eta-0))) ext-0))) (define List1-Data-pure_Applicative__List1 (lambda (arg-0 arg-1) (vector 0 arg-1 (vector 0 )))) (define List1-Data-map_Functor__List1 (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 (arg-2 e-1) (Types-Prelude-map_Functor__List 'erased 'erased arg-2 e-2))))))) @@ -576,51 +552,52 @@ (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 Types-Prelude-case--rangeFromThen-5092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Types-Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-snd '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-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 (Types-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 Types-Prelude-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32rangeFromThenTo-5020 (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 Types-Prelude-case--caseC-32blockC-32inC-32rangeFromThenTo-4955 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Types-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)))) (Types-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 (Types-Prelude-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32rangeFromThenTo-5020 'erased arg-1 arg-4 arg-3 arg-2 (Basics-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 Types-Prelude-case--rangeFromThenTo-4892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Types-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)))) (Types-Prelude-countFrom 'erased arg-2 (lambda (arg-6) (let ((sc1 (let ((sc2 (Builtin-snd '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-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 (Types-Prelude-case--caseC-32blockC-32inC-32rangeFromThenTo-4955 '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 Types-Prelude-case--caseC-32blockC-32inC-32rangeFromTo-4823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Types-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)))) (Types-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-snd 'erased 'erased (Builtin-snd '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 Types-Prelude-case--rangeFromTo-4770 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Types-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)))) (Types-Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-snd '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-5) (let ((sc2 (let ((sc3 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (Types-Prelude-case--caseC-32blockC-32inC-32rangeFromTo-4823 '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 Types-Prelude-case--rangeFromThen-4698 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Types-Prelude-countFrom 'erased arg-1 (lambda (eta-0) (+ (Types-Prelude-minus arg-0 arg-1) eta-0)))) (else (Types-Prelude-countFrom 'erased arg-1 (lambda (n) (Types-Prelude-minus n (Types-Prelude-minus arg-1 arg-0))))))))) -(define Types-Prelude-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32rangeFromThenTo-4650 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 arg-2 (vector 0 ))) (else (vector 0 )))))) -(define Types-Prelude-case--caseC-32blockC-32inC-32rangeFromThenTo-4636 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Types-Prelude-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32rangeFromThenTo-4650 arg-0 arg-1 arg-2 (Types-Prelude-C-61C-61_Eq__Nat arg-2 arg-0))) (else (Types-Prelude-takeBefore 'erased (lambda (arg-4) (Types-Prelude-C-60_Ord__Nat arg-4 arg-0)) (Types-Prelude-countFrom 'erased arg-2 (lambda (n) (Types-Prelude-minus n (Types-Prelude-minus arg-2 arg-1)))))))))) -(define Types-Prelude-case--caseC-32blockC-32inC-32rangeFromThenTo-4596 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Types-Prelude-takeBefore 'erased (lambda (arg-4) (Types-Prelude-C-62_Ord__Nat arg-4 arg-0)) (Types-Prelude-countFrom 'erased arg-2 (lambda (eta-0) (+ (Types-Prelude-minus arg-1 arg-2) eta-0))))) (else (vector 0 )))))) -(define Types-Prelude-case--rangeFromThenTo-4582 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Types-Prelude-case--caseC-32blockC-32inC-32rangeFromThenTo-4596 arg-0 arg-1 arg-2 (Types-Prelude-C-62_Ord__Nat arg-0 arg-2))) (else (Types-Prelude-case--caseC-32blockC-32inC-32rangeFromThenTo-4636 arg-0 arg-1 arg-2 (Types-Prelude-C-61C-61_Eq__Nat arg-2 arg-1))))))) -(define Types-Prelude-case--caseC-32blockC-32inC-32rangeFromTo-4547 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Types-Prelude-takeUntil 'erased (lambda (arg-3) (Types-Prelude-C-60C-61_Ord__Nat arg-3 arg-0)) (Types-Prelude-countFrom 'erased arg-1 (lambda (n) (Types-Prelude-minus n (+ 1 0)))))) (else (vector 1 arg-1 (vector 0 ))))))) -(define Types-Prelude-case--rangeFromTo-4519 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Types-Prelude-takeUntil 'erased (lambda (arg-3) (Types-Prelude-C-62C-61_Ord__Nat arg-3 arg-0)) (Types-Prelude-countFrom 'erased arg-1 (lambda (eta-0) (+ 1 eta-0))))) (else (Types-Prelude-case--caseC-32blockC-32inC-32rangeFromTo-4547 arg-0 arg-1 (Types-Prelude-C-62_Ord__Nat arg-1 arg-0))))))) -(define Types-Prelude-case--takeBefore-4364 (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 (Types-Prelude-takeBefore 'erased arg-3 (arg-2)))))))) -(define Types-Prelude-case--takeUntil-4313 (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 (Types-Prelude-takeUntil 'erased arg-3 (arg-2)))))))) -(define Types-Prelude-case--toLower-3748 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (b+ (char->integer arg-0) 32 63))) (else arg-0))))) -(define Types-Prelude-case--toUpper-3734 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (Num-Prelude-C-45_Neg__Int (char->integer arg-0) 32))) (else arg-0))))) -(define Types-Prelude-case--unpackC-44unpackC-39-3613 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-1) (else (Types-Prelude-n--3683-3601-unpackC-39 arg-0 (Num-Prelude-C-45_Neg__Int arg-3 1) arg-2 (vector 1 (string-ref arg-2 arg-3) arg-1))))))) -(define Types-Prelude-case--substr-3555 (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 Types-Prelude-case--compare-2865 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 1) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-3 arg-5))(else arg-6))))) -(define Types-Prelude-case--max-2756 (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 Types-Prelude-case--min-2728 (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 Types-Prelude-case--max-604 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Types-Prelude-case--min-590 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Types-Prelude-case--integerToNat-479 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (+ 1 (- arg-0 1))))))) -(define Types-Prelude-n--3683-3601-unpackC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (Types-Prelude-case--unpackC-44unpackC-39-3613 arg-0 arg-3 arg-2 arg-1 (EqOrd-Prelude-C-60_Ord__Int arg-1 0)))) -(define Types-Prelude-n--3857-3760-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 Types-Prelude-case--rangeFromThen-4567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Types-Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-snd '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-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 (Types-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 Types-Prelude-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32rangeFromThenTo-4495 (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 Types-Prelude-case--caseC-32blockC-32inC-32rangeFromThenTo-4430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Types-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)))) (Types-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 (Types-Prelude-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32rangeFromThenTo-4495 'erased arg-1 arg-4 arg-3 arg-2 (Basics-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 Types-Prelude-case--rangeFromThenTo-4367 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Types-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)))) (Types-Prelude-countFrom 'erased arg-2 (lambda (arg-6) (let ((sc1 (let ((sc2 (Builtin-snd '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-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 (Types-Prelude-case--caseC-32blockC-32inC-32rangeFromThenTo-4430 '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 Types-Prelude-case--caseC-32blockC-32inC-32rangeFromTo-4298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Types-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)))) (Types-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-snd 'erased 'erased (Builtin-snd '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 Types-Prelude-case--rangeFromTo-4245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Types-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)))) (Types-Prelude-countFrom 'erased arg-2 (lambda (arg-5) (let ((sc1 (let ((sc2 (Builtin-snd '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-5) (let ((sc2 (let ((sc3 (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased arg-1)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-4 (vector-ref sc2 3))) (e-4 1)))))))))) (else (Types-Prelude-case--caseC-32blockC-32inC-32rangeFromTo-4298 '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 Types-Prelude-case--rangeFromThen-4173 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Types-Prelude-countFrom 'erased arg-1 (lambda (eta-0) (+ (Types-Prelude-minus arg-0 arg-1) eta-0)))) (else (Types-Prelude-countFrom 'erased arg-1 (lambda (n) (Types-Prelude-minus n (Types-Prelude-minus arg-1 arg-0))))))))) +(define Types-Prelude-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32rangeFromThenTo-4125 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 arg-2 (vector 0 ))) (else (vector 0 )))))) +(define Types-Prelude-case--caseC-32blockC-32inC-32rangeFromThenTo-4111 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Types-Prelude-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32rangeFromThenTo-4125 arg-0 arg-1 arg-2 (Types-Prelude-C-61C-61_Eq__Nat arg-2 arg-0))) (else (Types-Prelude-takeBefore 'erased (lambda (arg-4) (Types-Prelude-C-60_Ord__Nat arg-4 arg-0)) (Types-Prelude-countFrom 'erased arg-2 (lambda (n) (Types-Prelude-minus n (Types-Prelude-minus arg-2 arg-1)))))))))) +(define Types-Prelude-case--caseC-32blockC-32inC-32rangeFromThenTo-4071 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Types-Prelude-takeBefore 'erased (lambda (arg-4) (Types-Prelude-C-62_Ord__Nat arg-4 arg-0)) (Types-Prelude-countFrom 'erased arg-2 (lambda (eta-0) (+ (Types-Prelude-minus arg-1 arg-2) eta-0))))) (else (vector 0 )))))) +(define Types-Prelude-case--rangeFromThenTo-4057 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Types-Prelude-case--caseC-32blockC-32inC-32rangeFromThenTo-4071 arg-0 arg-1 arg-2 (Types-Prelude-C-62_Ord__Nat arg-0 arg-2))) (else (Types-Prelude-case--caseC-32blockC-32inC-32rangeFromThenTo-4111 arg-0 arg-1 arg-2 (Types-Prelude-C-61C-61_Eq__Nat arg-2 arg-1))))))) +(define Types-Prelude-case--caseC-32blockC-32inC-32rangeFromTo-4022 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Types-Prelude-takeUntil 'erased (lambda (arg-3) (Types-Prelude-C-60C-61_Ord__Nat arg-3 arg-0)) (Types-Prelude-countFrom 'erased arg-1 (lambda (n) (Types-Prelude-minus n (+ 1 0)))))) (else (vector 1 arg-1 (vector 0 ))))))) +(define Types-Prelude-case--rangeFromTo-3994 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Types-Prelude-takeUntil 'erased (lambda (arg-3) (Types-Prelude-C-62C-61_Ord__Nat arg-3 arg-0)) (Types-Prelude-countFrom 'erased arg-1 (lambda (eta-0) (+ 1 eta-0))))) (else (Types-Prelude-case--caseC-32blockC-32inC-32rangeFromTo-4022 arg-0 arg-1 (Types-Prelude-C-62_Ord__Nat arg-1 arg-0))))))) +(define Types-Prelude-case--takeBefore-3839 (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 (Types-Prelude-takeBefore 'erased arg-3 (arg-2)))))))) +(define Types-Prelude-case--takeUntil-3788 (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 (Types-Prelude-takeUntil 'erased arg-3 (arg-2)))))))) +(define Types-Prelude-case--toLower-3447 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (b+ (char->integer arg-0) 32 63))) (else arg-0))))) +(define Types-Prelude-case--toUpper-3433 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (Num-Prelude-C-45_Neg__Int (char->integer arg-0) 32))) (else arg-0))))) +(define Types-Prelude-case--unpackC-44unpackC-39-3312 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-1) (else (Types-Prelude-n--3476-3300-unpackC-39 arg-0 (Num-Prelude-C-45_Neg__Int arg-3 1) arg-2 (vector 1 (string-ref arg-2 arg-3) arg-1))))))) +(define Types-Prelude-case--substr-3246 (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 Types-Prelude-case--compare-2556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 1) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-3 arg-5))(else arg-6))))) +(define Types-Prelude-case--max-2447 (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 Types-Prelude-case--min-2419 (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 Types-Prelude-case--max-564 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Types-Prelude-case--min-550 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Types-Prelude-case--integerToNat-439 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (+ 1 (- arg-0 1))))))) +(define Types-Prelude-n--3476-3300-unpackC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (Types-Prelude-case--unpackC-44unpackC-39-3312 arg-0 arg-3 arg-2 arg-1 (EqOrd-Prelude-C-60_Ord__Int arg-1 0)))) +(define Types-Prelude-n--3461-3287-toFArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector "Char" ) e-2 (Types-Prelude-n--3461-3287-toFArgs arg-0 e-3))))))))) +(define Types-Prelude-n--3650-3459-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 Types-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))))) (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased arg-3 arg-4 e-3))))))))))) (define Types-Prelude-rangeFrom_Range__Nat (lambda (arg-0) (Types-Prelude-countFrom 'erased arg-0 (lambda (eta-0) (+ 1 eta-0))))) (define Types-Prelude-rangeFrom_Range__C-36a (lambda (arg-0 arg-1 arg-2) (Types-Prelude-countFrom 'erased arg-2 (lambda (arg-3) (let ((sc0 (let ((sc1 (Builtin-snd 'erased 'erased (Builtin-snd '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-snd 'erased 'erased (Builtin-snd '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 Types-Prelude-rangeFromTo_Range__Nat (lambda (arg-0 arg-1) (Types-Prelude-case--rangeFromTo-4519 arg-1 arg-0 (Types-Prelude-C-62_Ord__Nat arg-1 arg-0)))) -(define Types-Prelude-rangeFromTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Types-Prelude-case--rangeFromTo-4770 '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 Types-Prelude-rangeFromThen_Range__Nat (lambda (arg-0 arg-1) (Types-Prelude-case--rangeFromThen-4698 arg-1 arg-0 (Types-Prelude-C-62_Ord__Nat arg-1 arg-0)))) -(define Types-Prelude-rangeFromThen_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Types-Prelude-case--rangeFromThen-5092 '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 Types-Prelude-rangeFromThenTo_Range__Nat (lambda (arg-0 arg-1 arg-2) (Types-Prelude-case--rangeFromThenTo-4582 arg-2 arg-1 arg-0 (Types-Prelude-C-62_Ord__Nat arg-1 arg-0)))) -(define Types-Prelude-rangeFromThenTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Types-Prelude-case--rangeFromThenTo-4892 '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 Types-Prelude-rangeFromTo_Range__Nat (lambda (arg-0 arg-1) (Types-Prelude-case--rangeFromTo-3994 arg-1 arg-0 (Types-Prelude-C-62_Ord__Nat arg-1 arg-0)))) +(define Types-Prelude-rangeFromTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Types-Prelude-case--rangeFromTo-4245 '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 Types-Prelude-rangeFromThen_Range__Nat (lambda (arg-0 arg-1) (Types-Prelude-case--rangeFromThen-4173 arg-1 arg-0 (Types-Prelude-C-62_Ord__Nat arg-1 arg-0)))) +(define Types-Prelude-rangeFromThen_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3) (Types-Prelude-case--rangeFromThen-4567 '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 Types-Prelude-rangeFromThenTo_Range__Nat (lambda (arg-0 arg-1 arg-2) (Types-Prelude-case--rangeFromThenTo-4057 arg-2 arg-1 arg-0 (Types-Prelude-C-62_Ord__Nat arg-1 arg-0)))) +(define Types-Prelude-rangeFromThenTo_Range__C-36a (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Types-Prelude-case--rangeFromThenTo-4367 '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 Types-Prelude-pure_Applicative__Maybe (lambda (arg-0 ext-0) (vector 1 ext-0))) (define Types-Prelude-pure_Applicative__List (lambda (arg-0 arg-1) (vector 1 arg-1 (vector 0 )))) (define Types-Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 (lambda (arg-0 arg-1 ext-0) (vector 1 ext-0))) (define Types-Prelude-neutral_Monoid__String (lambda () "")) (define Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 (lambda (arg-0) (vector 0 ))) -(define Types-Prelude-min_Ord__Nat (lambda (arg-0 arg-1) (Types-Prelude-case--min-590 arg-1 arg-0 (Types-Prelude-C-60_Ord__Nat arg-0 arg-1)))) -(define Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Types-Prelude-case--min-2728 'erased arg-1 arg-3 arg-2 (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3)))) -(define Types-Prelude-max_Ord__Nat (lambda (arg-0 arg-1) (Types-Prelude-case--max-604 arg-1 arg-0 (Types-Prelude-C-62_Ord__Nat arg-0 arg-1)))) -(define Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Types-Prelude-case--max-2756 'erased arg-1 arg-3 arg-2 (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3)))) +(define Types-Prelude-min_Ord__Nat (lambda (arg-0 arg-1) (Types-Prelude-case--min-550 arg-1 arg-0 (Types-Prelude-C-60_Ord__Nat arg-0 arg-1)))) +(define Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Types-Prelude-case--min-2419 'erased arg-1 arg-3 arg-2 (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3)))) +(define Types-Prelude-max_Ord__Nat (lambda (arg-0 arg-1) (Types-Prelude-case--max-564 arg-1 arg-0 (Types-Prelude-C-62_Ord__Nat arg-0 arg-1)))) +(define Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Types-Prelude-case--max-2447 'erased arg-1 arg-3 arg-2 (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3)))) (define Types-Prelude-map_Functor__Maybe (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (arg-2 e-1)))) (else (vector 0 )))))) (define Types-Prelude-map_Functor__List (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (arg-2 e-2) (Types-Prelude-map_Functor__List 'erased 'erased arg-2 e-3))))))))) (define Types-Prelude-map_Functor__C-40PairC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (arg-3 e-3))))))) @@ -633,7 +610,7 @@ (define Types-Prelude-foldl_Foldable__List (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-foldl_Foldable__List 'erased 'erased arg-2 ((arg-2 arg-3) e-2) e-3)))))))) (define Types-Prelude-empty_Alternative__List (lambda (arg-0) (vector 0 ))) (define Types-Prelude-compare_Ord__Nat (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (cond ((equal? sc1 0) 1)(else 0))))(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 2)(else (let ((e-2 (- arg-1 1))) (Types-Prelude-compare_Ord__Nat e-0 e-2))))))))))) -(define Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 1) (else 0)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 2) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (Types-Prelude-case--compare-2865 'erased arg-1 e-2 e-3 e-10 e-11 (let ((sc2 arg-1)) (let ((e-12 (vector-ref sc2 2))) ((e-12 e-2) e-10)))))))))))))))) +(define Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 1) (else 0)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 2) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (Types-Prelude-case--compare-2556 'erased arg-1 e-2 e-3 e-10 e-11 (let ((sc2 arg-1)) (let ((e-12 (vector-ref sc2 2))) ((e-12 e-2) e-10)))))))))))))))) (define Types-Prelude-cast_Cast__String_Integer (lambda (ext-0) (cast-string-int ext-0))) (define Types-Prelude-cast_Cast__String_Int (lambda (ext-0) (cast-string-int ext-0))) (define Types-Prelude-cast_Cast__String_Double (lambda (ext-0) (cast-string-double ext-0))) @@ -649,21 +626,20 @@ (define Types-Prelude-cast_Cast__Double_Int (lambda (ext-0) (exact-floor ext-0))) (define Types-Prelude-cast_Cast__Char_String (lambda (ext-0) (string ext-0))) (define Types-Prelude-cast_Cast__Char_Int (lambda (ext-0) (char->integer ext-0))) -(define Types-Prelude-cast_Cast__Bits64_Integer (lambda (ext-0) ext-0)) -(define Types-Prelude-__Impl_Traversable_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__List 'erased 'erased func arg-45))))) (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (b) (lambda (a) (lambda (f) (lambda (i_con-0) (lambda (arg-1015) (lambda (arg-1017) (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased i_con-0 arg-1015 arg-1017)))))))))) +(define Types-Prelude-__Impl_Traversable_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__List 'erased 'erased func arg-45))))) (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (b) (lambda (a) (lambda (f) (lambda (i_con-0) (lambda (arg-972) (lambda (arg-974) (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased i_con-0 arg-972 arg-974)))))))))) (define Types-Prelude-__Impl_Semigroup_String (lambda (ext-0 ext-1) (Types-Prelude-C-60C-43C-62_Semigroup__String ext-0 ext-1))) (define Types-Prelude-__Impl_Semigroup_C-40MaybeC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1) (Types-Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased ext-0 ext-1))) (define Types-Prelude-__Impl_Semigroup_C-40ListC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased ext-0 ext-1))) -(define Types-Prelude-__Impl_Range_Nat (lambda () (vector 0 (lambda (arg-4400) (lambda (arg-4401) (Types-Prelude-rangeFromTo_Range__Nat arg-4400 arg-4401))) (lambda (arg-4402) (lambda (arg-4403) (lambda (arg-4404) (Types-Prelude-rangeFromThenTo_Range__Nat arg-4402 arg-4403 arg-4404)))) (lambda (arg-4405) (Types-Prelude-rangeFrom_Range__Nat arg-4405)) (lambda (arg-4406) (lambda (arg-4407) (Types-Prelude-rangeFromThen_Range__Nat arg-4406 arg-4407)))))) -(define Types-Prelude-__Impl_Range_C-36a (lambda (arg-0 arg-1) (vector 0 (lambda (arg-4400) (lambda (arg-4401) (Types-Prelude-rangeFromTo_Range__C-36a 'erased arg-1 arg-4400 arg-4401))) (lambda (arg-4402) (lambda (arg-4403) (lambda (arg-4404) (Types-Prelude-rangeFromThenTo_Range__C-36a 'erased arg-1 arg-4402 arg-4403 arg-4404)))) (lambda (arg-4405) (Types-Prelude-rangeFrom_Range__C-36a 'erased arg-1 arg-4405)) (lambda (arg-4406) (lambda (arg-4407) (Types-Prelude-rangeFromThen_Range__C-36a 'erased arg-1 arg-4406 arg-4407)))))) +(define Types-Prelude-__Impl_Range_Nat (lambda () (vector 0 (lambda (arg-3875) (lambda (arg-3876) (Types-Prelude-rangeFromTo_Range__Nat arg-3875 arg-3876))) (lambda (arg-3877) (lambda (arg-3878) (lambda (arg-3879) (Types-Prelude-rangeFromThenTo_Range__Nat arg-3877 arg-3878 arg-3879)))) (lambda (arg-3880) (Types-Prelude-rangeFrom_Range__Nat arg-3880)) (lambda (arg-3881) (lambda (arg-3882) (Types-Prelude-rangeFromThen_Range__Nat arg-3881 arg-3882)))))) +(define Types-Prelude-__Impl_Range_C-36a (lambda (arg-0 arg-1) (vector 0 (lambda (arg-3875) (lambda (arg-3876) (Types-Prelude-rangeFromTo_Range__C-36a 'erased arg-1 arg-3875 arg-3876))) (lambda (arg-3877) (lambda (arg-3878) (lambda (arg-3879) (Types-Prelude-rangeFromThenTo_Range__C-36a 'erased arg-1 arg-3877 arg-3878 arg-3879)))) (lambda (arg-3880) (Types-Prelude-rangeFrom_Range__C-36a 'erased arg-1 arg-3880)) (lambda (arg-3881) (lambda (arg-3882) (Types-Prelude-rangeFromThen_Range__C-36a 'erased arg-1 arg-3881 arg-3882)))))) (define Types-Prelude-__Impl_Ord_Nat (lambda () (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-61C-61_Eq__Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-47C-61_Eq__Nat arg-4 arg-5)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__Nat arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__Nat arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__Nat arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__Nat arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__Nat arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__Nat arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__Nat arg-381 arg-382)))))) (define Types-Prelude-__Impl_Ord_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) arg-4 arg-5)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-381 arg-382)))))) (define Types-Prelude-__Impl_Num_Nat (lambda () (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-43_Num__Nat arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-42_Num__Nat arg-4 arg-5))) (lambda (arg-6) (Types-Prelude-fromInteger_Num__Nat arg-6))))) (define Types-Prelude-__Impl_Monoid_String (lambda () (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String)))) (define Types-Prelude-__Impl_Monoid_C-40ListC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) -(define Types-Prelude-__Impl_Monad_Maybe (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Types-Prelude-pure_Applicative__Maybe 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Types-Prelude-join_Monad__Maybe 'erased arg-320)))))) -(define Types-Prelude-__Impl_Monad_List (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__List 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Types-Prelude-pure_Applicative__List 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Types-Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Types-Prelude-C-62C-62C-61_Monad__List 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Types-Prelude-join_Monad__List 'erased arg-320)))))) -(define Types-Prelude-__Impl_Monad_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (let ((sc0 arg-45)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (func e-5)))))))))) (lambda (a) (lambda (arg-155) (vector 1 arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (let ((sc0 arg-156)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-158)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (vector 1 (e-5 e-8)))) (else (let ((e-11 (vector-ref sc1 1))) (vector 0 e-11)))))))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Types-Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Types-Prelude-join_Monad__C-40EitherC-32C-36eC-41 'erased 'erased arg-320)))))) +(define Types-Prelude-__Impl_Monad_Maybe (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Types-Prelude-pure_Applicative__Maybe 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Types-Prelude-join_Monad__Maybe 'erased arg-277)))))) +(define Types-Prelude-__Impl_Monad_List (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__List 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Types-Prelude-pure_Applicative__List 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Types-Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Types-Prelude-C-62C-62C-61_Monad__List 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Types-Prelude-join_Monad__List 'erased arg-277)))))) +(define Types-Prelude-__Impl_Monad_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (let ((sc0 arg-45)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (func e-5)))))))))) (lambda (a) (lambda (arg-112) (vector 1 arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (let ((sc0 arg-113)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-115)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (vector 1 (e-5 e-8)))) (else (let ((e-11 (vector-ref sc1 1))) (vector 0 e-11)))))))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Types-Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Types-Prelude-join_Monad__C-40EitherC-32C-36eC-41 'erased 'erased arg-277)))))) (define Types-Prelude-__Impl_Functor_Maybe (lambda (ext-0 ext-1 ext-2 ext-3) (Types-Prelude-map_Functor__Maybe 'erased 'erased ext-2 ext-3))) (define Types-Prelude-__Impl_Functor_List (lambda (ext-0 ext-1 ext-2 ext-3) (Types-Prelude-map_Functor__List 'erased 'erased ext-2 ext-3))) (define Types-Prelude-__Impl_Functor_C-40PairC-32C-36aC-41 (lambda (arg-0 ext-0 ext-1 ext-2 ext-3) (Types-Prelude-map_Functor__C-40PairC-32C-36aC-41 'erased 'erased 'erased ext-2 ext-3))) @@ -675,10 +651,10 @@ (define Types-Prelude-__Impl_Cast_Nat_Int (lambda (ext-0) (Types-Prelude-cast_Cast__Nat_Int ext-0))) (define Types-Prelude-__Impl_Cast_Int_Integer (lambda (ext-0) (Types-Prelude-cast_Cast__Int_Integer ext-0))) (define Types-Prelude-__Impl_Cast_Char_Int (lambda (ext-0) (Types-Prelude-cast_Cast__Char_Int ext-0))) -(define Types-Prelude-__Impl_Applicative_Maybe (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Types-Prelude-pure_Applicative__Maybe 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-156 arg-158)))))))) -(define Types-Prelude-__Impl_Applicative_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__List 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Types-Prelude-pure_Applicative__List 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Types-Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-156 arg-158)))))))) -(define Types-Prelude-__Impl_Applicative_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (let ((sc0 arg-45)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (func e-5)))))))))) (lambda (a) (lambda (arg-155) (vector 1 arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (let ((sc0 arg-156)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-158)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (vector 1 (e-5 e-8)))) (else (let ((e-11 (vector-ref sc1 1))) (vector 0 e-11)))))))))))))))) -(define Types-Prelude-__Impl_Alternative_List (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__List 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Types-Prelude-pure_Applicative__List 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Types-Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-156 arg-158)))))) (lambda (a) (Types-Prelude-empty_Alternative__List 'erased)) (lambda (a) (lambda (arg-268) (lambda (arg-269) (Types-Prelude-C-60C-124C-62_Alternative__List 'erased arg-268 arg-269))))))) +(define Types-Prelude-__Impl_Applicative_Maybe (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Types-Prelude-pure_Applicative__Maybe 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-113 arg-115)))))))) +(define Types-Prelude-__Impl_Applicative_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__List 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Types-Prelude-pure_Applicative__List 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Types-Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-113 arg-115)))))))) +(define Types-Prelude-__Impl_Applicative_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (let ((sc0 arg-45)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (func e-5)))))))))) (lambda (a) (lambda (arg-112) (vector 1 arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (let ((sc0 arg-113)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-115)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (vector 1 (e-5 e-8)))) (else (let ((e-11 (vector-ref sc1 1))) (vector 0 e-11)))))))))))))))) +(define Types-Prelude-__Impl_Alternative_List (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__List 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Types-Prelude-pure_Applicative__List 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Types-Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-113 arg-115)))))) (lambda (a) (Types-Prelude-empty_Alternative__List 'erased)) (lambda (a) (lambda (arg-225) (lambda (arg-226) (Types-Prelude-C-60C-124C-62_Alternative__List 'erased arg-225 arg-226))))))) (define Types-Prelude-C-62_Ord__Nat (lambda (arg-0 arg-1) (EqOrd-Prelude-C-61C-61_Eq__Ordering (Types-Prelude-compare_Ord__Nat arg-0 arg-1) 2))) (define Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (EqOrd-Prelude-C-61C-61_Eq__Ordering (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3) 2))) (define Types-Prelude-C-62C-62C-61_Monad__Maybe (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (arg-3 e-2))))))) @@ -705,14 +681,14 @@ (define Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Basics-Prelude-not (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3)))) (define Types-Prelude-C-43_Num__Nat (lambda (ext-0 ext-1) (+ ext-0 ext-1))) (define Types-Prelude-C-42_Num__Nat (lambda (ext-0 ext-1) (* ext-0 ext-1))) -(define Types-Prelude-unpack (lambda (arg-0) (Types-Prelude-n--3683-3601-unpackC-39 arg-0 (Num-Prelude-C-45_Neg__Int (Strings-Types-Prelude-length arg-0) 1) arg-0 (vector 0 )))) -(define Types-Prelude-toUpper (lambda (arg-0) (Types-Prelude-case--toUpper-3734 arg-0 (Types-Prelude-isLower arg-0)))) -(define Types-Prelude-toLower (lambda (arg-0) (Types-Prelude-case--toLower-3748 arg-0 (Types-Prelude-isUpper arg-0)))) +(define Types-Prelude-unpack (lambda (arg-0) (Types-Prelude-n--3476-3300-unpackC-39 arg-0 (Num-Prelude-C-45_Neg__Int (Strings-Types-Prelude-length arg-0) 1) arg-0 (vector 0 )))) +(define Types-Prelude-toUpper (lambda (arg-0) (Types-Prelude-case--toUpper-3433 arg-0 (Types-Prelude-isLower arg-0)))) +(define Types-Prelude-toLower (lambda (arg-0) (Types-Prelude-case--toLower-3447 arg-0 (Types-Prelude-isUpper arg-0)))) (define Types-Prelude-tan (lambda (arg-0) (tan arg-0))) -(define Types-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))) (Types-Prelude-case--takeUntil-4313 'erased e-1 e-2 arg-1 (arg-1 e-1))))))) -(define Types-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))) (Types-Prelude-case--takeBefore-4364 'erased e-1 e-2 arg-1 (arg-1 e-1))))))) +(define Types-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))) (Types-Prelude-case--takeUntil-3788 'erased e-1 e-2 arg-1 (arg-1 e-1))))))) +(define Types-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))) (Types-Prelude-case--takeBefore-3839 'erased e-1 e-2 arg-1 (arg-1 e-1))))))) (define Types-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 (Types-Prelude-take 'erased e-0 (e-3)))))))))))) -(define Types-Prelude-substr (lambda (arg-0 arg-1 arg-2) (Types-Prelude-case--substr-3555 arg-2 arg-1 arg-0 (EqOrd-Prelude-C-60_Ord__Integer arg-0 (Strings-Types-Prelude-length arg-2))))) +(define Types-Prelude-substr (lambda (arg-0 arg-1 arg-2) (Types-Prelude-case--substr-3246 arg-2 arg-1 arg-0 (EqOrd-Prelude-C-60_Ord__Integer arg-0 (Strings-Types-Prelude-length arg-2))))) (define Types-Prelude-strCons (lambda (ext-0 ext-1) (string-cons ext-0 ext-1))) (define Types-Prelude-sqrt (lambda (arg-0) (sqrt arg-0))) (define Types-Prelude-sin (lambda (arg-0) (sin arg-0))) @@ -735,12 +711,13 @@ (define Types-Prelude-isOctDigit (lambda (arg-0) (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-62C-61_Ord__Char arg-0 #\0) (lambda () (EqOrd-Prelude-C-60C-61_Ord__Char arg-0 #\7))))) (define Types-Prelude-isNL (lambda (arg-0) (Basics-Prelude-C-124C-124 (EqOrd-Prelude-C-61C-61_Eq__Char arg-0 (integer->char 13)) (lambda () (EqOrd-Prelude-C-61C-61_Eq__Char arg-0 (integer->char 10)))))) (define Types-Prelude-isLower (lambda (arg-0) (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-62C-61_Ord__Char arg-0 #\a) (lambda () (EqOrd-Prelude-C-60C-61_Ord__Char arg-0 #\z))))) -(define Types-Prelude-isHexDigit (lambda (arg-0) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Char arg-4 arg-5)))) (Types-Prelude-toUpper arg-0) (Types-Prelude-n--3857-3760-hexChars arg-0)))) +(define Types-Prelude-isHexDigit (lambda (arg-0) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__Char arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Char arg-4 arg-5)))) (Types-Prelude-toUpper arg-0) (Types-Prelude-n--3650-3459-hexChars arg-0)))) (define Types-Prelude-isDigit (lambda (arg-0) (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-62C-61_Ord__Char arg-0 #\0) (lambda () (EqOrd-Prelude-C-60C-61_Ord__Char arg-0 #\9))))) (define Types-Prelude-isAlphaNum (lambda (arg-0) (Basics-Prelude-C-124C-124 (Types-Prelude-isDigit arg-0) (lambda () (Types-Prelude-isAlpha arg-0))))) (define Types-Prelude-isAlpha (lambda (arg-0) (Basics-Prelude-C-124C-124 (Types-Prelude-isUpper arg-0) (lambda () (Types-Prelude-isLower arg-0))))) -(define Types-Prelude-integerToNat (lambda (arg-0) (Types-Prelude-case--integerToNat-479 arg-0 (let ((sc0 (or (and (<= arg-0 0) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))) +(define Types-Prelude-integerToNat (lambda (arg-0) (Types-Prelude-case--integerToNat-439 arg-0 (let ((sc0 (or (and (<= arg-0 0) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))) (define Types-Prelude-floor (lambda (arg-0) (floor arg-0))) +(define Types-Prelude-fastPack (lambda (arg-0) (PrimIO-unsafePerformIO 'erased (lambda (eta-0) (apply string (blodwen-read-args (Types-Prelude-n--3461-3287-toFArgs arg-0 arg-0))))))) (define Types-Prelude-exp (lambda (arg-0) (exp arg-0))) (define Types-Prelude-elem (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Basics-Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) ((e-1 arg-2) e-2))) (lambda () (Types-Prelude-elem 'erased arg-1 arg-2 e-3)))))))))) (define Types-Prelude-either (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) ((arg-3) e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((arg-4) e-5))))))) @@ -924,25 +901,27 @@ (define Interfaces-Prelude-C-60C-43C-62 (lambda (arg-0 arg-1 ext-0 ext-1) ((arg-1 ext-0) ext-1))) (define Interfaces-Prelude-C-60C-42C-62 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-4) (lambda (arg-5) ((((e-3 'erased) 'erased) arg-4) arg-5))))))) (define Interfaces-Prelude-C-60C-36C-62 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((((arg-3 'erased) 'erased) arg-4) arg-5))) -(define PrimIO-case--unsafePerformIO-405 (lambda (arg-0 arg-1 arg-2 arg-3) (PrimIO-unsafeDestroyWorld 'erased 'erased arg-3))) +(define PrimIO-case--unsafePerformIO-401 (lambda (arg-0 arg-1 arg-2 arg-3) (PrimIO-unsafeDestroyWorld 'erased 'erased arg-3))) (define PrimIO-case--caseC-32blockC-32inC-32io_bind-326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (arg-7 arg-6))) (define PrimIO-case--io_bind-304 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (PrimIO-case--caseC-32blockC-32inC-32io_bind-326 'erased 'erased 'erased 'erased 'erased arg-5 'erased (arg-3 arg-5)))) -(define PrimIO-unsafePerformIO (lambda (arg-0 arg-1) (PrimIO-unsafeCreateWorld 'erased (lambda (w) (PrimIO-case--unsafePerformIO-405 'erased 'erased 'erased (arg-1 w)))))) +(define PrimIO-unsafePerformIO (lambda (arg-0 arg-1) (PrimIO-unsafeCreateWorld 'erased (lambda (w) (PrimIO-case--unsafePerformIO-401 'erased 'erased 'erased (arg-1 w)))))) (define PrimIO-unsafeDestroyWorld (lambda (arg-0 arg-1 arg-2) arg-2)) (define PrimIO-unsafeCreateWorld (lambda (arg-0 arg-1) (arg-1 #f))) +(define PrimIO-schemeCall (lambda (arg-0 arg-1 arg-2 ext-0) (apply (eval (string->symbol arg-1)) (blodwen-read-args arg-2)))) +(define PrimIO-prim__schemeCall (lambda (arg-0 arg-1 arg-2 arg-3) (apply (eval (string->symbol arg-1)) (blodwen-read-args arg-2)))) (define PrimIO-prim__nullPtr (lambda (arg-0 arg-1) (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased arg-1)))) (define PrimIO-prim__forgetPtr (lambda (arg-0 ext-0) (Builtin-believe_me 'erased 'erased ext-0))) (define PrimIO-io_pure (lambda (arg-0 arg-1 ext-0) arg-1)) (define PrimIO-io_bind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (PrimIO-case--io_bind-304 'erased 'erased 'erased arg-3 'erased (arg-2 ext-0)))) (define PrimIO-fromPrim (lambda (arg-0 arg-1) arg-1)) -(define Show-Prelude-case--caseC-32blockC-32inC-32showLitChar-5775 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Types-Prelude-strCons #\\ (Show-Prelude-protectEsc (lambda (eta-1) (Types-Prelude-isDigit eta-1)) (Show-Prelude-show_Show__Int (char->integer arg-0)) eta-0)))) (else (lambda (eta-0) (Types-Prelude-strCons arg-0 eta-0))))))) -(define Show-Prelude-case--showLitChar-5752 (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) (Types-Prelude-strCons #\\ (Strings-Types-Prelude-C-43C-43 e-1 eta-0))))) (else (Show-Prelude-case--caseC-32blockC-32inC-32showLitChar-5775 arg-0 (EqOrd-Prelude-C-62_Ord__Char arg-0 (integer->char 127)))))))) -(define Show-Prelude-case--protectEsc-5499 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "\\&") (else ""))))) -(define Show-Prelude-case--max-5241 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Show-Prelude-case--min-5227 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Show-Prelude-n--2141-6062-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-Types-Prelude-C-43C-43 arg-3 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (e-1 e-2)))))(else (Show-Prelude-n--2141-6062-showC-39 'erased arg-1 arg-2 (Strings-Types-Prelude-C-43C-43 arg-3 (Strings-Types-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) ", ")) e-3))))))))))) -(define Show-Prelude-n--1610-5569-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))) (Show-Prelude-n--1610-5569-getAt arg-0 e-1 e-7)))(else (let ((sc0 arg-2)) (vector 0 ))))))))))) -(define Show-Prelude-n--1610-5568-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 Show-Prelude-case--caseC-32blockC-32inC-32showLitChar-5250 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Types-Prelude-strCons #\\ (Show-Prelude-protectEsc (lambda (eta-1) (Types-Prelude-isDigit eta-1)) (Show-Prelude-show_Show__Int (char->integer arg-0)) eta-0)))) (else (lambda (eta-0) (Types-Prelude-strCons arg-0 eta-0))))))) +(define Show-Prelude-case--showLitChar-5227 (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) (Types-Prelude-strCons #\\ (Strings-Types-Prelude-C-43C-43 e-1 eta-0))))) (else (Show-Prelude-case--caseC-32blockC-32inC-32showLitChar-5250 arg-0 (EqOrd-Prelude-C-62_Ord__Char arg-0 (integer->char 127)))))))) +(define Show-Prelude-case--protectEsc-4974 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "\\&") (else ""))))) +(define Show-Prelude-case--max-4716 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Show-Prelude-case--min-4702 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Show-Prelude-n--2035-5537-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-Types-Prelude-C-43C-43 arg-3 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (e-1 e-2)))))(else (Show-Prelude-n--2035-5537-showC-39 'erased arg-1 arg-2 (Strings-Types-Prelude-C-43C-43 arg-3 (Strings-Types-Prelude-C-43C-43 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) ", ")) e-3))))))))))) +(define Show-Prelude-n--1504-5044-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))) (Show-Prelude-n--1504-5044-getAt arg-0 e-1 e-7)))(else (let ((sc0 arg-2)) (vector 0 ))))))))))) +(define Show-Prelude-n--1504-5043-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 Show-Prelude-show_Show__String (lambda (arg-0) (Types-Prelude-strCons #\" ((Show-Prelude-showLitString (Types-Prelude-unpack arg-0)) "\"")))) (define Show-Prelude-show_Show__Nat (lambda (arg-0) (Show-Prelude-show_Show__Integer arg-0))) (define Show-Prelude-show_Show__Integer (lambda (arg-0) (Show-Prelude-showPrec_Show__Integer (vector 0 ) arg-0))) @@ -952,7 +931,7 @@ (define Show-Prelude-show_Show__Bool (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "True") (else "False"))))) (define Show-Prelude-show_Show__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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) (Strings-Types-Prelude-C-43C-43 ", " (Strings-Types-Prelude-C-43C-43 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (e-1 e-3))) ")"))))))))) (define Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased arg-1 (vector 0 ) arg-2))) -(define Show-Prelude-show_Show__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-n--2141-6062-showC-39 'erased arg-1 arg-2 "" arg-2) "]")))) +(define Show-Prelude-show_Show__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-n--2035-5537-showC-39 'erased arg-1 arg-2 "" arg-2) "]")))) (define Show-Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Show-Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased arg-2 (vector 0 ) arg-3))) (define Show-Prelude-showPrec_Show__String (lambda (arg-0 arg-1) (Show-Prelude-show_Show__String arg-1))) (define Show-Prelude-showPrec_Show__Nat (lambda (arg-0 arg-1) (Show-Prelude-show_Show__Nat arg-1))) @@ -964,8 +943,8 @@ (define Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "Nothing") (else (let ((e-2 (vector-ref sc0 1))) (Show-Prelude-showCon arg-2 "Just" (Show-Prelude-showArg 'erased arg-1 e-2)))))))) (define Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased arg-1 arg-3))) (define Show-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))) (Show-Prelude-showCon arg-3 "Left" (Show-Prelude-showArg 'erased (Builtin-fst 'erased 'erased arg-2) e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (Show-Prelude-showCon arg-3 "Right" (Show-Prelude-showArg 'erased (Builtin-snd 'erased 'erased arg-2) e-5)))))))) -(define Show-Prelude-min_Ord__Prec (lambda (arg-0 arg-1) (Show-Prelude-case--min-5227 arg-1 arg-0 (Show-Prelude-C-60_Ord__Prec arg-0 arg-1)))) -(define Show-Prelude-max_Ord__Prec (lambda (arg-0 arg-1) (Show-Prelude-case--max-5241 arg-1 arg-0 (Show-Prelude-C-62_Ord__Prec arg-0 arg-1)))) +(define Show-Prelude-min_Ord__Prec (lambda (arg-0 arg-1) (Show-Prelude-case--min-4702 arg-1 arg-0 (Show-Prelude-C-60_Ord__Prec arg-0 arg-1)))) +(define Show-Prelude-max_Ord__Prec (lambda (arg-0 arg-1) (Show-Prelude-case--max-4716 arg-1 arg-0 (Show-Prelude-C-62_Ord__Prec arg-0 arg-1)))) (define Show-Prelude-compare_Ord__Prec (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-1 (vector-ref sc1 1))) (Types-Prelude-compare_Ord__Nat e-0 e-1)))(else (EqOrd-Prelude-compare_Ord__Integer (Show-Prelude-precCon arg-0) (Show-Prelude-precCon arg-1)))))))(else (EqOrd-Prelude-compare_Ord__Integer (Show-Prelude-precCon arg-0) (Show-Prelude-precCon arg-1))))))) (define Show-Prelude-__Impl_Show_String (lambda () (vector 0 (lambda (x) (Show-Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__String d x)))))) (define Show-Prelude-__Impl_Show_Nat (lambda () (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))))) @@ -988,11 +967,11 @@ (define Show-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 Show-Prelude-showParens (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) arg-1) (else (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 arg-1 ")"))))))) (define Show-Prelude-showLitString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (eta-0) (Strings-Types-Prelude-C-43C-43 "\\\"" ((Show-Prelude-showLitString e-3) eta-0))))(else (lambda (eta-0) ((Show-Prelude-showLitChar e-2) ((Show-Prelude-showLitString e-3) eta-0))))))))))))) -(define Show-Prelude-showLitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 (integer->char 7)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\a" arg-1))) ((equal? sc0 (integer->char 8)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\b" arg-1))) ((equal? sc0 (integer->char 12)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\f" arg-1))) ((equal? sc0 (integer->char 10)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\n" arg-1))) ((equal? sc0 (integer->char 13)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\r" arg-1))) ((equal? sc0 (integer->char 9)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\t" arg-1))) ((equal? sc0 (integer->char 11)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\v" arg-1))) ((equal? sc0 (integer->char 14)) (lambda (eta-0) (Show-Prelude-protectEsc (lambda (arg-1) (EqOrd-Prelude-C-61C-61_Eq__Char arg-1 #\H)) "\\SO" eta-0))) ((equal? sc0 (integer->char 127)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\DEL" arg-1))) ((equal? sc0 #\\) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\\\" arg-1)))(else (Show-Prelude-case--showLitChar-5752 arg-0 (Show-Prelude-n--1610-5569-getAt arg-0 (Types-Prelude-fromInteger_Num__Nat (char->integer arg-0)) (Show-Prelude-n--1610-5568-asciiTab arg-0)))))))) +(define Show-Prelude-showLitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 (integer->char 7)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\a" arg-1))) ((equal? sc0 (integer->char 8)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\b" arg-1))) ((equal? sc0 (integer->char 12)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\f" arg-1))) ((equal? sc0 (integer->char 10)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\n" arg-1))) ((equal? sc0 (integer->char 13)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\r" arg-1))) ((equal? sc0 (integer->char 9)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\t" arg-1))) ((equal? sc0 (integer->char 11)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\v" arg-1))) ((equal? sc0 (integer->char 14)) (lambda (eta-0) (Show-Prelude-protectEsc (lambda (arg-1) (EqOrd-Prelude-C-61C-61_Eq__Char arg-1 #\H)) "\\SO" eta-0))) ((equal? sc0 (integer->char 127)) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\DEL" arg-1))) ((equal? sc0 #\\) (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 "\\\\" arg-1)))(else (Show-Prelude-case--showLitChar-5227 arg-0 (Show-Prelude-n--1504-5044-getAt arg-0 (Types-Prelude-fromInteger_Num__Nat (char->integer arg-0)) (Show-Prelude-n--1504-5043-asciiTab arg-0)))))))) (define Show-Prelude-showCon (lambda (arg-0 arg-1 arg-2) (Show-Prelude-showParens (Show-Prelude-C-62C-61_Ord__Prec arg-0 (vector 6 )) (Strings-Types-Prelude-C-43C-43 arg-1 arg-2)))) (define Show-Prelude-showArg (lambda (arg-0 arg-1 arg-2) (Strings-Types-Prelude-C-43C-43 " " (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 (vector 6 )) arg-2)))))) (define Show-Prelude-show (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (e-1 arg-2)))))) -(define Show-Prelude-protectEsc (lambda (arg-0 arg-1 arg-2) (Strings-Types-Prelude-C-43C-43 arg-1 (Strings-Types-Prelude-C-43C-43 (Show-Prelude-case--protectEsc-5499 arg-2 arg-1 arg-0 (Show-Prelude-firstCharIs arg-0 arg-2)) arg-2)))) +(define Show-Prelude-protectEsc (lambda (arg-0 arg-1 arg-2) (Strings-Types-Prelude-C-43C-43 arg-1 (Strings-Types-Prelude-C-43C-43 (Show-Prelude-case--protectEsc-4974 arg-2 arg-1 arg-0 (Show-Prelude-firstCharIs arg-0 arg-2)) arg-2)))) (define Show-Prelude-primNumShow (lambda (arg-0 arg-1 arg-2 arg-3) (let ((str (arg-1 arg-3))) (Show-Prelude-showParens (Basics-Prelude-C-38C-38 (Show-Prelude-C-62C-61_Ord__Prec arg-2 (vector 5 )) (lambda () (Show-Prelude-firstCharIs (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__Char arg-4 #\-)) str))) str)))) (define Show-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 Show-Prelude-firstCharIs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") 1)(else (arg-0 (string-ref arg-1 0))))))) @@ -1000,10 +979,10 @@ (define IO-Prelude-map_Functor__IO (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-3 (arg-3 ext-0))) (arg-2 act-3)))) (define IO-Prelude-liftIO_HasIO__IO (lambda (arg-0 arg-1) arg-1)) (define IO-Prelude-join_Monad__IO (lambda (arg-0 arg-1 ext-0) (let ((act-2 (arg-1 ext-0))) (act-2 ext-0)))) -(define IO-Prelude-__Impl_Monad_IO (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-29 (arg-320 eta-0))) (act-29 eta-0)))))))) -(define IO-Prelude-__Impl_HasIO_IO (lambda () (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))))) +(define IO-Prelude-__Impl_Monad_IO (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-29 (arg-277 eta-0))) (act-29 eta-0)))))))) +(define IO-Prelude-__Impl_HasIO_IO (lambda () (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))))) (define IO-Prelude-__Impl_Functor_IO (lambda (ext-4 ext-1 ext-2 ext-3 ext-0) (IO-Prelude-map_Functor__IO 'erased 'erased ext-2 ext-3 ext-0))) -(define IO-Prelude-__Impl_Applicative_IO (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))))) +(define IO-Prelude-__Impl_Applicative_IO (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))))) (define IO-Prelude-__HasIO_C-40MonadC-32ioC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define IO-Prelude-C-62C-62C-61_Monad__IO (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-1 (arg-2 ext-0))) ((arg-3 act-1) ext-0)))) (define IO-Prelude-C-60C-42C-62_Applicative__IO (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-6 (arg-2 ext-0))) (let ((act-5 (arg-3 ext-0))) (act-6 act-5))))) @@ -1021,15 +1000,15 @@ (define List-Data-case--caseC-32blockC-32inC-32span-1549 (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--span-1529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-case--caseC-32blockC-32inC-32span-1549 '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--deleteBy-1410 (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--nubByC-44nubByC-39-1327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (List-Data-n--2541-1309-nubByC-39 'erased arg-4 arg-3 arg-2)) (else (vector 1 arg-1 (List-Data-n--2541-1309-nubByC-39 'erased (vector 1 arg-1 arg-4) arg-3 arg-2))))))) +(define List-Data-case--nubByC-44nubByC-39-1327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (List-Data-n--2432-1309-nubByC-39 'erased arg-4 arg-3 arg-2)) (else (vector 1 arg-1 (List-Data-n--2432-1309-nubByC-39 'erased (vector 1 arg-1 arg-4) arg-3 arg-2))))))) (define List-Data-case--lookupBy-1206 (lambda (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-4)) (else (List-Data-lookupBy 'erased 'erased arg-6 arg-2 arg-5)))))) (define List-Data-case--find-1136 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-1)) (else (List-Data-find 'erased arg-3 arg-2)))))) (define List-Data-case--filter-1081 (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--dropWhile-1027 (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--4301-3049-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--4301-3049-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--4301-3049-spreadHeads 'erased arg-1 arg-2 e-3 e-7)))))))))))))) -(define List-Data-n--4109-2862-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--4109-2862-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--4109-2863-split (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-n--4109-2862-splitRec 'erased arg-1 arg-2 'erased arg-3 arg-3 (lambda (eta-0) eta-0)))) -(define List-Data-n--2541-1309-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--nubByC-44nubByC-39-1327 'erased e-2 e-3 arg-2 arg-1 (List-Data-elemBy 'erased arg-2 e-2 arg-1))))))))) +(define List-Data-n--4192-3049-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--4192-3049-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--4192-3049-spreadHeads 'erased arg-1 arg-2 e-3 e-7)))))))))))))) +(define List-Data-n--4000-2862-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--4000-2862-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--4000-2863-split (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-n--4000-2862-splitRec 'erased arg-1 arg-2 'erased arg-3 arg-3 (lambda (eta-0) eta-0)))) +(define List-Data-n--2432-1309-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--nubByC-44nubByC-39-1327 'erased e-2 e-3 arg-2 arg-1 (List-Data-elemBy 'erased arg-2 e-2 arg-1))))))))) (define List-Data-uninhabited_Uninhabited__C-40C-124C-40C-40C-61C-61C-61C-32NilC-41C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-44C-40C-40C-126C-61C-126C-32NilC-41C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-124C-41 (lambda (arg-3 arg-2 arg-1 arg-0) (blodwen-error-quit "No clauses"))) (define List-Data-uninhabited_Uninhabited__C-40C-124C-40C-40C-61C-61C-61C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-32NilC-41C-44C-40C-40C-126C-61C-126C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-32NilC-41C-124C-41 (lambda (arg-3 arg-2 arg-1 arg-0) (blodwen-error-quit "No clauses"))) (define List-Data-__Impl_Uninhabited_C-40C-124C-40C-40C-61C-61C-61C-32NilC-41C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-44C-40C-40C-126C-61C-126C-32NilC-41C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-124C-41 (lambda (arg-0 arg-1 arg-2 ext-0) (List-Data-uninhabited_Uninhabited__C-40C-124C-40C-40C-61C-61C-61C-32NilC-41C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-44C-40C-40C-126C-61C-126C-32NilC-41C-32C-40C-40PreludeC-46C-58C-58C-32C-36xC-41C-32C-36xsC-41C-41C-124C-41 'erased 'erased 'erased ext-0))) @@ -1038,20 +1017,20 @@ (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-Types-Prelude-C-43C-43 'erased arg-2 (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (lambda (eta-3) (List-Data-deleteBy 'erased arg-1 eta-2 eta-3))) eta-0 eta-1))) (List-Data-nubBy 'erased arg-1 arg-3) arg-2)))) (define List-Data-union (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-unionBy 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))) ext-0 ext-1))) -(define List-Data-transpose (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-n--4301-3049-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--4192-3049-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) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Data-take 'erased e-0 e-3)))))(else (vector 0 )))))))))) (define List-Data-tailC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 e-3))))))) (define List-Data-split (lambda (arg-0 arg-1 arg-2) (List-Data-case--split-1623 '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--span-1529 '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--sortBy-2912 'erased arg-2 arg-1 (List-Data-n--4109-2863-split 'erased arg-2 arg-1 arg-2))))))))(else (List-Data-case--sortBy-2912 'erased arg-2 arg-1 (List-Data-n--4109-2863-split 'erased arg-2 arg-1 arg-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--sortBy-2912 'erased arg-2 arg-1 (List-Data-n--4000-2863-split 'erased arg-2 arg-1 arg-2))))))))(else (List-Data-case--sortBy-2912 'erased arg-2 arg-1 (List-Data-n--4000-2863-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-snoc (lambda (arg-0 arg-1 arg-2) (List-Types-Prelude-C-43C-43 'erased arg-1 (vector 1 arg-2 (vector 0 ))))) (define List-Data-reverseOnto (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (List-Data-reverseOnto 'erased (vector 1 e-2 arg-1) e-3)))))))) (define List-Data-reverse (lambda (arg-0 ext-0) (List-Data-reverseOnto 'erased (vector 0 ) ext-0))) (define List-Data-replicate (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 ))(else (let ((e-0 (- arg-1 1))) (vector 1 arg-2 (List-Data-replicate 'erased e-0 arg-2)))))))) (define List-Data-replaceOn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (c) (List-Data-case--replaceOn-1909 'erased arg-1 arg-2 arg-3 arg-4 c (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) ((e-1 c) arg-2))))) arg-4))) -(define List-Data-nubBy (lambda (arg-0 ext-0 ext-1) (List-Data-n--2541-1309-nubByC-39 'erased (vector 0 ) ext-0 ext-1))) +(define List-Data-nubBy (lambda (arg-0 ext-0 ext-1) (List-Data-n--2432-1309-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--mergeBy-2765 'erased e-1 e-2 e-4 e-5 arg-1 ((arg-1 e-1) e-4)))))))))))))))) @@ -1084,27 +1063,27 @@ (define Nat-Data-plusSuccRightSucc (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (vector 0 ))(else (vector 0 )))))) (define Nat-Data-isSucc (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 1)(else 0))))) (define REPL-Yaffle-case--caseC-32blockC-32inC-32repl-1654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define REPL-Yaffle-case--repl-1598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d x-0)))) x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d-0) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d-0 x-0)))) d x))))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-Yaffle-processCatch arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) -(define REPL-Yaffle-case--process-1434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-26 (arg-317 eta-2))) ((arg-318 act-26) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Types-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-6)))) eta-1))) (vector 1 act-26))))))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) +(define REPL-Yaffle-case--repl-1598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d x-0)))) x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d-0) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d-0 x-0)))) d x))))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPL-Yaffle-processCatch arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (REPL-Yaffle-repl arg-2 arg-1 arg-0 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) +(define REPL-Yaffle-case--process-1434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-26 (arg-274 eta-2))) ((arg-275 act-26) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Types-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-6)))) eta-1))) (vector 1 act-26))))))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) (define REPL-Yaffle-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-1326 (lambda (arg-0 arg-1 arg-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-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9)))))))))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-9)))))))) -(define REPL-Yaffle-case--caseC-32blockC-32inC-32process-1254 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-10) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-10)) e-0))))) eta-0))) (vector 1 act-24))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Types-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-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1)))))))))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1))))))))) eta-0))) (vector 1 act-24)))))(else (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) ": All cases covered")) eta-0))) (vector 1 act-24)))))))) +(define REPL-Yaffle-case--caseC-32blockC-32inC-32process-1254 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-10) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-10)) e-0))))) eta-0))) (vector 1 act-24))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Types-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-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1)))))))))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1))))))))) eta-0))) (vector 1 act-24)))))(else (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) ": All cases covered")) eta-0))) (vector 1 act-24)))))))) (define REPL-Yaffle-case--process-1200 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 arg-5)) ((REPL-Yaffle-case--caseC-32blockC-32inC-32process-1254 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))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) -(define REPL-Yaffle-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-1021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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) ((0) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6)) eta-0))) (vector 1 act-24)))))(else (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Failed") eta-0))) (vector 1 act-24))))))))(else (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Failed") eta-0))) (vector 1 act-24)))))))) -(define REPL-Yaffle-case--caseC-32blockC-32inC-32process-959 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDefN arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) (+ 1 0) arg-9 eta-2)) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-25 (arg-317 eta-2))) ((arg-318 act-25) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6)) eta-1))) (vector 1 act-25))))(else (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-25 (arg-317 eta-2))) ((arg-318 act-25) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Failed") eta-1))) (vector 1 act-25)))))))(else (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-25 (arg-317 eta-2))) ((arg-318 act-25) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Failed") eta-1))) (vector 1 act-25))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-24 (arg-317 eta-2))) ((arg-318 act-24) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name arg-9))) eta-1))) (vector 1 act-24)))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Already defined") eta-0))) (vector 1 act-24)))))))) (else (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24)))))))) -(define REPL-Yaffle-case--process-910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDefN arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) (+ 1 0) e-9 eta-2)) eta-1))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-26 (arg-317 eta-2))) ((arg-318 act-26) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-11)) eta-1))) (vector 1 act-26))))(else (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-26 (arg-317 eta-2))) ((arg-318 act-26) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Failed") eta-1))) (vector 1 act-26)))))))(else (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-26 (arg-317 eta-2))) ((arg-318 act-26) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Failed") eta-1))) (vector 1 act-26))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-25 (arg-317 eta-2))) ((arg-318 act-25) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-9))) eta-1))) (vector 1 act-25)))) eta-0))(else (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Already defined") eta-0))) (vector 1 act-25))))))) (else (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-25)))))))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) -(define REPL-Yaffle-case--process-791 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearchN arg-3 arg-2 arg-1 (FC-Core-toplevelFC) (+ 1 0) e-6 (vector 0 ) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-25 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-25 (arg-317 eta-2))) ((arg-318 act-25) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d-0) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d-0 x))))) d) eta-1))) (vector 1 act-25)))) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Types-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) (Types-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) (Types-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))) -(define REPL-Yaffle-case--process-653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-3 arg-1 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Types-Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-5 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-9 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-28 (arg-317 eta-1))) ((arg-318 act-28) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x))))) e-12) eta-0))) (vector 1 act-28))))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Types-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) (Types-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) (Types-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))) -(define REPL-Yaffle-case--process-577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-28 (arg-317 eta-1))) ((arg-318 act-28) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-8) eta-0))) (vector 1 act-28))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))))))) -(define REPL-Yaffle-case--process-422 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normalise (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-27 (arg-317 eta-1))) ((arg-318 act-27) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-7) eta-0))) (vector 1 act-27))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))) -(define REPL-Yaffle-n--12453-481-printName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-7 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-4 (vector 0 ) e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-27 (arg-317 eta-1))) ((arg-318 act-27) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Types-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-9)))) eta-0))) (vector 1 act-27))))))))))))))))))))))))) -(define REPL-Yaffle-showInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Types-Prelude-C-43C-43 " ==>\u000a" (Strings-Types-Prelude-C-43C-43 "\u0009" (Strings-Types-Prelude-C-43C-43 (Context-Core-show_Show__Def (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))) (Strings-Types-Prelude-C-43C-43 "\u000a" (Strings-Types-Prelude-C-43C-43 "\u0009" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__SCCall x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SCCall d x)))) (let ((sc2 e-7)) (let ((e-20 (vector-ref sc2 21))) e-20))) "\u000a")))))))) eta-0))) (vector 1 act-24)))))))))) -(define REPL-Yaffle-repl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Yaffle> ") ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((IO-Prelude-getLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-25 (arg-317 eta-0))) ((arg-318 act-25) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357)))) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((REPL-Yaffle-case--repl-1598 arg-2 arg-1 arg-0 e-5 e-6 (Source-Parser-runParser 'erased 0 (vector 0 ) e-6 (Parser-TTImp-command))) ext-0))))))))))))) -(define REPL-Yaffle-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (REPL-Yaffle-process arg-0 arg-1 arg-2 arg-3) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Core-Core-show_Show__Error err)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))) ext-0))) -(define REPL-Yaffle-process (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-0 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normalise (vector 0 ) e-6 (vector 0 ) e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-7) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-28 (arg-317 eta-1))) ((arg-318 act-28) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-8) eta-0))) (vector 1 act-28))))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupTyName e-10 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-n--12453-481-printName e-9 e-10 arg-2 arg-1 arg-0 eta-1)) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-1 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-6 (vector 0 ) e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-8) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-29 (arg-317 eta-1))) ((arg-318 act-29) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-9) eta-0))) (vector 1 act-29))))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-2 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Types-Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-28 (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) e-9 eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 (let ((act-29 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-13 eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-30 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-30 (arg-317 eta-1))) ((arg-318 act-30) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x))))) e-14) eta-0))) (vector 1 act-30))))))))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Types-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) (Types-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) (Types-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (ExprSearch-Interactive-TTImp-exprSearchN arg-0 arg-1 arg-2 (FC-Core-toplevelFC) (+ 1 0) e-8 (vector 0 ) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-27 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-27 (arg-317 eta-2))) ((arg-318 act-27) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d-0) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d-0 x))))) d) eta-1))) (vector 1 act-27)))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Types-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) (Types-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) (Types-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-findTyDeclAt arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-4 p))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((act-26 (let ((act-26 (Context-Core-lookupDefExact e-11 (let ((sc7 e-6)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((1) (let ((e-2 (vector-ref sc8 1))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (Context-Core-logTime 'erased arg-0 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDefN arg-0 arg-1 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine e-4 p))) (+ 1 0) e-11 eta-2)) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-16 (vector-ref sc11 1))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 2))) (let ((act-28 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-28 (arg-317 eta-2))) ((arg-318 act-28) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Show-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-17)) eta-1))) (vector 1 act-28))))(else (let ((act-28 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-28 (arg-317 eta-2))) ((arg-318 act-28) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Failed") eta-1))) (vector 1 act-28)))))))(else (let ((act-28 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-28 (arg-317 eta-2))) ((arg-318 act-28) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Failed") eta-1))) (vector 1 act-28))))))))))) (lambda (err) (lambda (eta-1) (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-27 (arg-317 eta-2))) ((arg-318 act-27) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-11))) eta-1))) (vector 1 act-27)))) eta-0))(else (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-27 (arg-317 eta-1))) ((arg-318 act-27) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Already defined") eta-0))) (vector 1 act-27))))))) (else (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-27 (arg-317 eta-1))) ((arg-318 act-27) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5))) eta-0))) (vector 1 act-27)))))))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))) (else (let ((act-26 (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-26 (arg-317 eta-1))) ((arg-318 act-26) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5))) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))))))))))) ((5) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-6 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-6) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((bind-0 e-7)) ((REPL-Yaffle-case--caseC-32blockC-32inC-32process-1254 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))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-7)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))))))))))) ((6) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-7) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-28 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-28 (arg-317 eta-2))) ((arg-318 act-28) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Types-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-9)))) eta-1))) (vector 1 act-28))))))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))))))))))) ((7) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Context-Core-lookupCtxtName e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-showInfo eta-1)) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "Bye for now!") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1))))))))))) +(define REPL-Yaffle-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-1021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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) ((0) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6)) eta-0))) (vector 1 act-24)))))(else (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Failed") eta-0))) (vector 1 act-24))))))))(else (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Failed") eta-0))) (vector 1 act-24)))))))) +(define REPL-Yaffle-case--caseC-32blockC-32inC-32process-959 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDefN arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) (+ 1 0) arg-9 eta-2)) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 2))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-25 (arg-274 eta-2))) ((arg-275 act-25) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6)) eta-1))) (vector 1 act-25))))(else (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-25 (arg-274 eta-2))) ((arg-275 act-25) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Failed") eta-1))) (vector 1 act-25)))))))(else (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-25 (arg-274 eta-2))) ((arg-275 act-25) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Failed") eta-1))) (vector 1 act-25))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-24 (arg-274 eta-2))) ((arg-275 act-24) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name arg-9))) eta-1))) (vector 1 act-24)))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Already defined") eta-0))) (vector 1 act-24)))))))) (else (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24)))))))) +(define REPL-Yaffle-case--process-910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Context-Core-logTime 'erased arg-4 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDefN arg-4 arg-3 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) (+ 1 0) e-9 eta-2)) eta-1))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 2))) (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-26 (arg-274 eta-2))) ((arg-275 act-26) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-11)) eta-1))) (vector 1 act-26))))(else (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-26 (arg-274 eta-2))) ((arg-275 act-26) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Failed") eta-1))) (vector 1 act-26)))))))(else (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-26 (arg-274 eta-2))) ((arg-275 act-26) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Failed") eta-1))) (vector 1 act-26))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-25 (arg-274 eta-2))) ((arg-275 act-25) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-9))) eta-1))) (vector 1 act-25)))) eta-0))(else (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Already defined") eta-0))) (vector 1 act-25))))))) (else (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-25)))))))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) +(define REPL-Yaffle-case--process-791 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-exprSearchN arg-3 arg-2 arg-1 (FC-Core-toplevelFC) (+ 1 0) e-6 (vector 0 ) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-25 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-25 (arg-274 eta-2))) ((arg-275 act-25) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d-0) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d-0 x))))) d) eta-1))) (vector 1 act-25)))) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Types-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) (Types-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) (Types-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))) +(define REPL-Yaffle-case--process-653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-3 arg-1 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Types-Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-5 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-9 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-28 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-28 (arg-274 eta-1))) ((arg-275 act-28) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x))))) e-12) eta-0))) (vector 1 act-28))))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Types-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) (Types-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) (Types-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))))))) +(define REPL-Yaffle-case--process-577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-28 (arg-274 eta-1))) ((arg-275 act-28) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-8) eta-0))) (vector 1 act-28))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))))))) +(define REPL-Yaffle-case--process-422 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normalise (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-27 (arg-274 eta-1))) ((arg-275 act-27) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-7) eta-0))) (vector 1 act-27))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))) +(define REPL-Yaffle-n--12268-481-printName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-7 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Unelab-TTImp-unelab (vector 0 ) arg-4 (vector 0 ) e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-27 (arg-274 eta-1))) ((arg-275 act-27) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Types-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-9)))) eta-0))) (vector 1 act-27))))))))))))))))))))))))) +(define REPL-Yaffle-showInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Types-Prelude-C-43C-43 " ==>\u000a" (Strings-Types-Prelude-C-43C-43 "\u0009" (Strings-Types-Prelude-C-43C-43 (Context-Core-show_Show__Def (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))) (Strings-Types-Prelude-C-43C-43 "\u000a" (Strings-Types-Prelude-C-43C-43 "\u0009" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__SCCall x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SCCall d x)))) (let ((sc2 e-7)) (let ((e-20 (vector-ref sc2 21))) e-20))) "\u000a")))))))) eta-0))) (vector 1 act-24)))))))))) +(define REPL-Yaffle-repl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Yaffle> ") ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((IO-Prelude-getLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-25 (arg-274 eta-0))) ((arg-275 act-25) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832)))) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((REPL-Yaffle-case--repl-1598 arg-2 arg-1 arg-0 e-5 e-6 (Source-Parser-runParser 'erased 0 (vector 0 ) e-6 (Parser-TTImp-command))) ext-0))))))))))))) +(define REPL-Yaffle-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (REPL-Yaffle-process arg-0 arg-1 arg-2 arg-3) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Core-Core-show_Show__Error err)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))) ext-0))) +(define REPL-Yaffle-process (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-0 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normalise (vector 0 ) e-6 (vector 0 ) e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-7) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-28 (arg-274 eta-1))) ((arg-275 act-28) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-8) eta-0))) (vector 1 act-28))))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupTyName e-10 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-n--12268-481-printName e-9 e-10 arg-2 arg-1 arg-0 eta-1)) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-1 arg-2 0 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-1 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-6 (vector 0 ) e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-8) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-29 (arg-274 eta-1))) ((arg-275 act-29) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x))))) e-9) eta-0))) (vector 1 act-29))))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 0))))))))))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-2 (FC-Core-toplevelFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Types-Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-28 (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) e-9 eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 (let ((act-29 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-13 eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-30 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-30 (arg-274 eta-1))) ((arg-275 act-30) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x))))) e-14) eta-0))) (vector 1 act-30))))))))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Types-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) (Types-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) (Types-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (ExprSearch-Interactive-TTImp-exprSearchN arg-0 arg-1 arg-2 (FC-Core-toplevelFC) (+ 1 0) e-8 (vector 0 ) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-27 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-27 (arg-274 eta-2))) ((arg-275 act-27) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d-0) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d-0 x))))) d) eta-1))) (vector 1 act-27)))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (vector 1 0)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (FC-Core-toplevelFC) (Types-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) (Types-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) (Types-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-findTyDeclAt arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-4 p))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((act-26 (let ((act-26 (Context-Core-lookupDefExact e-11 (let ((sc7 e-6)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((1) (let ((e-2 (vector-ref sc8 1))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-27 (Context-Core-logTime 'erased arg-0 (lambda () "Generation") (lambda (eta-2) (GenerateDef-Interactive-TTImp-makeDefN arg-0 arg-1 arg-2 (lambda (p) (lambda (n) (FC-Core-onLine e-4 p))) (+ 1 0) e-11 eta-2)) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-16 (vector-ref sc11 1))) (let ((sc12 e-16)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 2))) (let ((act-28 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-28 (arg-274 eta-2))) ((arg-275 act-28) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Show-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-17)) eta-1))) (vector 1 act-28))))(else (let ((act-28 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-28 (arg-274 eta-2))) ((arg-275 act-28) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Failed") eta-1))) (vector 1 act-28)))))))(else (let ((act-28 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-28 (arg-274 eta-2))) ((arg-275 act-28) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Failed") eta-1))) (vector 1 act-28))))))))))) (lambda (err) (lambda (eta-1) (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-27 (arg-274 eta-2))) ((arg-275 act-27) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-11))) eta-1))) (vector 1 act-27)))) eta-0))(else (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-27 (arg-274 eta-1))) ((arg-275 act-27) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Already defined") eta-0))) (vector 1 act-27))))))) (else (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-27 (arg-274 eta-1))) ((arg-275 act-27) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5))) eta-0))) (vector 1 act-27)))))))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))) (else (let ((act-26 (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-26 (arg-274 eta-1))) ((arg-275 act-26) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5))) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))))))))))) ((5) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-6 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-6) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((bind-0 e-7)) ((REPL-Yaffle-case--caseC-32blockC-32inC-32process-1254 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))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-7)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))))))))))) ((6) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (FC-Core-emptyFC) e-7) eta-0))(else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-28 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-28 (arg-274 eta-2))) ((arg-275 act-28) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Types-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-9)))) eta-1))) (vector 1 act-28))))))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))))))))))) ((7) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Context-Core-lookupCtxtName e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-showInfo eta-1)) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 0))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "Bye for now!") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1))))))))))) (define Source-Parser-case--parseFile-448 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-2) e-2 arg-1)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 (vector 2 e-5))))))))) (define Source-Parser-runParserTo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Types-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) (Types-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) (Types-Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Utils-mapError 'erased 'erased 'erased (lambda (eta-0) (Support-Parser-toGenericParsingError 'erased eta-0)) (Core-Parser-Text-parse 'erased 'erased arg-1 arg-5 toks)) (lambda (parsed) (vector 1 (Builtin-fst 'erased 'erased parsed)))))))))) (define Source-Parser-runParser (lambda (arg-0 arg-1 arg-2 ext-0 ext-1) (Source-Parser-runParserTo 'erased arg-1 arg-2 (lambda (eta-0) 1) ext-0 ext-1))) -(define Source-Parser-parseFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-1) e-2 arg-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 2 e-5))))))))) +(define Source-Parser-parseFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-1) e-2 arg-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 2 e-5))))))))) (define Either-Utils-case--partitionEithers-334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 1 arg-2 e-3))))))) (define Either-Utils-case--partitionEithers-296 (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-2 e-2) e-3)))))) (define Either-Utils-partitionEithers (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))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Either-Utils-case--partitionEithers-296 'erased 'erased e-6 e-3 (Either-Utils-partitionEithers 'erased 'erased e-3)))) (else (let ((e-9 (vector-ref sc1 1))) (Either-Utils-case--partitionEithers-334 'erased 'erased e-9 e-3 (Either-Utils-partitionEithers 'erased 'erased e-3))))))))))))) @@ -1113,9 +1092,9 @@ (define File-System-case--caseC-32blockC-32inC-32writeFile-1734 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-4 (vector-ref sc2 2))) ((((e-4 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-4)) (lambda (_-1758) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-6 (vector-ref sc5 1))) e-6)))) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-6 (vector-ref sc3 2))) ((e-6 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-4)) (lambda (_-1799) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 0 e-5)))))))))))))) (define File-System-case--writeFile-1706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-fPutStr 'erased arg-1 e-2 arg-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((sc4 (let ((sc5 arg-1)) (let ((e-7 (vector-ref sc5 1))) e-7)))) (let ((e-7 (vector-ref sc4 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1758) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-10 (vector-ref sc7 1))) e-10)))) (let ((e-11 (vector-ref sc6 1))) e-11)))) (let ((e-10 (vector-ref sc5 2))) ((e-10 'erased) (vector 1 (vector 0 )))))))))))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1799) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 0 e-5)))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 e-5)))))))))) (define File-System-case--caseC-32blockC-32inC-32readFile-1600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-1622) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 1 (Strings-Data-fastAppend e-2))))))))))) (else (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-1660) (File-System-returnError 'erased 'erased arg-1)))))))))) -(define File-System-case--readFile-1576 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-n--3188-1458-read 'erased arg-1 arg-2 (vector 0 ) e-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1622) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 1 (Strings-Data-fastAppend e-5))))))))))) (else (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1660) (File-System-returnError 'erased 'erased arg-1)))))))))))))) (else (File-System-returnError 'erased 'erased arg-1)))))) -(define File-System-case--caseC-32blockC-32inC-32readFileC-44read-1522 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (File-System-n--3188-1458-read 'erased arg-1 arg-2 (vector 1 e-2 arg-4) arg-3))) (else (File-System-returnError 'erased 'erased arg-1)))))) -(define File-System-case--readFileC-44read-1473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (List-Data-reverse 'erased arg-4)))))) (else (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-fGetLine 'erased arg-1 arg-3)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (File-System-n--3188-1458-read 'erased arg-1 arg-2 (vector 1 e-4 arg-4) arg-3))) (else (File-System-returnError 'erased 'erased arg-1))))))))))))) +(define File-System-case--readFile-1576 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-4 (vector-ref sc1 2))) ((((e-4 'erased) 'erased) (File-System-n--3079-1458-read 'erased arg-1 arg-2 (vector 0 ) e-2)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1622) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 1 (Strings-Data-fastAppend e-5))))))))))) (else (let ((sc3 (let ((sc4 arg-1)) (let ((e-7 (vector-ref sc4 1))) e-7)))) (let ((e-7 (vector-ref sc3 2))) ((((e-7 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-1660) (File-System-returnError 'erased 'erased arg-1)))))))))))))) (else (File-System-returnError 'erased 'erased arg-1)))))) +(define File-System-case--caseC-32blockC-32inC-32readFileC-44read-1522 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (File-System-n--3079-1458-read 'erased arg-1 arg-2 (vector 1 e-2 arg-4) arg-3))) (else (File-System-returnError 'erased 'erased arg-1)))))) +(define File-System-case--readFileC-44read-1473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 1 (List-Data-reverse 'erased arg-4)))))) (else (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (File-System-fGetLine 'erased arg-1 arg-3)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (File-System-n--3079-1458-read 'erased arg-1 arg-2 (vector 1 e-4 arg-4) arg-3))) (else (File-System-returnError 'erased 'erased arg-1))))))))))))) (define File-System-case--fileSize-1389 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 arg-3)) (else (File-System-returnError 'erased 'erased arg-1)))))) (define File-System-case--removeFile-1332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 (vector 0 ))) (else (File-System-returnError 'erased 'erased arg-1)))))) (define File-System-case--fileModifiedTime-1222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (File-System-ok 'erased 'erased arg-1 arg-3)) (else (File-System-returnError 'erased 'erased arg-1)))))) @@ -1130,7 +1109,7 @@ (define File-System-case--modeStr-384 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "ab") (else "a"))))) (define File-System-case--modeStr-374 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "wb") (else "w"))))) (define File-System-case--modeStr-364 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "rb") (else "r"))))) -(define File-System-n--3188-1458-read (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-fEOF 'erased arg-1 arg-4)) (lambda (eof) (let ((sc1 eof)) (cond ((equal? sc1 0) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 1 (List-Data-reverse 'erased arg-3)))))) (else (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (File-System-fGetLine 'erased arg-1 arg-4)) (lambda (_-0) (let ((sc3 _-0)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (File-System-n--3188-1458-read 'erased arg-1 arg-2 (vector 1 e-7 arg-3) arg-4))) (else (File-System-returnError 'erased 'erased arg-1))))))))))))))))) +(define File-System-n--3079-1458-read (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-fEOF 'erased arg-1 arg-4)) (lambda (eof) (let ((sc1 eof)) (cond ((equal? sc1 0) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 1 (List-Data-reverse 'erased arg-3)))))) (else (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (File-System-fGetLine 'erased arg-1 arg-4)) (lambda (_-0) (let ((sc3 _-0)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (File-System-n--3079-1458-read 'erased arg-1 arg-2 (vector 1 e-7 arg-3) arg-4))) (else (File-System-returnError 'erased 'erased arg-1))))))))))))))))) (define File-System-show_Show__FileError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "File error: " (Show-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)))))) @@ -1139,7 +1118,7 @@ (define File-System-stdin (lambda () (File-System-prim__stdin))) (define File-System-returnError (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__fileErrno eta-0)))))) (lambda (err) (let ((sc1 err)) (cond ((equal? sc1 0) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 1 )))))) ((equal? sc1 1) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 2 )))))) ((equal? sc1 2) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 3 )))))) ((equal? sc1 3) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 4 )))))) ((equal? sc1 4) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-5 (vector-ref sc4 1))) e-5)))) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-5 (vector-ref sc2 2))) ((e-5 'erased) (vector 0 (vector 5 ))))))(else (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 (vector 0 (Num-Prelude-C-45_Neg__Int err 5))))))))))))))) (define File-System-removeFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__removeFile arg-2 eta-0)))))) (lambda (res) (File-System-case--removeFile-1332 'erased arg-1 arg-2 res (EqOrd-Prelude-C-61C-61_Eq__Int res 0)))))))) -(define File-System-readFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-openFile 'erased arg-1 arg-2 (vector 0 ))) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (File-System-n--3188-1458-read 'erased arg-1 arg-2 (vector 0 ) e-4)) (lambda (_-1) (let ((sc3 _-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1622) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-13 (vector-ref sc7 1))) e-13)))) (let ((e-14 (vector-ref sc6 1))) e-14)))) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) (vector 1 (Strings-Data-fastAppend e-8))))))))))) (else (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1660) (File-System-returnError 'erased 'erased arg-1)))))))))))))) (else (File-System-returnError 'erased 'erased arg-1)))))))))) +(define File-System-readFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-openFile 'erased arg-1 arg-2 (vector 0 ))) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (File-System-n--3079-1458-read 'erased arg-1 arg-2 (vector 0 ) e-4)) (lambda (_-1) (let ((sc3 _-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1622) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-13 (vector-ref sc7 1))) e-13)))) (let ((e-14 (vector-ref sc6 1))) e-14)))) (let ((e-13 (vector-ref sc5 2))) ((e-13 'erased) (vector 1 (Strings-Data-fastAppend e-8))))))))))) (else (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-1660) (File-System-returnError 'erased 'erased arg-1)))))))))))))) (else (File-System-returnError 'erased 'erased arg-1)))))))))) (define File-System-openFile (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (File-System-prim__open arg-2 (File-System-modeStr arg-3) eta-0)))))) (lambda (res) (File-System-case--openFile-653 'erased arg-1 arg-3 arg-2 res (EqOrd-Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr res) 0)))))))) (define File-System-ok (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 1 arg-3)))))) (define File-System-modeStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (File-System-case--modeStr-364 (Info-System-isWindows))) ((1) (File-System-case--modeStr-374 (Info-System-isWindows))) ((2) (File-System-case--modeStr-384 (Info-System-isWindows))) ((3) (File-System-case--modeStr-394 (Info-System-isWindows))) ((4) (File-System-case--modeStr-404 (Info-System-isWindows))) (else (File-System-case--modeStr-414 (Info-System-isWindows))))))) @@ -1156,45 +1135,45 @@ (define Info-System-prim__os (lambda () (blodwen-os))) (define Info-System-os (lambda () (blodwen-os))) (define Info-System-isWindows (lambda () (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 ))))))) -(define Unlit-Parser-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-2131 (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--caseC-32blockC-32inC-32isLitLine-2106 (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-2131 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))))(else (Unlit-Parser-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-2131 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))) -(define Unlit-Parser-case--isLitLine-2085 (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--caseC-32blockC-32inC-32isLitLine-2106 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))))(else (Unlit-Parser-case--caseC-32blockC-32inC-32isLitLine-2106 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))) -(define Unlit-Parser-case--caseC-32blockC-32inC-32isLitFile-2069 (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--1846-2026-isStyle arg-0 (Unlit-Parser-styleCMark))))))) -(define Unlit-Parser-case--isLitFile-2054 (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--caseC-32blockC-32inC-32isLitFile-2069 arg-0 (Unlit-Parser-n--1846-2026-isStyle arg-0 (Unlit-Parser-styleOrg)))))))) -(define Unlit-Parser-case--isLitFileC-44isStyle-2037 (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--1846-2026-isStyle (lambda (arg-0 arg-1) (Unlit-Parser-case--isLitFileC-44isStyle-2037 arg-0 arg-1 ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unlit-Parser-n--1846-2025-hasSuffix arg-0 eta-0))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) -(define Unlit-Parser-n--1846-2025-hasSuffix (lambda (arg-0 arg-1) (Strings-Data-isSuffixOf arg-1 arg-0))) +(define Unlit-Parser-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-2137 (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--caseC-32blockC-32inC-32isLitLine-2112 (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-2137 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))))(else (Unlit-Parser-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32isLitLine-2137 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))) +(define Unlit-Parser-case--isLitLine-2091 (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--caseC-32blockC-32inC-32isLitLine-2112 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))))(else (Unlit-Parser-case--caseC-32blockC-32inC-32isLitLine-2112 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))) +(define Unlit-Parser-case--caseC-32blockC-32inC-32isLitFile-2075 (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--1737-2032-isStyle arg-0 (Unlit-Parser-styleCMark))))))) +(define Unlit-Parser-case--isLitFile-2060 (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--caseC-32blockC-32inC-32isLitFile-2075 arg-0 (Unlit-Parser-n--1737-2032-isStyle arg-0 (Unlit-Parser-styleOrg)))))))) +(define Unlit-Parser-case--isLitFileC-44isStyle-2043 (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--1737-2032-isStyle (lambda (arg-0 arg-1) (Unlit-Parser-case--isLitFileC-44isStyle-2043 arg-0 arg-1 ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Unlit-Parser-n--1737-2031-hasSuffix arg-0 eta-0))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) +(define Unlit-Parser-n--1737-2031-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 1 (vector 0 "~~~idris" "~~~") (vector 0 ))) (vector 0 ) (vector 1 ".md" (vector 1 ".markdown" (vector 0 )))))) (define Unlit-Parser-styleBird (lambda () (vector 0 (vector 0 ) (vector 1 ">" (vector 1 "<" (vector 0 ))) (vector 1 ".lidr" (vector 0 ))))) (define Unlit-Parser-relit (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (Strings-Data-unwords (vector 1 e-2 (vector 1 arg-1 (vector 0 )))))))))) -(define Unlit-Parser-isLitLine (lambda (arg-0) (Unlit-Parser-case--isLitLine-2085 arg-0 (Literate-Text-isLiterateLine (Unlit-Parser-styleBird) arg-0)))) -(define Unlit-Parser-isLitFile (lambda (arg-0) (Unlit-Parser-case--isLitFile-2054 arg-0 (Unlit-Parser-n--1846-2026-isStyle arg-0 (Unlit-Parser-styleBird))))) -(define Literate-Text-with--isLiterateLine-2319 (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-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((2) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (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-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 2))) (let ((sc7 e-24)) (cond ((equal? sc7 "") (vector 0 (vector 1 e-14) e-15))(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--withC-32blockC-32inC-32reduce-2173 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (Literate-Text-reduce arg-9 arg-8))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Literate-Text-reduce arg-9 (vector 1 "\u000a" (vector 1 (Strings-Data-unlines e-2) arg-8)))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Literate-Text-reduce arg-9 (vector 1 "\u000a" (vector 1 (Strings-Data-unlines e-2) arg-8)))))))))) -(define Literate-Text-with--reduce-2146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Literate-Text-reduce arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Literate-Text-with--withC-32blockC-32inC-32reduce-2173 e-3 (Views-List-Data-snocList 'erased e-3) arg-2 arg-3 arg-4 arg-5 arg-6 e-2 arg-10 arg-9 arg-8 arg-7 arg-0)))))))) -(define Literate-Text-case--extractCode-2254 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (Literate-Text-reduce e-2 (vector 0 ))))(else (vector 0 (vector 0 e-6 e-10 e-11)))))))))))))))) -(define Literate-Text-case--reduce-2079 (lambda (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) (Literate-Text-reduce arg-7 (vector 1 "\u000a" arg-8))) (else (Literate-Text-reduce arg-7 (vector 1 (Types-Prelude-substr (Types-Prelude-C-43_Num__Nat (Strings-Types-Prelude-length arg-6) (+ 1 0)) (Strings-Types-Prelude-length arg-5) arg-5) arg-8))))))) -(define Literate-Text-case--rawTokens-2013 (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--2423-2048-blank_content (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Strings-Data-fastAppend (List-Data-replicate 'erased (List-Types-Prelude-length 'erased (Strings-Data-lines arg-5)) "\u000a")))) +(define Unlit-Parser-isLitLine (lambda (arg-0) (Unlit-Parser-case--isLitLine-2091 arg-0 (Literate-Text-isLiterateLine (Unlit-Parser-styleBird) arg-0)))) +(define Unlit-Parser-isLitFile (lambda (arg-0) (Unlit-Parser-case--isLitFile-2060 arg-0 (Unlit-Parser-n--1737-2032-isStyle arg-0 (Unlit-Parser-styleBird))))) +(define Literate-Text-with--isLiterateLine-2325 (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-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((2) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (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-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 2))) (let ((sc7 e-24)) (cond ((equal? sc7 "") (vector 0 (vector 1 e-14) e-15))(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--withC-32blockC-32inC-32reduce-2179 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (Literate-Text-reduce arg-9 arg-8))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Literate-Text-reduce arg-9 (vector 1 "\u000a" (vector 1 (Strings-Data-unlines e-2) arg-8)))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Literate-Text-reduce arg-9 (vector 1 "\u000a" (vector 1 (Strings-Data-unlines e-2) arg-8)))))))))) +(define Literate-Text-with--reduce-2152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Literate-Text-reduce arg-9 arg-10)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Literate-Text-with--withC-32blockC-32inC-32reduce-2179 e-3 (Views-List-Data-snocList 'erased e-3) arg-2 arg-3 arg-4 arg-5 arg-6 e-2 arg-10 arg-9 arg-8 arg-7 arg-0)))))))) +(define Literate-Text-case--extractCode-2260 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (Literate-Text-reduce e-2 (vector 0 ))))(else (vector 0 (vector 0 e-6 e-10 e-11)))))))))))))))) +(define Literate-Text-case--reduce-2085 (lambda (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) (Literate-Text-reduce arg-7 (vector 1 "\u000a" arg-8))) (else (Literate-Text-reduce arg-7 (vector 1 (Types-Prelude-substr (Types-Prelude-C-43_Num__Nat (Strings-Types-Prelude-length arg-6) (+ 1 0)) (Strings-Types-Prelude-length arg-5) arg-5) arg-8))))))) +(define Literate-Text-case--rawTokens-2019 (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--2314-2054-blank_content (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Strings-Data-fastAppend (List-Data-replicate 'erased (List-Types-Prelude-length 'erased (Strings-Data-lines arg-5)) "\u000a")))) (define Literate-Text-untilEOL (lambda () (Lexer-Text-manyUntil 'erased (Lexer-Text-newline) (Lexer-Text-any)))) (define Literate-Text-unlit (lambda (ext-0 ext-1) (Literate-Text-extractCode ext-0 ext-1))) -(define Literate-Text-reduce (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Strings-Data-fastAppend (List-Data-reverse 'erased arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-9 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (Literate-Text-reduce e-3 (vector 1 (Literate-Text-n--2423-2048-blank_content e-6 e-7 e-8 e-9 e-10 e-11 e-3 arg-1) arg-1)))) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (Literate-Text-case--reduce-2079 e-6 e-7 e-8 e-9 e-10 e-13 e-12 e-3 arg-1 (EqOrd-Prelude-C-61C-61_Eq__String e-12 (Strings-Data-trim e-13)))))) (else (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((e-16 (vector-ref sc2 3))) (Literate-Text-with--reduce-2146 e-16 (Strings-Data-lines e-16) e-6 e-7 e-8 e-9 e-10 e-15 e-14 e-3 arg-1))))))))))))))))))))) +(define Literate-Text-reduce (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Strings-Data-fastAppend (List-Data-reverse 'erased arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-9 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (Literate-Text-reduce e-3 (vector 1 (Literate-Text-n--2314-2054-blank_content e-6 e-7 e-8 e-9 e-10 e-11 e-3 arg-1) arg-1)))) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (Literate-Text-case--reduce-2085 e-6 e-7 e-8 e-9 e-10 e-13 e-12 e-3 arg-1 (EqOrd-Prelude-C-61C-61_Eq__String e-12 (Strings-Data-trim e-13)))))) (else (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((e-16 (vector-ref sc2 3))) (Literate-Text-with--reduce-2152 e-16 (Strings-Data-lines e-16) e-6 e-7 e-8 e-9 e-10 e-15 e-14 e-3 arg-1))))))))))))))))))))) (define Literate-Text-rawTokens (lambda (arg-0 arg-1) (List-Types-Prelude-C-43C-43 'erased (Types-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-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (m) (vector 0 (Literate-Text-line m) (lambda (eta-0) (vector 2 (Strings-Data-trim m) eta-0)))) arg-1) (vector 1 (vector 0 (Literate-Text-notCodeLine) (lambda (eta-0) (vector 1 eta-0))) (vector 0 )))))) (define Literate-Text-notCodeLine (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-newline) (vector 4 (Lexer-Text-any) (lambda () (Literate-Text-untilEOL)))))) (define Literate-Text-line (lambda (arg-0) (vector 4 (Lexer-Text-exact arg-0) (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-newline) (vector 4 (Lexer-Text-space) (lambda () (Literate-Text-untilEOL)))))))) -(define Literate-Text-isLiterateLine (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Literate-Text-with--isLiterateLine-2319 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1) e-2))))))) +(define Literate-Text-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--isLiterateLine-2325 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--extractCode-2254 e-2 e-1 e-0 arg-1 (Core-Lexer-Text-lex 'erased (Literate-Text-rawTokens e-0 e-1) arg-1)))))))) +(define Literate-Text-extractCode (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Literate-Text-case--extractCode-2260 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-Types-Prelude-C-43C-43 'erased arg-1 (vector 1 e-2 (vector 0 ))) (vector 1 e-2 arg-1 arg-2) e-3)))))))) (define Views-List-Data-snocList (lambda (arg-0 arg-1) (Views-List-Data-snocListHelp 'erased (vector 0 ) (vector 0 ) arg-1))) (define Lexer-Text-case--approx-451 (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--exact-430 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Core-Lexer-Text-fail 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-concatMap 'erased 'erased (lambda (eta-0) (Lexer-Text-is eta-0)) (vector 1 e-2 e-3))))))))) (define Lexer-Text-case--toTokenMap-313 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (lambda (eta-0) (vector 0 e-3 eta-0)))))))) -(define Lexer-Text-n--2655-575-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--2655-575-lexStr e-3))))))))) -(define Lexer-Text-n--2655-576-control (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2655-575-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-n--2546-575-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--2546-575-lexStr e-3))))))))) +(define Lexer-Text-n--2546-576-control (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2546-575-lexStr (vector 1 "NUL" (vector 1 "SOH" (vector 1 "STX" (vector 1 "ETX" (vector 1 "EOT" (vector 1 "ENQ" (vector 1 "ACK" (vector 1 "BEL" (vector 1 "BS" (vector 1 "HT" (vector 1 "LF" (vector 1 "VT" (vector 1 "FF" (vector 1 "CR" (vector 1 "SO" (vector 1 "SI" (vector 1 "DLE" (vector 1 "DC1" (vector 1 "DC2" (vector 1 "DC3" (vector 1 "DC4" (vector 1 "NAK" (vector 1 "SYN" (vector 1 "ETB" (vector 1 "CAN" (vector 1 "EM" (vector 1 "SUB" (vector 1 "ESC" (vector 1 "FS" (vector 1 "GS" (vector 1 "RS" (vector 1 "US" (vector 1 "SP" (vector 1 "DEL" (vector 0 )))))))))))))))))))))))))))))))))))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\x) (lambda () (Lexer-Text-hexDigits))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\o) (lambda () (Lexer-Text-octDigits))) (Lexer-Text-digits)))))) (define Lexer-Text-toTokenMap (lambda (arg-0 ext-0) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (lambda (eta-0) (vector 0 e-3 eta-0))))))) ext-0))) (define Lexer-Text-symbol (lambda () (Core-Lexer-Text-pred (lambda (x) (Basics-Prelude-not (Basics-Prelude-C-124C-124 (Types-Prelude-isSpace x) (lambda () (Types-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))))) @@ -1224,7 +1203,7 @@ (define Lexer-Text-digit (lambda () (Core-Lexer-Text-pred (lambda (eta-0) (Types-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--2655-576-control) (Lexer-Text-any))) (Lexer-Text-isNot q)))) (lambda () (Lexer-Text-is q)))))) +(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--2546-576-control) (Lexer-Text-any))) (Lexer-Text-isNot q)))) (lambda () (Lexer-Text-is q)))))) (define Lexer-Text-approx (lambda (arg-0) (Lexer-Text-case--approx-451 arg-0 (Types-Prelude-unpack arg-0)))) (define Lexer-Text-any (lambda () (Core-Lexer-Text-pred (lambda (eta-0) 0)))) (define Token-Text-tokValue (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3))))))) @@ -1240,17 +1219,17 @@ (define Core-Lexer-Text-case--lex-1425 (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 (Types-Prelude-fastPack e-11))))))))))))))) (define Core-Lexer-Text-case--caseC-32blockC-32inC-32tokenise-1306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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--tokenise-1273 (lambda (arg-0 arg-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--caseC-32blockC-32inC-32tokenise-1306 '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--tokeniseC-44getFirstToken-1187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((lineC-39 (b+ arg-5 (Types-Prelude-cast_Cast__Nat_Int (Core-Lexer-Text-n--2761-1080-countNLs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5)) 63))) (let ((colC-39 (Core-Lexer-Text-n--2761-1081-getCols 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 arg-4))) (vector 1 (vector 0 (vector 0 (arg-8 (Types-Prelude-fastPack (List-Data-reverse 'erased e-5))) 1 arg-5 arg-4 lineC-39 colC-39) (vector 0 lineC-39 (vector 0 colC-39 e-6))))))))))) (else (Core-Lexer-Text-n--2761-1082-getFirstToken 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10)))))) +(define Core-Lexer-Text-case--tokeniseC-44getFirstToken-1187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((lineC-39 (b+ arg-5 (Types-Prelude-cast_Cast__Nat_Int (Core-Lexer-Text-n--2652-1080-countNLs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5)) 63))) (let ((colC-39 (Core-Lexer-Text-n--2652-1081-getCols 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 arg-4))) (vector 1 (vector 0 (vector 0 (arg-8 (Types-Prelude-fastPack (List-Data-reverse 'erased e-5))) 1 arg-5 arg-4 lineC-39 colC-39) (vector 0 lineC-39 (vector 0 colC-39 e-6))))))))))) (else (Core-Lexer-Text-n--2652-1082-getFirstToken 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10)))))) (define Core-Lexer-Text-case--tokeniseC-44getCols-1106 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (b+ arg-7 (Types-Prelude-cast_Cast__Nat_Int (List-Types-Prelude-length 'erased e-2)) 63))(else (Types-Prelude-cast_Cast__Nat_Int (List-Types-Prelude-length 'erased e-2)))))))))) (define Core-Lexer-Text-case--scan-1043 (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--scan-1008 (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--scan-972 (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--scan-927 (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--scan-878 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-4 arg-3))) (else (vector 0 )))))) -(define Core-Lexer-Text-n--2761-1082-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--tokeniseC-44getFirstToken-1187 '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--2761-1081-getCols (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Core-Lexer-Text-case--tokeniseC-44getCols-1106 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 (List-Data-span 'erased (lambda (arg-9) (EqOrd-Prelude-C-47C-61_Eq__Char arg-9 (integer->char 10))) (List-Data-reverse 'erased arg-7))))) -(define Core-Lexer-Text-n--2761-1080-countNLs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Types-Prelude-length 'erased (List-Data-filter 'erased (lambda (arg-8) (EqOrd-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--tokenise-1273 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Core-Lexer-Text-n--2761-1082-getFirstToken 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5 arg-6)))) +(define Core-Lexer-Text-n--2652-1082-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--tokeniseC-44getFirstToken-1187 '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--2652-1081-getCols (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Core-Lexer-Text-case--tokeniseC-44getCols-1106 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 (List-Data-span 'erased (lambda (arg-9) (EqOrd-Prelude-C-47C-61_Eq__Char arg-9 (integer->char 10))) (List-Data-reverse 'erased arg-7))))) +(define Core-Lexer-Text-n--2652-1080-countNLs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Types-Prelude-length 'erased (List-Data-filter 'erased (lambda (arg-8) (EqOrd-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--tokenise-1273 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Core-Lexer-Text-n--2652-1082-getFirstToken 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5 arg-6)))) (define Core-Lexer-Text-scan (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Types-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--scan-878 'erased e-3 e-2 arg-3 arg-2 'erased (EqOrd-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--scan-927 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))) (Types-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))) (Types-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))) (Types-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))) (Types-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))) @@ -1281,131 +1260,130 @@ (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 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))) (Basics-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))) (Basics-Prelude-C-38C-38 e-2 (lambda () (Extra-Bool-Data-allTrue e-3)))))))))) -(define Source-Rule-Parser-case--blockWithOptHeaderAfter-3742 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 0 (vector 0 (vector 0 ) (vector 0 )))) (else (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 1 arg-5) arg-3)) (lambda (hidt) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-5) arg-2) (lambda (ps) (vector 0 (vector 0 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) hidt) ps))))))))))) -(define Source-Rule-Parser-case--blockAfter-3564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-3) arg-1)))))) -(define Source-Rule-Parser-case--terminatorC-44afterDedent-3203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-2))) (else (vector 4 1 "Not the end of a block entry")))))) -(define Source-Rule-Parser-case--terminatorC-44afterDedent-3168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-2))) (else (vector 4 1 "Not the end of a block entry")))))) -(define Source-Rule-Parser-case--terminatorC-44afterDedent-3137 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry")))))) -(define Source-Rule-Parser-case--atEndIndent-3099 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry")))))) -(define Source-Rule-Parser-case--atEnd-3060 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry")))))) -(define Source-Rule-Parser-case--checkValid-2940 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation")))))) -(define Source-Rule-Parser-case--checkValid-2914 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation")))))) -(define Source-Rule-Parser-case--continueF-2817 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else (vector 0 (vector 0 ))))))) -(define Source-Rule-Parser-case--nameC-44nameNS-2661 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Types-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 0 arg-1 (vector 1 arg-0)))))))) -(define Source-Rule-Parser-case--nameC-44nameNS-2640 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Types-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 1 arg-0))))))) -(define Source-Rule-Parser-case--holeName-2542 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define Source-Rule-Parser-case--moduleIdent-2512 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 0 e-1 (vector 0 )))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--namespacedIdent-2482 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 0 e-1 (vector 0 )))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--identPart-2461 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define Source-Rule-Parser-case--caseC-32blockC-32inC-32operator-2432 (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--operator-2423 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--caseC-32blockC-32inC-32operator-2432 arg-0 e-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) e-0 (Source-Lexer-Parser-reservedSymbols)))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--caseC-32blockC-32inC-32pragma-2388 (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--pragma-2376 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((14) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--caseC-32blockC-32inC-32pragma-2388 arg-0 arg-1 e-0 (EqOrd-Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--caseC-32blockC-32inC-32exactIdent-2339 (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--exactIdent-2327 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--caseC-32blockC-32inC-32exactIdent-2339 arg-0 arg-1 e-0 (EqOrd-Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--caseC-32blockC-32inC-32keyword-2290 (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--keyword-2278 (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--caseC-32blockC-32inC-32keyword-2290 arg-0 arg-1 e-0 (EqOrd-Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--caseC-32blockC-32inC-32symbol-2238 (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--symbol-2226 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--caseC-32blockC-32inC-32symbol-2238 arg-0 arg-1 e-0 (EqOrd-Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--aDotIdent-2193 (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)))(else (vector 0 )))))) -(define Source-Rule-Parser-case--strLit-2172 (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--onOffLit-2140 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 "on") (vector 1 0)) ((equal? sc1 "off") (vector 1 1))(else (vector 0 ))))))(else (vector 0 )))))) -(define Source-Rule-Parser-case--intLit-2119 (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--documentationC-39-2089 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define Source-Rule-Parser-case--caseC-32blockC-32inC-32constant-1985 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 6 e-2)))))))) -(define Source-Rule-Parser-case--caseC-32blockC-32inC-32constant-1952 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 7 e-2)))))))) -(define Source-Rule-Parser-case--constant-1945 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--caseC-32blockC-32inC-32constant-1952 arg-0 e-0 (Support-Parser-getCharLit e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 8 e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Source-Rule-Parser-case--caseC-32blockC-32inC-32constant-1985 arg-0 e-3 (Support-Parser-escape e-3)))) ((5) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 e-4)) (cond ((equal? sc1 "Char") (vector 1 (vector 17 ))) ((equal? sc1 "Double") (vector 1 (vector 18 ))) ((equal? sc1 "Int") (vector 1 (vector 10 ))) ((equal? sc1 "Integer") (vector 1 (vector 11 ))) ((equal? sc1 "Bits8") (vector 1 (vector 12 ))) ((equal? sc1 "Bits16") (vector 1 (vector 13 ))) ((equal? sc1 "Bits32") (vector 1 (vector 14 ))) ((equal? sc1 "Bits64") (vector 1 (vector 15 ))) ((equal? sc1 "String") (vector 1 (vector 16 )))(else (vector 0 ))))))(else (vector 0 )))))) -(define Source-Rule-Parser-n--5425-3603-restOfBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased e-6 arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3629) (vector 0 (vector 0 (vector 1 e-5) ps)))))))))))) (else (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3666) (vector 0 (vector 0 (vector 0 ) ps)))))))))))) -(define Source-Rule-Parser-n--4463-2624-reserved (lambda (arg-0) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) arg-0 (Source-Rule-Parser-reservedNames)))) -(define Source-Rule-Parser-n--4463-2626-opNonNS (lambda () (vector 8 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased (Basics-Prelude-C-124C-124 0 (lambda () 0)) (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "(")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-operator))))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-symbol ")")))))) -(define Source-Rule-Parser-n--4463-2627-opNS (lambda (arg-0) (vector 7 0 (Source-Rule-Parser-symbol ".(") (lambda () (lambda (_-2708) (vector 7 0 (Source-Rule-Parser-operator) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-2734) (vector 0 (vector 0 (List1-Data-toList 'erased arg-0) n))))))))))))) -(define Source-Rule-Parser-n--4463-2625-nameNS (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) (Source-Rule-Parser-case--nameC-44nameNS-2640 e-1 (Source-Rule-Parser-n--4463-2624-reserved e-1)))(else (Source-Rule-Parser-case--nameC-44nameNS-2661 e-1 e-2 (Source-Rule-Parser-n--4463-2624-reserved e-1)))))))))) -(define Source-Rule-Parser-n--3714-1909-isEOI (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((12) 0)(else 1))))) -(define Source-Rule-Parser-n--4972-3120-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--4972-3121-afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-case--terminatorC-44afterDedent-3137 arg-0 arg-1 arg-3 (EqOrd-Prelude-C-60C-61_Ord__Int arg-3 arg-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--terminatorC-44afterDedent-3168 arg-0 arg-1 e-0 arg-3 (EqOrd-Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--terminatorC-44afterDedent-3203 arg-0 arg-1 e-1 arg-3 (EqOrd-Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) (else (vector 0 (vector 3 ))))))) +(define Source-Rule-Parser-case--blockWithOptHeaderAfter-3741 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (vector 0 (vector 0 (vector 0 ) (vector 0 )))) (else (vector 8 1 1 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 1 arg-5) arg-3)) (lambda (hidt) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-5) arg-2) (lambda (ps) (vector 0 (vector 0 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) hidt) ps))))))))))) +(define Source-Rule-Parser-case--blockAfter-3563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-3) arg-1)))))) +(define Source-Rule-Parser-case--terminatorC-44afterDedent-3202 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-2))) (else (vector 4 1 "Not the end of a block entry")))))) +(define Source-Rule-Parser-case--terminatorC-44afterDedent-3167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-2))) (else (vector 4 1 "Not the end of a block entry")))))) +(define Source-Rule-Parser-case--terminatorC-44afterDedent-3136 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry")))))) +(define Source-Rule-Parser-case--atEndIndent-3098 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry")))))) +(define Source-Rule-Parser-case--atEnd-3059 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not the end of a block entry")))))) +(define Source-Rule-Parser-case--checkValid-2939 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation")))))) +(define Source-Rule-Parser-case--checkValid-2913 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Invalid indentation")))))) +(define Source-Rule-Parser-case--continueF-2816 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else (vector 0 (vector 0 ))))))) +(define Source-Rule-Parser-case--nameC-44nameNS-2660 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Types-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 0 arg-1 (vector 1 arg-0)))))))) +(define Source-Rule-Parser-case--nameC-44nameNS-2639 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 4 1 (Strings-Types-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (vector 0 (vector 1 arg-0))))))) +(define Source-Rule-Parser-case--holeName-2541 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) +(define Source-Rule-Parser-case--moduleIdent-2511 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 0 e-1 (vector 0 )))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--namespacedIdent-2481 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) ((5) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 0 e-1 (vector 0 )))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--identPart-2460 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) +(define Source-Rule-Parser-case--caseC-32blockC-32inC-32operator-2431 (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--operator-2422 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--caseC-32blockC-32inC-32operator-2431 arg-0 e-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) e-0 (Source-Lexer-Parser-reservedSymbols)))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--caseC-32blockC-32inC-32pragma-2387 (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--pragma-2375 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((14) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--caseC-32blockC-32inC-32pragma-2387 arg-0 arg-1 e-0 (EqOrd-Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--caseC-32blockC-32inC-32exactIdent-2338 (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--exactIdent-2326 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--caseC-32blockC-32inC-32exactIdent-2338 arg-0 arg-1 e-0 (EqOrd-Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--caseC-32blockC-32inC-32keyword-2289 (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--keyword-2277 (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--caseC-32blockC-32inC-32keyword-2289 arg-0 arg-1 e-0 (EqOrd-Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--caseC-32blockC-32inC-32symbol-2237 (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--symbol-2225 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--caseC-32blockC-32inC-32symbol-2237 arg-0 arg-1 e-0 (EqOrd-Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--dotIdent-2199 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (vector 1 (vector 1 e-0))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--strLit-2178 (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--onOffLit-2146 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 "on") (vector 1 0)) ((equal? sc1 "off") (vector 1 1))(else (vector 0 ))))))(else (vector 0 )))))) +(define Source-Rule-Parser-case--intLit-2125 (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--documentationC-39-2095 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) +(define Source-Rule-Parser-case--caseC-32blockC-32inC-32constant-1991 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 6 e-2)))))))) +(define Source-Rule-Parser-case--caseC-32blockC-32inC-32constant-1958 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 7 e-2)))))))) +(define Source-Rule-Parser-case--constant-1951 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--caseC-32blockC-32inC-32constant-1958 arg-0 e-0 (Support-Parser-getCharLit e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 8 e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Source-Rule-Parser-case--caseC-32blockC-32inC-32constant-1991 arg-0 e-3 (Support-Parser-escape e-3)))) ((5) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 e-4)) (cond ((equal? sc1 "Char") (vector 1 (vector 17 ))) ((equal? sc1 "Double") (vector 1 (vector 18 ))) ((equal? sc1 "Int") (vector 1 (vector 10 ))) ((equal? sc1 "Integer") (vector 1 (vector 11 ))) ((equal? sc1 "Bits8") (vector 1 (vector 12 ))) ((equal? sc1 "Bits16") (vector 1 (vector 13 ))) ((equal? sc1 "Bits32") (vector 1 (vector 14 ))) ((equal? sc1 "Bits64") (vector 1 (vector 15 ))) ((equal? sc1 "String") (vector 1 (vector 16 )))(else (vector 0 ))))))(else (vector 0 )))))) +(define Source-Rule-Parser-n--5299-3602-restOfBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased e-6 arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3628) (vector 0 (vector 0 (vector 1 e-5) ps)))))))))))) (else (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3665) (vector 0 (vector 0 (vector 0 ) ps)))))))))))) +(define Source-Rule-Parser-n--4337-2623-reserved (lambda (arg-0) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) arg-0 (Source-Rule-Parser-reservedNames)))) +(define Source-Rule-Parser-n--4337-2625-opNonNS (lambda () (vector 8 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased (Basics-Prelude-C-124C-124 0 (lambda () 0)) (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "(")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-operator))))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-symbol ")")))))) +(define Source-Rule-Parser-n--4337-2626-opNS (lambda (arg-0) (vector 7 0 (Source-Rule-Parser-symbol ".(") (lambda () (lambda (_-2707) (vector 7 0 (Source-Rule-Parser-operator) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-2733) (vector 0 (vector 0 (List1-Data-toList 'erased arg-0) n))))))))))))) +(define Source-Rule-Parser-n--4337-2624-nameNS (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) (Source-Rule-Parser-case--nameC-44nameNS-2639 e-1 (Source-Rule-Parser-n--4337-2623-reserved e-1)))(else (Source-Rule-Parser-case--nameC-44nameNS-2660 e-1 e-2 (Source-Rule-Parser-n--4337-2623-reserved e-1)))))))))) +(define Source-Rule-Parser-n--3595-1915-isEOI (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((12) 0)(else 1))))) +(define Source-Rule-Parser-n--4846-3119-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--4846-3120-afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-case--terminatorC-44afterDedent-3136 arg-0 arg-1 arg-3 (EqOrd-Prelude-C-60C-61_Ord__Int arg-3 arg-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--terminatorC-44afterDedent-3167 arg-0 arg-1 e-0 arg-3 (EqOrd-Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--terminatorC-44afterDedent-3202 arg-0 arg-1 e-1 arg-3 (EqOrd-Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) (else (vector 0 (vector 3 ))))))) (define Source-Rule-Parser-unqualifiedName (lambda () (Source-Rule-Parser-identPart))) -(define Source-Rule-Parser-terminator (lambda (arg-0 arg-1) (vector 9 1 (Basics-Prelude-C-38C-38 (Basics-Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Basics-Prelude-C-38C-38 1 (lambda () 1)))) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-3285) (vector 0 (vector 3 )))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) (Basics-Prelude-C-38C-38 1 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol ";") (lambda () (lambda (_-3271) (vector 0 (Source-Rule-Parser-n--4972-3120-afterSemi arg-1 arg-0 arg-0))))) (lambda () (vector 9 1 1 (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-n--4972-3121-afterDedent arg-1 arg-0 arg-0 col))) (lambda () (vector 0 (vector 3 )))))))))) -(define Source-Rule-Parser-symbol (lambda (arg-0) (vector 1 (Strings-Types-Prelude-C-43C-43 "Expected '" (Strings-Types-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--symbol-2226 arg-0 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) -(define Source-Rule-Parser-strLit (lambda () (vector 1 "Expected string literal" (lambda (x) (Source-Rule-Parser-case--strLit-2172 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-terminator (lambda (arg-0 arg-1) (vector 9 1 (Basics-Prelude-C-38C-38 (Basics-Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Basics-Prelude-C-38C-38 1 (lambda () 1)))) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-3284) (vector 0 (vector 3 )))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) (Basics-Prelude-C-38C-38 1 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol ";") (lambda () (lambda (_-3270) (vector 0 (Source-Rule-Parser-n--4846-3119-afterSemi arg-1 arg-0 arg-0))))) (lambda () (vector 9 1 1 (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-n--4846-3120-afterDedent arg-1 arg-0 arg-0 col))) (lambda () (vector 0 (vector 3 )))))))))) +(define Source-Rule-Parser-symbol (lambda (arg-0) (vector 1 (Strings-Types-Prelude-C-43C-43 "Expected '" (Strings-Types-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--symbol-2225 arg-0 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-strLit (lambda () (vector 1 "Expected string literal" (lambda (x) (Source-Rule-Parser-case--strLit-2178 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) (define Source-Rule-Parser-reservedNames (lambda () (vector 1 "Type" (vector 1 "Int" (vector 1 "Integer" (vector 1 "Bits8" (vector 1 "Bits16" (vector 1 "Bits32" (vector 1 "Bits64" (vector 1 "String" (vector 1 "Char" (vector 1 "Double" (vector 1 "Lazy" (vector 1 "Inf" (vector 1 "Force" (vector 1 "Delay" (vector 0 ))))))))))))))))) -(define Source-Rule-Parser-pragma (lambda (arg-0) (vector 1 (Strings-Types-Prelude-C-43C-43 "Expected pragma " arg-0) (lambda (x) (Source-Rule-Parser-case--pragma-2376 arg-0 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) -(define Source-Rule-Parser-operator (lambda () (vector 1 "Expected operator" (lambda (x) (Source-Rule-Parser-case--operator-2423 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) -(define Source-Rule-Parser-onOffLit (lambda () (vector 1 "Expected on or off" (lambda (x) (Source-Rule-Parser-case--onOffLit-2140 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) -(define Source-Rule-Parser-nonEmptyBlock (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-3862) (vector 8 1 0 (vector 5 ) (lambda (_-3872) (vector 7 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-1) (lambda () (lambda (res) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3903) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 1 (Source-Rule-Parser-blockEntry 'erased (vector 1 col) arg-1) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps))))))))))))) -(define Source-Rule-Parser-namespacedIdent (lambda () (vector 1 "Expected namespaced name" (lambda (x) (Source-Rule-Parser-case--namespacedIdent-2482 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) -(define Source-Rule-Parser-name (lambda () (vector 9 0 0 (Source-Rule-Parser-n--4463-2626-opNonNS) (lambda () (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 9 0 1 (Source-Rule-Parser-n--4463-2627-opNS ns) (lambda () (Source-Rule-Parser-n--4463-2625-nameNS ns)))))))))) +(define Source-Rule-Parser-pragma (lambda (arg-0) (vector 1 (Strings-Types-Prelude-C-43C-43 "Expected pragma " arg-0) (lambda (x) (Source-Rule-Parser-case--pragma-2375 arg-0 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-operator (lambda () (vector 1 "Expected operator" (lambda (x) (Source-Rule-Parser-case--operator-2422 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-onOffLit (lambda () (vector 1 "Expected on or off" (lambda (x) (Source-Rule-Parser-case--onOffLit-2146 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-nonEmptyBlock (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-3861) (vector 8 1 0 (vector 5 ) (lambda (_-3871) (vector 7 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-1) (lambda () (lambda (res) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3902) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 1 (Source-Rule-Parser-blockEntry 'erased (vector 1 col) arg-1) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1) (lambda (ps) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ps))))))))))))) +(define Source-Rule-Parser-namespacedIdent (lambda () (vector 1 "Expected namespaced name" (lambda (x) (Source-Rule-Parser-case--namespacedIdent-2481 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-name (lambda () (vector 9 0 0 (Source-Rule-Parser-n--4337-2625-opNonNS) (lambda () (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 9 0 1 (Source-Rule-Parser-n--4337-2626-opNS ns) (lambda () (Source-Rule-Parser-n--4337-2624-nameNS ns)))))))))) (define Source-Rule-Parser-mustContinue (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-continueF (vector 4 0 "Unexpected end of expression") arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (Source-Rule-Parser-continueF (vector 4 0 (Strings-Types-Prelude-C-43C-43 "Expected '" (Strings-Types-Prelude-C-43C-43 e-2 "'"))) arg-0))))))) -(define Source-Rule-Parser-moduleIdent (lambda () (vector 1 "Expected module identifier" (lambda (x) (Source-Rule-Parser-case--moduleIdent-2512 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) -(define Source-Rule-Parser-keyword (lambda (arg-0) (vector 1 (Strings-Types-Prelude-C-43C-43 "Expected '" (Strings-Types-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--keyword-2278 arg-0 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-moduleIdent (lambda () (vector 1 "Expected module identifier" (lambda (x) (Source-Rule-Parser-case--moduleIdent-2511 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-keyword (lambda (arg-0) (vector 1 (Strings-Types-Prelude-C-43C-43 "Expected '" (Strings-Types-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--keyword-2277 arg-0 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) (define Source-Rule-Parser-isTerminator (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 ",") 0) ((equal? sc1 "]") 0) ((equal? sc1 ";") 0) ((equal? sc1 "}") 0) ((equal? sc1 ")") 0) ((equal? sc1 "|") 0) ((equal? sc1 "**") 0)(else 1))))) ((13) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 "in") 0) ((equal? sc1 "then") 0) ((equal? sc1 "else") 0) ((equal? sc1 "where") 0)(else 1))))) ((12) 0)(else 1))))) -(define Source-Rule-Parser-intLit (lambda () (vector 1 "Expected integer literal" (lambda (x) (Source-Rule-Parser-case--intLit-2119 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-intLit (lambda () (vector 1 "Expected integer literal" (lambda (x) (Source-Rule-Parser-case--intLit-2125 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) (define Source-Rule-Parser-init (lambda () 0)) -(define Source-Rule-Parser-identPart (lambda () (vector 1 "Expected name" (lambda (x) (Source-Rule-Parser-case--identPart-2461 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) -(define Source-Rule-Parser-holeName (lambda () (vector 1 "Expected hole name" (lambda (x) (Source-Rule-Parser-case--holeName-2542 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) -(define Source-Rule-Parser-exactIdent (lambda (arg-0) (vector 1 (Strings-Types-Prelude-C-43C-43 "Expected " arg-0) (lambda (x) (Source-Rule-Parser-case--exactIdent-2327 arg-0 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) -(define Source-Rule-Parser-eoi (lambda () (vector 8 1 1 (vector 2 "Expected end of input" (lambda (eta-0) (Source-Rule-Parser-n--3714-1909-isEOI (let ((sc0 eta-0)) (let ((e-1 (vector-ref sc0 1))) e-1))))) (lambda (_-1930) (vector 0 (vector 0 )))))) -(define Source-Rule-Parser-dotIdent (lambda () (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 eta-2 eta-3))))) (lambda (eta-0) (vector 1 eta-0)) (Source-Rule-Parser-aDotIdent)))) -(define Source-Rule-Parser-documentationC-39 (lambda () (vector 1 "Expected documentation comment" (lambda (x) (Source-Rule-Parser-case--documentationC-39-2089 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-identPart (lambda () (vector 1 "Expected name" (lambda (x) (Source-Rule-Parser-case--identPart-2460 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-holeName (lambda () (vector 1 "Expected hole name" (lambda (x) (Source-Rule-Parser-case--holeName-2541 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-exactIdent (lambda (arg-0) (vector 1 (Strings-Types-Prelude-C-43C-43 "Expected " arg-0) (lambda (x) (Source-Rule-Parser-case--exactIdent-2326 arg-0 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-eoi (lambda () (vector 8 1 1 (vector 2 "Expected end of input" (lambda (eta-0) (Source-Rule-Parser-n--3595-1915-isEOI (let ((sc0 eta-0)) (let ((e-1 (vector-ref sc0 1))) e-1))))) (lambda (_-1936) (vector 0 (vector 0 )))))) +(define Source-Rule-Parser-dotIdent (lambda () (vector 1 "Expected dot+identifier" (lambda (x) (Source-Rule-Parser-case--dotIdent-2199 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-documentationC-39 (lambda () (vector 1 "Expected documentation comment" (lambda (x) (Source-Rule-Parser-case--documentationC-39-2095 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) (define Source-Rule-Parser-documentation (lambda () (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 eta-2 eta-3))))) (lambda (eta-0) (Strings-Data-unlines eta-0)) (Parser-Text-some 'erased 'erased (Source-Rule-Parser-documentationC-39))))) -(define Source-Rule-Parser-continueF (lambda (arg-0 arg-1) (vector 9 1 (Basics-Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-2809) arg-0)) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-2800) arg-0))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--continueF-2817 arg-1 arg-0 col (EqOrd-Prelude-C-60C-61_Ord__Int col arg-1)))))))))) +(define Source-Rule-Parser-continueF (lambda (arg-0 arg-1) (vector 9 1 (Basics-Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-2808) arg-0)) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-2799) arg-0))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--continueF-2816 arg-1 arg-0 col (EqOrd-Prelude-C-60C-61_Ord__Int col arg-1)))))))))) (define Source-Rule-Parser-continue (lambda (ext-0) (Source-Rule-Parser-continueF (vector 4 1 "Unexpected end of expression") ext-0))) -(define Source-Rule-Parser-constant (lambda () (vector 1 "Expected constant" (lambda (x) (Source-Rule-Parser-case--constant-1945 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) -(define Source-Rule-Parser-checkValid (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ))) ((1) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--checkValid-2914 e-0 arg-1 (EqOrd-Prelude-C-61C-61_Eq__Int arg-1 e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--checkValid-2940 e-1 arg-1 (EqOrd-Prelude-C-62C-61_Ord__Int arg-1 e-1)))) (else (vector 4 1 "End of block")))))) -(define Source-Rule-Parser-blockWithOptHeaderAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-3706) (vector 8 1 0 (vector 5 ) (lambda (_-3716) (vector 8 1 0 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-3)) (lambda (hidt) (Source-Rule-Parser-n--5425-3603-restOfBlock 'erased 'erased arg-4 arg-3 arg-2 hidt)))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--blockWithOptHeaderAfter-3742 'erased 'erased arg-4 arg-3 arg-2 col (EqOrd-Prelude-C-60C-61_Ord__Int col arg-2)))))))) -(define Source-Rule-Parser-blockEntry (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 8 1 0 (Source-Rule-Parser-checkValid arg-1 col) (lambda (_-3313) (vector 7 1 (arg-2 col) (lambda () (lambda (p) (vector 8 1 1 (Source-Rule-Parser-terminator arg-1 col) (lambda (validC-39) (vector 0 (vector 0 p validC-39))))))))))))) -(define Source-Rule-Parser-blockEntries (lambda (arg-0 arg-1 arg-2) (vector 9 1 (Basics-Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-3383) (vector 0 (vector 0 )))) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-blockEntry 'erased arg-1 arg-2) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-2) (lambda (ts) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ts))))))) (lambda () (vector 0 (vector 0 )))))))) -(define Source-Rule-Parser-blockAfter (lambda (arg-0 arg-1 arg-2) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-3515) (vector 8 1 0 (vector 5 ) (lambda (_-3525) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3544) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--blockAfter-3564 'erased arg-2 arg-1 col (EqOrd-Prelude-C-60C-61_Ord__Int col arg-1)))))))) -(define Source-Rule-Parser-block (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-3440) (vector 8 1 0 (vector 5 ) (lambda (_-3450) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3469) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-blockEntries 'erased (vector 1 col) arg-1))))))) -(define Source-Rule-Parser-atEndIndent (lambda (arg-0) (vector 9 1 1 (Source-Rule-Parser-eoi) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--atEndIndent-3099 arg-0 col (EqOrd-Prelude-C-60C-61_Ord__Int col arg-0)))))))) -(define Source-Rule-Parser-atEnd (lambda (arg-0) (vector 9 1 (Basics-Prelude-C-38C-38 1 (lambda () 1)) (Source-Rule-Parser-eoi) (lambda () (vector 9 1 1 (vector 8 1 1 (vector 2 "Expected end of block" (lambda (eta-0) (Source-Rule-Parser-isTerminator (let ((sc0 eta-0)) (let ((e-1 (vector-ref sc0 1))) e-1))))) (lambda (_-3049) (vector 0 (vector 0 )))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--atEnd-3060 arg-0 col (EqOrd-Prelude-C-60C-61_Ord__Int col arg-0)))))))))) -(define Source-Rule-Parser-aDotIdent (lambda () (vector 1 "Expected dot+identifier" (lambda (x) (Source-Rule-Parser-case--aDotIdent-2193 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-constant (lambda () (vector 1 "Expected constant" (lambda (x) (Source-Rule-Parser-case--constant-1951 x (let ((sc0 x)) (let ((e-1 (vector-ref sc0 1))) e-1))))))) +(define Source-Rule-Parser-checkValid (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ))) ((1) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--checkValid-2913 e-0 arg-1 (EqOrd-Prelude-C-61C-61_Eq__Int arg-1 e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (Source-Rule-Parser-case--checkValid-2939 e-1 arg-1 (EqOrd-Prelude-C-62C-61_Ord__Int arg-1 e-1)))) (else (vector 4 1 "End of block")))))) +(define Source-Rule-Parser-blockWithOptHeaderAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-3705) (vector 8 1 0 (vector 5 ) (lambda (_-3715) (vector 8 1 0 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-3)) (lambda (hidt) (Source-Rule-Parser-n--5299-3602-restOfBlock 'erased 'erased arg-4 arg-3 arg-2 hidt)))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--blockWithOptHeaderAfter-3741 'erased 'erased arg-4 arg-3 arg-2 col (EqOrd-Prelude-C-60C-61_Ord__Int col arg-2)))))))) +(define Source-Rule-Parser-blockEntry (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 8 1 0 (Source-Rule-Parser-checkValid arg-1 col) (lambda (_-3312) (vector 7 1 (arg-2 col) (lambda () (lambda (p) (vector 8 1 1 (Source-Rule-Parser-terminator arg-1 col) (lambda (validC-39) (vector 0 (vector 0 p validC-39))))))))))))) +(define Source-Rule-Parser-blockEntries (lambda (arg-0 arg-1 arg-2) (vector 9 1 (Basics-Prelude-C-38C-38 0 (lambda () 1)) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-3382) (vector 0 (vector 0 )))) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-blockEntry 'erased arg-1 arg-2) (lambda () (lambda (res) (vector 8 1 1 (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-2) (lambda (ts) (vector 0 (vector 1 (Builtin-fst 'erased 'erased res) ts))))))) (lambda () (vector 0 (vector 0 )))))))) +(define Source-Rule-Parser-blockAfter (lambda (arg-0 arg-1 arg-2) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-3514) (vector 8 1 0 (vector 5 ) (lambda (_-3524) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3543) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--blockAfter-3563 'erased arg-2 arg-1 col (EqOrd-Prelude-C-60C-61_Ord__Int col arg-1)))))))) +(define Source-Rule-Parser-block (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-3439) (vector 8 1 0 (vector 5 ) (lambda (_-3449) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3468) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-blockEntries 'erased (vector 1 col) arg-1))))))) +(define Source-Rule-Parser-atEndIndent (lambda (arg-0) (vector 9 1 1 (Source-Rule-Parser-eoi) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--atEndIndent-3098 arg-0 col (EqOrd-Prelude-C-60C-61_Ord__Int col arg-0)))))))) +(define Source-Rule-Parser-atEnd (lambda (arg-0) (vector 9 1 (Basics-Prelude-C-38C-38 1 (lambda () 1)) (Source-Rule-Parser-eoi) (lambda () (vector 9 1 1 (vector 8 1 1 (vector 2 "Expected end of block" (lambda (eta-0) (Source-Rule-Parser-isTerminator (let ((sc0 eta-0)) (let ((e-1 (vector-ref sc0 1))) e-1))))) (lambda (_-3048) (vector 0 (vector 0 )))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--atEnd-3059 arg-0 col (EqOrd-Prelude-C-60C-61_Ord__Int col arg-0)))))))))) (define Source-Rule-Parser-Rule (lambda (ext-0) (Common-Rule-Parser-Rule (vector "Parser.Lexer.Source.Token" ) ext-0))) (define Source-Rule-Parser-IndentInfo (lambda () (vector "Int" ))) -(define TT-Core-case--show-8684 (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--11825-8036-showApp arg-0 arg-1 arg-0 e-2 e-3)))))) -(define TT-Core-case--addRefs-7889 (lambda (arg-0 arg-1 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--substName-7634 (lambda (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--resolveNames-7188 (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--caseC-32blockC-32inC-32isVar-7141 (lambda (arg-0 arg-1 arg-2 arg-3) (Types-Prelude-pure_Applicative__Maybe 'erased (+ 1 arg-3)))) -(define TT-Core-case--isVar-7122 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-isVar arg-2 arg-1) (lambda (_-0) (Types-Prelude-pure_Applicative__Maybe 'erased (+ 1 _-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (Types-Prelude-pure_Applicative__Maybe 'erased 0)))))))) -(define TT-Core-case--mkLocals-6863 (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--caseC-32blockC-32inC-32resolveRef-6748 (lambda (arg-0 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--resolveRef-6696 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32resolveRef-6748 '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-Types-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (TT-Core-resolveRef 'erased 'erased arg-7 (List-Types-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4)))))) -(define TT-Core-case--addVars-6639 (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--embedSub-6430 (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--varEmbedSub-6379 (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--varEmbedSub-6305 (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--shrinkTerm-6012 (lambda (arg-0 arg-1 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--subElem-5665 (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--subElem-5583 (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--insertNames-4978 (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--insertNVarNames-4925 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7))) -(define TT-Core-case--insertVarNames-4837 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7))) -(define TT-Core-case--weakenVar-4753 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6))) -(define TT-Core-case--weakenNVar-4521 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6))) +(define TT-Core-case--show-8599 (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--11676-7973-showApp arg-0 arg-1 arg-0 e-2 e-3)))))) +(define TT-Core-case--addRefs-7826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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--substName-7575 (lambda (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--resolveNames-7129 (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--caseC-32blockC-32inC-32isVar-7082 (lambda (arg-0 arg-1 arg-2 arg-3) (Types-Prelude-pure_Applicative__Maybe 'erased (+ 1 arg-3)))) +(define TT-Core-case--isVar-7063 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-isVar arg-2 arg-1) (lambda (_-0) (Types-Prelude-pure_Applicative__Maybe 'erased (+ 1 _-0))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (Types-Prelude-pure_Applicative__Maybe 'erased 0)))))))) +(define TT-Core-case--mkLocals-6804 (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--caseC-32blockC-32inC-32resolveRef-6689 (lambda (arg-0 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--resolveRef-6637 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32resolveRef-6689 '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-Types-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (TT-Core-resolveRef 'erased 'erased arg-7 (List-Types-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4)))))) +(define TT-Core-case--addVars-6580 (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--embedSub-6371 (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--varEmbedSub-6320 (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--varEmbedSub-6246 (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--shrinkTerm-5953 (lambda (arg-0 arg-1 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--subElem-5606 (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--subElem-5524 (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--insertNames-4921 (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--insertNVarNames-4868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7))) +(define TT-Core-case--insertVarNames-4780 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7))) +(define TT-Core-case--weakenVar-4696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6))) +(define TT-Core-case--weakenNVar-4464 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6))) (define TT-Core-case--constantEq-835 (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--constantEq-803 (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--constantEq-771 (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--constantEq-739 (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--7674-4388-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-Types-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-2) (Strings-Types-Prelude-C-43C-43 "; " (TT-Core-show_Show__Terminating arg-1))))))))))) -(define TT-Core-n--11825-8036-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (TT-Core-nameAt 'erased arg-2 e-5 'erased)) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat e-5) "]"))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "?" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-13) (Strings-Types-Prelude-C-43C-43 "_" (Show-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-56 (vector-ref sc1 2))) (let ((e-58 (vector-ref sc1 4))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Types-Prelude-C-43C-43 "\\" (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-56) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-58) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-61 (vector-ref sc1 2))) (let ((e-62 (vector-ref sc1 3))) (let ((e-63 (vector-ref sc1 4))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Types-Prelude-C-43C-43 "let " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-61) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-63) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-62) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-66 (vector-ref sc1 2))) (let ((e-67 (vector-ref sc1 3))) (let ((e-68 (vector-ref sc1 4))) (let ((sc2 e-67)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Types-Prelude-C-43C-43 "((" (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-66) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-68) (Strings-Types-Prelude-C-43C-43 ") -> " (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "{" (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-66) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-68) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "{auto " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-66) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-68) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-89 (vector-ref sc2 1))) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Types-Prelude-C-43C-43 "{default " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-89) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-66) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-68) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-71 (vector-ref sc1 2))) (let ((e-72 (vector-ref sc1 3))) (let ((e-73 (vector-ref sc1 4))) (let ((sc2 e-72)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Types-Prelude-C-43C-43 "pat " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-71) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-73) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "{pat " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-71) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-73) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "{auto pat " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-71) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-73) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-76 (vector-ref sc1 2))) (let ((e-77 (vector-ref sc1 3))) (let ((e-78 (vector-ref sc1 4))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Types-Prelude-C-43C-43 "plet " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-76) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-78) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-77) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-81 (vector-ref sc1 2))) (let ((e-82 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Types-Prelude-C-43C-43 "pty " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-81) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-82) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-28) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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--6150-2963-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-31 (vector-ref sc1 2))) (let ((e-32 (vector-ref sc1 3))) (let ((e-33 (vector-ref sc1 4))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-2 e-31) (lambda () (Basics-Prelude-C-38C-38 (TT-Core-eqPiInfoBy 'erased 'erased arg-2 e-3 e-32) (lambda () ((arg-2 e-4) e-33)))))))))(else 1))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (let ((e-38 (vector-ref sc1 4))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-7 e-36) (lambda () (Basics-Prelude-C-38C-38 ((arg-2 e-8) e-37) (lambda () ((arg-2 e-9) e-38)))))))))(else 1))))))) ((2) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (let ((e-43 (vector-ref sc1 4))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-12 e-41) (lambda () (Basics-Prelude-C-38C-38 (TT-Core-eqPiInfoBy 'erased 'erased arg-2 e-13 e-42) (lambda () ((arg-2 e-14) e-43)))))))))(else 1))))))) ((3) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (let ((e-46 (vector-ref sc1 2))) (let ((e-47 (vector-ref sc1 3))) (let ((e-48 (vector-ref sc1 4))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-17 e-46) (lambda () (Basics-Prelude-C-38C-38 (TT-Core-eqPiInfoBy 'erased 'erased arg-2 e-18 e-47) (lambda () ((arg-2 e-19) e-48)))))))))(else 1))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((4) (let ((e-51 (vector-ref sc1 2))) (let ((e-52 (vector-ref sc1 3))) (let ((e-53 (vector-ref sc1 4))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-22 e-51) (lambda () (Basics-Prelude-C-38C-38 ((arg-2 e-23) e-52) (lambda () ((arg-2 e-24) e-53)))))))))(else 1))))))) ((5) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((5) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-27 e-56) (lambda () ((arg-2 e-28) e-57))))))(else 1))))))(else 1))))) -(define TT-Core-n--4789-1642-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) ((arg-2 e-4) e-9)))(else 1)))))(else 1))))) -(define TT-Core-n--8785-5352-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--8785-5352-getFA 'erased arg-1 (vector 1 e-3 arg-2) e-2))))(else (vector 0 arg-3 arg-2)))))) -(define TT-Core-n--11593-7840-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--11593-7840-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--11477-7746-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--11477-7746-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-n--7532-4331-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-Types-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-2) (Strings-Types-Prelude-C-43C-43 "; " (TT-Core-show_Show__Terminating arg-1))))))))))) +(define TT-Core-n--11676-7973-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (TT-Core-nameAt 'erased arg-2 e-5 'erased)) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat e-5) "]"))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "?" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-13) (Strings-Types-Prelude-C-43C-43 "_" (Show-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "\\" (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-55) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-57) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "let " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-59) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-61) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-60) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "((" (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Types-Prelude-C-43C-43 ") -> " (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "{" (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "{auto " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((3) (let ((e-83 (vector-ref sc2 1))) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Types-Prelude-C-43C-43 "{default " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-83) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "pat " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "{pat " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "{auto pat " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "plet " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-71) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-73) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-72) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "pty " (Strings-Types-Prelude-C-43C-43 (TT-Core-showCount e-75) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-76) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-28) (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " " (Types-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--8641-5293-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--8641-5293-getFA 'erased arg-1 (vector 1 e-3 arg-2) e-2))))(else (vector 0 arg-3 arg-2)))))) +(define TT-Core-n--6345-3319-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--6345-3320-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))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-1 e-24) (lambda () (Basics-Prelude-C-38C-38 (TT-Core-n--6345-3319-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))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-5 e-28) (lambda () (Basics-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))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-9 e-32) (lambda () (Basics-Prelude-C-38C-38 (TT-Core-n--6345-3319-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))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-13 e-36) (lambda () (Basics-Prelude-C-38C-38 (TT-Core-n--6345-3319-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))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-17 e-40) (lambda () (Basics-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))) (Basics-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--11446-7779-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--11446-7779-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--11332-7687-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--11332-7687-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 ext-0) (TT-Core-weakenNs_Weaken__Term arg-1 (vector 1 arg-0 (vector 0 )) ext-0))) (define TT-Core-weakenNs_Weaken__Var (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TT-Core-weaken_Weaken__Var e-2 (List-Types-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--7674-4388-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--7532-4331-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-Types-Prelude-C-43C-43 "possibly not terminating due to call to " (Name-Core-show_Show__Name e-3)))(else (Strings-Types-Prelude-C-43C-43 "possibly not terminating due to calls to " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-0)))))))))(else (Strings-Types-Prelude-C-43C-43 "possibly not terminating due to calls to " (Name-Core-showSep ", " (Types-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-Types-Prelude-C-43C-43 "possibly not terminating due to recursive path " (Name-Core-showSep " -> " (Types-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-Types-Prelude-C-43C-43 "not covering due to call to function " (Name-Core-show_Show__Name e-3)))(else (Strings-Types-Prelude-C-43C-43 "not covering due to calls to functions " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Types-Prelude-C-43C-43 "not covering due to calls to functions " (Name-Core-showSep ", " (Types-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))) (Show-Prelude-show_Show__Int e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (Show-Prelude-show_Show__Integer e-1))) ((2) (let ((e-2 (vector-ref sc0 1))) (Show-Prelude-show_Show__Int e-2))) ((3) (let ((e-3 (vector-ref sc0 1))) (Show-Prelude-show_Show__Int e-3))) ((4) (let ((e-4 (vector-ref sc0 1))) (Show-Prelude-show_Show__Int e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (Show-Prelude-show_Show__Integer e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (Show-Prelude-show_Show__String e-6))) ((7) (let ((e-7 (vector-ref sc0 1))) (Show-Prelude-show_Show__Char e-7))) ((8) (let ((e-8 (vector-ref sc0 1))) (Show-Prelude-show_Show__Double e-8))) ((9) "%MkWorld") ((10) "Int") ((11) "Integer") ((12) "Bits8") ((13) "Bits16") ((14) "Bits32") ((15) "Bits64") ((16) "String") ((17) "Char") ((18) "Double") (else "%World"))))) (define TT-Core-show_Show__C-40VarC-32C-36nsC-41 (lambda (arg-0 arg-1) (Show-Prelude-show_Show__Nat arg-1))) -(define TT-Core-show_Show__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1) (TT-Core-case--show-8684 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--show-8599 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-Types-Prelude-C-43C-43 "+" (TT-Core-show_Show__Constant e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "-" (TT-Core-show_Show__Constant e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "*" (TT-Core-show_Show__Constant e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "/" (TT-Core-show_Show__Constant e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "%" (TT-Core-show_Show__Constant e-4)))) ((5) (let ((e-5 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "neg " (TT-Core-show_Show__Constant e-5)))) ((6) (let ((e-6 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "shl " (TT-Core-show_Show__Constant e-6)))) ((7) (let ((e-7 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "shr " (TT-Core-show_Show__Constant e-7)))) ((8) (let ((e-8 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "and " (TT-Core-show_Show__Constant e-8)))) ((9) (let ((e-9 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "or " (TT-Core-show_Show__Constant e-9)))) ((10) (let ((e-10 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "xor " (TT-Core-show_Show__Constant e-10)))) ((11) (let ((e-11 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "<" (TT-Core-show_Show__Constant e-11)))) ((12) (let ((e-12 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "<=" (TT-Core-show_Show__Constant e-12)))) ((13) (let ((e-13 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "==" (TT-Core-show_Show__Constant e-13)))) ((14) (let ((e-14 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 ">=" (TT-Core-show_Show__Constant e-14)))) ((15) (let ((e-15 (vector-ref sc0 1))) (Strings-Types-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-Types-Prelude-C-43C-43 "cast-" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (Strings-Types-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-Types-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))) @@ -1426,9 +1404,9 @@ (define TT-Core-prettyPrec_Pretty__Totality (lambda (arg-0 arg-1 arg-2) (TT-Core-pretty_Pretty__Totality 'erased arg-2))) (define TT-Core-prettyPrec_Pretty__PartialReason (lambda (arg-0 arg-1 arg-2) (TT-Core-pretty_Pretty__PartialReason 'erased arg-2))) (define TT-Core-map_Functor__PiInfo (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (vector 1 )) ((0) (vector 0 )) ((2) (vector 2 )) (else (let ((e-4 (vector-ref sc0 1))) (vector 3 (arg-2 e-4)))))))) -(define TT-Core-map_Functor__Binder (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 0 e-1 e-2 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-3) (arg-2 e-4))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (vector 1 e-6 e-7 (arg-2 e-8) (arg-2 e-9))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 e-12 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-13) (arg-2 e-14))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 e-17 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-18) (arg-2 e-19))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (vector 4 e-21 e-22 (arg-2 e-23) (arg-2 e-24))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (vector 5 e-26 e-27 (arg-2 e-28)))))))))) -(define TT-Core-__Impl_Weaken_Var (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3641) (TT-Core-weaken_Weaken__Var n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (TT-Core-weakenNs_Weaken__Var vars ns arg-3645))))))) -(define TT-Core-__Impl_Weaken_Term (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3641) (TT-Core-weaken_Weaken__Term n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (TT-Core-weakenNs_Weaken__Term vars ns arg-3645))))))) +(define TT-Core-map_Functor__Binder (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 0 e-1 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-2) (arg-2 e-3)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 (arg-2 e-6) (arg-2 e-7)))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 2 e-9 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-10) (arg-2 e-11)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (vector 3 e-13 (TT-Core-map_Functor__PiInfo 'erased 'erased arg-2 e-14) (arg-2 e-15)))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (vector 4 e-17 (arg-2 e-18) (arg-2 e-19)))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (vector 5 e-21 (arg-2 e-22))))))))) +(define TT-Core-__Impl_Weaken_Var (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3584) (TT-Core-weaken_Weaken__Var n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (TT-Core-weakenNs_Weaken__Var vars ns arg-3588))))))) +(define TT-Core-__Impl_Weaken_Term (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3584) (TT-Core-weaken_Weaken__Term n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (TT-Core-weakenNs_Weaken__Term vars ns arg-3588))))))) (define TT-Core-__Impl_Show_Totality (lambda () (vector 0 (lambda (x) (TT-Core-show_Show__Totality x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__Totality d x)))))) (define TT-Core-__Impl_Show_TotalReq (lambda () (vector 0 (lambda (x) (TT-Core-show_Show__TotalReq x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__TotalReq d x)))))) (define TT-Core-__Impl_Show_Covering (lambda () (vector 0 (lambda (x) (TT-Core-show_Show__Covering x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__Covering d x)))))) @@ -1437,9 +1415,9 @@ (define TT-Core-__Impl_Show_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))))) (define TT-Core-__Impl_Show_C-40PrimFnC-32C-36arityC-41 (lambda (arg-0) (vector 0 (lambda (x) (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40PrimFnC-32C-36arityC-41 'erased d x)))))) (define TT-Core-__Impl_Show_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased arg-1 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased arg-1 d x)))))) -(define TT-Core-__Impl_Pretty_Visibility (lambda () (vector 0 (lambda (ann) (lambda (arg-3265) (TT-Core-pretty_Pretty__Visibility 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (TT-Core-prettyPrec_Pretty__Visibility 'erased arg-3266 arg-3267))))))) -(define TT-Core-__Impl_Pretty_Totality (lambda () (vector 0 (lambda (ann) (lambda (arg-3265) (TT-Core-pretty_Pretty__Totality 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (TT-Core-prettyPrec_Pretty__Totality 'erased arg-3266 arg-3267))))))) -(define TT-Core-__Impl_Pretty_PartialReason (lambda () (vector 0 (lambda (ann) (lambda (arg-3265) (TT-Core-pretty_Pretty__PartialReason 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (TT-Core-prettyPrec_Pretty__PartialReason 'erased arg-3266 arg-3267))))))) +(define TT-Core-__Impl_Pretty_Visibility (lambda () (vector 0 (lambda (ann) (lambda (arg-3271) (TT-Core-pretty_Pretty__Visibility 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (TT-Core-prettyPrec_Pretty__Visibility 'erased arg-3272 arg-3273))))))) +(define TT-Core-__Impl_Pretty_Totality (lambda () (vector 0 (lambda (ann) (lambda (arg-3271) (TT-Core-pretty_Pretty__Totality 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (TT-Core-prettyPrec_Pretty__Totality 'erased arg-3272 arg-3273))))))) +(define TT-Core-__Impl_Pretty_PartialReason (lambda () (vector 0 (lambda (ann) (lambda (arg-3271) (TT-Core-pretty_Pretty__PartialReason 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (TT-Core-prettyPrec_Pretty__PartialReason 'erased arg-3272 arg-3273))))))) (define TT-Core-__Impl_Functor_Binder (lambda (ext-0 ext-1 ext-2 ext-3) (TT-Core-map_Functor__Binder 'erased 'erased ext-2 ext-3))) (define TT-Core-__Impl_Eq_Visibility (lambda () (vector 0 (lambda (arg-2) (lambda (arg-3) (TT-Core-C-61C-61_Eq__Visibility arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (TT-Core-C-47C-61_Eq__Visibility arg-4 arg-5)))))) (define TT-Core-__Impl_Eq_Constant (lambda () (vector 0 (lambda (arg-2) (lambda (arg-3) (TT-Core-C-61C-61_Eq__Constant arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (TT-Core-C-47C-61_Eq__Constant arg-4 arg-5)))))) @@ -1451,78 +1429,73 @@ (define TT-Core-C-61C-61_Eq__LazyReason (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1))))) (define TT-Core-C-61C-61_Eq__Constant (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (EqOrd-Prelude-C-61C-61_Eq__Int e-0 e-9)))(else 1))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (EqOrd-Prelude-C-61C-61_Eq__Integer e-1 e-10)))(else 1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (EqOrd-Prelude-C-61C-61_Eq__Int e-2 e-11)))(else 1))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-12 (vector-ref sc1 1))) (EqOrd-Prelude-C-61C-61_Eq__Int e-3 e-12)))(else 1))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-13 (vector-ref sc1 1))) (EqOrd-Prelude-C-61C-61_Eq__Int e-4 e-13)))(else 1))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-14 (vector-ref sc1 1))) (EqOrd-Prelude-C-61C-61_Eq__Integer e-5 e-14)))(else 1))))) ((6) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-15 (vector-ref sc1 1))) (EqOrd-Prelude-C-61C-61_Eq__String e-6 e-15)))(else 1))))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-16 (vector-ref sc1 1))) (EqOrd-Prelude-C-61C-61_Eq__Char e-7 e-16)))(else 1))))) ((8) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-17 (vector-ref sc1 1))) (EqOrd-Prelude-C-61C-61_Eq__Double e-8 e-17)))(else 1))))) ((9) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) 0)(else 1)))) ((10) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) 0)(else 1)))) ((11) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) 0)(else 1)))) ((12) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((12) 0)(else 1)))) ((13) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((13) 0)(else 1)))) ((14) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((14) 0)(else 1)))) ((15) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((15) 0)(else 1)))) ((16) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((16) 0)(else 1)))) ((17) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((17) 0)(else 1)))) ((18) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((18) 0)(else 1)))) ((19) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((19) 0)(else 1))))(else 1))))) (define TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-54 (vector-ref sc1 3))) (Types-Prelude-C-61C-61_Eq__Nat e-4 e-54)))(else 1))))) ((1) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 3))) (Name-Core-C-61C-61_Eq__Name e-9 e-59)))(else 1))))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((2) (let ((e-63 (vector-ref sc1 3))) (let ((e-64 (vector-ref sc1 4))) (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-13 e-63) (lambda () (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-4 arg-5)))) e-14 e-64))))))(else 1)))))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((3) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (Basics-Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-4 arg-5)))) e-18 e-68) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-19 (Builtin-believe_me 'erased 'erased e-69)))))))(else 1)))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (Basics-Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-22 e-72) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-23 e-73))))))(else 1)))))) ((5) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-77 (vector-ref sc1 3))) (let ((e-78 (vector-ref sc1 4))) (Basics-Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-27 e-77) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-28 e-78))))))(else 1)))))) ((6) (let ((e-32 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((6) (let ((e-82 (vector-ref sc1 3))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-32 e-82)))(else 1))))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-86 (vector-ref sc1 3))) (let ((e-87 (vector-ref sc1 4))) (Basics-Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-36 e-86) (lambda () (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-37 e-87))))))(else 1)))))) ((8) (let ((e-41 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-91 (vector-ref sc1 3))) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased e-41 e-91)))(else 1))))) ((9) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-94 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-44 e-94)))(else 1))))) ((10) (let ((e-47 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) (let ((e-97 (vector-ref sc1 2))) (EqOrd-Prelude-C-61C-61_Eq__Bool e-47 e-97)))(else 1))))) ((11) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))) -(define TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 ext-0 ext-1) (TT-Core-eqPiInfoBy 'erased '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 TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0 ext-1) (TT-Core-eqBinderBy 'erased '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 TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-4) e-9)))))(else 1)))))(else 1))))) +(define TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-1 e-24) (lambda () (Basics-Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 e-2 e-25) (lambda () (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 1))) ((e-5 e-3) e-26)))))))))))(else 1))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-5 e-28) (lambda () (Basics-Prelude-C-38C-38 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-6) e-29))) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-7) e-30)))))))))))(else 1))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-9 e-32) (lambda () (Basics-Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 e-10 e-33) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-11) e-34)))))))))))(else 1))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-13 e-36) (lambda () (Basics-Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 e-14 e-37) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-15) e-38)))))))))))(else 1))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((4) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-17 e-40) (lambda () (Basics-Prelude-C-38C-38 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-18) e-41))) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-19) e-42)))))))))))(else 1))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-21 e-44) (lambda () (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-22) e-45))))))))(else 1))))))(else 1))))) (define TT-Core-C-47C-61_Eq__Visibility (lambda (arg-0 arg-1) (Basics-Prelude-not (TT-Core-C-61C-61_Eq__Visibility arg-0 arg-1)))) (define TT-Core-C-47C-61_Eq__Constant (lambda (arg-0 arg-1) (Basics-Prelude-not (TT-Core-C-61C-61_Eq__Constant arg-0 arg-1)))) (define TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (Basics-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) (Basics-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) (Basics-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--weakenVar-4753 '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--weakenVar-4696 '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--weakenNVar-4521 '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--weakenNVar-4464 '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--varEmbedSub-6305 '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--varEmbedSub-6379 '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--varEmbedSub-6246 '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--varEmbedSub-6320 'erased 'erased 'erased e-9 'erased e-8 'erased idx 'erased 'erased (TT-Core-varEmbedSub 'erased 'erased 'erased e-8 e-9 'erased))))))))))))) (define TT-Core-unchecked (lambda () (vector 0 (vector 0 ) (vector 0 )))) (define SubstEnv-TT-Core-substs (lambda (arg-0 arg-1 arg-2 arg-3) (SubstEnv-TT-Core-substEnv arg-0 arg-1 (vector 0 ) arg-2 arg-3))) -(define TT-Core-substName (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (TT-Core-case--substName-7634 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 (Types-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--substName-7575 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 (Types-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 (Types-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))) (Types-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))) (Types-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--shrinkTerm-6012 '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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Types-Prelude-pure_Applicative__Maybe 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-156 arg-158)))))) (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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-18 arg-3) (lambda (bind-0) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-22 arg-3) (lambda (bind-0) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-27 arg-3) (lambda (bind-0) (Types-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))) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-36 arg-3) (lambda (bind-0) (Types-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))) (Types-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--shrinkTerm-5953 '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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Types-Prelude-pure_Applicative__Maybe 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-113 arg-115)))))) (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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-18 arg-3) (lambda (bind-0) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-22 arg-3) (lambda (bind-0) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-27 arg-3) (lambda (bind-0) (Types-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))) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-36 arg-3) (lambda (bind-0) (Types-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))) (Types-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) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 ))) ((0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) ((2) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-4 arg-3) (lambda (bind-0) (Types-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))) (let ((e-4 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-3 arg-3) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-4 arg-3) (lambda (bind-1) (vector 1 (vector 0 e-1 e-2 bind-0 bind-1))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-8 arg-3) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-9 arg-3) (lambda (bind-1) (vector 1 (vector 1 e-6 e-7 bind-0 bind-1))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-13 arg-3) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-14 arg-3) (lambda (bind-1) (vector 1 (vector 2 e-11 e-12 bind-0 bind-1))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-18 arg-3) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-19 arg-3) (lambda (bind-1) (vector 1 (vector 3 e-16 e-17 bind-0 bind-1))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-23 arg-3) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-24 arg-3) (lambda (bind-1) (vector 1 (vector 4 e-21 e-22 bind-0 bind-1))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-28 arg-3) (lambda (bind-0) (vector 1 (vector 5 e-26 e-27 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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-2 arg-3) (lambda (bind-0) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-6 arg-3) (lambda (bind-0) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-10 arg-3) (lambda (bind-0) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkPi 'erased 'erased e-14 arg-3) (lambda (bind-0) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-18 arg-3) (lambda (bind-0) (Types-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))) (Types-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) "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-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 0 e-1 arg-2 e-3 e-4))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (vector 1 e-6 arg-2 e-8 e-9))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (vector 2 e-11 arg-2 e-13 e-14))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 3 e-16 arg-2 e-18 e-19))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (vector 4 e-21 arg-2 e-23 e-24))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 3))) (vector 5 e-26 arg-2 e-28)))))))) +(define 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) (Types-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--resolveRef-6696 '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--resolveNames-7188 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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-resolveNames arg-0 eta-0)) e-8))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (vector 3 e-10 e-11 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-resolveNames arg-0 eta-0)) e-12) (TT-Core-resolveNames (vector 1 e-11 arg-0) e-13))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 4 e-15 (TT-Core-resolveNames arg-0 e-16) (TT-Core-resolveNames arg-0 e-17)))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 5 e-19 e-20 (TT-Core-resolveNames arg-0 e-21) (TT-Core-resolveNames arg-0 e-22))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 6 e-24 e-25 (TT-Core-resolveNames arg-0 e-26)))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 7 e-28 e-29 (TT-Core-resolveNames arg-0 e-30) (TT-Core-resolveNames arg-0 e-31))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 8 e-33 e-34 (TT-Core-resolveNames arg-0 e-35))))))(else arg-1))))) +(define TT-Core-resolveRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (TT-Core-case--resolveRef-6637 '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--resolveNames-7129 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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-resolveNames arg-0 eta-0)) e-8))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (vector 3 e-10 e-11 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (TT-Core-resolveNames arg-0 eta-0)) e-12) (TT-Core-resolveNames (vector 1 e-11 arg-0) e-13))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 4 e-15 (TT-Core-resolveNames arg-0 e-16) (TT-Core-resolveNames arg-0 e-17)))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 5 e-19 e-20 (TT-Core-resolveNames arg-0 e-21) (TT-Core-resolveNames arg-0 e-22))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 6 e-24 e-25 (TT-Core-resolveNames arg-0 e-26)))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 7 e-28 e-29 (TT-Core-resolveNames arg-0 e-30) (TT-Core-resolveNames arg-0 e-31))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (vector 8 e-33 e-34 (TT-Core-resolveNames arg-0 e-35))))))(else arg-1))))) (define TT-Core-renameVars (lambda (arg-0 arg-1 arg-2 arg-3) (Builtin-believe_me 'erased 'erased arg-3))) (define TT-Core-renameTop (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-3))) (define TT-Core-refsToLocals (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) arg-3)(else (TT-Core-mkLocals 'erased (vector 0 ) arg-1 arg-2 arg-3)))))(else (TT-Core-mkLocals 'erased (vector 0 ) arg-1 arg-2 arg-3)))))) (define TT-Core-refToLocal (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-refsToLocals 'erased (vector 1 arg-2 (vector 0 )) (vector 1 arg-2 arg-1 (vector 0 )) arg-3))) -(define TT-Core-piInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) e-3)) ((1) (vector 1 )) ((2) (let ((e-13 (vector-ref sc0 3))) e-13)) ((3) (let ((e-18 (vector-ref sc0 3))) e-18)) ((4) (vector 1 )) (else (vector 1 )))))) +(define TT-Core-piInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) e-2)) ((1) (vector 1 )) ((2) (let ((e-10 (vector-ref sc0 2))) e-10)) ((3) (let ((e-14 (vector-ref sc0 2))) e-14)) ((4) (vector 1 )) (else (vector 1 )))))) (define TT-Core-notCovering (lambda () (vector 0 (vector 0 ) (vector 1 (vector 0 ))))) (define TT-Core-nameAt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) e-1)(else (let ((e-3 (- arg-2 1))) (TT-Core-nameAt 'erased e-2 e-3 'erased)))))))))) -(define TT-Core-multiplicity (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) e-2)) ((1) (let ((e-7 (vector-ref sc0 2))) e-7)) ((2) (let ((e-12 (vector-ref sc0 2))) e-12)) ((3) (let ((e-17 (vector-ref sc0 2))) e-17)) ((4) (let ((e-22 (vector-ref sc0 2))) e-22)) (else (let ((e-27 (vector-ref sc0 2))) e-27)))))) -(define 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--mkLocals-6863 '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) (Types-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))) (Types-Prelude-maybe 'erased 'erased (lambda () (vector 2 e-11 e-12 e-13 (Types-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 arg-3) (vector 3 (FC-Core-emptyFC) (vector 2 "_" 0) (vector 2 arg-1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) arg-2) (TT-Core-weaken_Weaken__Term (vector 2 "_" 0) arg-0 arg-3)))) -(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--isVar-7122 e-2 e-3 arg-0 (Name-Core-nameEq arg-0 e-2))))))))) +(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--mkLocals-6804 '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) (Types-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))) (Types-Prelude-maybe 'erased 'erased (lambda () (vector 2 e-11 e-12 e-13 (Types-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (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--isVar-7063 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 TT-Core-isLet (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define TT-Core-isImplicit (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) 1)(else 0))))) ((0) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) 1)(else 0)))))(else 1))))) (define 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--insertVarNames-4837 '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--insertNames-4978 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 (Types-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--insertNVarNames-4925 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertNVarNames 'erased 'erased e-3 arg-3 e-4 'erased))))))))))))) +(define TT-Core-insertVarNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (TT-Core-weakenVar 'erased 'erased arg-3 arg-4 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-4 1))) (TT-Core-case--insertVarNames-4780 '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--insertNames-4921 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 (Types-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--insertNVarNames-4868 'erased 'erased e-2 e-3 e-4 'erased arg-3 (TT-Core-insertNVarNames 'erased 'erased e-3 arg-3 e-4 'erased))))))))))))) (define TT-Core-getRefs (lambda (arg-0 arg-1 arg-2) (TT-Core-addRefs 'erased 1 arg-1 (NameMap-Data-empty 'erased) arg-2))) (define TT-Core-getMetas (lambda (arg-0 arg-1) (TT-Core-addMetas 'erased (NameMap-Data-empty 'erased) arg-1))) (define TT-Core-getLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) e-2)) ((1) (let ((e-7 (vector-ref sc0 1))) e-7)) ((2) (let ((e-11 (vector-ref sc0 1))) e-11)) ((3) (let ((e-16 (vector-ref sc0 1))) e-16)) ((4) (let ((e-21 (vector-ref sc0 1))) e-21)) ((5) (let ((e-25 (vector-ref sc0 1))) e-25)) ((6) (let ((e-30 (vector-ref sc0 1))) e-30)) ((7) (let ((e-34 (vector-ref sc0 1))) e-34)) ((8) (let ((e-39 (vector-ref sc0 1))) e-39)) ((9) (let ((e-43 (vector-ref sc0 1))) e-43)) ((10) (let ((e-46 (vector-ref sc0 1))) e-46)) (else (let ((e-49 (vector-ref sc0 1))) e-49)))))) -(define TT-Core-getFnArgs (lambda (arg-0 arg-1) (TT-Core-n--8785-5352-getFA 'erased arg-1 (vector 0 ) arg-1))) +(define TT-Core-getFnArgs (lambda (arg-0 arg-1) (TT-Core-n--8641-5293-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-Types-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))) (Types-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))) (Basics-Prelude-C-38C-38 (EqOrd-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-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (Basics-Prelude-C-38C-38 (TT-Core-eqBinderBy 'erased 'erased (lambda (eta-0) (lambda (eta-1) (TT-Core-eqTerm 'erased 'erased eta-0 eta-1))) 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))) (Basics-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))) (Basics-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))) (Basics-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))) (EqOrd-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-eqPiInfoBy (lambda (arg-0 arg-1 arg-2 ext-0 ext-1) (TT-Core-n--4789-1642-go 'erased 'erased arg-2 ext-0 ext-1))) -(define TT-Core-eqBinderBy (lambda (arg-0 arg-1 arg-2 ext-0 ext-1) (TT-Core-n--6150-2963-go 'erased 'erased arg-2 ext-0 ext-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--embedSub-6430 '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 (Types-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))) (Types-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))) (Basics-Prelude-C-38C-38 (EqOrd-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))) (Basics-Prelude-C-38C-38 (TT-Core-n--6345-3320-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))) (Basics-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))) (Basics-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))) (Basics-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))) (EqOrd-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--embedSub-6371 '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 (Types-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--constantEq-739 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--constantEq-771 e-1 e-6 (Equality-Decidable-decEq_DecEq__Integer e-1 e-6))))(else (vector 0 )))))) ((6) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (let ((e-7 (vector-ref sc1 1))) (TT-Core-case--constantEq-803 e-2 e-7 (Equality-Decidable-decEq_DecEq__String e-2 e-7))))(else (vector 0 )))))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-8 (vector-ref sc1 1))) (TT-Core-case--constantEq-835 e-3 e-8 (Equality-Decidable-decEq_DecEq__Char e-3 e-8))))(else (vector 0 )))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (vector 0 ))(else (vector 0 ))))) ((9) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((9) (vector 1 (vector 0 )))(else (vector 0 ))))) ((10) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((10) (vector 1 (vector 0 )))(else (vector 0 ))))) ((11) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (vector 1 (vector 0 )))(else (vector 0 ))))) ((16) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((16) (vector 1 (vector 0 )))(else (vector 0 ))))) ((17) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((17) (vector 1 (vector 0 )))(else (vector 0 ))))) ((18) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((18) (vector 1 (vector 0 )))(else (vector 0 ))))) ((19) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((19) (vector 1 (vector 0 )))(else (vector 0 )))))(else (vector 0 )))))) (define TT-Core-constTag (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((10) 3) ((11) 4) ((12) 5) ((13) 6) ((14) 7) ((15) 8) ((16) 9) ((17) 10) ((18) 11) ((19) 12)(else 0))))) (define TT-Core-compatible (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) 0)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) 0)(else (TT-Core-C-61C-61_Eq__LazyReason arg-0 arg-1))))))))) -(define TT-Core-binderType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 4))) e-4)) ((1) (let ((e-9 (vector-ref sc0 4))) e-9)) ((2) (let ((e-14 (vector-ref sc0 4))) e-14)) ((3) (let ((e-19 (vector-ref sc0 4))) e-19)) ((4) (let ((e-24 (vector-ref sc0 4))) e-24)) (else (let ((e-28 (vector-ref sc0 3))) e-28)))))) -(define TT-Core-binderLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) e-1)) ((1) (let ((e-6 (vector-ref sc0 1))) e-6)) ((2) (let ((e-11 (vector-ref sc0 1))) e-11)) ((3) (let ((e-16 (vector-ref sc0 1))) e-16)) ((4) (let ((e-21 (vector-ref sc0 1))) e-21)) (else (let ((e-26 (vector-ref sc0 1))) e-26)))))) +(define 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--addVars-6639 '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--11593-7840-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-53 (vector-ref sc1 3))) (let ((e-54 (vector-ref sc1 4))) (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-53) e-54) 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-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (let ((e-58 (vector-ref sc1 3))) (let ((sc2 e-57)) (case (vector-ref sc2 0) ((1) (let ((e-60 (vector-ref sc2 1))) (let ((e-61 (vector-ref sc2 2))) (let ((e-62 (vector-ref sc2 3))) (TT-Core-case--addRefs-7889 'erased e-21 e-56 e-61 e-62 e-60 e-58 e-23 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-62 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--11477-7746-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-53 (vector-ref sc1 3))) (let ((e-54 (vector-ref sc1 4))) (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased (TT-Core-addMetas 'erased arg-1 e-53) e-54) 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--addVars-6580 '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--11446-7779-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--addRefs-7826 '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--11332-7687-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--glb-405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-3) (else arg-2))))) @@ -1569,28 +1542,28 @@ (define ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (lambda (arg-0 arg-1) (Basics-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 Util-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32wordsC-44helper-6677 (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 e-2 (Util-Prettyprinter-PrettyPrint-Text-n--2578-6649-helper 'erased arg-1 e-3))))))) -(define Util-Prettyprinter-PrettyPrint-Text-case--wordsC-44helper-6656 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Util-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32wordsC-44helper-6677 'erased arg-1 arg-2 arg-3 (List-Data-break 'erased (lambda (eta-0) (Types-Prelude-isSpace eta-0)) arg-3))))))) -(define Util-Prettyprinter-PrettyPrint-Text-n--2578-6649-helper (lambda (arg-0 arg-1 arg-2) (Util-Prettyprinter-PrettyPrint-Text-case--wordsC-44helper-6656 'erased arg-1 arg-2 (List-Data-dropWhile 'erased (lambda (eta-0) (Types-Prelude-isSpace eta-0)) arg-2)))) -(define Util-Prettyprinter-PrettyPrint-Text-words (lambda (arg-0 arg-1) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Types-Prelude-pack eta-0)) (Util-Prettyprinter-PrettyPrint-Text-n--2578-6649-helper 'erased arg-1 (Types-Prelude-unpack arg-1)))))) +(define Util-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32wordsC-44helper-6683 (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 e-2 (Util-Prettyprinter-PrettyPrint-Text-n--2469-6655-helper 'erased arg-1 e-3))))))) +(define Util-Prettyprinter-PrettyPrint-Text-case--wordsC-44helper-6662 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Util-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32wordsC-44helper-6683 'erased arg-1 arg-2 arg-3 (List-Data-break 'erased (lambda (eta-0) (Types-Prelude-isSpace eta-0)) arg-3))))))) +(define Util-Prettyprinter-PrettyPrint-Text-n--2469-6655-helper (lambda (arg-0 arg-1 arg-2) (Util-Prettyprinter-PrettyPrint-Text-case--wordsC-44helper-6662 'erased arg-1 arg-2 (List-Data-dropWhile 'erased (lambda (eta-0) (Types-Prelude-isSpace eta-0)) arg-2)))) +(define Util-Prettyprinter-PrettyPrint-Text-words (lambda (arg-0 arg-1) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Types-Prelude-pack eta-0)) (Util-Prettyprinter-PrettyPrint-Text-n--2469-6655-helper 'erased arg-1 (Types-Prelude-unpack arg-1)))))) (define Util-Prettyprinter-PrettyPrint-Text-reflow (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-fillSep 'erased (Util-Prettyprinter-PrettyPrint-Text-words 'erased ext-0)))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32fits-5922 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 0) ((1) (let ((e-3 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased (Num-Prelude-C-45_Neg__Int arg-2 1) (e-3)))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased (Num-Prelude-C-45_Neg__Int arg-2 e-5) (e-7))))) ((3) 0) ((4) (let ((e-13 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased arg-2 e-13))) (else (let ((e-15 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased arg-2 e-15))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--fits-5904 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) 1) (else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0) ((1) (let ((e-3 (vector-ref sc1 2))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased (Num-Prelude-C-45_Neg__Int arg-2 1) (e-3)))) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 3))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased (Num-Prelude-C-45_Neg__Int arg-2 e-5) (e-7))))) ((3) 0) ((4) (let ((e-13 (vector-ref sc1 2))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased arg-2 e-13))) (else (let ((e-15 (vector-ref sc1 1))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased arg-2 e-15)))))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--layoutWadlerLeijenC-44best-5733 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) 0) ((3) 0)(else arg-5))))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--layoutWadlerLeijenC-44selectNicer-5654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) arg-5) (else (arg-4)))))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32round-5572 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Types-Prelude-cast_Cast__Double_Int (Types-Prelude-ceiling arg-0))) (else (Types-Prelude-cast_Cast__Double_Int (Types-Prelude-floor arg-0))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32round-5548 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Types-Prelude-cast_Cast__Double_Int (Types-Prelude-floor arg-0))) (else (Types-Prelude-cast_Cast__Double_Int (Types-Prelude-ceiling arg-0))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--round-5536 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32round-5548 arg-0 (EqOrd-Prelude-C-60_Ord__Double (Num-Prelude-C-45_Neg__Double arg-0 (Types-Prelude-floor arg-0)) 0.5))) (else (Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32round-5572 arg-0 (EqOrd-Prelude-C-60_Ord__Double (Num-Prelude-C-45_Neg__Double (Types-Prelude-ceiling arg-0) arg-0) 0.5))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32unsafeTextWithoutNewLines-2983 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-2)) (else (vector 2 (Types-Prelude-cast_Cast__Nat_Int (Strings-Types-Prelude-length arg-3)) arg-3)))))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--unsafeTextWithoutNewLines-2965 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (vector 0 ))(else (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((str (string-cons e-0 e-1))) (Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32unsafeTextWithoutNewLines-2983 'erased e-1 e-0 str (EqOrd-Prelude-C-61C-61_Eq__String e-1 ""))))))))))(else (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((str (string-cons e-0 e-1))) (Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32unsafeTextWithoutNewLines-2983 'erased e-1 e-0 str (EqOrd-Prelude-C-61C-61_Eq__String e-1 ""))))))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--group-2595 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (vector 7 (lambda () e-1) (lambda () arg-1)))) ((1) arg-1) (else arg-1))))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--group-2561 (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))) (vector 7 (lambda () e-1) arg-2))) ((1) (vector 7 arg-1 arg-2)) (else (arg-2)))))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--changesUponFlattening-2372 (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) ((2) (vector 2 ))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (vector 2 ))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 (vector 5 e-5 e-8)))) (else (vector 0 (vector 5 e-5 arg-1))))))) (else (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 1))) (vector 0 (vector 5 arg-2 e-11)))) (else (vector 1 )))))))))))))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32spaces-2184 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 #\ )) (else (vector 2 arg-1 (Doc-Prettyprinter-PrettyPrint-Text-textSpaces arg-1))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-case--spaces-2164 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 )) (else (Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32spaces-2184 'erased arg-1 (EqOrd-Prelude-C-61C-61_Eq__Int arg-1 1))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-n--5646-5629-selectNicer (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Doc-Prettyprinter-PrettyPrint-Text-case--layoutWadlerLeijenC-44selectNicer-5654 'erased arg-1 arg-2 arg-3 arg-7 arg-6 arg-5 arg-4 ((((arg-3 arg-4) arg-5) (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5628-initialIndentation 'erased arg-1 arg-2 arg-3 (arg-7))) arg-6)))) -(define Doc-Prettyprinter-PrettyPrint-Text-n--5646-5628-initialIndentation (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))) (vector 1 e-1))) ((4) (let ((e-5 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5628-initialIndentation 'erased arg-1 arg-2 arg-3 e-5))) ((5) (let ((e-7 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5628-initialIndentation 'erased arg-1 arg-2 arg-3 e-7)))(else (vector 0 )))))) -(define Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best (lambda (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 )) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-2)))) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-6)) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 1 e-9 (lambda () (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 arg-4 (b+ arg-5 1 63) e-6))))) ((2) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (vector 2 e-11 e-12 (lambda () (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 arg-4 (b+ arg-5 e-11 63) e-6)))))) ((3) (let ((x (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 e-4 e-4 e-6))) (let ((iC-39 (let ((sc2 x)) (case (vector-ref sc2 0) ((0) 0) ((3) 0)(else e-4))))) (vector 3 iC-39 x)))) ((4) (let ((e-15 (vector-ref sc1 1))) (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-15) e-6)))) ((5) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 e-18 (vector 1 e-4 e-19 e-6)))))) ((6) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 (b+ e-4 e-21 63) e-22 e-6))))) ((7) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((xC-39 (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-24) e-6)))) (let ((yC-39 ((Builtin-delay 'erased (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-25) e-6)))))) (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5629-selectNicer 'erased arg-1 arg-2 arg-3 arg-4 arg-5 xC-39 (lambda () yC-39))))))) ((8) (let ((e-27 (vector-ref sc1 1))) (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-27 arg-5) e-6)))) ((9) (let ((e-29 (vector-ref sc1 1))) (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-29 arg-2) e-6)))) ((10) (let ((e-31 (vector-ref sc1 1))) (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-31 e-4) e-6)))) (else (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (vector 4 e-33 (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 e-34 (vector 2 e-6))))))))))))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32fits-5928 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 0) ((1) (let ((e-3 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased (Num-Prelude-C-45_Neg__Int arg-2 1) (e-3)))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased (Num-Prelude-C-45_Neg__Int arg-2 e-5) (e-7))))) ((3) 0) ((4) (let ((e-13 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased arg-2 e-13))) (else (let ((e-15 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased arg-2 e-15))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--fits-5910 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) 1) (else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0) ((1) (let ((e-3 (vector-ref sc1 2))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased (Num-Prelude-C-45_Neg__Int arg-2 1) (e-3)))) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 3))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased (Num-Prelude-C-45_Neg__Int arg-2 e-5) (e-7))))) ((3) 0) ((4) (let ((e-13 (vector-ref sc1 2))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased arg-2 e-13))) (else (let ((e-15 (vector-ref sc1 1))) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased arg-2 e-15)))))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--layoutWadlerLeijenC-44best-5739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) 0) ((3) 0)(else arg-5))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--layoutWadlerLeijenC-44selectNicer-5660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) arg-5) (else (arg-4)))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32round-5578 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Types-Prelude-cast_Cast__Double_Int (Types-Prelude-ceiling arg-0))) (else (Types-Prelude-cast_Cast__Double_Int (Types-Prelude-floor arg-0))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32round-5554 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Types-Prelude-cast_Cast__Double_Int (Types-Prelude-floor arg-0))) (else (Types-Prelude-cast_Cast__Double_Int (Types-Prelude-ceiling arg-0))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--round-5542 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32round-5554 arg-0 (EqOrd-Prelude-C-60_Ord__Double (Num-Prelude-C-45_Neg__Double arg-0 (Types-Prelude-floor arg-0)) 0.5))) (else (Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32round-5578 arg-0 (EqOrd-Prelude-C-60_Ord__Double (Num-Prelude-C-45_Neg__Double (Types-Prelude-ceiling arg-0) arg-0) 0.5))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32unsafeTextWithoutNewLines-2989 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 arg-2)) (else (vector 2 (Types-Prelude-cast_Cast__Nat_Int (Strings-Types-Prelude-length arg-3)) arg-3)))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--unsafeTextWithoutNewLines-2971 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (vector 0 ))(else (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((str (string-cons e-0 e-1))) (Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32unsafeTextWithoutNewLines-2989 'erased e-1 e-0 str (EqOrd-Prelude-C-61C-61_Eq__String e-1 ""))))))))))(else (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((str (string-cons e-0 e-1))) (Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32unsafeTextWithoutNewLines-2989 'erased e-1 e-0 str (EqOrd-Prelude-C-61C-61_Eq__String e-1 ""))))))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--group-2601 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (vector 7 (lambda () e-1) (lambda () arg-1)))) ((1) arg-1) (else arg-1))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--group-2567 (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))) (vector 7 (lambda () e-1) arg-2))) ((1) (vector 7 arg-1 arg-2)) (else (arg-2)))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--changesUponFlattening-2378 (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) ((2) (vector 2 ))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (vector 2 ))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 (vector 5 e-5 e-8)))) (else (vector 0 (vector 5 e-5 arg-1))))))) (else (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 1))) (vector 0 (vector 5 arg-2 e-11)))) (else (vector 1 )))))))))))))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32spaces-2190 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 #\ )) (else (vector 2 arg-1 (Doc-Prettyprinter-PrettyPrint-Text-textSpaces arg-1))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-case--spaces-2170 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 )) (else (Doc-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32spaces-2190 'erased arg-1 (EqOrd-Prelude-C-61C-61_Eq__Int arg-1 1))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-n--5537-5635-selectNicer (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Doc-Prettyprinter-PrettyPrint-Text-case--layoutWadlerLeijenC-44selectNicer-5660 'erased arg-1 arg-2 arg-3 arg-7 arg-6 arg-5 arg-4 ((((arg-3 arg-4) arg-5) (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5634-initialIndentation 'erased arg-1 arg-2 arg-3 (arg-7))) arg-6)))) +(define Doc-Prettyprinter-PrettyPrint-Text-n--5537-5634-initialIndentation (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))) (vector 1 e-1))) ((4) (let ((e-5 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5634-initialIndentation 'erased arg-1 arg-2 arg-3 e-5))) ((5) (let ((e-7 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5634-initialIndentation 'erased arg-1 arg-2 arg-3 e-7)))(else (vector 0 )))))) +(define Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best (lambda (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 )) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-2)))) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-6)) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 1 e-9 (lambda () (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 arg-4 (b+ arg-5 1 63) e-6))))) ((2) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (vector 2 e-11 e-12 (lambda () (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 arg-4 (b+ arg-5 e-11 63) e-6)))))) ((3) (let ((x (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 e-4 e-4 e-6))) (let ((iC-39 (let ((sc2 x)) (case (vector-ref sc2 0) ((0) 0) ((3) 0)(else e-4))))) (vector 3 iC-39 x)))) ((4) (let ((e-15 (vector-ref sc1 1))) (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-15) e-6)))) ((5) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 e-18 (vector 1 e-4 e-19 e-6)))))) ((6) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 (b+ e-4 e-21 63) e-22 e-6))))) ((7) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (let ((xC-39 (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-24) e-6)))) (let ((yC-39 ((Builtin-delay 'erased (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-25) e-6)))))) (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5635-selectNicer 'erased arg-1 arg-2 arg-3 arg-4 arg-5 xC-39 (lambda () yC-39))))))) ((8) (let ((e-27 (vector-ref sc1 1))) (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-27 arg-5) e-6)))) ((9) (let ((e-29 (vector-ref sc1 1))) (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-29 arg-2) e-6)))) ((10) (let ((e-31 (vector-ref sc1 1))) (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 (e-31 e-4) e-6)))) (else (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (vector 4 e-33 (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-4 e-34 (vector 2 e-6))))))))))))))))) (define Doc-Prettyprinter-PrettyPrint-Text-show_Show__C-40DocC-32C-36annC-41 (lambda (arg-0 arg-1) ((Doc-Prettyprinter-PrettyPrint-Text-renderShow 'erased ((Doc-Prettyprinter-PrettyPrint-Text-layoutPretty 'erased (Doc-Prettyprinter-PrettyPrint-Text-defaultLayoutOptions)) arg-1)) ""))) (define Doc-Prettyprinter-PrettyPrint-Text-showPrec_Show__C-40DocC-32C-36annC-41 (lambda (arg-0 arg-1 arg-2) (Doc-Prettyprinter-PrettyPrint-Text-show_Show__C-40DocC-32C-36annC-41 'erased arg-2))) (define Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines ext-0))))) @@ -1614,25 +1587,25 @@ (define Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased ext-0))) (define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Show_C-40DocC-32C-36annC-41 (lambda (arg-0) (vector 0 (lambda (x) (Doc-Prettyprinter-PrettyPrint-Text-show_Show__C-40DocC-32C-36annC-41 'erased x)) (lambda (d) (lambda (x) (Doc-Prettyprinter-PrettyPrint-Text-showPrec_Show__C-40DocC-32C-36annC-41 'erased d x)))))) (define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Semigroup_C-40DocC-32C-36annC-41 (lambda (arg-0 ext-0 ext-1) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased ext-0 ext-1))) -(define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Pretty_String (lambda () (vector 0 (lambda (ann) (lambda (arg-3265) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__String 'erased arg-3266 arg-3267))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Pretty_Nat (lambda () (vector 0 (lambda (ann) (lambda (arg-3265) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__Nat 'erased arg-3266 arg-3267))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Pretty_Int (lambda () (vector 0 (lambda (ann) (lambda (arg-3265) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__Int 'erased arg-3266 arg-3267))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Pretty_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (ann) (lambda (arg-3265) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased 'erased arg-2 arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased 'erased arg-2 arg-3266 arg-3267))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Pretty_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (ann) (lambda (arg-3265) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40MaybeC-32C-36aC-41 'erased 'erased arg-1 arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__C-40MaybeC-32C-36aC-41 'erased 'erased arg-1 arg-3266 arg-3267))))))) -(define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Pretty_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (ann) (lambda (arg-3265) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40ListC-32C-36aC-41 'erased 'erased arg-1 arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__C-40ListC-32C-36aC-41 'erased 'erased arg-1 arg-3266 arg-3267))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Pretty_String (lambda () (vector 0 (lambda (ann) (lambda (arg-3271) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__String 'erased arg-3272 arg-3273))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Pretty_Nat (lambda () (vector 0 (lambda (ann) (lambda (arg-3271) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__Nat 'erased arg-3272 arg-3273))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Pretty_Int (lambda () (vector 0 (lambda (ann) (lambda (arg-3271) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__Int 'erased arg-3272 arg-3273))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Pretty_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (ann) (lambda (arg-3271) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased 'erased arg-2 arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased 'erased arg-2 arg-3272 arg-3273))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Pretty_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (ann) (lambda (arg-3271) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40MaybeC-32C-36aC-41 'erased 'erased arg-1 arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__C-40MaybeC-32C-36aC-41 'erased 'erased arg-1 arg-3272 arg-3273))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Pretty_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (ann) (lambda (arg-3271) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40ListC-32C-36aC-41 'erased 'erased arg-1 arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__C-40ListC-32C-36aC-41 'erased 'erased arg-1 arg-3272 arg-3273))))))) (define Doc-Prettyprinter-PrettyPrint-Text-__Impl_Monoid_C-40DocC-32C-36annC-41 (lambda (arg-0) (vector 0 (lambda (arg-2) (lambda (arg-3) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased arg-2 arg-3))) (Doc-Prettyprinter-PrettyPrint-Text-neutral_Monoid__C-40DocC-32C-36annC-41 'erased)))) (define Doc-Prettyprinter-PrettyPrint-Text-__Impl_FromString_C-40DocC-32C-36annC-41 (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased ext-0))) (define Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 (lambda (arg-0 ext-0 ext-1) (vector 5 ext-0 ext-1))) (define Doc-Prettyprinter-PrettyPrint-Text-vsep (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (x) (lambda (y) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased x (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) y))) ext-0))) (define Doc-Prettyprinter-PrettyPrint-Text-vcat (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (x) (lambda (y) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased x (Doc-Prettyprinter-PrettyPrint-Text-lineC-39 'erased)) y))) ext-0))) -(define Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines (lambda (arg-0 arg-1) (Doc-Prettyprinter-PrettyPrint-Text-case--unsafeTextWithoutNewLines-2965 'erased arg-1 (Strings-Data-strM arg-1)))) +(define Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines (lambda (arg-0 arg-1) (Doc-Prettyprinter-PrettyPrint-Text-case--unsafeTextWithoutNewLines-2971 'erased arg-1 (Strings-Data-strM arg-1)))) (define Doc-Prettyprinter-PrettyPrint-Text-unAnnotateS (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))) (vector 1 e-2 (lambda () (Doc-Prettyprinter-PrettyPrint-Text-unAnnotateS 'erased 'erased (e-3))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 e-6 (lambda () (Doc-Prettyprinter-PrettyPrint-Text-unAnnotateS 'erased 'erased (e-7)))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 3 e-9 (Doc-Prettyprinter-PrettyPrint-Text-unAnnotateS 'erased 'erased e-10))))) ((4) (let ((e-13 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-unAnnotateS 'erased 'erased e-13))) (else (let ((e-15 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-unAnnotateS 'erased 'erased e-15))))))) (define Doc-Prettyprinter-PrettyPrint-Text-tupled (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-encloseSep 'erased (Doc-Prettyprinter-PrettyPrint-Text-flatAlt 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "( ")) (lambda () (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "("))) (Doc-Prettyprinter-PrettyPrint-Text-flatAlt 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased " )")) (lambda () (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased ")"))) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased ", ") ext-0)))) (define Doc-Prettyprinter-PrettyPrint-Text-textSpaces (lambda (arg-0) (Extra-String-Data-replicate (Types-Prelude-cast_Cast__Int_Integer arg-0) #\ ))) (define Doc-Prettyprinter-PrettyPrint-Text-surround (lambda (arg-0 arg-1 arg-2 arg-3) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased arg-2 arg-1) arg-3))) -(define Doc-Prettyprinter-PrettyPrint-Text-spaces (lambda (arg-0 arg-1) (Doc-Prettyprinter-PrettyPrint-Text-case--spaces-2164 'erased arg-1 (EqOrd-Prelude-C-60C-61_Ord__Int arg-1 0)))) +(define Doc-Prettyprinter-PrettyPrint-Text-spaces (lambda (arg-0 arg-1) (Doc-Prettyprinter-PrettyPrint-Text-case--spaces-2170 'erased arg-1 (EqOrd-Prelude-C-60C-61_Ord__Int arg-1 0)))) (define Doc-Prettyprinter-PrettyPrint-Text-softline (lambda (arg-0) (vector 7 (lambda () (vector 1 #\ )) (lambda () (vector 3 ))))) -(define Doc-Prettyprinter-PrettyPrint-Text-round (lambda (arg-0) (Doc-Prettyprinter-PrettyPrint-Text-case--round-5536 arg-0 (EqOrd-Prelude-C-62_Ord__Double arg-0 (Num-Prelude-fromInteger_Num__Double 0))))) +(define Doc-Prettyprinter-PrettyPrint-Text-round (lambda (arg-0) (Doc-Prettyprinter-PrettyPrint-Text-case--round-5542 arg-0 (EqOrd-Prelude-C-62_Ord__Double arg-0 (Num-Prelude-fromInteger_Num__Double 0))))) (define Doc-Prettyprinter-PrettyPrint-Text-renderShow (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Types-Prelude-strCons e-2 ((Doc-Prettyprinter-PrettyPrint-Text-renderShow 'erased (e-3)) eta-0)))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (Strings-Types-Prelude-C-43C-43 e-6 ((Doc-Prettyprinter-PrettyPrint-Text-renderShow 'erased (e-7)) eta-0)))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (Strings-Types-Prelude-C-43C-43 (Types-Prelude-strCons (integer->char 10) (Doc-Prettyprinter-PrettyPrint-Text-textSpaces e-9)) ((Doc-Prettyprinter-PrettyPrint-Text-renderShow 'erased e-10) eta-0)))))) ((4) (let ((e-13 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-renderShow 'erased e-13))) (else (let ((e-15 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-renderShow 'erased e-15))))))) (define Doc-Prettyprinter-PrettyPrint-Text-remainingWidth (lambda (arg-0 arg-1 arg-2 arg-3) (let ((columnsLeftInLine (Num-Prelude-C-45_Neg__Int arg-0 arg-3))) (let ((ribbonWidth (EqOrd-Prelude-max_Ord__Int 0 (EqOrd-Prelude-min_Ord__Int arg-0 (Doc-Prettyprinter-PrettyPrint-Text-round (Num-Prelude-C-42_Num__Double (Types-Prelude-cast_Cast__Int_Double arg-0) arg-1)))))) (let ((columnsLeftInRibbon (Num-Prelude-C-45_Neg__Int (b+ arg-2 ribbonWidth 63) arg-3))) (EqOrd-Prelude-min_Ord__Int columnsLeftInLine columnsLeftInRibbon)))))) (define Doc-Prettyprinter-PrettyPrint-Text-reAnnotateS (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))) (vector 1 e-2 (lambda () (Doc-Prettyprinter-PrettyPrint-Text-reAnnotateS 'erased 'erased arg-2 (e-3))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 e-6 (lambda () (Doc-Prettyprinter-PrettyPrint-Text-reAnnotateS 'erased 'erased arg-2 (e-7)))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 3 e-9 (Doc-Prettyprinter-PrettyPrint-Text-reAnnotateS 'erased 'erased arg-2 e-10))))) ((4) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (vector 4 (arg-2 e-12) (Doc-Prettyprinter-PrettyPrint-Text-reAnnotateS 'erased 'erased arg-2 e-13))))) (else (let ((e-15 (vector-ref sc0 1))) (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-reAnnotateS 'erased 'erased arg-2 e-15)))))))) @@ -1643,17 +1616,17 @@ (define Doc-Prettyprinter-PrettyPrint-Text-list (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-encloseSep 'erased (Doc-Prettyprinter-PrettyPrint-Text-flatAlt 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "[ ")) (lambda () (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "["))) (Doc-Prettyprinter-PrettyPrint-Text-flatAlt 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased " ]")) (lambda () (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "]"))) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased ", ") ext-0)))) (define Doc-Prettyprinter-PrettyPrint-Text-lineC-39 (lambda (arg-0) (vector 4 (lambda () (vector 3 )) (lambda () (vector 0 ))))) (define Doc-Prettyprinter-PrettyPrint-Text-line (lambda (arg-0) (vector 4 (lambda () (vector 3 )) (lambda () (vector 1 #\ ))))) -(define Doc-Prettyprinter-PrettyPrint-Text-layoutWadlerLeijen (lambda (arg-0 arg-1 arg-2 arg-3) (Doc-Prettyprinter-PrettyPrint-Text-n--5646-5630-best 'erased arg-3 arg-2 arg-1 0 0 (vector 1 0 arg-3 (vector 0 ))))) -(define Doc-Prettyprinter-PrettyPrint-Text-layoutUnbounded (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-layoutWadlerLeijen 'erased (lambda (_-5878) (lambda (_-5880) (lambda (_-5882) (lambda (sdoc) 0)))) (vector 1 ) ext-0))) -(define Doc-Prettyprinter-PrettyPrint-Text-layoutPretty (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))) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-layoutWadlerLeijen 'erased (lambda (lineIndent) (lambda (currentColumn) (lambda (_-5980) (lambda (sdoc) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased (Doc-Prettyprinter-PrettyPrint-Text-remainingWidth e-1 e-2 lineIndent currentColumn) sdoc))))) arg-1 eta-0))))) (else (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-layoutUnbounded 'erased eta-0))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-layoutWadlerLeijen (lambda (arg-0 arg-1 arg-2 arg-3) (Doc-Prettyprinter-PrettyPrint-Text-n--5537-5636-best 'erased arg-3 arg-2 arg-1 0 0 (vector 1 0 arg-3 (vector 0 ))))) +(define Doc-Prettyprinter-PrettyPrint-Text-layoutUnbounded (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-layoutWadlerLeijen 'erased (lambda (_-5884) (lambda (_-5886) (lambda (_-5888) (lambda (sdoc) 0)))) (vector 1 ) ext-0))) +(define Doc-Prettyprinter-PrettyPrint-Text-layoutPretty (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))) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-layoutWadlerLeijen 'erased (lambda (lineIndent) (lambda (currentColumn) (lambda (_-5986) (lambda (sdoc) (Doc-Prettyprinter-PrettyPrint-Text-fits 'erased (Doc-Prettyprinter-PrettyPrint-Text-remainingWidth e-1 e-2 lineIndent currentColumn) sdoc))))) arg-1 eta-0))))) (else (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-layoutUnbounded 'erased eta-0))))))) (define Doc-Prettyprinter-PrettyPrint-Text-indent (lambda (arg-0 arg-1 arg-2) (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased arg-1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased arg-1) arg-2)))) (define Doc-Prettyprinter-PrettyPrint-Text-hsep (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased eta-0 eta-1))) ext-0))) (define Doc-Prettyprinter-PrettyPrint-Text-hardline (lambda (arg-0) (vector 3 ))) (define Doc-Prettyprinter-PrettyPrint-Text-hang (lambda (arg-0 arg-1 arg-2) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-nest 'erased arg-1 arg-2)))) -(define Doc-Prettyprinter-PrettyPrint-Text-group (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 7 e-1 e-2)))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-case--group-2561 'erased e-5 e-4 (Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening 'erased (e-5))))))(else (Doc-Prettyprinter-PrettyPrint-Text-case--group-2595 'erased arg-1 (Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening 'erased arg-1))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-group (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((7) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 7 e-1 e-2)))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-case--group-2567 'erased e-5 e-4 (Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening 'erased (e-5))))))(else (Doc-Prettyprinter-PrettyPrint-Text-case--group-2601 'erased arg-1 (Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening 'erased arg-1))))))) (define Doc-Prettyprinter-PrettyPrint-Text-flatten (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))) ((2) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 2 e-4 e-5)))) ((3) (vector 0 )) ((4) (let ((e-9 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased (e-9)))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased e-11) (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased e-12))))) ((6) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (vector 6 e-14 (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased e-15))))) ((7) (let ((e-17 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased (e-17)))) ((8) (let ((e-20 (vector-ref sc0 1))) (vector 8 (lambda (x) (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased (e-20 x)))))) ((9) (let ((e-22 (vector-ref sc0 1))) (vector 9 (lambda (x) (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased (e-22 x)))))) ((10) (let ((e-24 (vector-ref sc0 1))) (vector 10 (lambda (x) (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased (e-24 x)))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (vector 11 e-26 (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased e-27))))))))) (define Doc-Prettyprinter-PrettyPrint-Text-flatAlt (lambda (arg-0 ext-0 ext-1) (vector 4 ext-0 ext-1))) -(define Doc-Prettyprinter-PrettyPrint-Text-fits (lambda (arg-0 arg-1 arg-2) (Doc-Prettyprinter-PrettyPrint-Text-case--fits-5904 'erased arg-2 arg-1 (EqOrd-Prelude-C-60_Ord__Int arg-1 0)))) +(define Doc-Prettyprinter-PrettyPrint-Text-fits (lambda (arg-0 arg-1 arg-2) (Doc-Prettyprinter-PrettyPrint-Text-case--fits-5910 'erased arg-2 arg-1 (EqOrd-Prelude-C-60_Ord__Int arg-1 0)))) (define Doc-Prettyprinter-PrettyPrint-Text-fillSep (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (x) (lambda (y) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased x (Doc-Prettyprinter-PrettyPrint-Text-softline 'erased)) y))) ext-0))) (define Doc-Prettyprinter-PrettyPrint-Text-encloseSep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased arg-1 arg-2)) ((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) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased arg-1 e-2) arg-2))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-cat 'erased (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased eta-0 eta-1))) (vector 1 arg-1 (List-Data-replicate 'erased (Types-Prelude-minus (List-Types-Prelude-length 'erased arg-4) (+ 1 0)) arg-3)) arg-4)) arg-2)))))))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-cat 'erased (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased eta-0 eta-1))) (vector 1 arg-1 (List-Data-replicate 'erased (Types-Prelude-minus (List-Types-Prelude-length 'erased arg-4) (+ 1 0)) arg-3)) arg-4)) arg-2)))))) (define Doc-Prettyprinter-PrettyPrint-Text-enclose (lambda (arg-0 arg-1 arg-2 arg-3) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased arg-1 arg-3) arg-2))) @@ -1662,7 +1635,7 @@ (define Doc-Prettyprinter-PrettyPrint-Text-defaultLayoutOptions (lambda () (Doc-Prettyprinter-PrettyPrint-Text-defaultPageWidth))) (define Doc-Prettyprinter-PrettyPrint-Text-concatWith (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-neutral_Monoid__C-40DocC-32C-36annC-41 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-foldl_Foldable__List 'erased 'erased arg-1 e-2 e-3)))))))) (define Doc-Prettyprinter-PrettyPrint-Text-column (lambda (arg-0 ext-0) (vector 8 ext-0))) -(define Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 )) ((1) (vector 1 )) ((2) (vector 1 )) ((3) (vector 2 )) ((4) (let ((e-9 (vector-ref sc0 2))) (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased (e-9))))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-case--changesUponFlattening-2372 'erased e-12 e-11 (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening 'erased e-11) (Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening 'erased e-12)))))) ((6) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-map_Functor__FlattenResult 'erased 'erased (lambda (eta-0) (vector 6 e-14 eta-0)) (Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening 'erased e-15))))) ((7) (let ((e-17 (vector-ref sc0 1))) (vector 0 (e-17)))) ((8) (let ((e-20 (vector-ref sc0 1))) (vector 0 (vector 8 (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased (e-20 eta-0))))))) ((9) (let ((e-22 (vector-ref sc0 1))) (vector 0 (vector 9 (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased (e-22 eta-0))))))) ((10) (let ((e-24 (vector-ref sc0 1))) (vector 0 (vector 10 (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased (e-24 eta-0))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-map_Functor__FlattenResult 'erased 'erased (lambda (eta-0) (vector 11 e-26 eta-0)) (Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening 'erased e-27))))))))) +(define Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 )) ((1) (vector 1 )) ((2) (vector 1 )) ((3) (vector 2 )) ((4) (let ((e-9 (vector-ref sc0 2))) (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased (e-9))))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-case--changesUponFlattening-2378 'erased e-12 e-11 (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening 'erased e-11) (Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening 'erased e-12)))))) ((6) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-map_Functor__FlattenResult 'erased 'erased (lambda (eta-0) (vector 6 e-14 eta-0)) (Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening 'erased e-15))))) ((7) (let ((e-17 (vector-ref sc0 1))) (vector 0 (e-17)))) ((8) (let ((e-20 (vector-ref sc0 1))) (vector 0 (vector 8 (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased (e-20 eta-0))))))) ((9) (let ((e-22 (vector-ref sc0 1))) (vector 0 (vector 9 (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased (e-22 eta-0))))))) ((10) (let ((e-24 (vector-ref sc0 1))) (vector 0 (vector 10 (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-flatten 'erased (e-24 eta-0))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-map_Functor__FlattenResult 'erased 'erased (lambda (eta-0) (vector 11 e-26 eta-0)) (Doc-Prettyprinter-PrettyPrint-Text-changesUponFlattening 'erased e-27))))))))) (define Doc-Prettyprinter-PrettyPrint-Text-cat (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-vcat 'erased ext-0)))) (define Doc-Prettyprinter-PrettyPrint-Text-annotate (lambda (arg-0 ext-0 ext-1) (vector 11 ext-0 ext-1))) (define Doc-Prettyprinter-PrettyPrint-Text-align (lambda (arg-0 arg-1) (Doc-Prettyprinter-PrettyPrint-Text-column 'erased (lambda (k) (Doc-Prettyprinter-PrettyPrint-Text-nesting 'erased (lambda (i) (Doc-Prettyprinter-PrettyPrint-Text-nest 'erased (Num-Prelude-C-45_Neg__Int k i) arg-1))))))) @@ -1699,18 +1672,18 @@ (define Equality-Decidable-with--decEq-4340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (e-1 (Builtin-fst 'erased 'erased (List-Data-consInjective 'erased 'erased 'erased 'erased 'erased 'erased eta-0))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (Equality-Decidable-with--withC-32blockC-32inC-32decEq-4395 'erased arg-1 arg-6 arg-5 (Equality-Decidable-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 arg-5 arg-6) arg-2)))))))) (define Equality-Decidable-with--withC-32blockC-32inC-32decEq-4198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 0 (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (e-3 (Builtin-snd 'erased 'erased (Equality-Decidable-pairInjective 'erased 'erased 'erased 'erased 'erased 'erased eta-0))))))))))) (define Equality-Decidable-with--decEq-4129 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (e-1 (Builtin-fst 'erased 'erased (Equality-Decidable-pairInjective 'erased 'erased 'erased 'erased 'erased 'erased eta-0))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (Equality-Decidable-with--withC-32blockC-32inC-32decEq-4198 'erased 'erased arg-2 arg-6 arg-7 (((Builtin-snd 'erased 'erased arg-2) arg-6) arg-7) arg-3)))))))) -(define Equality-Decidable-case--decEq-4679 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--3410-4643-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--3410-4644-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) -(define Equality-Decidable-case--decEq-4615 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--3342-4579-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--3342-4580-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) -(define Equality-Decidable-case--decEq-4551 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--3274-4515-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--3274-4516-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) -(define Equality-Decidable-case--decEq-4487 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--3206-4451-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--3206-4452-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) -(define Equality-Decidable-n--3410-4644-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--3342-4580-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--3274-4516-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--3206-4452-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--3410-4643-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-n--3342-4579-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-n--3274-4515-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) -(define Equality-Decidable-n--3206-4451-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-case--decEq-4679 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--3301-4643-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--3301-4644-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) +(define Equality-Decidable-case--decEq-4615 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--3233-4579-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--3233-4580-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) +(define Equality-Decidable-case--decEq-4551 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--3165-4515-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--3165-4516-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) +(define Equality-Decidable-case--decEq-4487 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--3097-4451-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--3097-4452-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0)))))))) +(define Equality-Decidable-n--3301-4644-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--3233-4580-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--3165-4516-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--3097-4452-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--3301-4643-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-n--3233-4579-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-n--3165-4515-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 )))) +(define Equality-Decidable-n--3097-4451-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--decEq-4679 arg-1 arg-0 (EqOrd-Prelude-C-61C-61_Eq__String arg-0 arg-1)))) (define Equality-Decidable-decEq_DecEq__Integer (lambda (arg-0 arg-1) (Equality-Decidable-case--decEq-4615 arg-1 arg-0 (EqOrd-Prelude-C-61C-61_Eq__Integer arg-0 arg-1)))) (define Equality-Decidable-decEq_DecEq__Int (lambda (arg-0 arg-1) (Equality-Decidable-case--decEq-4487 arg-1 arg-0 (EqOrd-Prelude-C-61C-61_Eq__Int arg-0 arg-1)))) @@ -1726,7 +1699,7 @@ (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-9 (vector-ref sc1 1))) (vector 1 e-9 (Either-Data-rights 'erased 'erased e-3))))))))))))) (define Either-Data-maybeToEither (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) (else (vector 0 (arg-2))))))) (define Either-Data-lefts (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6 (Either-Data-lefts 'erased 'erased e-3)))) (else (Either-Data-lefts 'erased 'erased e-3))))))))))) -(define Vect-Data-n--3208-5323-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--3208-5323-go 'erased 'erased 'erased 'erased 'erased (vector 1 e-3 arg-5) e-4)))))))) +(define Vect-Data-n--3099-5323-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--3099-5323-go 'erased 'erased 'erased 'erased 'erased (vector 1 e-3 arg-5) e-4)))))))) (define Vect-Data-show_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (Show-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))))))))) @@ -1735,99 +1708,99 @@ (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--3208-5323-go 'erased 'erased 'erased 'erased 'erased (vector 0 ) arg-2))) +(define Vect-Data-reverse (lambda (arg-0 arg-1 arg-2) (Vect-Data-n--3099-5323-go 'erased 'erased 'erased 'erased 'erased (vector 0 ) arg-2))) (define Vect-Data-foldrImpl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (arg-5 arg-4)) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Vect-Data-foldrImpl 'erased 'erased 'erased arg-3 arg-4 (lambda (eta-0) (arg-5 ((arg-3 e-3) eta-0))) e-4)))))))) -(define NameMap-Data-case--delete-10669 (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--delete-10632 (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--insert-10547 (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-10349 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-10275 (lambda (arg-0 arg-1 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--caseC-32blockC-32inC-32treeDelete-10251 (lambda (arg-0 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-10275 '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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-10349 '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--caseC-32blockC-32inC-32treeDelete-10177 (lambda (arg-0 arg-1 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--treeDelete-10153 (lambda (arg-0 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--caseC-32blockC-32inC-32treeDelete-10177 '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--caseC-32blockC-32inC-32treeDelete-10251 '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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-10099 (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--caseC-32blockC-32inC-32treeDelete-10057 (lambda (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-9999 (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--caseC-32blockC-32inC-32treeDelete-9957 (lambda (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--treeDelete-9937 (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--caseC-32blockC-32inC-32treeDelete-9957 '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--caseC-32blockC-32inC-32treeDelete-10057 '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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-9875 (lambda (arg-0 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-9807 (lambda (arg-0 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--caseC-32blockC-32inC-32treeDelete-9785 (lambda (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-9807 '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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-9875 '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--caseC-32blockC-32inC-32treeDelete-9717 (lambda (arg-0 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--treeDelete-9695 (lambda (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--caseC-32blockC-32inC-32treeDelete-9717 '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--caseC-32blockC-32inC-32treeDelete-9785 '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--caseC-32blockC-32inC-32treeDelete-9645 (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--caseC-32blockC-32inC-32treeDelete-9591 (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--treeDelete-9573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (NameMap-Data-case--caseC-32blockC-32inC-32treeDelete-9591 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (NameMap-Data-case--caseC-32blockC-32inC-32treeDelete-9645 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-1))))))) -(define NameMap-Data-case--treeDelete-9525 (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--treeInsert-9456 (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-9359 (lambda (arg-0 arg-1 arg-2 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-9248 (lambda (arg-0 arg-1 arg-2 arg-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--caseC-32blockC-32inC-32treeInsertC-39-9217 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-9248 '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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-9359 '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--caseC-32blockC-32inC-32treeInsertC-39-9107 (lambda (arg-0 arg-1 arg-2 arg-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--treeInsertC-39-9076 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32treeInsertC-39-9107 '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--caseC-32blockC-32inC-32treeInsertC-39-9217 '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--caseC-32blockC-32inC-32treeInsertC-39-8998 (lambda (arg-0 arg-1 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--caseC-32blockC-32inC-32treeInsertC-39-8909 (lambda (arg-0 arg-1 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--treeInsertC-39-8882 (lambda (arg-0 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--caseC-32blockC-32inC-32treeInsertC-39-8909 '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--caseC-32blockC-32inC-32treeInsertC-39-8998 '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--treeInsertC-39-8780 (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--caseC-32blockC-32inC-32treeLookup-8719 (lambda (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--treeLookup-8672 (lambda (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--caseC-32blockC-32inC-32treeLookup-8719 '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--treeLookup-8624 (lambda (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--treeLookup-8581 (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--4249-10405-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--4249-10405-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4249-10405-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--4249-10405-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4249-10405-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4249-10405-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--4249-10405-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--treeLookup-8581 '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--treeLookup-8624 '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--treeLookup-8672 '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--treeInsertC-39-8780 '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--treeInsertC-39-8882 '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--treeInsertC-39-9076 '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--treeInsert-9456 '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--treeDelete-9525 '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--treeDelete-9573 '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--treeDelete-9695 '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--treeDelete-9937 '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--treeDelete-10153 '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--delete-10671 (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--delete-10634 (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--insert-10549 (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-10351 (lambda (arg-0 arg-1 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-10277 (lambda (arg-0 arg-1 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--caseC-32blockC-32inC-32treeDelete-10253 (lambda (arg-0 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-10277 '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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-10351 '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--caseC-32blockC-32inC-32treeDelete-10179 (lambda (arg-0 arg-1 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--treeDelete-10155 (lambda (arg-0 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--caseC-32blockC-32inC-32treeDelete-10179 '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--caseC-32blockC-32inC-32treeDelete-10253 '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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-10101 (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--caseC-32blockC-32inC-32treeDelete-10059 (lambda (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-10001 (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--caseC-32blockC-32inC-32treeDelete-9959 (lambda (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--treeDelete-9939 (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--caseC-32blockC-32inC-32treeDelete-9959 '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--caseC-32blockC-32inC-32treeDelete-10059 '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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-9877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-9809 (lambda (arg-0 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--caseC-32blockC-32inC-32treeDelete-9787 (lambda (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-9809 '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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeDelete-9877 '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--caseC-32blockC-32inC-32treeDelete-9719 (lambda (arg-0 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--treeDelete-9697 (lambda (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--caseC-32blockC-32inC-32treeDelete-9719 '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--caseC-32blockC-32inC-32treeDelete-9787 '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--caseC-32blockC-32inC-32treeDelete-9647 (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--caseC-32blockC-32inC-32treeDelete-9593 (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--treeDelete-9575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (NameMap-Data-case--caseC-32blockC-32inC-32treeDelete-9593 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (NameMap-Data-case--caseC-32blockC-32inC-32treeDelete-9647 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-1))))))) +(define NameMap-Data-case--treeDelete-9527 (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--treeInsert-9458 (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-9361 (lambda (arg-0 arg-1 arg-2 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-9250 (lambda (arg-0 arg-1 arg-2 arg-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--caseC-32blockC-32inC-32treeInsertC-39-9219 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-9250 '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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32treeInsertC-39-9361 '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--caseC-32blockC-32inC-32treeInsertC-39-9109 (lambda (arg-0 arg-1 arg-2 arg-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--treeInsertC-39-9078 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32treeInsertC-39-9109 '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--caseC-32blockC-32inC-32treeInsertC-39-9219 '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--caseC-32blockC-32inC-32treeInsertC-39-9000 (lambda (arg-0 arg-1 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--caseC-32blockC-32inC-32treeInsertC-39-8911 (lambda (arg-0 arg-1 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--treeInsertC-39-8884 (lambda (arg-0 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--caseC-32blockC-32inC-32treeInsertC-39-8911 '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--caseC-32blockC-32inC-32treeInsertC-39-9000 '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--treeInsertC-39-8782 (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--caseC-32blockC-32inC-32treeLookup-8721 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-4)) (else (NameMap-Data-treeLookup 'erased 'erased arg-7 arg-2)))))) +(define NameMap-Data-case--treeLookup-8674 (lambda (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--caseC-32blockC-32inC-32treeLookup-8721 '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--treeLookup-8626 (lambda (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--treeLookup-8583 (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--4139-10407-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--4139-10407-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4139-10407-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--4139-10407-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4139-10407-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4139-10407-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--4139-10407-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--treeLookup-8583 '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--treeLookup-8626 '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--treeLookup-8674 '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--treeInsertC-39-8782 '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--treeInsertC-39-8884 '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--treeInsertC-39-9078 '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--treeInsert-9458 '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--treeDelete-9527 '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--treeDelete-9575 '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--treeDelete-9697 '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--treeDelete-9939 '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--treeDelete-10155 '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) (Types-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--insert-10547 '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--insert-10549 '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) (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Basics-Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (NameMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (NameMap-Data-empty 'erased) arg-1))) (define NameMap-Data-empty (lambda (arg-0) (vector 0 ))) -(define NameMap-Data-delete (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (NameMap-Data-case--delete-10632 'erased e-3 arg-1 (NameMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (NameMap-Data-case--delete-10669 '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--delete-10634 'erased e-3 arg-1 (NameMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (NameMap-Data-case--delete-10671 '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--nameEq-8088 (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--withC-32blockC-32inC-32nameEq-8061 (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--nameEq-8040 (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--withC-32blockC-32inC-32nameEq-8061 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))))))) -(define Name-Core-with--withC-32blockC-32inC-32nameEq-8013 (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--nameEq-7992 (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--withC-32blockC-32inC-32nameEq-8013 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))))))) -(define Name-Core-with--withC-32blockC-32inC-32nameEq-7972 (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--nameEq-7948 (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--withC-32blockC-32inC-32nameEq-7972 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))))))) -(define Name-Core-with--withC-32blockC-32inC-32nameEq-7915 (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--nameEq-7904 (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--withC-32blockC-32inC-32nameEq-7915 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define Name-Core-with--withC-32blockC-32inC-32nameEq-7874 (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--nameEq-7863 (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--withC-32blockC-32inC-32nameEq-7874 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define Name-Core-with--withC-32blockC-32inC-32nameEq-7834 (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--nameEq-7819 (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--withC-32blockC-32inC-32nameEq-7834 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define Name-Core-with--nameEq-7792 (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--withC-32blockC-32inC-32nameEq-7766 (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--nameEq-7753 (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--withC-32blockC-32inC-32nameEq-7766 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define Name-Core-case--compare-7688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (EqOrd-Prelude-compare_Ord__String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define Name-Core-case--compare-7648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (EqOrd-Prelude-compare_Ord__String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define Name-Core-case--compare-7604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (EqOrd-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-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__Int arg-5 arg-6)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__Int arg-5 arg-6)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define Name-Core-case--compare-7554 (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--compare-7514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (EqOrd-Prelude-compare_Ord__String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define Name-Core-case--compare-7466 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__String arg-5 arg-6)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) -(define Name-Core-case--max-7427 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Name-Core-case--min-7413 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Name-Core-case--asNameC-44updateNS-6785 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-2) (else (vector 1 arg-4 (Name-Core-n--2721-6769-updateNS arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))) -(define Name-Core-n--2721-6769-updateNS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Name-Core-case--asNameC-44updateNS-6785 arg-0 arg-1 arg-2 arg-3 e-1 e-2 arg-4 (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) arg-4 (vector 1 e-1 e-2)))))) (else (vector 0 )))))) +(define Name-Core-with--nameEq-8090 (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--withC-32blockC-32inC-32nameEq-8063 (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--nameEq-8042 (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--withC-32blockC-32inC-32nameEq-8063 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))))))) +(define Name-Core-with--withC-32blockC-32inC-32nameEq-8015 (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--nameEq-7994 (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--withC-32blockC-32inC-32nameEq-8015 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))))))) +(define Name-Core-with--withC-32blockC-32inC-32nameEq-7974 (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--nameEq-7950 (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--withC-32blockC-32inC-32nameEq-7974 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))))))) +(define Name-Core-with--withC-32blockC-32inC-32nameEq-7917 (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--nameEq-7906 (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--withC-32blockC-32inC-32nameEq-7917 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define Name-Core-with--withC-32blockC-32inC-32nameEq-7876 (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--nameEq-7865 (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--withC-32blockC-32inC-32nameEq-7876 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define Name-Core-with--withC-32blockC-32inC-32nameEq-7836 (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--nameEq-7821 (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--withC-32blockC-32inC-32nameEq-7836 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define Name-Core-with--nameEq-7794 (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--withC-32blockC-32inC-32nameEq-7768 (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--nameEq-7755 (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--withC-32blockC-32inC-32nameEq-7768 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define Name-Core-case--compare-7690 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (EqOrd-Prelude-compare_Ord__String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) +(define Name-Core-case--compare-7650 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (EqOrd-Prelude-compare_Ord__String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) +(define Name-Core-case--compare-7606 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (EqOrd-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-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__Int arg-5 arg-6)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__Int arg-5 arg-6)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) +(define Name-Core-case--compare-7556 (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--compare-7516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (EqOrd-Prelude-compare_Ord__String arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) +(define Name-Core-case--compare-7468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 1) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__String arg-5 arg-6)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0))))) +(define Name-Core-case--max-7429 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Name-Core-case--min-7415 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) +(define Name-Core-case--asNameC-44updateNS-6791 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-2) (else (vector 1 arg-4 (Name-Core-n--2612-6775-updateNS arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))) +(define Name-Core-n--2612-6775-updateNS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Name-Core-case--asNameC-44updateNS-6791 arg-0 arg-1 arg-2 arg-3 e-1 e-2 arg-4 (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) arg-4 (vector 1 e-1 e-2)))))) (else (vector 0 )))))) (define Name-Core-show_Show__Name (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-0)) (Strings-Types-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-Types-Prelude-C-43C-43 "{" (Strings-Types-Prelude-C-43C-43 e-3 (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-4) "}"))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "{P:" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-6) "}"))))))) ((4) (let ((e-7 (vector-ref sc0 1))) e-7)) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 e-9)) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-18) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-19) (Strings-Types-Prelude-C-43C-43 ":" (Name-Core-show_Show__Name e-10))))))))))) ((6) (let ((e-11 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "case block in " e-11))) ((7) (let ((e-13 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "with block in " e-13))) (else (let ((e-15 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "$resolved" (Show-Prelude-show_Show__Int e-15)))))))) (define Name-Core-showPrec_Show__Name (lambda (arg-0 arg-1) (Name-Core-show_Show__Name arg-1))) (define Name-Core-pretty_Pretty__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))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0)) (List-Data-reverse 'erased e-0))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (Name-Core-pretty_Pretty__Name 'erased e-1))))) ((1) (let ((e-2 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-2))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-3) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased e-4)))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\P) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Name-Core-pretty_Pretty__Name 'erased e-5)) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased e-6)))))) ((4) (let ((e-7 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-7))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 e-9)) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased e-18) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased e-19)) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Name-Core-pretty_Pretty__Name 'erased e-10)))))))) ((6) (let ((e-11 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "case block in") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-11)))) ((7) (let ((e-13 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "with block in") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-13)))) (else (let ((e-15 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "$resolved") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased e-15)))))))) (define Name-Core-prettyPrec_Pretty__Name (lambda (arg-0 arg-1 arg-2) (Name-Core-pretty_Pretty__Name 'erased arg-2))) -(define Name-Core-min_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--min-7413 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--max-7427 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-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (Name-Core-case--compare-7466 e-1 e-0 e-17 e-16 (Name-Core-compare_Ord__Name e-1 e-17)))))(else (EqOrd-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-18 (vector-ref sc1 1))) (EqOrd-Prelude-compare_Ord__String e-2 e-18)))(else (EqOrd-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-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (Name-Core-case--compare-7514 e-4 e-3 e-20 e-19 (EqOrd-Prelude-compare_Ord__Int e-4 e-20)))))(else (EqOrd-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-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (Name-Core-case--compare-7554 e-6 e-5 e-22 e-21 (EqOrd-Prelude-compare_Ord__Int e-6 e-22)))))(else (EqOrd-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-24 (vector-ref sc1 2))) (Name-Core-compare_Ord__Name e-8 e-24)))(else (EqOrd-Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (Name-Core-case--compare-7604 e-10 e-9 e-26 e-25 (Name-Core-compare_Ord__Name e-10 e-26)))))(else (EqOrd-Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((6) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (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--compare-7648 e-12 e-11 e-28 e-27 (EqOrd-Prelude-compare_Ord__Int e-12 e-28)))))(else (EqOrd-Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((7) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (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--compare-7688 e-14 e-13 e-30 e-29 (EqOrd-Prelude-compare_Ord__Int e-14 e-30)))))(else (EqOrd-Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((8) (let ((e-15 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 1))) (EqOrd-Prelude-compare_Ord__Int e-15 e-31)))(else (EqOrd-Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))(else (EqOrd-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--min-7415 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--max-7429 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-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (Name-Core-case--compare-7468 e-1 e-0 e-17 e-16 (Name-Core-compare_Ord__Name e-1 e-17)))))(else (EqOrd-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-18 (vector-ref sc1 1))) (EqOrd-Prelude-compare_Ord__String e-2 e-18)))(else (EqOrd-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-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (Name-Core-case--compare-7516 e-4 e-3 e-20 e-19 (EqOrd-Prelude-compare_Ord__Int e-4 e-20)))))(else (EqOrd-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-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (Name-Core-case--compare-7556 e-6 e-5 e-22 e-21 (EqOrd-Prelude-compare_Ord__Int e-6 e-22)))))(else (EqOrd-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-24 (vector-ref sc1 2))) (Name-Core-compare_Ord__Name e-8 e-24)))(else (EqOrd-Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (Name-Core-case--compare-7606 e-10 e-9 e-26 e-25 (Name-Core-compare_Ord__Name e-10 e-26)))))(else (EqOrd-Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((6) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (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--compare-7650 e-12 e-11 e-28 e-27 (EqOrd-Prelude-compare_Ord__Int e-12 e-28)))))(else (EqOrd-Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((7) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (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--compare-7690 e-14 e-13 e-30 e-29 (EqOrd-Prelude-compare_Ord__Int e-14 e-30)))))(else (EqOrd-Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))) ((8) (let ((e-15 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 1))) (EqOrd-Prelude-compare_Ord__Int e-15 e-31)))(else (EqOrd-Prelude-compare_Ord__Int (Name-Core-nameTag arg-0) (Name-Core-nameTag arg-1)))))))(else (EqOrd-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_Pretty_Name (lambda () (vector 0 (lambda (ann) (lambda (arg-3265) (Name-Core-pretty_Pretty__Name 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Name-Core-prettyPrec_Pretty__Name 'erased arg-3266 arg-3267))))))) +(define Name-Core-__Impl_Pretty_Name (lambda () (vector 0 (lambda (ann) (lambda (arg-3271) (Name-Core-pretty_Pretty__Name 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Name-Core-prettyPrec_Pretty__Name 'erased arg-3272 arg-3273))))))) (define Name-Core-__Impl_Ord_Name (lambda () (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (lambda (arg-369) (lambda (arg-370) (Name-Core-compare_Ord__Name arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Name-Core-C-60_Ord__Name arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Name-Core-C-62_Ord__Name arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Name-Core-C-60C-61_Ord__Name arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Name-Core-C-62C-61_Ord__Name arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Name-Core-max_Ord__Name arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Name-Core-min_Ord__Name arg-381 arg-382)))))) (define Name-Core-__Impl_Eq_Name (lambda () (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))))) (define Name-Core-C-62_Ord__Name (lambda (arg-0 arg-1) (EqOrd-Prelude-C-61C-61_Eq__Ordering (Name-Core-compare_Ord__Name arg-0 arg-1) 2))) @@ -1840,18 +1813,17 @@ (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-Types-Prelude-C-43C-43 e-2 (Strings-Types-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) (else 8))))) (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-10 (vector-ref sc0 2))) (Name-Core-nameRoot e-10))) ((6) (let ((e-11 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "$" (Show-Prelude-show_Show__String e-11)))) ((7) (let ((e-13 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "$" (Show-Prelude-show_Show__String e-13)))) (else (let ((e-15 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "$" (Show-Prelude-show_Show__Int e-15)))))))) -(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-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (Name-Core-with--nameEq-7753 e-0 e-16 (Equality-Decidable-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-16) e-1 e-17))))(else (vector 0 ))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-18 (vector-ref sc1 1))) (Name-Core-with--nameEq-7792 e-2 e-18 (Equality-Decidable-decEq_DecEq__String e-2 e-18))))(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-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (Name-Core-with--nameEq-7819 e-3 e-19 (Equality-Decidable-decEq_DecEq__String e-3 e-19) e-4 e-20))))(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-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (Name-Core-with--nameEq-7863 e-5 e-21 (Name-Core-nameEq e-5 e-21) e-6 e-22))))(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-23 (vector-ref sc1 1))) (let ((e-24 (vector-ref sc1 2))) (Name-Core-with--nameEq-7904 e-7 e-23 (Equality-Decidable-decEq_DecEq__String e-7 e-23) e-8 e-24))))(else (vector 0 ))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (Name-Core-with--nameEq-7948 e-9 e-25 (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-9 e-25) e-10 e-26))))(else (vector 0 ))))))) ((6) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (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--nameEq-7992 e-11 e-27 (Equality-Decidable-decEq_DecEq__String e-11 e-27) e-12 e-28))))(else (vector 0 ))))))) ((7) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (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--nameEq-8040 e-13 e-29 (Equality-Decidable-decEq_DecEq__String e-13 e-29) e-14 e-30))))(else (vector 0 ))))))) ((8) (let ((e-15 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 1))) (Name-Core-with--nameEq-8088 e-15 e-31 (Equality-Decidable-decEq_DecEq__Int e-15 e-31))))(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-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (Name-Core-with--nameEq-7755 e-0 e-16 (Equality-Decidable-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-16) e-1 e-17))))(else (vector 0 ))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-18 (vector-ref sc1 1))) (Name-Core-with--nameEq-7794 e-2 e-18 (Equality-Decidable-decEq_DecEq__String e-2 e-18))))(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-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (Name-Core-with--nameEq-7821 e-3 e-19 (Equality-Decidable-decEq_DecEq__String e-3 e-19) e-4 e-20))))(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-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (Name-Core-with--nameEq-7865 e-5 e-21 (Name-Core-nameEq e-5 e-21) e-6 e-22))))(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-23 (vector-ref sc1 1))) (let ((e-24 (vector-ref sc1 2))) (Name-Core-with--nameEq-7906 e-7 e-23 (Equality-Decidable-decEq_DecEq__String e-7 e-23) e-8 e-24))))(else (vector 0 ))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (Name-Core-with--nameEq-7950 e-9 e-25 (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-9 e-25) e-10 e-26))))(else (vector 0 ))))))) ((6) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (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--nameEq-7994 e-11 e-27 (Equality-Decidable-decEq_DecEq__String e-11 e-27) e-12 e-28))))(else (vector 0 ))))))) ((7) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (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--nameEq-8042 e-13 e-29 (Equality-Decidable-decEq_DecEq__String e-13 e-29) e-14 e-30))))(else (vector 0 ))))))) ((8) (let ((e-15 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-31 (vector-ref sc1 1))) (Name-Core-with--nameEq-8090 e-15 e-31 (Equality-Decidable-decEq_DecEq__Int e-15 e-31))))(else (vector 0 ))))))(else (vector 0 )))))) (define Name-Core-isUserName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((3) 1) ((2) 1) ((0) (let ((e-5 (vector-ref sc0 2))) (Name-Core-isUserName e-5))) ((4) (let ((e-7 (vector-ref sc0 2))) (Name-Core-isUserName e-7)))(else 0))))) (define Name-Core-dropNS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) e-1))(else arg-0))))) -(define Name-Core-dropAllNS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-dropAllNS e-1)))(else arg-0))))) -(define Name-Core-asName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 4 e-0 (Name-Core-asName arg-0 arg-1 e-1))))) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Name-Core-n--2721-6769-updateNS e-3 e-2 arg-1 arg-0 arg-0 e-2) e-3))))(else arg-2))))) -(define FC-Core-n--2387-6747-prettyPos (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))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased (b+ e-2 1 63)) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased (b+ e-3 1 63)))))))) +(define Name-Core-asName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 4 e-0 (Name-Core-asName arg-0 arg-1 e-1))))) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Name-Core-n--2612-6775-updateNS e-3 e-2 arg-1 arg-0 arg-0 e-2) e-3))))(else arg-2))))) +(define FC-Core-n--2278-6753-prettyPos (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))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased (b+ e-2 1 63)) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased (b+ e-3 1 63)))))))) (define FC-Core-show_Show__FC (lambda (arg-0) (Strings-Types-Prelude-C-43C-43 (FC-Core-file arg-0) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (FC-Core-showPos (FC-Core-startPos arg-0)) (Strings-Types-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-pretty_Pretty__FC (lambda (arg-0 arg-1) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (FC-Core-file arg-1)) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (FC-Core-n--2387-6747-prettyPos 'erased arg-1 (FC-Core-startPos arg-1))) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "--")) (FC-Core-n--2387-6747-prettyPos 'erased arg-1 (FC-Core-endPos arg-1))))) +(define FC-Core-pretty_Pretty__FC (lambda (arg-0 arg-1) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (FC-Core-file arg-1)) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (FC-Core-n--2278-6753-prettyPos 'erased arg-1 (FC-Core-startPos arg-1))) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "--")) (FC-Core-n--2278-6753-prettyPos 'erased arg-1 (FC-Core-endPos arg-1))))) (define FC-Core-prettyPrec_Pretty__FC (lambda (arg-0 arg-1 arg-2) (FC-Core-pretty_Pretty__FC 'erased arg-2))) (define FC-Core-__Impl_Show_FC (lambda () (vector 0 (lambda (x) (FC-Core-show_Show__FC x)) (lambda (d) (lambda (x) (FC-Core-showPrec_Show__FC d x)))))) -(define FC-Core-__Impl_Pretty_FC (lambda () (vector 0 (lambda (ann) (lambda (arg-3265) (FC-Core-pretty_Pretty__FC 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (FC-Core-prettyPrec_Pretty__FC 'erased arg-3266 arg-3267))))))) +(define FC-Core-__Impl_Pretty_FC (lambda () (vector 0 (lambda (ann) (lambda (arg-3271) (FC-Core-pretty_Pretty__FC 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (FC-Core-prettyPrec_Pretty__FC 'erased arg-3272 arg-3273))))))) (define FC-Core-C-61C-61_Eq__FC (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__String e-0 e-3) (lambda () (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) e-1 e-4) (lambda () (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) e-2 e-5)))))))))(else 1))))))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1))))) (define FC-Core-within (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (vector 0 e-2 e-3) e-5) (lambda () (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (vector 0 e-2 e-3) e-6))))))(else 1))))))(else 1))))) (define FC-Core-toplevelFC (lambda () (vector 0 "(toplevel)" (vector 0 0 0) (vector 0 0 0)))) @@ -1868,17 +1840,17 @@ (define Support-Parser-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-3233 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Types-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--caseC-32blockC-32inC-32escapeC-39-3183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Types-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32escapeC-39-3233 arg-0 arg-1 arg-2 arg-3 arg-4 (Support-Parser-getEsc (Types-Prelude-fastPack (vector 1 arg-1 (vector 1 arg-2 (vector 0 ))))))))))) (define Support-Parser-case--escapeC-39-3151 (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--caseC-32blockC-32inC-32escapeC-39-3183 arg-0 e-6 e-9 e-12 e-13 (Support-Parser-getEsc (Types-Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 1 e-12 (vector 0 )))))))))) ((0) (Support-Parser-case--caseC-32blockC-32inC-32escapeC-39-3301 arg-0 e-6 e-9 (Support-Parser-getEsc (Types-Prelude-fastPack (vector 1 e-6 (vector 1 e-9 (vector 0 )))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))))(else (Support-Parser-escapeC-39 e-3)))))(else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-0) (vector 1 (vector 1 (Types-Prelude-cast_Cast__Int_Char (Types-Prelude-cast_Cast__String_Int (Types-Prelude-fastPack e-2))) bind-0)))))))))))) -(define Support-Parser-case--escapeC-39-3099 (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 (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--5354-3056-toOct arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (Types-Prelude-cast_Cast__Int_Char bind-0) bind-1)))))))))))))) -(define Support-Parser-case--escapeC-39-3006 (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 (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--5354-2963-toHex arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (Types-Prelude-cast_Cast__Int_Char bind-0) bind-1)))))))))))))) -(define Support-Parser-n--5354-3056-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-oct (Types-Prelude-toLower e-2)) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--5354-3056-toOct arg-0 (b* arg-1 8 63) e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63))))))))))))) -(define Support-Parser-n--5354-2963-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-hex (Types-Prelude-toLower e-2)) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--5354-2963-toHex arg-0 (b* arg-1 16 63) e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63))))))))))))) -(define Support-Parser-n--4703-2149-prettyLine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (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))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "at")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "line") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased (b+ e-5 1 63)) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased ":")) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased (b+ e-6 1 63)))))))))))))) +(define Support-Parser-case--escapeC-39-3099 (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 (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--5235-3056-toOct arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (Types-Prelude-cast_Cast__Int_Char bind-0) bind-1)))))))))))))) +(define Support-Parser-case--escapeC-39-3006 (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 (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--5235-2963-toHex arg-0 1 (List-Data-reverse 'erased e-2)) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-escapeC-39 e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (Types-Prelude-cast_Cast__Int_Char bind-0) bind-1)))))))))))))) +(define Support-Parser-n--5235-3056-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-oct (Types-Prelude-toLower e-2)) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--5235-3056-toOct arg-0 (b* arg-1 8 63) e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63))))))))))))) +(define Support-Parser-n--5235-2963-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-hex (Types-Prelude-toLower e-2)) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Support-Parser-n--5235-2963-toHex arg-0 (b* arg-1 16 63) e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-1 63) bind-1 63))))))))))))) +(define Support-Parser-n--4584-2149-prettyLine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (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))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "at")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "line") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased (b+ e-5 1 63)) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased ":")) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased (b+ e-6 1 63)))))))))))))) (define Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "Parse error: " (Strings-Types-Prelude-C-43C-43 e-1 (Strings-Types-Prelude-C-43C-43 " (next tokens: " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased arg-1 (List-Data-take 'erased (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) e-3)) ")"))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (Strings-Types-Prelude-C-43C-43 "Lex error at " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x))))) (vector 0 e-12 e-16)) (Strings-Types-Prelude-C-43C-43 " input: " e-17))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "File error: " (File-System-show_Show__FileError e-7)))) (else (let ((e-9 (vector-ref sc0 1))) (let ((sc1 e-9)) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (Strings-Types-Prelude-C-43C-43 "Lit error(s) at " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x))))) (vector 0 e-19 e-18)) (Strings-Types-Prelude-C-43C-43 " input: " e-20))))))))))))) (define Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 arg-3))) -(define Support-Parser-pretty_Pretty__C-40ParseErrorC-32C-36tokC-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))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Parse error") (Support-Parser-n--4703-2149-prettyLine 'erased 'erased arg-2 e-3 e-2 e-1 e-2)) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines ":")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-1)) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "next tokens:") (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (let ((sc1 arg-2)) (let ((e-5 (vector-ref sc1 1))) (lambda (arg-4) ((e-5 'erased) arg-4)))) (List-Data-take 'erased (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) e-3)))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Lex error at") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (ann) (lambda (arg-3265) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__Int 'erased arg-3266 arg-3267))))) (vector 0 (lambda (ann) (lambda (arg-3265) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__Int 'erased arg-3266 arg-3267)))))) (vector 0 e-12 e-16)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "input:") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-17)))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "File error:") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (File-System-show_Show__FileError e-7))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((sc1 e-9)) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Lit error(s) at") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (ann) (lambda (arg-3265) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__Int 'erased arg-3266 arg-3267))))) (vector 0 (lambda (ann) (lambda (arg-3265) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__Int 'erased arg-3266 arg-3267)))))) (vector 0 e-19 e-18)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "input:") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-20)))))))))))))) +(define Support-Parser-pretty_Pretty__C-40ParseErrorC-32C-36tokC-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))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Parse error") (Support-Parser-n--4584-2149-prettyLine 'erased 'erased arg-2 e-3 e-2 e-1 e-2)) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines ":")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-1)) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "next tokens:") (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (let ((sc1 arg-2)) (let ((e-5 (vector-ref sc1 1))) (lambda (arg-4) ((e-5 'erased) arg-4)))) (List-Data-take 'erased (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) e-3)))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Lex error at") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (ann) (lambda (arg-3271) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__Int 'erased arg-3272 arg-3273))))) (vector 0 (lambda (ann) (lambda (arg-3271) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__Int 'erased arg-3272 arg-3273)))))) (vector 0 e-12 e-16)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "input:") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-17)))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "File error:") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (File-System-show_Show__FileError e-7))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((sc1 e-9)) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Lit error(s) at") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased 'erased (vector 0 (vector 0 (lambda (ann) (lambda (arg-3271) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__Int 'erased arg-3272 arg-3273))))) (vector 0 (lambda (ann) (lambda (arg-3271) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Doc-Prettyprinter-PrettyPrint-Text-prettyPrec_Pretty__Int 'erased arg-3272 arg-3273)))))) (vector 0 e-19 e-18)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "input:") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-20)))))))))))))) (define Support-Parser-prettyPrec_Pretty__C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Support-Parser-pretty_Pretty__C-40ParseErrorC-32C-36tokC-41 'erased 'erased arg-2 arg-4))) (define Support-Parser-__Impl_Show_C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 d x)))))) -(define Support-Parser-__Impl_Pretty_C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (ann) (lambda (arg-3265) (Support-Parser-pretty_Pretty__C-40ParseErrorC-32C-36tokC-41 'erased 'erased arg-1 arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Support-Parser-prettyPrec_Pretty__C-40ParseErrorC-32C-36tokC-41 'erased 'erased arg-1 arg-3266 arg-3267))))))) +(define Support-Parser-__Impl_Pretty_C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (ann) (lambda (arg-3271) (Support-Parser-pretty_Pretty__C-40ParseErrorC-32C-36tokC-41 'erased 'erased arg-1 arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Support-Parser-prettyPrec_Pretty__C-40ParseErrorC-32C-36tokC-41 'erased 'erased arg-1 arg-3272 arg-3273))))))) (define Support-Parser-toGenericParsingError (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 0 e-1 (vector 0 ) (vector 0 ))) (else (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 0 e-1 (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc2 eta-0)) (let ((e-10 (vector-ref sc2 1))) e-10))) (vector 1 e-5 e-6))))))))))))) (define Support-Parser-oct (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\0) (vector 1 0)) ((equal? sc0 #\1) (vector 1 1)) ((equal? sc0 #\2) (vector 1 2)) ((equal? sc0 #\3) (vector 1 3)) ((equal? sc0 #\4) (vector 1 4)) ((equal? sc0 #\5) (vector 1 5)) ((equal? sc0 #\6) (vector 1 6)) ((equal? sc0 #\7) (vector 1 7))(else (vector 0 )))))) (define Support-Parser-hex (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\0) (vector 1 0)) ((equal? sc0 #\1) (vector 1 1)) ((equal? sc0 #\2) (vector 1 2)) ((equal? sc0 #\3) (vector 1 3)) ((equal? sc0 #\4) (vector 1 4)) ((equal? sc0 #\5) (vector 1 5)) ((equal? sc0 #\6) (vector 1 6)) ((equal? sc0 #\7) (vector 1 7)) ((equal? sc0 #\8) (vector 1 8)) ((equal? sc0 #\9) (vector 1 9)) ((equal? sc0 #\a) (vector 1 10)) ((equal? sc0 #\b) (vector 1 11)) ((equal? sc0 #\c) (vector 1 12)) ((equal? sc0 #\d) (vector 1 13)) ((equal? sc0 #\e) (vector 1 14)) ((equal? sc0 #\f) (vector 1 15))(else (vector 0 )))))) @@ -1932,30 +1904,30 @@ (define Common-Rule-Parser-location (lambda (arg-0) (vector 8 1 1 (vector 10 (vector 2 "Unrecognised token" (lambda (eta-0) 0))) (lambda (tok) (vector 0 (vector 0 (let ((sc0 tok)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 tok)) (let ((e-4 (vector-ref sc0 4))) e-4)))))))) (define Common-Rule-Parser-column (lambda (arg-0) (vector 8 1 1 (Common-Rule-Parser-location arg-0) (lambda (_-0) (let ((sc0 _-0)) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-3))))))) (define Common-Rule-Parser-Rule (lambda (arg-0 arg-1) (vector "Text.Parser.Core.Grammar" arg-0 0 arg-1))) -(define Source-Lexer-Parser-case--lexTo-1497 (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-Types-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Source-Lexer-Parser-n--4198-1467-notComment arg-0 arg-1 eta-0)) e-2) (vector 1 (vector 0 (vector 12 ) 1 e-6 e-10 e-6 e-10) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3))))))))) +(define Source-Lexer-Parser-case--lexTo-1497 (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-Types-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Source-Lexer-Parser-n--4089-1467-notComment arg-0 arg-1 eta-0)) e-2) (vector 1 (vector 0 (vector 12 ) 1 e-6 e-10 e-6 e-10) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3))))))))) (define Source-Lexer-Parser-case--lexToC-44notComment-1472 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) 1)(else 0))))) -(define Source-Lexer-Parser-case--rawTokensC-44parseNamespace-1273 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Source-Lexer-Parser-n--3987-1240-parseIdent e-1))(else (vector 6 arg-1)))))))(else (vector 6 arg-1)))))) +(define Source-Lexer-Parser-case--rawTokensC-44parseNamespace-1273 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Source-Lexer-Parser-n--3878-1240-parseIdent e-1))(else (vector 6 arg-1)))))))(else (vector 6 arg-1)))))) (define Source-Lexer-Parser-case--rawTokensC-44parseIdent-1248 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 13 arg-0)) (else (vector 5 arg-0)))))) (define Source-Lexer-Parser-case--caseC-32blockC-32inC-32fromOctLit-1221 (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))) (Types-Prelude-cast_Cast__Int_Integer e-2))))))) (define Source-Lexer-Parser-case--fromOctLit-1205 (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--caseC-32blockC-32inC-32fromOctLit-1221 arg-0 num (Octal-Utils-fromOct (Types-Prelude-reverse num))))))))) (define Source-Lexer-Parser-case--caseC-32blockC-32inC-32fromHexLit-1177 (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))) (Types-Prelude-cast_Cast__Int_Integer e-2))))))) (define Source-Lexer-Parser-case--fromHexLit-1161 (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--caseC-32blockC-32inC-32fromHexLit-1177 arg-0 num (Hex-Utils-fromHex (Types-Prelude-reverse num))))))))) -(define Source-Lexer-Parser-n--3987-1241-parseNamespace (lambda (arg-0) (Source-Lexer-Parser-case--rawTokensC-44parseNamespace-1273 arg-0 (List1-Data-reverse 'erased (Strings-Data-split (lambda (arg-1) (EqOrd-Prelude-C-61C-61_Eq__Char arg-1 #\.)) arg-0))))) -(define Source-Lexer-Parser-n--3987-1240-parseIdent (lambda (arg-0) (Source-Lexer-Parser-case--rawTokensC-44parseIdent-1248 arg-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) arg-0 (Source-Lexer-Parser-keywords))))) -(define Source-Lexer-Parser-n--4198-1467-notComment (lambda (arg-0 arg-1 arg-2) (Source-Lexer-Parser-case--lexToC-44notComment-1472 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1))))) +(define Source-Lexer-Parser-n--3878-1241-parseNamespace (lambda (arg-0) (Source-Lexer-Parser-case--rawTokensC-44parseNamespace-1273 arg-0 (List1-Data-reverse 'erased (Strings-Data-split (lambda (arg-1) (EqOrd-Prelude-C-61C-61_Eq__Char arg-1 #\.)) arg-0))))) +(define Source-Lexer-Parser-n--3878-1240-parseIdent (lambda (arg-0) (Source-Lexer-Parser-case--rawTokensC-44parseIdent-1248 arg-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) arg-0 (Source-Lexer-Parser-keywords))))) +(define Source-Lexer-Parser-n--4089-1467-notComment (lambda (arg-0 arg-1 arg-2) (Source-Lexer-Parser-case--lexToC-44notComment-1472 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1))))) (define Source-Lexer-Parser-show_Show__Token (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "character " (Show-Prelude-show_Show__String e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "double " (Show-Prelude-show_Show__Double e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "literal " (Show-Prelude-show_Show__Integer e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "string " (Show-Prelude-show_Show__String e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "hole identifier " e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "identifier " e-5))) ((6) (let ((e-6 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "namespaced identifier " (String-Utils-dotSep (List1-Data-toList 'erased (List1-Data-reverse 'erased e-6)))))) ((7) (let ((e-7 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "dot+identifier " e-7))) ((8) (let ((e-8 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "symbol " e-8))) ((9) "comment") ((10) (let ((e-10 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "doc comment: \"" (Strings-Types-Prelude-C-43C-43 e-10 "\"")))) ((11) (let ((e-11 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "CGDirective " e-11))) ((12) "end of input") ((13) (let ((e-12 (vector-ref sc0 1))) e-12)) ((14) (let ((e-13 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "pragma " e-13))) (else (let ((e-14 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "Unrecognised " e-14))))))) (define Source-Lexer-Parser-showPrec_Show__Token (lambda (arg-0 arg-1) (Source-Lexer-Parser-show_Show__Token arg-1))) (define Source-Lexer-Parser-pretty_Pretty__Token (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "character") (Symbols-Prettyprinter-PrettyPrint-Text-squotes 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-0))))) ((1) (let ((e-1 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "double") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Double 'erased e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "literal") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Integer 'erased e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "string") (Symbols-Prettyprinter-PrettyPrint-Text-dquotes 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-3))))) ((4) (let ((e-4 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "hole identifier") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-4)))) ((5) (let ((e-5 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "identifier") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)))) ((6) (let ((e-6 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "namespaced identifier") (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0)) (List-Data-reverse 'erased (List1-Data-toList 'erased e-6))))))) ((7) (let ((e-7 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "dot+identifier") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-7)))) ((8) (let ((e-8 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "symbol") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-8)))) ((9) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "comment")) ((10) (let ((e-10 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "doc comment:") (Symbols-Prettyprinter-PrettyPrint-Text-dquotes 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-10))))) ((11) (let ((e-11 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "CGDirective") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-11)))) ((12) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "end of input")) ((13) (let ((e-12 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-12))) ((14) (let ((e-13 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "pragma") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-13)))) (else (let ((e-14 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "Unrecognised") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-14)))))))) (define Source-Lexer-Parser-prettyPrec_Pretty__Token (lambda (arg-0 arg-1 arg-2) (Source-Lexer-Parser-pretty_Pretty__Token 'erased arg-2))) (define Source-Lexer-Parser-__Impl_Show_Token (lambda () (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))))) -(define Source-Lexer-Parser-__Impl_Pretty_Token (lambda () (vector 0 (lambda (ann) (lambda (arg-3265) (Source-Lexer-Parser-pretty_Pretty__Token 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Source-Lexer-Parser-prettyPrec_Pretty__Token 'erased arg-3266 arg-3267))))))) +(define Source-Lexer-Parser-__Impl_Pretty_Token (lambda () (vector 0 (lambda (ann) (lambda (arg-3271) (Source-Lexer-Parser-pretty_Pretty__Token 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Source-Lexer-Parser-prettyPrec_Pretty__Token 'erased arg-3272 arg-3273))))))) (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) (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-47C-61_Eq__Char c #\-) (lambda () (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-47C-61_Eq__Char c #\{) (lambda () (EqOrd-Prelude-C-47C-61_Eq__Char c #\")))))))) (lambda () (Source-Lexer-Parser-toEndComment (+ 1 e-0)))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\{) (lambda () (Source-Lexer-Parser-singleBrace e-0))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\-) (lambda () (Source-Lexer-Parser-singleDash e-0))) (vector 4 (Lexer-Text-stringLit) (lambda () (Source-Lexer-Parser-toEndComment (+ 1 e-0))))))))))))) (define Source-Lexer-Parser-symbols (lambda () (vector 1 ".(" (vector 1 "@{" (vector 1 "[|" (vector 1 "|]" (vector 1 "(" (vector 1 ")" (vector 1 "{" (vector 1 "}}" (vector 1 "}" (vector 1 "[" (vector 1 "]" (vector 1 "," (vector 1 ";" (vector 1 "_" (vector 1 "`(" (vector 1 "`{{" (vector 1 "`[" (vector 1 "`" (vector 0 ))))))))))))))))))))) (define Source-Lexer-Parser-singleDash (lambda (arg-0) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\-) (lambda () (Source-Lexer-Parser-doubleDash arg-0))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\}) (lambda () (Source-Lexer-Parser-toEndComment arg-0))) (Source-Lexer-Parser-toEndComment (+ 1 arg-0)))))) (define Source-Lexer-Parser-singleBrace (lambda (arg-0) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Source-Lexer-Parser-singleDash (+ 1 arg-0)))) (Source-Lexer-Parser-toEndComment (+ 1 arg-0))))) (define Source-Lexer-Parser-reservedSymbols (lambda () (List-Types-Prelude-C-43C-43 'erased (Source-Lexer-Parser-symbols) (vector 1 "%" (vector 1 "\\" (vector 1 ":" (vector 1 "=" (vector 1 "|" (vector 1 "|||" (vector 1 "<-" (vector 1 "->" (vector 1 "=>" (vector 1 "?" (vector 1 "!" (vector 1 "&" (vector 1 "**" (vector 1 ".." (vector 1 "~" (vector 0 ))))))))))))))))))) -(define Source-Lexer-Parser-rawTokens (lambda () (List-Types-Prelude-C-43C-43 'erased (vector 1 (vector 0 (Common-Lexer-Parser-comment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-blockComment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-docComment) (lambda (eta-0) (vector 10 (Extra-String-Data-drop (+ 1 (+ 1 (+ 1 0))) eta-0)))) (vector 1 (vector 0 (Source-Lexer-Parser-cgDirective) (lambda (eta-0) (Source-Lexer-Parser-mkDirective eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-holeIdent) (lambda (x) (vector 4 (Strings-Data-strTail x)))) (vector 0 )))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Lexer-Text-exact x) (lambda (eta-0) (vector 8 eta-0)))) (Source-Lexer-Parser-symbols)) (vector 1 (vector 0 (Source-Lexer-Parser-doubleLit) (lambda (x) (vector 1 (Types-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 (Types-Prelude-cast_Cast__String_Integer x)))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (x) (vector 3 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Lexer-Text-charLit) (lambda (x) (vector 0 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Source-Lexer-Parser-dotIdent) (lambda (x) (vector 7 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Common-Lexer-Parser-namespacedIdent) (lambda (eta-0) (Source-Lexer-Parser-n--3987-1241-parseNamespace eta-0))) (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (Source-Lexer-Parser-n--3987-1240-parseIdent eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-pragma) (lambda (x) (vector 14 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-validSymbol) (lambda (eta-0) (vector 8 eta-0))) (vector 1 (vector 0 (Lexer-Text-symbol) (lambda (eta-0) (vector 15 eta-0))) (vector 0 )))))))))))))))))) +(define Source-Lexer-Parser-rawTokens (lambda () (List-Types-Prelude-C-43C-43 'erased (vector 1 (vector 0 (Common-Lexer-Parser-comment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-blockComment) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-docComment) (lambda (eta-0) (vector 10 (Extra-String-Data-drop (+ 1 (+ 1 (+ 1 0))) eta-0)))) (vector 1 (vector 0 (Source-Lexer-Parser-cgDirective) (lambda (eta-0) (Source-Lexer-Parser-mkDirective eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-holeIdent) (lambda (x) (vector 4 (Strings-Data-strTail x)))) (vector 0 )))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Lexer-Text-exact x) (lambda (eta-0) (vector 8 eta-0)))) (Source-Lexer-Parser-symbols)) (vector 1 (vector 0 (Source-Lexer-Parser-doubleLit) (lambda (x) (vector 1 (Types-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 (Types-Prelude-cast_Cast__String_Integer x)))) (vector 1 (vector 0 (Lexer-Text-stringLit) (lambda (x) (vector 3 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Lexer-Text-charLit) (lambda (x) (vector 0 (String-Utils-stripQuotes x)))) (vector 1 (vector 0 (Source-Lexer-Parser-dotIdent) (lambda (x) (vector 7 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Common-Lexer-Parser-namespacedIdent) (lambda (eta-0) (Source-Lexer-Parser-n--3878-1241-parseNamespace eta-0))) (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (Source-Lexer-Parser-n--3878-1240-parseIdent eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-pragma) (lambda (x) (vector 14 (Strings-Data-strTail x)))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 9 eta-0))) (vector 1 (vector 0 (Source-Lexer-Parser-validSymbol) (lambda (eta-0) (vector 8 eta-0))) (vector 1 (vector 0 (Lexer-Text-symbol) (lambda (eta-0) (vector 15 eta-0))) (vector 0 )))))))))))))))))) (define Source-Lexer-Parser-pragma (lambda () (vector 4 (Lexer-Text-is #\%) (lambda () (Common-Lexer-Parser-identNormal))))) (define Source-Lexer-Parser-mkDirective (lambda (arg-0) (vector 11 (Strings-Data-trim (Types-Prelude-substr (+ 1 (+ 1 (+ 1 0))) (Strings-Types-Prelude-length arg-0) arg-0))))) (define Source-Lexer-Parser-lexTo (lambda (arg-0 arg-1) (Source-Lexer-Parser-case--lexTo-1497 arg-1 arg-0 (Core-Lexer-Text-lexTo 'erased arg-0 (Source-Lexer-Parser-rawTokens) arg-1)))) @@ -1972,21 +1944,21 @@ (define Source-Lexer-Parser-blockComment (lambda () (vector 4 (vector 4 (Lexer-Text-is #\{) (lambda () (Lexer-Text-is #\-))) (lambda () (Source-Lexer-Parser-toEndComment (+ 1 0)))))) (define String-Utils-stripQuotes (lambda (arg-0) (Types-Prelude-substr (+ 1 0) (Types-Prelude-minus (Strings-Types-Prelude-length arg-0) (+ 1 (+ 1 0))) arg-0))) (define String-Utils-dotSep (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (Strings-Types-Prelude-C-43C-43 e-2 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String)))) (Types-Prelude-C-62C-62C-61_Monad__List 'erased 'erased e-3 (lambda (y) (Types-Prelude-pure_Applicative__List 'erased (Strings-Types-Prelude-C-43C-43 "." y)))))))))))))))) -(define Octal-Utils-n--1702-583-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-fromOctDigit (Types-Prelude-toLower e-2)) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-n--1702-583-fromOctCharsC-39 (b* arg-0 8 63) e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63))))))))))))) +(define Octal-Utils-n--1593-583-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-fromOctDigit (Types-Prelude-toLower e-2)) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Octal-Utils-n--1593-583-fromOctCharsC-39 (b* arg-0 8 63) e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63))))))))))))) (define Octal-Utils-fromOctDigit (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\0) (vector 1 0)) ((equal? sc0 #\1) (vector 1 1)) ((equal? sc0 #\2) (vector 1 2)) ((equal? sc0 #\3) (vector 1 3)) ((equal? sc0 #\4) (vector 1 4)) ((equal? sc0 #\5) (vector 1 5)) ((equal? sc0 #\6) (vector 1 6)) ((equal? sc0 #\7) (vector 1 7))(else (vector 0 )))))) -(define Octal-Utils-fromOctChars (lambda (ext-0) (Octal-Utils-n--1702-583-fromOctCharsC-39 1 ext-0))) +(define Octal-Utils-fromOctChars (lambda (ext-0) (Octal-Utils-n--1593-583-fromOctCharsC-39 1 ext-0))) (define Octal-Utils-fromOct (lambda (ext-0) (Octal-Utils-fromOctChars (Types-Prelude-unpack ext-0)))) (define IntV-Views-Primitives-Data-case--divides-392 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Num-Prelude-negate_Neg__Int (Num-Prelude-div_Integral__Int arg-1 (Num-Prelude-abs_Abs__Int arg-0)))) (else (Num-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--divides-392 arg-1 arg-0 (EqOrd-Prelude-C-60_Ord__Int arg-1 0)))) (let ((remainder (Num-Prelude-abs_Abs__Int (Num-Prelude-C-45_Neg__Int arg-0 (b* dividend arg-1 63))))) (Builtin-believe_me 'erased 'erased (vector 1 dividend remainder (Builtin-believe_me 'erased 'erased (vector 0 ))))))))))) -(define Hex-Utils-with--asHexC-44asHexC-39-540 (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--1961-531-asHexC-39 arg-0 e-1 (vector 1 (Hex-Utils-hexDigit e-2) arg-3))))))) +(define Hex-Utils-with--asHexC-44asHexC-39-540 (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--1852-531-asHexC-39 arg-0 e-1 (vector 1 (Hex-Utils-hexDigit e-2) arg-3))))))) (define Hex-Utils-case--leftPad-589 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Types-Prelude-C-43C-43 (Types-Prelude-pack (List-Data-replicate 'erased (Types-Prelude-minus arg-1 (Strings-Types-Prelude-length arg-0)) arg-2)) arg-0)) (else arg-0))))) -(define Hex-Utils-case--asHex-569 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Types-Prelude-pack (Hex-Utils-n--1961-531-asHexC-39 arg-0 arg-0 (vector 0 )))) (else "0"))))) -(define Hex-Utils-n--2129-692-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-fromHexDigit (Types-Prelude-toLower e-2)) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-n--2129-692-fromHexCharsC-39 (b* arg-0 16 63) e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63))))))))))))) -(define Hex-Utils-n--1961-531-asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (Hex-Utils-with--asHexC-44asHexC-39-540 arg-1 arg-1 (IntV-Views-Primitives-Data-divides arg-1 16) arg-2)))))) +(define Hex-Utils-case--asHex-569 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Types-Prelude-pack (Hex-Utils-n--1852-531-asHexC-39 arg-0 arg-0 (vector 0 )))) (else "0"))))) +(define Hex-Utils-n--2020-692-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-fromHexDigit (Types-Prelude-toLower e-2)) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Hex-Utils-n--2020-692-fromHexCharsC-39 (b* arg-0 16 63) e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (b+ (b* bind-0 arg-0 63) bind-1 63))))))))))))) +(define Hex-Utils-n--1852-531-asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (Hex-Utils-with--asHexC-44asHexC-39-540 arg-1 arg-1 (IntV-Views-Primitives-Data-divides arg-1 16) arg-2)))))) (define Hex-Utils-leftPad (lambda (arg-0 arg-1 arg-2) (Hex-Utils-case--leftPad-589 arg-2 arg-1 arg-0 (Types-Prelude-C-60_Ord__Nat (Strings-Types-Prelude-length arg-2) arg-1)))) (define Hex-Utils-hexDigit (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\0) ((equal? sc0 1) #\1) ((equal? sc0 2) #\2) ((equal? sc0 3) #\3) ((equal? sc0 4) #\4) ((equal? sc0 5) #\5) ((equal? sc0 6) #\6) ((equal? sc0 7) #\7) ((equal? sc0 8) #\8) ((equal? sc0 9) #\9) ((equal? sc0 10) #\a) ((equal? sc0 11) #\b) ((equal? sc0 12) #\c) ((equal? sc0 13) #\d) ((equal? sc0 14) #\e) ((equal? sc0 15) #\f)(else #\X))))) (define Hex-Utils-fromHexDigit (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\0) (vector 1 0)) ((equal? sc0 #\1) (vector 1 1)) ((equal? sc0 #\2) (vector 1 2)) ((equal? sc0 #\3) (vector 1 3)) ((equal? sc0 #\4) (vector 1 4)) ((equal? sc0 #\5) (vector 1 5)) ((equal? sc0 #\6) (vector 1 6)) ((equal? sc0 #\7) (vector 1 7)) ((equal? sc0 #\8) (vector 1 8)) ((equal? sc0 #\9) (vector 1 9)) ((equal? sc0 #\a) (vector 1 10)) ((equal? sc0 #\b) (vector 1 11)) ((equal? sc0 #\c) (vector 1 12)) ((equal? sc0 #\d) (vector 1 13)) ((equal? sc0 #\e) (vector 1 14)) ((equal? sc0 #\f) (vector 1 15))(else (vector 0 )))))) -(define Hex-Utils-fromHexChars (lambda (ext-0) (Hex-Utils-n--2129-692-fromHexCharsC-39 1 ext-0))) +(define Hex-Utils-fromHexChars (lambda (ext-0) (Hex-Utils-n--2020-692-fromHexCharsC-39 1 ext-0))) (define Hex-Utils-fromHex (lambda (ext-0) (Hex-Utils-fromHexChars (Types-Prelude-unpack ext-0)))) (define Hex-Utils-asHex (lambda (arg-0) (Hex-Utils-case--asHex-569 arg-0 (EqOrd-Prelude-C-62_Ord__Int arg-0 0)))) (define Common-Lexer-Parser-case--isIdent-302 (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))) (Basics-Prelude-C-38C-38 (Common-Lexer-Parser-isIdentStart arg-1 e-2) (lambda () ((Interfaces-Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing arg-1 eta-0))) e-3)))))))))) @@ -2001,93 +1973,93 @@ (define Common-Lexer-Parser-identAllowDashes (lambda () (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart (vector 0 ) eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing (vector 0 ) eta-0)))))))) (define Common-Lexer-Parser-ident (lambda (arg-0) (vector 4 (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentStart arg-0 eta-0))) (lambda () (Lexer-Text-many (Core-Lexer-Text-pred (lambda (eta-0) (Common-Lexer-Parser-isIdentTrailing arg-0 eta-0)))))))) (define Common-Lexer-Parser-comment (lambda () (let ((sc0 (Basics-Prelude-C-124C-124 (Basics-Prelude-C-124C-124 0 (lambda () 1)) (lambda () 1)))) (cond ((equal? sc0 1) (vector 5 (let ((sc1 (Basics-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 (Basics-Prelude-C-124C-124 0 (lambda () 1)))) (cond ((equal? sc1 1) (vector 5 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))) (else (vector 4 (vector 4 (vector 4 (Lexer-Text-is #\-) (lambda () (Lexer-Text-is #\-))) (lambda () (Lexer-Text-many (Lexer-Text-is #\-)))) (lambda () (Core-Lexer-Text-reject 'erased (Lexer-Text-is #\}))))))) (lambda () (Lexer-Text-many (Lexer-Text-isNot (integer->char 10)))))))))) -(define Unelab-TTImp-case--unelabBinder-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) (let ((sc0 arg-12)) (lambda (eta-0) (vector 1 (vector 0 arg-6 (Normalise-Core-gType 'erased arg-9))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabBinder-5893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-10 arg-3 arg-5 e-2 arg-13 arg-7) (Normalise-Core-gnf arg-0 arg-9 (vector 3 arg-10 arg-5 (vector 4 arg-4 arg-3 arg-1 arg-2) arg-6))))))))) -(define Unelab-TTImp-case--unelabBinder-5852 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-12 arg-11 arg-9 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-10 arg-3 arg-5 e-6 e-2 arg-7) (Normalise-Core-gnf arg-0 arg-9 (vector 3 arg-10 arg-5 (vector 4 arg-4 arg-3 arg-1 arg-2) arg-6)))))))))))))))) -(define Unelab-TTImp-case--unelabBinder-5793 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (lambda (eta-0) (vector 1 (vector 0 arg-7 (Normalise-Core-gnf arg-0 arg-9 (vector 3 arg-10 arg-5 (vector 5 arg-4 arg-3 arg-2) arg-6)))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabBinder-5692 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 (vector 1 "_"))) (else (vector 0 )))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabBinder-5609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 arg-5)) (else (Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabBinder-5692 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 (Basics-Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Unelab-TTImp-n--7213-5535-isDefImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-3))))))))) -(define Unelab-TTImp-case--unelabBinder-5564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-12 arg-11 arg-9 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--caseC-32blockC-32inC-32unelabBinder-5609 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-3 e-2 _-0 e-5 (Basics-Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-8) (lambda () (Unelab-TTImp-n--7213-5534-isNoSugar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-11))))))) (vector 1 (vector 0 (vector 1 arg-10 arg-4 e-5 nm e-2 arg-7) (Normalise-Core-gType 'erased arg-10))))))))))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabBinder-5477 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-10 arg-3 arg-5 e-2 arg-13 arg-7) (Normalise-Core-gnf arg-0 arg-9 (vector 3 arg-10 arg-5 (vector 1 arg-4 arg-3 arg-1 arg-2) arg-6))))))))) -(define Unelab-TTImp-case--unelabBinder-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) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-12 arg-11 arg-9 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-10 arg-3 arg-5 e-6 e-2 arg-7) (Normalise-Core-gnf arg-0 arg-9 (vector 3 arg-10 arg-5 (vector 1 arg-4 arg-3 arg-1 arg-2) arg-6)))))))))))))))) -(define Unelab-TTImp-case--unelabBinder-5369 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-12 arg-11 arg-9 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 2 arg-10 arg-3 e-5 (vector 1 arg-5) e-2 arg-7) (Normalise-Core-gnf arg-0 arg-9 (vector 3 arg-10 arg-5 (vector 2 arg-4 arg-3 arg-2 arg-1) arg-6)))))))))))))) -(define Unelab-TTImp-case--unelabPi-5333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2))))))) -(define Unelab-TTImp-case--unelabTyC-39-5212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 21 arg-3 e-2) (Normalise-Core-gErased 'erased arg-3)))))))))))) -(define Unelab-TTImp-case--unelabTyC-39-5161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 20 arg-4 e-2) (Normalise-Core-gErased 'erased arg-4)))))))))))) -(define Unelab-TTImp-case--unelabTyC-39-5110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 19 arg-3 arg-2 e-2) (Normalise-Core-gErased 'erased arg-3)))))))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabTyC-39-4985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 arg-14 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12)))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabTyC-39-4954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12)))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabTyC-39-4925 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-2) e-3))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3))))))))))) -(define Unelab-TTImp-case--unelabTyC-39-4892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 2))) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-6) e-4)))(else (vector 1 (vector 0 e-6 e-4)))))))(else (vector 1 (vector 0 e-6 e-4)))))))))))))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabTyC-39-4736 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-2) arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3))))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabTyC-39-4693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-6 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-6))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((2) (let ((e-10 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-13)))))))))(else (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-8) e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-13)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))))))))))))) -(define Unelab-TTImp-case--unelabTyC-39-4664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-6 arg-5 arg-4 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-6 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-6))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((e-10 (vector-ref sc5 3))) (let ((e-9 (vector-ref sc5 4))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((2) (let ((e-13 (vector-ref sc6 3))) (let ((sc7 e-13)) (case (vector-ref sc7 0) ((1) (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-16)))))))))(else (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-16 (vector-ref sc7 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 9 arg-3 e-2 (vector 1 e-11) e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-16)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))))))))))))))))))))))))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabTyC-39-4575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (let ((xC-39 (Unelab-TTImp-n--7207-4468-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) arg-8 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-9) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0)))))))))))) -(define Unelab-TTImp-case--unelabTyC-39-4552 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (cond ((equal? sc2 0) (let ((xC-39 (Unelab-TTImp-n--7207-4468-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0))))))))))))))) -(define Unelab-TTImp-case--unelabTyC-39C-44uniqueLocal-4494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Unelab-TTImp-n--7207-4468-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (Unelab-TTImp-n--7207-4467-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8))) (else arg-8))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabTyC-39-4406 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4))))))))) -(define Unelab-TTImp-case--unelabTyC-39-4351 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-1))))))) (else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4)))))))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabTyC-39-4280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3))))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabTyC-39-4213 (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) ((1) (Context-Core-getFullName arg-6 arg-1))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-6 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-aliasName arg-6 e-5 eta-0)))))))))))) -(define Unelab-TTImp-case--unelabTyC-39-4177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) ((Context-Core-getFullName arg-6 arg-1) eta-0))(else (let ((act-24 ((Context-Core-getFullName arg-6 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-aliasName arg-6 e-5 eta-0))))))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 arg-3 e-5) (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))))))))) (else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3)))))))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabSugar-4075 (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) ((6) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-2 (vector 6 e-4 e-5)) arg-6 arg-2 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))) -(define Unelab-TTImp-case--unelabSugar-4057 (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) ((6) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-5 (vector 6 e-7 e-6)) e-3 arg-2 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-8 arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabCase-3898 (lambda (arg-0 arg-1 arg-2 arg-3 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--7199-3635-mkCase arg-0 arg-1 arg-2 arg-3 arg-10 arg-12 0 arg-1)) (else (lambda (eta-0) (vector 1 arg-0))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabCase-3862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabCase-3898 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 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased arg-1) (List-Types-Prelude-length 'erased arg-8)))))(else (lambda (eta-0) (vector 1 arg-0))))))) -(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabCase-3838 (lambda (arg-0 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabCase-3862 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--7199-3630-findArgPos arg-0 arg-1 arg-2 arg-3 'erased e-2))))))))(else (lambda (eta-0) (vector 1 arg-0))))))) -(define Unelab-TTImp-case--unelabCase-3823 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32unelabCase-3838 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 arg-0))))))) -(define Unelab-TTImp-case--unelabCaseC-44getNth-3690 (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--7199-3631-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased arg-6 e-2 e-3)))))) -(define Unelab-TTImp-n--7038-3472-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-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (Basics-Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-5 e-3) (lambda () (Unelab-TTImp-used 'erased arg-5 e-4))))))(else (Unelab-TTImp-used 'erased arg-5 (TT-Core-binderType 'erased arg-6))))))) -(define Unelab-TTImp-n--7207-4468-uniqueLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Unelab-TTImp-case--unelabTyC-39C-44uniqueLocal-4494 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-8 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) arg-9 arg-8)))) -(define Unelab-TTImp-n--10088-6061-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--10088-6063-showScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Strings-Types-Prelude-C-43C-43 " " (Unelab-TTImp-n--10088-6062-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--10088-6061-toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7))))) -(define Unelab-TTImp-n--10088-6062-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-Types-Prelude-C-43C-43 "[locals in scope: " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) (List-Data-nub 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) arg-7))) "]"))))))) -(define Unelab-TTImp-n--7199-3633-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--7199-3632-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--7207-4467-next (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 2 e-0 (b+ e-1 1 63))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 (Show-Prelude-show_Show__String e-2) 0))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 0 e-3 (Unelab-TTImp-n--7207-4467-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))(else (vector 2 (Name-Core-show_Show__Name arg-8) 0)))))) -(define Unelab-TTImp-n--7199-3634-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--7199-3633-nthArg arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-5 e-10))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 pat eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 arg-4 (Builtin-fst 'erased 'erased e-5) (Builtin-fst 'erased 'erased e-8)))))))))))))))))))))))))) -(define Unelab-TTImp-n--7199-3635-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Unelab-TTImp-n--7199-3634-mkClause arg-0 arg-1 arg-2 arg-3 e-7 arg-6 eta-1)) arg-4) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 4 e-7 e-8 (vector 31 e-7 1) e-9)))))))))))(else (lambda (eta-0) (vector 1 arg-0)))))))(else (lambda (eta-0) (vector 1 arg-0))))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--7199-3635-mkCase arg-0 arg-1 arg-2 arg-3 arg-4 e-0 (+ 1 arg-6) e-3)))(else (lambda (eta-0) (vector 1 arg-0))))))))))) -(define Unelab-TTImp-n--7213-5534-isNoSugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define Unelab-TTImp-n--7213-5535-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 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) -(define Unelab-TTImp-n--7199-3631-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--7199-3631-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--7199-3632-getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Unelab-TTImp-case--unelabCaseC-44getNth-3690 arg-0 arg-1 arg-2 arg-3 'erased arg-6 arg-5 (TT-Core-getFnArgs 'erased arg-6)))) -(define Unelab-TTImp-n--7201-4037-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--7201-4037-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--7201-4037-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--7199-3630-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))) (Types-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))) (Basics-Prelude-C-124C-124 (Unelab-TTImp-n--7038-3472-usedBinder e-7 e-8 'erased e-10 e-9 arg-1 e-9) (lambda () (Unelab-TTImp-used 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) e-10)))))))) ((2) (let ((e-15 (vector-ref sc0 4))) ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-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))) (Basics-Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-1 e-18) (lambda () (Unelab-TTImp-used 'erased arg-1 e-19)))))) ((5) (let ((e-24 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-24))) ((6) (let ((e-28 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-28))) ((7) (let ((e-33 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-33))) ((8) (let ((e-37 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-37)))(else 1))))) +(define Unelab-TTImp-case--unelabBinder-5928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (lambda (eta-0) (vector 1 (vector 0 arg-5 (Normalise-Core-gType 'erased arg-8))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabBinder-5865 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5))))))))) +(define Unelab-TTImp-case--unelabBinder-5826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 4 arg-3 arg-1 arg-2) arg-5)))))))))))))))) +(define Unelab-TTImp-case--unelabBinder-5769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (lambda (eta-0) (vector 1 (vector 0 arg-6 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 5 arg-3 arg-2) arg-5)))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabBinder-5672 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 (vector 1 "_"))) (else (vector 0 )))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabBinder-5593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-4)) (else (Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabBinder-5672 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Basics-Prelude-C-124C-124 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) (lambda () (Unelab-TTImp-n--7022-5521-isDefImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased arg-2))))))))) +(define Unelab-TTImp-case--unelabBinder-5550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--caseC-32blockC-32inC-32unelabBinder-5593 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 (Basics-Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Unelab-TTImp-n--7022-5520-isNoSugar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-10))))))) (vector 1 (vector 0 (vector 1 arg-9 arg-3 e-5 nm e-2 arg-6) (Normalise-Core-gType 'erased arg-9))))))))))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabBinder-5467 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-2 arg-12 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5))))))))) +(define Unelab-TTImp-case--unelabBinder-5428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-3 arg-4 e-6 e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 1 arg-3 arg-1 arg-2) arg-5)))))))))))))))) +(define Unelab-TTImp-case--unelabBinder-5363 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 2 arg-9 arg-3 e-5 (vector 1 arg-4) e-2 arg-6) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-4 (vector 2 arg-3 arg-2 arg-1) arg-5)))))))))))))) +(define Unelab-TTImp-case--unelabPi-5327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2))))))) +(define Unelab-TTImp-case--unelabTyC-39-5206 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 21 arg-3 e-2) (Normalise-Core-gErased 'erased arg-3)))))))))))) +(define Unelab-TTImp-case--unelabTyC-39-5155 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 20 arg-4 e-2) (Normalise-Core-gErased 'erased arg-4)))))))))))) +(define Unelab-TTImp-case--unelabTyC-39-5104 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 19 arg-3 arg-2 e-2) (Normalise-Core-gErased 'erased arg-3)))))))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabTyC-39-4979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 arg-14 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12)))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabTyC-39-4948 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 arg-11) arg-12))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-11 arg-12)))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabTyC-39-4919 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-2) e-3))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 e-2 e-3))))))))))) +(define Unelab-TTImp-case--unelabTyC-39-4886 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 2))) (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 (vector 17 arg-4 arg-3 e-1 e-6) e-4)))(else (vector 1 (vector 0 e-6 e-4)))))))(else (vector 1 (vector 0 e-6 e-4)))))))))))))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabTyC-39-4734 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-2) arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3))))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabTyC-39-4691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-6 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-6))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((2) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))(else (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 9 arg-3 arg-7 (vector 1 e-8) e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))))))))))))))))))))) +(define Unelab-TTImp-case--unelabTyC-39-4662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-6 arg-5 arg-4 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-6 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-6))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((e-10 (vector-ref sc5 3))) (let ((e-9 (vector-ref sc5 4))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((2) (let ((e-13 (vector-ref sc6 2))) (let ((sc7 e-13)) (case (vector-ref sc7 0) ((1) (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))(else (let ((act-27 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 9 arg-3 e-2 (vector 1 e-11) e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15)))))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))))))))))(else (vector 1 (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))))))))))))))))))))))))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabTyC-39-4573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 0) (let ((xC-39 (Unelab-TTImp-n--7016-4466-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) arg-8 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-9) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 arg-8 e-5) eta-0)))))))))))) +(define Unelab-TTImp-case--unelabTyC-39-4550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (cond ((equal? sc2 0) (let ((xC-39 (Unelab-TTImp-n--7016-4466-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-0 arg-1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 xC-39 arg-3 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-2) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-7 arg-6 arg-4 arg-5 arg-1 arg-3 arg-2 e-2 e-5) eta-0))))))))))))))) +(define Unelab-TTImp-case--unelabTyC-39C-44uniqueLocal-4492 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Unelab-TTImp-n--7016-4466-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (Unelab-TTImp-n--7016-4465-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8))) (else arg-8))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabTyC-39-4404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4))))))))) +(define Unelab-TTImp-case--unelabTyC-39-4349 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-1))))))) (else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-4 0) (Normalise-Core-gErased 'erased arg-4)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 29 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4)))))))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabTyC-39-4278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3))))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabTyC-39-4211 (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) ((1) (Context-Core-getFullName arg-6 arg-1))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-6 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-aliasName arg-6 e-5 eta-0)))))))))))) +(define Unelab-TTImp-case--unelabTyC-39-4175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) ((Context-Core-getFullName arg-6 arg-1) eta-0))(else (let ((act-24 ((Context-Core-getFullName arg-6 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-aliasName arg-6 e-5 eta-0))))))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 arg-3 e-5) (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))))))))) (else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 (vector 31 arg-3 0) (Normalise-Core-gErased 'erased arg-3)))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3)))))))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabSugar-4073 (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) ((6) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-2 (vector 6 e-4 e-5)) arg-6 arg-2 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))) +(define Unelab-TTImp-case--unelabSugar-4055 (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) ((6) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-5 (vector 6 e-7 e-6)) e-3 arg-2 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-8 arg-3)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-3))))))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabCase-3896 (lambda (arg-0 arg-1 arg-2 arg-3 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--7008-3633-mkCase arg-0 arg-1 arg-2 arg-3 arg-10 arg-12 0 arg-1)) (else (lambda (eta-0) (vector 1 arg-0))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabCase-3860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabCase-3896 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 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased arg-1) (List-Types-Prelude-length 'erased arg-8)))))(else (lambda (eta-0) (vector 1 arg-0))))))) +(define Unelab-TTImp-case--caseC-32blockC-32inC-32unelabCase-3836 (lambda (arg-0 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unelabCase-3860 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--7008-3628-findArgPos arg-0 arg-1 arg-2 arg-3 'erased e-2))))))))(else (lambda (eta-0) (vector 1 arg-0))))))) +(define Unelab-TTImp-case--unelabCase-3821 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32unelabCase-3836 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 arg-0))))))) +(define Unelab-TTImp-case--unelabCaseC-44getNth-3688 (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--7008-3629-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased arg-6 e-2 e-3)))))) +(define Unelab-TTImp-n--6849-3472-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))) (Basics-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--7016-4466-uniqueLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Unelab-TTImp-case--unelabTyC-39C-44uniqueLocal-4492 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-8 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) arg-9 arg-8)))) +(define Unelab-TTImp-n--9854-6027-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--9854-6029-showScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Strings-Types-Prelude-C-43C-43 " " (Unelab-TTImp-n--9854-6028-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--9854-6027-toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7))))) +(define Unelab-TTImp-n--9854-6028-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-Types-Prelude-C-43C-43 "[locals in scope: " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) (List-Data-nub 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) arg-7))) "]"))))))) +(define Unelab-TTImp-n--7008-3631-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--7008-3630-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--7016-4465-next (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 2 e-0 (b+ e-1 1 63))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 (Show-Prelude-show_Show__String e-2) 0))) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 0 e-3 (Unelab-TTImp-n--7016-4465-next arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-4)))))(else (vector 2 (Name-Core-show_Show__Name arg-8) 0)))))) +(define Unelab-TTImp-n--7008-3632-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--7008-3631-nthArg arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-5 e-10))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 pat eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 arg-4 (Builtin-fst 'erased 'erased e-5) (Builtin-fst 'erased 'erased e-8)))))))))))))))))))))))))) +(define Unelab-TTImp-n--7008-3633-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Unelab-TTImp-n--7008-3632-mkClause arg-0 arg-1 arg-2 arg-3 e-7 arg-6 eta-1)) arg-4) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 4 e-7 e-8 (vector 31 e-7 1) e-9)))))))))))(else (lambda (eta-0) (vector 1 arg-0)))))))(else (lambda (eta-0) (vector 1 arg-0))))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-n--7008-3633-mkCase arg-0 arg-1 arg-2 arg-3 arg-4 e-0 (+ 1 arg-6) e-3)))(else (lambda (eta-0) (vector 1 arg-0))))))))))) +(define Unelab-TTImp-n--7022-5520-isNoSugar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) +(define Unelab-TTImp-n--7022-5521-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--7008-3629-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--7008-3629-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--7008-3630-getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Unelab-TTImp-case--unelabCaseC-44getNth-3688 arg-0 arg-1 arg-2 arg-3 'erased arg-6 arg-5 (TT-Core-getFnArgs 'erased arg-6)))) +(define Unelab-TTImp-n--7010-4035-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--7010-4035-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--7010-4035-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--7008-3628-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))) (Types-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))) (Basics-Prelude-C-124C-124 (Unelab-TTImp-n--6849-3472-usedBinder e-7 e-8 'erased e-10 e-9 arg-1 e-9) (lambda () (Unelab-TTImp-used 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) e-10)))))))) ((2) (let ((e-15 (vector-ref sc0 4))) ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-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))) (Basics-Prelude-C-124C-124 (Unelab-TTImp-used 'erased arg-1 e-18) (lambda () (Unelab-TTImp-used 'erased arg-1 e-19)))))) ((5) (let ((e-24 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-24))) ((6) (let ((e-28 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-28))) ((7) (let ((e-33 (vector-ref sc0 4))) (Unelab-TTImp-used 'erased arg-1 e-33))) ((8) (let ((e-37 (vector-ref sc0 3))) (Unelab-TTImp-used 'erased arg-1 e-37)))(else 1))))) (define Unelab-TTImp-unelabUniqueBinders (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 (vector 1 0) arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst 'erased 'erased e-5))))))))) -(define Unelab-TTImp-unelabTyC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 e-2 (TT-Core-nameAt 'erased arg-0 e-4 'erased)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3641) (TT-Core-weaken_Weaken__Term n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (TT-Core-weakenNs_Weaken__Term vars ns arg-3645))))) arg-0 e-4 'erased arg-3))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((1) ((Context-Core-getFullName arg-1 e-9) eta-0))(else (let ((act-26 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc4 1))) (Context-Core-aliasName arg-1 e-10 eta-0))))))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 0 e-7 e-10) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1))))))))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-7 0) (Normalise-Core-gErased 'erased e-7))))(else (vector 1 (vector 0 (vector 0 e-7 e-9) (Normalise-Core-gErased 'erased e-7))))))))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((mkn (Name-Core-nameRoot e-12))) (let ((act-25 (Context-Core-lookupTyExact (vector 8 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1)))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-11 0) (Normalise-Core-gErased 'erased e-11))))(else (vector 1 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gErased 'erased e-11))))))))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy (vector 1 e-17 arg-0) arg-1 arg-2 (vector 1 e-18 arg-3) e-19 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-0 (vector-ref sc3 1))) (let ((sc4 e-0)) (cond ((equal? sc4 0) (let ((xC-39 (Unelab-TTImp-n--7207-4468-uniqueLocal arg-0 e-17 e-19 e-18 e-16 arg-3 arg-2 arg-1 arg-0 e-17))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc5 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 xC-39 e-18 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-19) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-6)) eta-0))))))))(else (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 e-17 e-18 e-19 e-2 e-6) eta-0)))))))))))(else (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 e-17 e-18 e-19 e-2 e-6) eta-0))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 e-22 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 e-23 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-3) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((e-11 (vector-ref sc7 3))) (let ((e-10 (vector-ref sc7 4))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((2) (let ((e-14 (vector-ref sc8 3))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((1) (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-17)))))))))(else (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 9 e-21 e-2 (vector 1 e-12) e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-17)))))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21)))))))))))))))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-28) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (let ((e-1 (vector-ref sc5 2))) (let ((sc6 arg-2)) (case (vector-ref sc6 0) ((1) (vector 1 (vector 0 (vector 17 e-25 e-26 e-1 e-7) e-4)))(else (vector 1 (vector 0 e-7 e-4)))))))(else (vector 1 (vector 0 e-7 e-4)))))))))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 19 e-30 e-31 e-2) (Normalise-Core-gErased 'erased e-30))))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 20 e-34 e-2) (Normalise-Core-gErased 'erased e-34)))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 21 e-39 e-2) (Normalise-Core-gErased 'erased e-39)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 27 e-43 e-44) (Normalise-Core-gErased 'erased e-43))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 e-46 0) (Normalise-Core-gErased 'erased e-46)))))) ((11) (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 28 e-49) (Normalise-Core-gType 'erased e-49))))))(else (let ((fc (TT-Core-getLoc 'erased arg-4))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 fc 1) (Normalise-Core-gErased 'erased fc)))))))))) +(define Unelab-TTImp-unelabTyC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 e-2 (TT-Core-nameAt 'erased arg-0 e-4 'erased)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3584) (TT-Core-weaken_Weaken__Term n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (TT-Core-weakenNs_Weaken__Term vars ns arg-3588))))) arg-0 e-4 'erased arg-3))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((1) ((Context-Core-getFullName arg-1 e-9) eta-0))(else (let ((act-26 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc4 1))) (Context-Core-aliasName arg-1 e-10 eta-0))))))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 0 e-7 e-10) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1))))))))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-7 0) (Normalise-Core-gErased 'erased e-7))))(else (vector 1 (vector 0 (vector 0 e-7 e-9) (Normalise-Core-gErased 'erased e-7))))))))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((mkn (Name-Core-nameRoot e-12))) (let ((act-25 (Context-Core-lookupTyExact (vector 8 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1)))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (vector 1 (vector 0 (vector 31 e-11 0) (Normalise-Core-gErased 'erased e-11))))(else (vector 1 (vector 0 (vector 29 e-11 mkn) (Normalise-Core-gErased 'erased e-11))))))))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy (vector 1 e-17 arg-0) arg-1 arg-2 (vector 1 e-18 arg-3) e-19 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-0 (vector-ref sc3 1))) (let ((sc4 e-0)) (cond ((equal? sc4 0) (let ((xC-39 (Unelab-TTImp-n--7016-4466-uniqueLocal arg-0 e-17 e-19 e-18 e-16 arg-3 arg-2 arg-1 arg-0 e-17))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc5 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 xC-39 e-18 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-19) e-2 (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) e-6)) eta-0))))))))(else (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 e-17 e-18 e-19 e-2 e-6) eta-0)))))))))))(else (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) ((Unelab-TTImp-unelabBinder arg-0 arg-1 arg-2 e-16 arg-3 e-17 e-18 e-19 e-2 e-6) eta-0))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 e-22 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 e-23 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-3) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((e-11 (vector-ref sc7 3))) (let ((e-10 (vector-ref sc7 4))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((2) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((1) (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))(else (let ((act-28 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 9 e-21 e-2 (vector 1 e-12) e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16)))))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21))))))))))(else (vector 1 (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21)))))))))))))))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-28) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (let ((e-1 (vector-ref sc5 2))) (let ((sc6 arg-2)) (case (vector-ref sc6 0) ((1) (vector 1 (vector 0 (vector 17 e-25 e-26 e-1 e-7) e-4)))(else (vector 1 (vector 0 e-7 e-4)))))))(else (vector 1 (vector 0 e-7 e-4)))))))))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 19 e-30 e-31 e-2) (Normalise-Core-gErased 'erased e-30))))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 20 e-34 e-2) (Normalise-Core-gErased 'erased e-34)))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 21 e-39 e-2) (Normalise-Core-gErased 'erased e-39)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 27 e-43 e-44) (Normalise-Core-gErased 'erased e-43))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 e-46 0) (Normalise-Core-gErased 'erased e-46)))))) ((11) (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 28 e-49) (Normalise-Core-gType 'erased e-49))))))(else (let ((fc (TT-Core-getLoc 'erased arg-4))) (lambda (eta-0) (vector 1 (vector 0 (vector 31 fc 1) (Normalise-Core-gErased 'erased fc)))))))))) (define Unelab-TTImp-unelabTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unelab-TTImp-unelabSugar 'erased arg-1 arg-2 e-5) ext-0)))))))) -(define Unelab-TTImp-unelabSugar (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-3))) ((2) (lambda (eta-0) (vector 1 arg-3)))(else (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-case--unelabSugar-4057 'erased arg-2 e-2 e-3 arg-1 (Unelab-TTImp-n--7201-4037-getFnArgs 'erased arg-2 e-2 e-3 arg-1 e-2 (vector 0 ))))))))))) +(define Unelab-TTImp-unelabSugar (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-3))) ((2) (lambda (eta-0) (vector 1 arg-3)))(else (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-case--unelabSugar-4055 'erased arg-2 e-2 e-3 arg-1 (Unelab-TTImp-n--7010-4035-getFnArgs 'erased arg-2 e-2 e-3 arg-1 e-2 (vector 0 ))))))))))) (define Unelab-TTImp-unelabPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 3 e-2)))))))))))))))) (define Unelab-TTImp-unelabNoSugar (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 (vector 1 1) arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst 'erased 'erased e-5))))))))) (define Unelab-TTImp-unelabNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 (vector 2 ) arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst 'erased 'erased e-5))))))))) -(define Unelab-TTImp-unelabCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Unelab-TTImp-case--caseC-32blockC-32inC-32unelabCase-3838 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0)))) (else (vector 1 arg-3)))))))))))))))) -(define Unelab-TTImp-unelabBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 2 arg-3 e-2 e-8 (vector 1 arg-5) e-7 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 2 e-1 e-2 e-3 e-4) arg-9)))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-9 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-11 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-7 arg-5 e-11 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 1 e-6 e-7 e-8 e-9) arg-9)))))))))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-13) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--caseC-32blockC-32inC-32unelabBinder-5609 arg-0 e-11 e-14 e-13 e-12 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 e-3 e-2 _-0 e-6 (Basics-Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Unelab-TTImp-n--7213-5534-isNoSugar arg-0 e-11 e-14 e-13 e-12 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 arg-2))))))) (vector 1 (vector 0 (vector 1 arg-3 e-12 e-6 nm e-2 arg-8) (Normalise-Core-gType 'erased arg-3))))))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-19 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (vector 1 (vector 0 arg-8 (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 5 e-16 e-17 e-19) arg-9))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-23 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-24 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-22 arg-5 e-7 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 4 e-21 e-22 e-23 e-24) arg-9)))))))))))))))))))))))) (else (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-28 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (vector 1 (vector 0 arg-8 (Normalise-Core-gType 'erased arg-3)))))))))))))))) -(define Unelab-TTImp-unelab (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((mkn (Strings-Types-Prelude-C-43C-43 (Name-Core-nameRoot e-2) (Unelab-TTImp-n--10088-6063-showScope arg-0 e-4 e-3 e-2 e-1 arg-2 arg-1 e-4)))) (lambda (eta-0) (vector 1 (vector 29 e-1 mkn)))))))))(else (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 (vector 0 ) arg-2 arg-3 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst 'erased 'erased e-5))))))))))))) -(define Utils-TTImp-case--uniqueName-2751 (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--6340-2687-next arg-0 arg-1 arg-2 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 arg-0))))))) -(define Utils-TTImp-case--uniqueNameC-44next-2721 (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-Types-Prelude-C-43C-43 e-2 (Strings-Types-Prelude-C-43C-43 "_" (Show-Prelude-show_Show__Int (b+ e-3 1 63))))))))) -(define Utils-TTImp-case--uniqueNameC-44usedName-2698 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) arg-0 arg-1))(else 0))))) -(define Utils-TTImp-case--caseC-32blockC-32inC-32nameNum-2652 (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 (Types-Prelude-reverse (Types-Prelude-pack e-2)) (Types-Prelude-cast_Cast__String_Int (Types-Prelude-reverse arg-1))))(else (vector 0 arg-0 0)))))))(else (vector 0 arg-0 0)))))) -(define Utils-TTImp-case--nameNum-2624 (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--caseC-32blockC-32inC-32nameNum-2652 arg-0 e-2 e-3 (Types-Prelude-unpack e-3)))))))))) -(define Utils-TTImp-case--caseC-32blockC-32inC-32substNamesC-39-2363 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1))(else (vector 16 arg-1 arg-0)))))) -(define Utils-TTImp-case--substNamesC-39-2346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--caseC-32blockC-32inC-32substNamesC-39-2363 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Name-Core-C-61C-61_Eq__Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Name-Core-C-47C-61_Eq__Name arg-5 arg-6)))) (vector 1 arg-0) arg-2))) (else (vector 16 arg-1 arg-0)))))) -(define Utils-TTImp-case--caseC-32blockC-32inC-32substNamesC-39-2308 (lambda (arg-0 arg-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--substNamesC-39-2291 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--caseC-32blockC-32inC-32substNamesC-39-2308 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Name-Core-C-61C-61_Eq__Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Name-Core-C-47C-61_Eq__Name arg-5 arg-6)))) arg-0 arg-2))) (else (vector 0 arg-1 arg-0)))))) -(define Utils-TTImp-case--findAllNames-2169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-6))))))) -(define Utils-TTImp-case--findAllNames-2131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-6))))))) -(define Utils-TTImp-case--findAllNames-2106 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 arg-0 (vector 0 ))) (else (vector 0 )))))) -(define Utils-TTImp-case--findBindableNames-2020 (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--findBindableNames-1974 (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--findBindableNames-1941 (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--getUnique-1917 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Utils-TTImp-getUnique arg-1 (Strings-Types-Prelude-C-43C-43 arg-0 "'"))) (else arg-0))))) -(define Utils-TTImp-n--6340-2686-usedName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-lookupTyName (vector 1 arg-0) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) arg-0 arg-1))(else 0))))))))))) -(define Utils-TTImp-n--6340-2687-next (lambda (arg-0 arg-1 arg-2 arg-3) (Utils-TTImp-case--uniqueNameC-44next-2721 arg-0 arg-1 arg-2 arg-3 (Utils-TTImp-nameNum arg-3)))) -(define Utils-TTImp-uniqueName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Utils-TTImp-n--6340-2686-usedName arg-2 arg-1 arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Utils-TTImp-uniqueName arg-0 arg-1 (Utils-TTImp-n--6340-2687-next arg-2 arg-1 arg-0 arg-2) ext-0)) (else (vector 1 arg-2))))))))))) +(define Unelab-TTImp-unelabCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Unelab-TTImp-case--caseC-32blockC-32inC-32unelabCase-3836 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0)))) (else (vector 1 arg-3)))))))))))))))) +(define Unelab-TTImp-unelabBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 2 arg-3 e-1 e-7 (vector 1 arg-5) e-6 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 2 e-1 e-2 e-3) arg-9))))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-7 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-5 arg-5 e-10 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 1 e-5 e-6 e-7) arg-9))))))))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-10) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--caseC-32blockC-32inC-32unelabBinder-5593 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 (Basics-Prelude-C-124C-124 (Unelab-TTImp-used 'erased 0 arg-7) (lambda () (Unelab-TTImp-n--7022-5520-isNoSugar arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 arg-2))))))) (vector 1 (vector 0 (vector 1 arg-3 e-9 e-6 nm e-2 arg-8) (Normalise-Core-gType 'erased arg-3)))))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (vector 1 (vector 0 arg-8 (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 5 e-13 e-15) arg-9)))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-19 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 3 arg-3 e-17 arg-5 e-7 e-2 arg-8) (Normalise-Core-gnf arg-0 arg-4 (vector 3 arg-3 arg-5 (vector 4 e-17 e-18 e-19) arg-9))))))))))))))))))))))) (else (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-22 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (vector 1 (vector 0 arg-8 (Normalise-Core-gType 'erased arg-3)))))))))))))))) +(define Unelab-TTImp-unelab (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((mkn (Strings-Types-Prelude-C-43C-43 (Name-Core-nameRoot e-2) (Unelab-TTImp-n--9854-6029-showScope arg-0 e-4 e-3 e-2 e-1 arg-2 arg-1 e-4)))) (lambda (eta-0) (vector 1 (vector 29 e-1 mkn)))))))))(else (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabTy arg-0 arg-1 (vector 0 ) arg-2 arg-3 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Builtin-fst 'erased 'erased e-5))))))))))))) +(define Utils-TTImp-case--uniqueName-2757 (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--6157-2693-next arg-0 arg-1 arg-2 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 arg-0))))))) +(define Utils-TTImp-case--uniqueNameC-44next-2727 (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-Types-Prelude-C-43C-43 e-2 (Strings-Types-Prelude-C-43C-43 "_" (Show-Prelude-show_Show__Int (b+ e-3 1 63))))))))) +(define Utils-TTImp-case--uniqueNameC-44usedName-2704 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) arg-0 arg-1))(else 0))))) +(define Utils-TTImp-case--caseC-32blockC-32inC-32nameNum-2658 (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 (Types-Prelude-reverse (Types-Prelude-pack e-2)) (Types-Prelude-cast_Cast__String_Int (Types-Prelude-reverse arg-1))))(else (vector 0 arg-0 0)))))))(else (vector 0 arg-0 0)))))) +(define Utils-TTImp-case--nameNum-2630 (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--caseC-32blockC-32inC-32nameNum-2658 arg-0 e-2 e-3 (Types-Prelude-unpack e-3)))))))))) +(define Utils-TTImp-case--caseC-32blockC-32inC-32substNamesC-39-2369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) e-1))(else (vector 16 arg-1 arg-0)))))) +(define Utils-TTImp-case--substNamesC-39-2352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--caseC-32blockC-32inC-32substNamesC-39-2369 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Name-Core-C-61C-61_Eq__Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Name-Core-C-47C-61_Eq__Name arg-5 arg-6)))) (vector 1 arg-0) arg-2))) (else (vector 16 arg-1 arg-0)))))) +(define Utils-TTImp-case--caseC-32blockC-32inC-32substNamesC-39-2314 (lambda (arg-0 arg-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--substNamesC-39-2297 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--caseC-32blockC-32inC-32substNamesC-39-2314 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Name-Core-C-61C-61_Eq__Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Name-Core-C-47C-61_Eq__Name arg-5 arg-6)))) arg-0 arg-2))) (else (vector 0 arg-1 arg-0)))))) +(define Utils-TTImp-case--findAllNames-2175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-6))))))) +(define Utils-TTImp-case--findAllNames-2137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-6))))))) +(define Utils-TTImp-case--findAllNames-2112 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 arg-0 (vector 0 ))) (else (vector 0 )))))) +(define Utils-TTImp-case--findBindableNames-2026 (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--findBindableNames-1980 (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--findBindableNames-1947 (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--getUnique-1923 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Utils-TTImp-getUnique arg-1 (Strings-Types-Prelude-C-43C-43 arg-0 "'"))) (else arg-0))))) +(define Utils-TTImp-n--6157-2692-usedName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-lookupTyName (vector 1 arg-0) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) arg-0 arg-1))(else 0))))))))))) +(define Utils-TTImp-n--6157-2693-next (lambda (arg-0 arg-1 arg-2 arg-3) (Utils-TTImp-case--uniqueNameC-44next-2727 arg-0 arg-1 arg-2 arg-3 (Utils-TTImp-nameNum arg-3)))) +(define Utils-TTImp-uniqueName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Utils-TTImp-n--6157-2692-usedName arg-2 arg-1 arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Utils-TTImp-uniqueName arg-0 arg-1 (Utils-TTImp-n--6157-2693-next arg-2 arg-1 arg-0 arg-2) ext-0)) (else (vector 1 arg-2))))))))))) (define Utils-TTImp-substNamesTyC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-2)))))))) (define Utils-TTImp-substNamesDeclC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesTyC-39 arg-0 arg-1 arg-2 e-4)))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 e-6 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-7)))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 e-9 (Utils-TTImp-substNamesDataC-39 arg-0 arg-1 arg-2 e-10)))))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (vector 5 e-11 e-12 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-13))))))(else arg-3))))) (define Utils-TTImp-substNamesDataC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-2) e-3 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesTyC-39 arg-0 arg-1 arg-2 eta-0)) e-4)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 e-6 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-7)))))))))) (define Utils-TTImp-substNamesClauseC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((boundC-39 (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (Utils-TTImp-findBindableNames 0 arg-1 (vector 0 ) e-1))) arg-1))) (vector 0 e-0 (Utils-TTImp-substNamesC-39 arg-0 (vector 0 ) (vector 0 ) e-1) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-2))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((boundC-39 (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (Utils-TTImp-findBindableNames 0 arg-1 (vector 0 ) e-4))) arg-1))) (vector 1 e-3 (Utils-TTImp-substNamesC-39 arg-0 (vector 0 ) (vector 0 ) e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5) e-6 e-7)))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 (Utils-TTImp-substNamesC-39 arg-0 arg-1 (vector 0 ) e-9))))))))) (define Utils-TTImp-substNamesClause (lambda (ext-0 ext-1 ext-2) (Utils-TTImp-substNamesClauseC-39 1 ext-0 ext-1 ext-2))) -(define Utils-TTImp-substNamesC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-54 (vector-ref sc1 1))) (let ((e-55 (vector-ref sc1 2))) (Utils-TTImp-case--substNamesC-39-2291 e-55 e-54 arg-2 arg-1 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-55 arg-1))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((boundC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((boundC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-10) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((e-17 (vector-ref sc1 6))) (let ((boundC-39 (vector 1 e-14 arg-1))) (vector 3 e-12 e-13 e-14 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-15) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-16) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-17)))))))))) ((4) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (vector 4 e-18 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-19) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-20) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-21))))))) ((5) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((boundC-39 (List-Types-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-23) arg-1))) (vector 5 e-22 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-23) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-24))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (vector 8 e-25 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-26) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-27)))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (let ((e-31 (vector-ref sc1 4))) (vector 9 e-28 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-29) e-30 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-31))))))) ((10) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (vector 10 e-32 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-33) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-34)))))) ((12) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (vector 12 e-35 e-36 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-37)))))) ((14) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (vector 14 e-38 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-39))))) ((17) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (let ((e-43 (vector-ref sc1 4))) (vector 17 e-40 e-41 e-42 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-43))))))) ((18) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((e-46 (vector-ref sc1 3))) (vector 18 e-44 e-45 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-46)))))) ((19) (let ((e-47 (vector-ref sc1 1))) (let ((e-48 (vector-ref sc1 2))) (let ((e-49 (vector-ref sc1 3))) (vector 19 e-47 e-48 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-49)))))) ((20) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 20 e-50 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-51))))) ((21) (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (vector 21 e-52 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-53)))))(else arg-3))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((16) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (Utils-TTImp-case--substNamesC-39-2346 e-57 e-56 arg-2 arg-1 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (vector 1 e-57) arg-1))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((boundC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((boundC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-10) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((e-17 (vector-ref sc1 6))) (let ((boundC-39 (vector 1 e-14 arg-1))) (vector 3 e-12 e-13 e-14 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-15) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-16) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-17)))))))))) ((4) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (vector 4 e-18 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-19) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-20) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-21))))))) ((5) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((boundC-39 (List-Types-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-23) arg-1))) (vector 5 e-22 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-23) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-24))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (vector 8 e-25 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-26) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-27)))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (let ((e-31 (vector-ref sc1 4))) (vector 9 e-28 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-29) e-30 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-31))))))) ((10) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (vector 10 e-32 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-33) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-34)))))) ((12) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (vector 12 e-35 e-36 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-37)))))) ((14) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (vector 14 e-38 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-39))))) ((17) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (let ((e-43 (vector-ref sc1 4))) (vector 17 e-40 e-41 e-42 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-43))))))) ((18) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((e-46 (vector-ref sc1 3))) (vector 18 e-44 e-45 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-46)))))) ((19) (let ((e-47 (vector-ref sc1 1))) (let ((e-48 (vector-ref sc1 2))) (let ((e-49 (vector-ref sc1 3))) (vector 19 e-47 e-48 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-49)))))) ((20) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 20 e-50 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-51))))) ((21) (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (vector 21 e-52 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-53)))))(else arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((boundC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (let ((boundC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-10) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((e-17 (vector-ref sc0 6))) (let ((boundC-39 (vector 1 e-14 arg-1))) (vector 3 e-12 e-13 e-14 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-15) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-16) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-17)))))))))) ((4) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (vector 4 e-18 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-19) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-20) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-21))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((boundC-39 (List-Types-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-23) arg-1))) (vector 5 e-22 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-23) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-24))))))) ((8) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (vector 8 e-25 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-26) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-27)))))) ((9) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 9 e-28 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-29) e-30 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-31))))))) ((10) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (vector 10 e-32 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-33) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-34)))))) ((12) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (vector 12 e-35 e-36 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-37)))))) ((14) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (vector 14 e-38 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-39))))) ((17) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (let ((e-43 (vector-ref sc0 4))) (vector 17 e-40 e-41 e-42 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-43))))))) ((18) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (vector 18 e-44 e-45 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-46)))))) ((19) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (vector 19 e-47 e-48 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-49)))))) ((20) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (vector 20 e-50 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-51))))) ((21) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (vector 21 e-52 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-53)))))(else arg-3)))))))) +(define Utils-TTImp-substNamesC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-54 (vector-ref sc1 1))) (let ((e-55 (vector-ref sc1 2))) (Utils-TTImp-case--substNamesC-39-2297 e-55 e-54 arg-2 arg-1 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-55 arg-1))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((boundC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((boundC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-10) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((e-17 (vector-ref sc1 6))) (let ((boundC-39 (vector 1 e-14 arg-1))) (vector 3 e-12 e-13 e-14 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-15) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-16) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-17)))))))))) ((4) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (vector 4 e-18 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-19) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-20) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-21))))))) ((5) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((boundC-39 (List-Types-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-23) arg-1))) (vector 5 e-22 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-23) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-24))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (vector 8 e-25 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-26) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-27)))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (let ((e-31 (vector-ref sc1 4))) (vector 9 e-28 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-29) e-30 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-31))))))) ((10) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (vector 10 e-32 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-33) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-34)))))) ((12) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (vector 12 e-35 e-36 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-37)))))) ((14) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (vector 14 e-38 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-39))))) ((17) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (let ((e-43 (vector-ref sc1 4))) (vector 17 e-40 e-41 e-42 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-43))))))) ((18) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((e-46 (vector-ref sc1 3))) (vector 18 e-44 e-45 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-46)))))) ((19) (let ((e-47 (vector-ref sc1 1))) (let ((e-48 (vector-ref sc1 2))) (let ((e-49 (vector-ref sc1 3))) (vector 19 e-47 e-48 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-49)))))) ((20) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 20 e-50 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-51))))) ((21) (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (vector 21 e-52 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-53)))))(else arg-3))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((16) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (Utils-TTImp-case--substNamesC-39-2352 e-57 e-56 arg-2 arg-1 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (vector 1 e-57) arg-1))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((boundC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((boundC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-10) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((e-17 (vector-ref sc1 6))) (let ((boundC-39 (vector 1 e-14 arg-1))) (vector 3 e-12 e-13 e-14 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-15) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-16) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-17)))))))))) ((4) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (vector 4 e-18 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-19) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-20) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-21))))))) ((5) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((boundC-39 (List-Types-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-23) arg-1))) (vector 5 e-22 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-23) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-24))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (vector 8 e-25 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-26) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-27)))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (let ((e-31 (vector-ref sc1 4))) (vector 9 e-28 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-29) e-30 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-31))))))) ((10) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (vector 10 e-32 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-33) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-34)))))) ((12) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (vector 12 e-35 e-36 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-37)))))) ((14) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (vector 14 e-38 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-39))))) ((17) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (let ((e-43 (vector-ref sc1 4))) (vector 17 e-40 e-41 e-42 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-43))))))) ((18) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((e-46 (vector-ref sc1 3))) (vector 18 e-44 e-45 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-46)))))) ((19) (let ((e-47 (vector-ref sc1 1))) (let ((e-48 (vector-ref sc1 2))) (let ((e-49 (vector-ref sc1 3))) (vector 19 e-47 e-48 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-49)))))) ((20) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 20 e-50 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-51))))) ((21) (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (vector 21 e-52 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-53)))))(else arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((boundC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (let ((boundC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-10) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((e-17 (vector-ref sc0 6))) (let ((boundC-39 (vector 1 e-14 arg-1))) (vector 3 e-12 e-13 e-14 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-15) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-16) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-17)))))))))) ((4) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (vector 4 e-18 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-19) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-20) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-21))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((boundC-39 (List-Types-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-23) arg-1))) (vector 5 e-22 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-23) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-24))))))) ((8) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (vector 8 e-25 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-26) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-27)))))) ((9) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 9 e-28 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-29) e-30 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-31))))))) ((10) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (vector 10 e-32 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-33) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-34)))))) ((12) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (vector 12 e-35 e-36 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-37)))))) ((14) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (vector 14 e-38 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-39))))) ((17) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (let ((e-43 (vector-ref sc0 4))) (vector 17 e-40 e-41 e-42 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-43))))))) ((18) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (vector 18 e-44 e-45 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-46)))))) ((19) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (vector 19 e-47 e-48 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-49)))))) ((20) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (vector 20 e-50 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-51))))) ((21) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (vector 21 e-52 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-53)))))(else arg-3)))))))) (define Utils-TTImp-substNames (lambda (ext-0 ext-1 ext-2) (Utils-TTImp-substNamesC-39 1 ext-0 ext-1 ext-2))) (define Utils-TTImp-substLocTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 (Utils-TTImp-substLoc arg-0 e-2))))))) (define Utils-TTImp-substLocDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 arg-0 e-1 e-2 e-3 (Utils-TTImp-substLocTy arg-0 e-4))))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 arg-0 e-6 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocDecl arg-0 eta-0)) e-13)))))(else arg-1))))) @@ -2095,45 +2067,44 @@ (define Utils-TTImp-substLocClause (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 (Utils-TTImp-substLoc arg-0 e-1) (Utils-TTImp-substLoc arg-0 e-2))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (vector 1 arg-0 (Utils-TTImp-substLoc arg-0 e-4) (Utils-TTImp-substLoc arg-0 e-5) e-6 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-0 eta-0)) e-7))))))) (else (let ((e-9 (vector-ref sc0 2))) (vector 2 arg-0 (Utils-TTImp-substLoc arg-0 e-9)))))))) (define Utils-TTImp-substLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-0 e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (vector 1 arg-0 e-3 e-4 e-5 (Utils-TTImp-substLoc arg-0 e-6) (Utils-TTImp-substLoc arg-0 e-7)))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (vector 2 arg-0 e-9 e-10 e-11 (Utils-TTImp-substLoc arg-0 e-12) (Utils-TTImp-substLoc arg-0 e-13)))))))) ((3) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (vector 3 arg-0 e-15 e-16 (Utils-TTImp-substLoc arg-0 e-17) (Utils-TTImp-substLoc arg-0 e-18) (Utils-TTImp-substLoc arg-0 e-19)))))))) ((4) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (vector 4 arg-0 (Utils-TTImp-substLoc arg-0 e-21) (Utils-TTImp-substLoc arg-0 e-22) (Types-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLoc arg-0 eta-0)) e-39))))) ((14) (let ((e-41 (vector-ref sc0 2))) (vector 14 arg-0 (Utils-TTImp-substLoc arg-0 e-41)))) ((17) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((e-45 (vector-ref sc0 4))) (vector 17 arg-0 e-43 e-44 (Utils-TTImp-substLoc arg-0 e-45)))))) ((18) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (vector 18 arg-0 e-47 (Utils-TTImp-substLoc arg-0 e-48))))) ((19) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (vector 19 arg-0 e-50 (Utils-TTImp-substLoc arg-0 e-51))))) ((20) (let ((e-53 (vector-ref sc0 2))) (vector 20 arg-0 (Utils-TTImp-substLoc arg-0 e-53)))) ((21) (let ((e-55 (vector-ref sc0 2))) (vector 21 arg-0 (Utils-TTImp-substLoc arg-0 e-55))))(else arg-1))))) (define Utils-TTImp-substBindVars (lambda (ext-0 ext-1 ext-2) (Utils-TTImp-substNamesC-39 0 ext-0 ext-1 ext-2))) -(define Utils-TTImp-nameNum (lambda (arg-0) (Utils-TTImp-case--nameNum-2624 arg-0 (Strings-Data-span (lambda (eta-0) (Types-Prelude-isDigit eta-0)) (Types-Prelude-reverse arg-0))))) +(define Utils-TTImp-nameNum (lambda (arg-0) (Utils-TTImp-case--nameNum-2630 arg-0 (Strings-Data-span (lambda (eta-0) (Types-Prelude-isDigit eta-0)) (Types-Prelude-reverse arg-0))))) (define Utils-TTImp-lowerFirst (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") 1)(else (Types-Prelude-isLower (string-ref arg-0 0))))))) -(define Utils-TTImp-getUnique (lambda (arg-0 arg-1) (Utils-TTImp-case--getUnique-1917 arg-1 arg-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) arg-1 arg-0)))) +(define Utils-TTImp-getUnique (lambda (arg-0 arg-1) (Utils-TTImp-case--getUnique-1923 arg-1 arg-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) 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-Types-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-Types-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-Types-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-Types-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-Types-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))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findIBindVars eta-0))) e-33)))(else (vector 0 )))))) -(define Utils-TTImp-findBindableNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((1) (let ((e-46 (vector-ref sc2 1))) (Utils-TTImp-case--findBindableNames-1941 e-46 e-44 arg-2 arg-1 (Basics-Prelude-C-38C-38 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (vector 1 e-46) arg-1)) (lambda () (Utils-TTImp-lowerFirst e-46))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-5 (vector-ref sc2 6))) (let ((envC-39 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 e-6 arg-1))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc2 4))) (let ((e-10 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((envC-39 (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2 arg-1))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (List-Types-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-Types-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-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-43 (vector-ref sc3 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc2 3))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((envC-39 (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6 arg-1))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((envC-39 (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2 arg-1))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (List-Types-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-Types-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-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc1 3))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6 arg-1))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2 arg-1))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Types-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-Types-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-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-43 (vector-ref sc1 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc0 3))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))) -(define Utils-TTImp-findAllNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Utils-TTImp-case--findAllNames-2106 e-1 e-0 arg-0 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-1 arg-0)))))) ((1) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) arg-0) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 e-8 arg-0))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-6) (Utils-TTImp-findAllNames envC-39 e-7))))))) ((2) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2 arg-0))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames envC-39 e-12) (Utils-TTImp-findAllNames envC-39 e-13))))))) ((8) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-15) (Utils-TTImp-findAllNames arg-0 e-16))))) ((9) (let ((e-18 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 4))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-18) (Utils-TTImp-findAllNames arg-0 e-20))))) ((10) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-22) (Utils-TTImp-findAllNames arg-0 e-23))))) ((17) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (vector 1 e-26 (Utils-TTImp-findAllNames arg-0 e-27))))) ((18) (let ((e-30 (vector-ref sc0 3))) (Utils-TTImp-findAllNames arg-0 e-30))) ((19) (let ((e-33 (vector-ref sc0 3))) (Utils-TTImp-findAllNames arg-0 e-33))) ((20) (let ((e-35 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-35))) ((21) (let ((e-37 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-37))) ((22) (let ((e-39 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-39))) ((25) (let ((e-41 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-41))) ((12) (let ((e-44 (vector-ref sc0 3))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findAllNames arg-0 eta-0))) e-44)))(else (vector 0 )))))) -(define TTImp-TTImp-case--fromBuf-9237 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__ImpData arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2181 eta-2))))) arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-2)))) arg-2180 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1))))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpDecl" eta-0))))))) -(define TTImp-TTImp-case--fromBuf-8794 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 7 (vector 1 ))))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 7 (vector 2 ))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FnOpt" eta-0))))))) -(define TTImp-TTImp-case--fromBuf-8380 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpData" eta-0))))))) -(define TTImp-TTImp-case--fromBuf-8228 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DataOpt" eta-0))))))) -(define TTImp-TTImp-case--fromBuf-8086 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-5 e-6 e-7 (vector 0 ) e-8))))))))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpClause" eta-0))))))) -(define TTImp-TTImp-case--fromBuf-7883 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "AltType" eta-0))))))) -(define TTImp-TTImp-case--fromBuf-7803 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "BindMode" eta-0))))))) -(define TTImp-TTImp-case--fromBuf-7708 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "IFieldUpdate" eta-0))))))) -(define TTImp-TTImp-case--fromBuf-6864 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 2 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 9 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 10 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__AltType arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 12 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 13 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-5 e-6)))))))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__BindMode arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 15 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 15) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 16 e-5 e-6)))))))))))))) ((equal? sc0 16) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__UseSide arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 17 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 17) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 18 e-5 (vector 5 ) e-6)))))))))))))) ((equal? sc0 18) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 19 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 19) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 20 e-5 e-6)))))))))))))) ((equal? sc0 20) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 21 e-5 e-6)))))))))))))) ((equal? sc0 21) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 22 e-5 e-6)))))))))))))) ((equal? sc0 22) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 23 e-5 e-6)))))))))))))) ((equal? sc0 23) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 24 e-5 e-6)))))))))))))) ((equal? sc0 24) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 25 e-5 e-6)))))))))))))) ((equal? sc0 25) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 26 e-5 e-6)))))))))))))) ((equal? sc0 26) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 27 e-5 e-6)))))))))))))) ((equal? sc0 27) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-5))))))))) ((equal? sc0 28) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 29 e-5 e-6)))))))))))))) ((equal? sc0 29) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 31 e-5 e-6)))))))))))))) ((equal? sc0 30) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 32 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RawImp" eta-0))))))) -(define TTImp-TTImp-case--implicitsAsC-44setAs-5555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImp-TTImp-n--9660-5168-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-5 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TTImp-TTImp-n--9660-5169-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-4 e-6 (vector 0 arg-4 arg-3)))))))))))))))))))) -(define TTImp-TTImp-case--implicitsAsC-44setAsC-44findImps-5403 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (((arg-10 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-12 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImp-TTImp-n--9660-5168-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-13 e-5) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (((arg-10 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-12 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImp-TTImp-n--9660-5168-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-13 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-11 (TT-Core-forgetDef 'erased 'erased arg-9)) e-6)))))))))))))))))) -(define TTImp-TTImp-case--implicitsAsC-44setAsC-44findImps-5290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImp-TTImp-n--9660-5168-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-10 (vector 2 )) e-6)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImp-TTImp-n--9660-5168-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0))))))))))))) -(define TTImp-TTImp-case--implicitsAsC-44setAsC-44updateNs-5191 (lambda (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 (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TTImp-TTImp-n--9660-5167-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7) (lambda (nsC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-6 nsC-39))))))))) -(define TTImp-TTImp-case--lhsInCurrentNS-4985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-4 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-2 e-5))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-1)))))))) -(define TTImp-TTImp-case--show-4885 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Show-Prelude-show_Show__Nat arg-1))(else (Strings-Types-Prelude-C-43C-43 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." arg-0)) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__Nat arg-1)))))))) -(define TTImp-TTImp-n--7890-3505-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) e-10) (lambda (fc) (lambda (nt) (TT-Core-weaken_Weaken__Term arg-0 arg-1 ((e-11 fc) nt)))))))))))))))))) -(define TTImp-TTImp-n--9660-5167-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--implicitsAsC-44setAsC-44updateNs-5191 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 e-2 arg-6 (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) (vector 1 arg-6) e-1)))))))) (else (vector 0 )))))) -(define TTImp-TTImp-n--9656-5136-setAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9656-5136-setAs arg-0 arg-1 arg-2 arg-3 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-0 e-5 e-2)))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9656-5136-setAs arg-0 arg-1 arg-2 (vector 1 e-5 arg-3) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9656-5136-setAs arg-0 arg-1 arg-2 arg-3 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-10 e-11))) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((TTImp-TTImp-n--9660-5168-findImps arg-0 arg-1 arg-2 e-11 e-10 arg-3 arg-3 e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (TTImp-TTImp-n--9660-5169-impAs arg-0 arg-1 arg-2 e-11 e-10 arg-3 e-10 e-7 (vector 0 e-10 e-11))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) -(define TTImp-TTImp-n--9660-5169-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--9660-5169-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--9660-5169-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--9660-5169-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--9660-5169-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--9660-5169-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--9660-5169-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--9660-5169-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))(else (TTImp-TTImp-n--9660-5169-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))) -(define TTImp-TTImp-n--10174-5621-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--10174-5622-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--10180-5751-fnsUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--10174-5622-getFieldName arg-0 arg-1 eta-0)) arg-6))) -(define TTImp-TTImp-n--10180-5750-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) (Types-Prelude-maybe 'erased 'erased (lambda () arg-10) (lambda () (lambda (f) (vector 1 f arg-10))) arg-9))) -(define TTImp-TTImp-n--9660-5168-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 ((e-9 (vector-ref sc1 4))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((TTImp-TTImp-n--9660-5168-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0)))))))) ((2) (TTImp-TTImp-case--implicitsAsC-44setAsC-44findImps-5290 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-7 e-9 e-4 e-2 e-1 arg-6 (TTImp-TTImp-n--9660-5167-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6)))(else (TTImp-TTImp-case--implicitsAsC-44setAsC-44findImps-5403 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 e-7 e-9 e-8 e-4 e-2 e-1 arg-6 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) arg-8 arg-9)))) (vector 1 e-2) arg-6))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define TTImp-TTImp-n--10174-5623-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)))) ((2) (vector 0 arg-2 arg-3)) ((4) (vector 0 arg-2 arg-3))(else arg-3)))))))) -(define TTImp-TTImp-n--10174-5624-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--10174-5623-expandNS arg-0 arg-1 arg-2 (TTImp-TTImp-n--10174-5621-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--10174-5623-expandNS arg-0 arg-1 arg-2 e-19) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--10174-5623-expandNS arg-0 arg-1 arg-2 eta-0)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--10174-5621-getName arg-0 arg-1 eta-0)) e-22)))))) ((1) (let ((e-24 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-n--10174-5623-expandNS arg-0 arg-1 arg-2 e-24) (vector 0 ))))(else (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 3))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--10174-5624-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))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--10174-5624-defName arg-0 arg-1 (List-Types-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--10174-5623-expandNS arg-0 arg-1 arg-2 e-29) (TTImp-TTImp-n--10180-5752-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--10180-5752-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--10174-5623-expandNS arg-0 arg-1 arg-10 arg-8) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--10174-5623-expandNS arg-0 arg-1 (TTImp-TTImp-n--10180-5750-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)) (TTImp-TTImp-n--10180-5751-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--7890-3505-wknName arg-0 arg-1 arg-2 eta-0)) 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-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((1) (let ((e-46 (vector-ref sc2 1))) (Utils-TTImp-case--findBindableNames-1947 e-46 e-44 arg-2 arg-1 (Basics-Prelude-C-38C-38 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (vector 1 e-46) arg-1)) (lambda () (Utils-TTImp-lowerFirst e-46))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-5 (vector-ref sc2 6))) (let ((envC-39 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 e-6 arg-1))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc2 4))) (let ((e-10 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((envC-39 (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2 arg-1))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (List-Types-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-Types-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-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-43 (vector-ref sc3 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc2 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc2 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc2 3))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((envC-39 (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6 arg-1))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((envC-39 (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2 arg-1))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (List-Types-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-Types-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-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((1) (let ((e-43 (vector-ref sc2 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc1 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc1 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc1 3))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6 arg-1))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2 arg-1))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Types-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-Types-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-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-43 (vector-ref sc1 1))) (vector 1 (vector 0 e-43 (Utils-TTImp-getUnique arg-2 e-43)) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))(else (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-28))) ((19) (let ((e-31 (vector-ref sc0 3))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-31))) ((20) (let ((e-33 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-33))) ((21) (let ((e-35 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-35))) ((22) (let ((e-37 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-37))) ((25) (let ((e-39 (vector-ref sc0 2))) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 e-39))) ((12) (let ((e-42 (vector-ref sc0 3))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-42)))(else (vector 0 ))))))))) +(define Utils-TTImp-findAllNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Utils-TTImp-case--findAllNames-2112 e-1 e-0 arg-0 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-1 arg-0)))))) ((1) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) arg-0) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 e-8 arg-0))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-6) (Utils-TTImp-findAllNames envC-39 e-7))))))) ((2) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2 arg-0))))))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames envC-39 e-12) (Utils-TTImp-findAllNames envC-39 e-13))))))) ((8) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-15) (Utils-TTImp-findAllNames arg-0 e-16))))) ((9) (let ((e-18 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 4))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-18) (Utils-TTImp-findAllNames arg-0 e-20))))) ((10) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (List-Types-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-22) (Utils-TTImp-findAllNames arg-0 e-23))))) ((17) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (vector 1 e-26 (Utils-TTImp-findAllNames arg-0 e-27))))) ((18) (let ((e-30 (vector-ref sc0 3))) (Utils-TTImp-findAllNames arg-0 e-30))) ((19) (let ((e-33 (vector-ref sc0 3))) (Utils-TTImp-findAllNames arg-0 e-33))) ((20) (let ((e-35 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-35))) ((21) (let ((e-37 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-37))) ((22) (let ((e-39 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-39))) ((25) (let ((e-41 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-41))) ((12) (let ((e-44 (vector-ref sc0 3))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findAllNames arg-0 eta-0))) e-44)))(else (vector 0 )))))) +(define TTImp-TTImp-case--fromBuf-9180 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__ImpData arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2181 eta-2))))) arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-5 e-6)))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpDecl" eta-0))))))) +(define TTImp-TTImp-case--fromBuf-8746 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 7 (vector 1 ))))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 7 (vector 2 ))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FnOpt" eta-0))))))) +(define TTImp-TTImp-case--fromBuf-8332 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpData" eta-0))))))) +(define TTImp-TTImp-case--fromBuf-8180 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DataOpt" eta-0))))))) +(define TTImp-TTImp-case--fromBuf-8038 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-5 e-6 e-7 (vector 0 ) e-8))))))))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpClause" eta-0))))))) +(define TTImp-TTImp-case--fromBuf-7835 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "AltType" eta-0))))))) +(define TTImp-TTImp-case--fromBuf-7755 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "BindMode" eta-0))))))) +(define TTImp-TTImp-case--fromBuf-7660 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "IFieldUpdate" eta-0))))))) +(define TTImp-TTImp-case--fromBuf-6816 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 2 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 4 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 9 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 10 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-5 e-6)))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__AltType arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 12 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 13 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-5 e-6)))))))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__BindMode arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 15 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 15) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 16 e-5 e-6)))))))))))))) ((equal? sc0 16) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__UseSide arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 17 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 17) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 18 e-5 (vector 5 ) e-6)))))))))))))) ((equal? sc0 18) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 19 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 19) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 20 e-5 e-6)))))))))))))) ((equal? sc0 20) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 21 e-5 e-6)))))))))))))) ((equal? sc0 21) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 22 e-5 e-6)))))))))))))) ((equal? sc0 22) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 23 e-5 e-6)))))))))))))) ((equal? sc0 23) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 24 e-5 e-6)))))))))))))) ((equal? sc0 24) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 25 e-5 e-6)))))))))))))) ((equal? sc0 25) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 26 e-5 e-6)))))))))))))) ((equal? sc0 26) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 27 e-5 e-6)))))))))))))) ((equal? sc0 27) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-5))))))))) ((equal? sc0 28) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 29 e-5 e-6)))))))))))))) ((equal? sc0 29) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 31 e-5 e-6)))))))))))))) ((equal? sc0 30) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 32 e-5 e-6 e-7)))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RawImp" eta-0))))))) +(define TTImp-TTImp-case--implicitsAsC-44setAs-5507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImp-TTImp-n--9446-5134-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-5 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TTImp-TTImp-n--9446-5135-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-4 e-6 (vector 0 arg-4 arg-3)))))))))))))))))))) +(define TTImp-TTImp-case--implicitsAsC-44setAsC-44findImps-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) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImp-TTImp-n--9446-5134-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 e-5) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImp-TTImp-n--9446-5134-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-10 (TT-Core-forgetDef 'erased 'erased arg-8)) e-6)))))))))))))))))) +(define TTImp-TTImp-case--implicitsAsC-44setAsC-44findImps-5252 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTImp-TTImp-n--9446-5134-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-11 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-9 (vector 2 )) e-6)))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImp-TTImp-n--9446-5134-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0))))))))))))) +(define TTImp-TTImp-case--implicitsAsC-44setAsC-44updateNs-5157 (lambda (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 (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TTImp-TTImp-n--9446-5133-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7) (lambda (nsC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-6 nsC-39))))))))) +(define TTImp-TTImp-case--lhsInCurrentNS-4951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-4 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-2 e-5))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-2 arg-1)))))))) +(define TTImp-TTImp-n--7712-3505-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) e-10) (lambda (fc) (lambda (nt) (TT-Core-weaken_Weaken__Term arg-0 arg-1 ((e-11 fc) nt)))))))))))))))))) +(define TTImp-TTImp-n--9446-5133-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--implicitsAsC-44setAsC-44updateNs-5157 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 e-2 arg-6 (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) (vector 1 arg-6) e-1)))))))) (else (vector 0 )))))) +(define TTImp-TTImp-n--9442-5102-setAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9442-5102-setAs arg-0 arg-1 arg-2 arg-3 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-0 e-5 e-2)))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9442-5102-setAs arg-0 arg-1 arg-2 (vector 1 e-5 arg-3) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-n--9442-5102-setAs arg-0 arg-1 arg-2 arg-3 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-10 e-11))) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((TTImp-TTImp-n--9446-5134-findImps arg-0 arg-1 arg-2 e-11 e-10 arg-3 arg-3 e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (TTImp-TTImp-n--9446-5135-impAs arg-0 arg-1 arg-2 e-11 e-10 arg-3 e-10 e-7 (vector 0 e-10 e-11))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) +(define TTImp-TTImp-n--9446-5135-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--9446-5135-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--9446-5135-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--9446-5135-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--9446-5135-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--9446-5135-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0))))) ((3) (TTImp-TTImp-n--9446-5135-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 (vector 9 arg-6 arg-8 (vector 1 e-6) (vector 17 arg-6 (vector 0 ) e-6 (vector 31 arg-6 0)))))(else (TTImp-TTImp-n--9446-5135-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))(else (TTImp-TTImp-n--9446-5135-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))) +(define TTImp-TTImp-n--9944-5573-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--9944-5574-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--9950-5703-fnsUN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9944-5574-getFieldName arg-0 arg-1 eta-0)) arg-6))) +(define TTImp-TTImp-n--9950-5702-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) (Types-Prelude-maybe 'erased 'erased (lambda () arg-10) (lambda () (lambda (f) (vector 1 f arg-10))) arg-9))) +(define TTImp-TTImp-n--9446-5134-findImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((TTImp-TTImp-n--9446-5134-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0)))))))) ((2) (TTImp-TTImp-case--implicitsAsC-44setAsC-44findImps-5252 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--9446-5133-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6)))(else (TTImp-TTImp-case--implicitsAsC-44setAsC-44findImps-5359 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) arg-8 arg-9)))) (vector 1 e-2) arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define TTImp-TTImp-n--9944-5575-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)))) ((2) (vector 0 arg-2 arg-3)) ((4) (vector 0 arg-2 arg-3))(else arg-3)))))))) +(define TTImp-TTImp-n--9944-5576-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--9944-5575-expandNS arg-0 arg-1 arg-2 (TTImp-TTImp-n--9944-5573-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--9944-5575-expandNS arg-0 arg-1 arg-2 e-19) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9944-5575-expandNS arg-0 arg-1 arg-2 eta-0)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9944-5573-getName arg-0 arg-1 eta-0)) e-22)))))) ((1) (let ((e-24 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-n--9944-5575-expandNS arg-0 arg-1 arg-2 e-24) (vector 0 ))))(else (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 3))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9944-5576-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))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9944-5576-defName arg-0 arg-1 (List-Types-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--9944-5575-expandNS arg-0 arg-1 arg-2 e-29) (TTImp-TTImp-n--9950-5704-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--9950-5704-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--9944-5575-expandNS arg-0 arg-1 arg-10 arg-8) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9944-5575-expandNS arg-0 arg-1 (TTImp-TTImp-n--9950-5702-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)) (TTImp-TTImp-n--9950-5703-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--7712-3505-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-Types-Prelude-C-43C-43 'erased e-3 arg-0) (TTImp-TTImp-weakenNs_Weaken__NestedNames arg-0 e-3 arg-2))))))))) (define TTImp-TTImp-toBuf_TTC__RawImp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1)))) arg-0 e-4) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((act-28 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 e-5) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((act-29 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-6) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0))))))))))))))))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1)))) arg-0 e-10) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 e-11) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-12) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-13) eta-0))))))))))))))))))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-15) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-16) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-17) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-18) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-19) eta-0))))))))))))))))))))))))))))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-21) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-22) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-1)))) arg-0 e-23 eta-0))))))))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-24) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 e-25 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0)))))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-31))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-32) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2180 eta-1)))) arg-0 e-33 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-34) eta-0)))))))))))))))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-35) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-36) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-37) eta-0)))))))))))))))))) ((9) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-39) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 e-40) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-41) eta-0))))))))))))))))))))))) ((10) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-42) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-43) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-44) eta-0)))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-46) eta-0))))))))))))) ((12) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-47) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__AltType arg-0 e-48) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1)))) arg-0 e-49 eta-0)))))))))))))))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-50) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-51) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-52) eta-0)))))))))))))))))) ((14) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-53) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-54) eta-0))))))))))))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-55) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__BindMode arg-0 e-56) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-57) eta-0)))))))))))))))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-58) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-59) eta-0))))))))))))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 16 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-60) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__UseSide arg-0 e-61) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-62) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-63) eta-0))))))))))))))))))))))) ((18) (let ((e-64 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 17 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-64) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-66) eta-0))))))))))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-67) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__LazyReason arg-0 e-68) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-69) eta-0)))))))))))))))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 19 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-70) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-71) eta-0))))))))))))) ((21) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 20 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-72) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-73) eta-0))))))))))))) ((22) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-74) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-75) eta-0))))))))))))) ((23) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 22 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-76) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-77) eta-0))))))))))))) ((24) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 23 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-78) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 e-79 eta-0))))))))))))) ((25) (let ((e-80 (vector-ref sc0 1))) (let ((e-81 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-80) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-81) eta-0))))))))))))) ((26) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 25 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-82) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-83) eta-0))))))))))))) ((27) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 26 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-84) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-0 e-85) eta-0))))))))))))) ((28) (let ((e-86 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 27 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__FC arg-0 e-86) eta-0)))))))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 28 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-87) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-88) eta-0))))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 29 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-92) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-93) eta-0))))))))))))) (else (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 30 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 e-95 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-96) eta-0))))))))))))))))) (define TTImp-TTImp-toBuf_TTC__ImpTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0)))))))))))))))) (define TTImp-TTImp-toBuf_TTC__ImpRecord (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__RigCount arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2181 eta-1)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2185) (lambda (arg-2186) (TTImp-TTImp-toBuf_TTC__RawImp arg-2185 arg-2186))) (lambda (arg-2185) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2185 eta-1)))) arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-2)))) arg-2183 eta-1)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-1))))) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-2)))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3)))) arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__RigCount arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2181 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-2)))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3)))) arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2182 eta-2))))) arg-2178 arg-2181))) (lambda (arg-2181) (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-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3)))) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-4)))) arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2182 eta-3))))) arg-2181 eta-2))))) arg-2180 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__RigCount arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2181 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-2)))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3)))) arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2182 eta-2))))) arg-2178 arg-2181))) (lambda (arg-2181) (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-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3)))) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-4)))) arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2182 eta-3))))) arg-2181 eta-2))))) arg-2177 arg-2179))) (lambda (arg-2181) (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-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__RigCount arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-2182 eta-3)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3)))) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-4)))) arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2182 eta-3))))) arg-2177 arg-2179))) (lambda (arg-2182) (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-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-4)))) arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2184) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-5)))) arg-2183 eta-4)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-4))))) arg-2182 eta-3))))) arg-2181 eta-2))))) arg-2180 eta-1)))) arg-0 e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__IField arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IField arg-2180 eta-1)))) arg-0 e-4 eta-0)))))))))))))))))))))))))) -(define TTImp-TTImp-toBuf_TTC__ImpDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2180 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((TTImp-TTImp-toBuf_TTC__ImpTy arg-0 e-4) eta-0)))))))))))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__ImpData arg-0 e-7) eta-0)))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-1)))) arg-0 e-10 eta-0)))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2181 eta-2))))) arg-2180 eta-1)))) arg-0 e-12 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 e-13 eta-0)))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 e-15) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-16) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__ImpRecord arg-0 e-17) eta-0))))))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 e-19 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 e-20 eta-0)))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-22) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-23) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-24) eta-0))))))))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0))))))))))))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't write Pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-2)))) arg-2180 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1))))) arg-0 e-28) eta-0)))))))))))) +(define TTImp-TTImp-toBuf_TTC__ImpDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2180 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((TTImp-TTImp-toBuf_TTC__ImpTy arg-0 e-4) eta-0)))))))))))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__ImpData arg-0 e-7) eta-0)))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-1)))) arg-0 e-10 eta-0)))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2181 eta-2))))) arg-2180 eta-1)))) arg-0 e-12 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 e-13 eta-0)))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 e-15) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-16) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__ImpRecord arg-0 e-17) eta-0))))))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 e-19 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-1)))) arg-0 e-20 eta-0)))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-22) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-23) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-24) eta-0))))))))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-26) eta-0))))))))))))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't write Pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-28) eta-0)))))))))))) (define TTImp-TTImp-toBuf_TTC__ImpData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2180 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2180 eta-1)))) arg-0 e-4 eta-0)))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0)))))))))))))))))))))) (define TTImp-TTImp-toBuf_TTC__ImpClause (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0)))))))))))))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-4) eta-0))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-1)))) arg-0 e-9 eta-0))))))))))))))))))))))))))) (define TTImp-TTImp-toBuf_TTC__IFieldUpdate (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-1) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-3) eta-0))))))))))))))))) @@ -2142,10 +2113,10 @@ (define TTImp-TTImp-toBuf_TTC__DataOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 e-0 eta-0)))))))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))))))) (define TTImp-TTImp-toBuf_TTC__BindMode (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__RigCount arg-0 e-0) eta-0)))))))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))))))) (define TTImp-TTImp-toBuf_TTC__AltType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-0) eta-0)))))))))))) -(define TTImp-TTImp-show_Show__RawImp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (Strings-Types-Prelude-C-43C-43 "(%pi " (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 6 ) e-5) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-6) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 "(%lam " (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-9) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 6 ) e-11) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-12) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 "(%let " (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-15) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-16) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-17) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-18) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 "(%case (" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-21) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-22) (Strings-Types-Prelude-C-43C-43 ") " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 "(%local (" (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 ") " (Strings-Types-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-Types-Prelude-C-43C-43 "(%caselocal (" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-28) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-29) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-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-Types-Prelude-C-43C-43 ") " (Strings-Types-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-Types-Prelude-C-43C-43 "(%record " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TTImp-TTImp-show_Show__IFieldUpdate arg-1)) e-33)) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-36) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-39) (Strings-Types-Prelude-C-43C-43 " [" (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " = " (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-43) (Strings-Types-Prelude-C-43C-43 " | " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-44) ")"))))))) ((11) "%search") ((12) (let ((e-49 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(|" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "," (Types-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-Types-Prelude-C-43C-43 "(%rewrite (" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-51) (Strings-Types-Prelude-C-43C-43 ") (" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-52) "))"))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%coerced " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-54) ")")))) ((15) (let ((e-57 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(%bindhere " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-57) ")")))) ((16) (let ((e-59 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "$" e-59))) ((17) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-62) (Strings-Types-Prelude-C-43C-43 "@(" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-63) ")")))))) ((18) (let ((e-66 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 ".(" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-66) ")")))) ((19) (let ((e-69 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(%delayed " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-69) ")")))) ((20) (let ((e-71 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%delay " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-71) ")")))) ((21) (let ((e-73 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%force " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-73) ")")))) ((22) (let ((e-75 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%quote " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-75) ")")))) ((23) (let ((e-77 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%quotename " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-77) ")")))) ((24) (let ((e-79 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%quotedecl " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-79) ")")))) ((25) (let ((e-81 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%unquote " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-81) ")")))) ((26) (let ((e-83 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%runelab " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-83) ")")))) ((27) (let ((e-85 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-85))) ((29) (let ((e-87 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "?" e-87))) ((30) (let ((e-89 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(%logging " (Strings-Types-Prelude-C-43C-43 (Log-Options-Core-show_Show__LogLevel e-89) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-90) ")"))))))) ((28) "%type") ((31) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 e-93)) (cond ((equal? sc1 0) "_") (else "?"))))) (else (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(%with " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-95) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-96) ")"))))))))))) +(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-Types-Prelude-C-43C-43 "(%pi " (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 6 ) e-5) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-6) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 "(%lam " (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-9) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 6 ) e-11) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-12) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 "(%let " (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-15) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-16) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-17) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-18) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 "(%case (" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-21) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-22) (Strings-Types-Prelude-C-43C-43 ") " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 "(%local (" (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 ") " (Strings-Types-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-Types-Prelude-C-43C-43 "(%caselocal (" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-28) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-29) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-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-Types-Prelude-C-43C-43 ") " (Strings-Types-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-Types-Prelude-C-43C-43 "(%record " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TTImp-TTImp-show_Show__IFieldUpdate arg-1)) e-33)) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-36) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-39) (Strings-Types-Prelude-C-43C-43 " [" (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " = " (Strings-Types-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-43) (Strings-Types-Prelude-C-43C-43 " | " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-44) ")"))))))) ((11) "%search") ((12) (let ((e-49 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(|" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "," (Types-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-Types-Prelude-C-43C-43 "(%rewrite (" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-51) (Strings-Types-Prelude-C-43C-43 ") (" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-52) "))"))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%coerced " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-54) ")")))) ((15) (let ((e-57 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(%bindhere " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-57) ")")))) ((16) (let ((e-59 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "$" e-59))) ((17) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-62) (Strings-Types-Prelude-C-43C-43 "@(" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-63) ")")))))) ((18) (let ((e-66 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 ".(" (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-66) ")")))) ((19) (let ((e-69 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(%delayed " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-69) ")")))) ((20) (let ((e-71 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%delay " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-71) ")")))) ((21) (let ((e-73 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%force " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-73) ")")))) ((22) (let ((e-75 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%quote " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-75) ")")))) ((23) (let ((e-77 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%quotename " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-77) ")")))) ((24) (let ((e-79 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%quotedecl " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpDecl x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpDecl d x)))) e-79) ")")))) ((25) (let ((e-81 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%unquote " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-81) ")")))) ((26) (let ((e-83 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(%runelab " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-83) ")")))) ((27) (let ((e-85 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-85))) ((29) (let ((e-87 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "?" e-87))) ((30) (let ((e-89 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(%logging " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat e-89) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-90) ")"))))))) ((28) "%type") ((31) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 e-93)) (cond ((equal? sc1 0) "_") (else "?"))))) (else (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(%with " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-95) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-96) ")"))))))))))) (define TTImp-TTImp-show_Show__ImpTy (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(%claim " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-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-Types-Prelude-C-43C-43 "record " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-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-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Types-Prelude-C-43C-43 "\u000a\u0009" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "\u000a\u0009" (Types-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-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) e-3) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__ImpTy e-4)))))) ((1) (let ((e-7 (vector-ref sc0 3))) (TTImp-TTImp-show_Show__ImpData e-7))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(%def " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 "parameters " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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-Types-Prelude-C-43C-43 "\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Types-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-Types-Prelude-C-43C-43 "namespace " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__String d x)))) e-19) (Name-Core-showSep "\u000a" (Types-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-Types-Prelude-C-43C-43 "%transform " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-23) (Strings-Types-Prelude-C-43C-43 " ==> " (TTImp-TTImp-show_Show__RawImp e-24)))))))))) ((7) (let ((e-26 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "%runElab " (TTImp-TTImp-show_Show__RawImp e-26)))) ((8) "[externally defined pragma]") (else (let ((e-28 (vector-ref sc0 1))) (let ((sc1 e-28)) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (Strings-Types-Prelude-C-43C-43 "%logging " (let ((sc2 e-31)) (case (vector-ref sc2 0) ((0) (Show-Prelude-show_Show__Nat e-32))(else (Strings-Types-Prelude-C-43C-43 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." e-31)) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__Nat e-32)))))))))))))))) +(define TTImp-TTImp-show_Show__ImpDecl (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) e-3) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__ImpTy e-4)))))) ((1) (let ((e-7 (vector-ref sc0 3))) (TTImp-TTImp-show_Show__ImpData e-7))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(%def " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 "parameters " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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-Types-Prelude-C-43C-43 "\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Types-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-Types-Prelude-C-43C-43 "namespace " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__String d x)))) e-19) (Name-Core-showSep "\u000a" (Types-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-Types-Prelude-C-43C-43 "%transform " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-23) (Strings-Types-Prelude-C-43C-43 " ==> " (TTImp-TTImp-show_Show__RawImp e-24)))))))))) ((7) (let ((e-26 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "%runElab " (TTImp-TTImp-show_Show__RawImp e-26)))) ((8) "[externally defined pragma]") (else (let ((e-28 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "%logging " (Show-Prelude-show_Show__Nat e-28)))))))) (define TTImp-TTImp-show_Show__ImpData (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 "(%data " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-2) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpTy x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpTy d x)))) e-4) ")")))))))))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(%datadecl " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-7) ")"))))))))))) (define TTImp-TTImp-show_Show__ImpClause (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-1) (Strings-Types-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp e-2)))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-4) (Strings-Types-Prelude-C-43C-43 " with " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-5) (Strings-Types-Prelude-C-43C-43 "\u000a\u0009" (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-7))))))))) (else (let ((e-9 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-9) " impossible"))))))) (define TTImp-TTImp-show_Show__IFieldUpdate (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "->" e-0) (Strings-Types-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-Types-Prelude-C-43C-43 (Name-Core-showSep "->" e-2) (Strings-Types-Prelude-C-43C-43 " $= " (TTImp-TTImp-show_Show__RawImp e-3)))))))))) @@ -2160,7 +2131,7 @@ (define TTImp-TTImp-fromBuf_TTC__RawImp (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 3 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 4 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 8 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 9 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 10 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 11 e-6 e-7))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__AltType arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 12 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 12) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 13 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 13) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 14 e-6 e-7))))))))))))) ((equal? sc1 14) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__BindMode arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 15 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 15) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 16 e-6 e-7))))))))))))) ((equal? sc1 16) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__UseSide arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 17 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 17) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 18 e-6 (vector 5 ) e-7))))))))))))) ((equal? sc1 18) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__LazyReason arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 19 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 19) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 20 e-6 e-7))))))))))))) ((equal? sc1 20) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 21 e-6 e-7))))))))))))) ((equal? sc1 21) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 22 e-6 e-7))))))))))))) ((equal? sc1 22) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 23 e-6 e-7))))))))))))) ((equal? sc1 23) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 24 e-6 e-7))))))))))))) ((equal? sc1 24) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 25 e-6 e-7))))))))))))) ((equal? sc1 25) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 26 e-6 e-7))))))))))))) ((equal? sc1 26) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 27 e-6 e-7))))))))))))) ((equal? sc1 27) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 28 e-6)))))))) ((equal? sc1 28) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 29 e-6 e-7))))))))))))) ((equal? sc1 29) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 31 e-6 e-7))))))))))))) ((equal? sc1 30) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 32 e-6 e-7 e-8))))))))))))))))))(else (Binary-Utils-corrupt 'erased "RawImp" ext-0))))))))))) (define TTImp-TTImp-fromBuf_TTC__ImpTy (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) (define TTImp-TTImp-fromBuf_TTC__ImpRecord (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__RigCount arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2185) (lambda (arg-2186) (TTImp-TTImp-toBuf_TTC__RawImp arg-2185 arg-2186))) (lambda (arg-2185) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2185 eta-0)))) arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-1)))) arg-2183 eta-0)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-0))))) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-1)))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-2)))) arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2182 eta-1))))) arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__RigCount arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-1)))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-2)))) arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-2)))) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3)))) arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__RigCount arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-1)))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-2)))) arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-2)))) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3)))) arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__RigCount arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-2)))) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3)))) arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2182 eta-2))))) arg-2177 arg-2179))) (lambda (arg-2182) (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-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3)))) arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2184) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-4)))) arg-2183 eta-3)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3))))) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__IField arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) -(define TTImp-TTImp-fromBuf_TTC__ImpDecl (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__ImpData arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 4 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 6 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-6 e-7))))))))))))) ((equal? sc1 8) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2180 eta-0)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0))))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6))))))))(else (Binary-Utils-corrupt 'erased "ImpDecl" ext-0))))))))))) +(define TTImp-TTImp-fromBuf_TTC__ImpDecl (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__ImpData arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 4 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 6 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-6 e-7))))))))))))) ((equal? sc1 8) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6))))))))(else (Binary-Utils-corrupt 'erased "ImpDecl" ext-0))))))))))) (define TTImp-TTImp-fromBuf_TTC__ImpData (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8))))))))))))))))))(else (Binary-Utils-corrupt 'erased "ImpData" ext-0))))))))))) (define TTImp-TTImp-fromBuf_TTC__ImpClause (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 1 e-6 e-7 e-8 (vector 0 ) e-9)))))))))))))))))))))))(else (Binary-Utils-corrupt 'erased "ImpClause" ext-0))))))))))) (define TTImp-TTImp-fromBuf_TTC__IFieldUpdate (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "IFieldUpdate" ext-0))))))))))) @@ -2169,7 +2140,7 @@ (define TTImp-TTImp-fromBuf_TTC__DataOpt (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (vector 1 (vector 3 ))) ((equal? sc1 4) (vector 1 (vector 4 )))(else (Binary-Utils-corrupt 'erased "DataOpt" ext-0))))))))))) (define TTImp-TTImp-fromBuf_TTC__BindMode (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 )))(else (Binary-Utils-corrupt 'erased "BindMode" ext-0))))))))))) (define TTImp-TTImp-fromBuf_TTC__AltType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (let ((act-25 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6))))))))(else (Binary-Utils-corrupt 'erased "AltType" ext-0))))))))))) -(define TTImp-TTImp-__Impl_Weaken_NestedNames (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3641) (TTImp-TTImp-weaken_Weaken__NestedNames n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (TTImp-TTImp-weakenNs_Weaken__NestedNames vars ns arg-3645))))))) +(define TTImp-TTImp-__Impl_Weaken_NestedNames (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3584) (TTImp-TTImp-weaken_Weaken__NestedNames n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (TTImp-TTImp-weakenNs_Weaken__NestedNames vars ns arg-3588))))))) (define TTImp-TTImp-__Impl_TTC_RawImp (lambda () (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-0)))))) (define TTImp-TTImp-__Impl_TTC_ImpTy (lambda () (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2180 eta-0)))))) (define TTImp-TTImp-__Impl_TTC_ImpRecord (lambda () (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpRecord arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-2180 eta-0)))))) @@ -2195,13 +2166,13 @@ (define TTImp-TTImp-C-47C-61_Eq__WithFlag (lambda (arg-0 arg-1) (Basics-Prelude-not (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-0 arg-1)))) (define TTImp-TTImp-C-47C-61_Eq__DataOpt (lambda (arg-0 arg-1) (Basics-Prelude-not (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-0 arg-1)))) (define NestedNames-TTImp-TTImp-names (lambda (arg-0 arg-1) arg-1)) -(define TTImp-TTImp-lhsInCurrentNS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-0 e-5 e-2)))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-3)))(else (TTImp-TTImp-case--lhsInCurrentNS-4985 'erased e-11 e-10 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-11 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) -(define TTImp-TTImp-implicitsAs (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-n--9656-5136-setAs arg-2 arg-1 arg-0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Types-Prelude-C-43C-43 'erased arg-1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (TTImp-TTImp-findIBinds arg-2)))) arg-2))) +(define TTImp-TTImp-lhsInCurrentNS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-0 e-5 e-2)))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 9 e-3 e-7 e-5 e-6))))))))))))) ((10) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-7 e-5 e-9)))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-3)))(else (TTImp-TTImp-case--lhsInCurrentNS-4951 'erased e-11 e-10 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-11 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) +(define TTImp-TTImp-implicitsAs (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-n--9442-5102-setAs arg-2 arg-1 arg-0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Types-Prelude-C-43C-43 'erased arg-1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (TTImp-TTImp-findIBinds arg-2)))) arg-2))) (define TTImp-TTImp-getFn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 2))) (TTImp-TTImp-getFn e-1))) ((10) (let ((e-4 (vector-ref sc0 2))) (TTImp-TTImp-getFn e-4))) ((9) (let ((e-7 (vector-ref sc0 2))) (TTImp-TTImp-getFn e-7))) ((17) (let ((e-13 (vector-ref sc0 4))) (TTImp-TTImp-getFn e-13))) ((18) (let ((e-16 (vector-ref sc0 3))) (TTImp-TTImp-getFn e-16)))(else arg-0))))) (define TTImp-TTImp-getFC (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) e-0)) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) ((2) (let ((e-8 (vector-ref sc0 1))) e-8)) ((3) (let ((e-14 (vector-ref sc0 1))) e-14)) ((4) (let ((e-20 (vector-ref sc0 1))) e-20)) ((5) (let ((e-24 (vector-ref sc0 1))) e-24)) ((6) (let ((e-27 (vector-ref sc0 1))) e-27)) ((7) (let ((e-32 (vector-ref sc0 1))) e-32)) ((8) (let ((e-35 (vector-ref sc0 1))) e-35)) ((9) (let ((e-38 (vector-ref sc0 1))) e-38)) ((10) (let ((e-42 (vector-ref sc0 1))) e-42)) ((11) (let ((e-45 (vector-ref sc0 1))) e-45)) ((12) (let ((e-47 (vector-ref sc0 1))) e-47)) ((13) (let ((e-50 (vector-ref sc0 1))) e-50)) ((14) (let ((e-53 (vector-ref sc0 1))) e-53)) ((27) (let ((e-55 (vector-ref sc0 1))) e-55)) ((29) (let ((e-57 (vector-ref sc0 1))) e-57)) ((30) (let ((e-59 (vector-ref sc0 1))) e-59)) ((28) (let ((e-62 (vector-ref sc0 1))) e-62)) ((16) (let ((e-63 (vector-ref sc0 1))) e-63)) ((15) (let ((e-65 (vector-ref sc0 1))) e-65)) ((18) (let ((e-68 (vector-ref sc0 1))) e-68)) ((19) (let ((e-71 (vector-ref sc0 1))) e-71)) ((20) (let ((e-74 (vector-ref sc0 1))) e-74)) ((21) (let ((e-76 (vector-ref sc0 1))) e-76)) ((22) (let ((e-78 (vector-ref sc0 1))) e-78)) ((23) (let ((e-80 (vector-ref sc0 1))) e-80)) ((24) (let ((e-82 (vector-ref sc0 1))) e-82)) ((25) (let ((e-84 (vector-ref sc0 1))) e-84)) ((26) (let ((e-86 (vector-ref sc0 1))) e-86)) ((17) (let ((e-88 (vector-ref sc0 1))) e-88)) ((31) (let ((e-92 (vector-ref sc0 1))) e-92)) (else (let ((e-94 (vector-ref sc0 1))) e-94)))))) (define TTImp-TTImp-findImplicits (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-48 (vector-ref sc1 1))) (let ((sc2 e-48)) (case (vector-ref sc2 0) ((1) (let ((e-49 (vector-ref sc2 1))) (vector 1 e-49 (List-Types-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))(else (List-Types-Prelude-C-43C-43 'erased (TTImp-TTImp-findImplicits e-4) (TTImp-TTImp-findImplicits e-5)))))))(else (List-Types-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-Types-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-Types-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-Types-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-Types-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))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findImplicits eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findImplicits e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-44))) ((16) (let ((e-46 (vector-ref sc0 2))) (vector 1 e-46 (vector 0 ))))(else (vector 0 )))))) (define TTImp-TTImp-findIBinds (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (List-Types-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-Types-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-Types-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-Types-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-Types-Prelude-C-43C-43 'erased (TTImp-TTImp-findIBinds e-20) (TTImp-TTImp-findIBinds e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 1))) (vector 1 e-50 (TTImp-TTImp-findIBinds e-25))))(else (TTImp-TTImp-findIBinds e-25))))))) ((18) (let ((e-28 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-28))) ((12) (let ((e-31 (vector-ref sc0 3))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-findIBinds eta-0))) e-31))) ((19) (let ((e-34 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-34))) ((20) (let ((e-36 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-36))) ((21) (let ((e-38 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-38))) ((22) (let ((e-40 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-40))) ((25) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-42))) ((26) (let ((e-44 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-44))) ((15) (let ((e-47 (vector-ref sc0 3))) (TTImp-TTImp-findIBinds e-47))) ((16) (let ((e-49 (vector-ref sc0 2))) (vector 1 e-49 (vector 0 ))))(else (vector 0 )))))) -(define TTImp-TTImp-definedInBlock (lambda (arg-0 arg-1) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--10174-5624-defName arg-1 arg-0 arg-0 eta-0))) arg-1))) +(define TTImp-TTImp-definedInBlock (lambda (arg-0 arg-1) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9944-5576-defName arg-1 arg-0 arg-0 eta-0))) arg-1))) (define TTImp-TTImp-apply (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (TTImp-TTImp-apply (vector 8 (TTImp-TTImp-getFC arg-0) arg-0 e-2) e-3)))))))) (define Value-Core-case--tcOnly-3023 (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 )))) @@ -2254,8 +2225,8 @@ (define IntMap-Data-case--treeLookup-596 (lambda (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--caseC-32blockC-32inC-32treeLookup-643 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (EqOrd-Prelude-C-60C-61_Ord__Int arg-7 arg-3))))))) (define IntMap-Data-case--treeLookup-548 (lambda (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--treeLookup-505 (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--3955-2329-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--3955-2329-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3955-2329-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--3955-2329-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3955-2329-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3955-2329-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--3955-2329-treeToListC-39 'erased 'erased 'erased (vector 0 ) ext-0))) +(define IntMap-Data-n--3846-2329-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--3846-2329-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3846-2329-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--3846-2329-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3846-2329-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3846-2329-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--3846-2329-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--treeLookup-505 'erased e-2 e-1 arg-2 'erased (EqOrd-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--treeLookup-548 'erased 'erased e-7 e-6 e-5 arg-2 'erased (EqOrd-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--treeLookup-596 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (EqOrd-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--treeInsertC-39-704 'erased arg-3 e-2 e-1 arg-2 'erased (EqOrd-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--treeInsertC-39-806 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (EqOrd-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--treeInsertC-39-1000 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (EqOrd-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--treeInsert-1380 'erased 'erased arg-3 arg-4 arg-2 (IntMap-Data-treeInsertC-39 'erased 'erased arg-2 arg-3 arg-4)))) @@ -2273,38 +2244,37 @@ (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--caseC-32blockC-32inC-32mkShrinkSub-4569 (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--mkShrinkSub-4548 (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--caseC-32blockC-32inC-32mkShrinkSub-4569 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (Env-Core-isUsed 'erased 0 arg-3))))))) -(define Env-Core-case--mkShrinkSub-4507 (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--toVar-4432 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (+ 1 arg-3)))) -(define Env-Core-case--findUsed-4250 (lambda (arg-0 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-3641) (TT-Core-weaken_Weaken__Term n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (TT-Core-weakenNs_Weaken__Term vars ns arg-3645))))) arg-0 arg-2 'erased arg-7))))))) -(define Env-Core-case--caseC-32blockC-32inC-32defined-3655 (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))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3))))))) -(define Env-Core-case--defined-3630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (Types-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))) (Types-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--3768-4305-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--3768-4305-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--3768-4239-eqNat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (EqOrd-Prelude-C-61C-61_Eq__Integer arg-8 arg-9))) -(define Env-Core-n--3768-4320-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--3768-4320-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--3768-4320-dropS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))))) +(define Env-Core-case--caseC-32blockC-32inC-32mkShrinkSub-4499 (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--mkShrinkSub-4478 (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--caseC-32blockC-32inC-32mkShrinkSub-4499 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (Env-Core-isUsed 'erased 0 arg-3))))))) +(define Env-Core-case--mkShrinkSub-4437 (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--toVar-4362 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (+ 1 arg-3)))) +(define Env-Core-case--findUsed-4184 (lambda (arg-0 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-3584) (TT-Core-weaken_Weaken__Term n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (TT-Core-weakenNs_Weaken__Term vars ns arg-3588))))) arg-0 arg-2 'erased arg-7))))))) +(define Env-Core-case--caseC-32blockC-32inC-32defined-3651 (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))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (+ 1 e-2) e-3))))))) +(define Env-Core-case--defined-3626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (Types-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))) (Types-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--3587-4239-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--3587-4239-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--3587-4173-eqNat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (EqOrd-Prelude-C-61C-61_Eq__Integer arg-8 arg-9))) +(define Env-Core-n--3587-4254-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--3587-4254-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--3587-4254-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))) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Env-Core-shrinkEnv 'erased 'erased e-4 e-12) (lambda (envC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-3 e-12) (lambda (bC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 bC-39 envC-39)))))))))))))))))) (define Env-Core-revOnto (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (vector 0 )))))) -(define Env-Core-mkShrinkSub (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Env-Core-case--mkShrinkSub-4507 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--mkShrinkSub-4548 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--mkShrinkSub-4437 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--mkShrinkSub-4478 arg-0 e-2 e-3 arg-2 (Env-Core-mkShrinkSub e-2 e-3 (TT-Core-dropFirst 'erased 'erased arg-2)))))))))) (define Env-Core-mkShrink (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Env-Core-mkShrinkSub e-2 e-3 arg-1)))))))) -(define Env-Core-mkEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 3 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-0 1)) (Env-Core-mkEnv arg-0 e-3)))))))) -(define Env-Core-letToLam (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 4))) (vector 1 (vector 0 e-7 e-8 (vector 1 ) e-10) (Env-Core-letToLam 'erased e-5))))))(else (vector 1 e-4 (Env-Core-letToLam 'erased e-5)))))))))))) +(define Env-Core-mkEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-0 1)) (Env-Core-mkEnv arg-0 e-3)))))))) +(define Env-Core-letToLam (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 3))) (vector 1 (vector 0 e-7 (vector 1 ) e-9) (Env-Core-letToLam 'erased e-5)))))(else (vector 1 e-4 (Env-Core-letToLam 'erased e-5)))))))))))) (define Env-Core-length (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-5 (vector-ref sc0 2))) (+ 1 (Env-Core-length 'erased 'erased e-5)))))))) (define Env-Core-isUsed (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Basics-Prelude-C-124C-124 (Types-Prelude-C-61C-61_Eq__Nat arg-1 (TT-Core-varIdx 'erased e-2)) (lambda () (Env-Core-isUsed 'erased arg-1 e-3)))))))))) (define Env-Core-getBinderUnder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (let ((sc2 arg-7)) (let ((e-7 (vector-ref sc2 1))) (TT-Core-map_Functor__Binder 'erased 'erased (let ((sc3 arg-2)) (let ((e-3 (vector-ref sc3 2))) (lambda (arg-8) (((e-3 e-2) (List-Data-reverse 'erased (vector 1 e-1 arg-5))) arg-8)))) e-7))))(else (let ((e-3 (- arg-4 1))) (let ((sc1 arg-7)) (let ((e-13 (vector-ref sc1 2))) (Env-Core-getBinderUnder 'erased 'erased arg-2 e-2 e-3 (vector 1 e-1 arg-5) 'erased e-13)))))))))))) -(define Env-Core-getBinderLoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (let ((e-7 (vector-ref sc2 1))) (TT-Core-binderLoc 'erased e-7))))(else (let ((e-3 (- arg-3 1))) (let ((sc1 arg-5)) (let ((e-13 (vector-ref sc1 2))) (Env-Core-getBinderLoc 'erased 'erased e-2 e-3 'erased e-13))))))))))) (define Env-Core-getBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Env-Core-getBinderUnder 'erased 'erased arg-2 arg-3 arg-4 (vector 0 ) 'erased arg-6))) (define Env-Core-findUsedLocs (lambda (arg-0 arg-1 arg-2) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Env-Core-toVar arg-0 eta-0)) (Env-Core-findUsed arg-0 arg-1 (vector 0 ) arg-2)))) -(define Env-Core-findUsedInBinder (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-3) e-4)))) ((4) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (Env-Core-findUsed arg-0 arg-1 (Env-Core-findUsed arg-0 arg-1 arg-2 e-8) e-9))))(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--findUsed-4250 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--3768-4239-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--3768-4305-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--3768-4320-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) (Types-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-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--findUsed-4184 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--3587-4173-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--3587-4239-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--3587-4254-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) (Types-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--defined-3630 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--defined-3626 e-2 e-3 e-9 e-8 arg-1 (Name-Core-nameEq arg-1 e-2)))))))))))) (define Env-Core-bindEnv (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Env-Core-bindEnv e-3 arg-1 e-9 (vector 3 arg-1 e-2 e-8 arg-3)))))))))))) (define Env-Core-allVarsNoLet (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (TT-Core-weaken_Weaken__Var e-2 e-3 arg-2)) (Env-Core-allVars e-3 e-9)))(else (vector 1 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (TT-Core-weaken_Weaken__Var e-2 e-3 arg-2)) (Env-Core-allVars e-3 e-9)))))))))))))))) (define Env-Core-allVars (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-9 (vector-ref sc1 2))) (vector 1 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (TT-Core-weaken_Weaken__Var e-2 e-3 arg-2)) (Env-Core-allVars e-3 e-9)))))))))))) -(define Env-Core-abstractFullEnvType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((2) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (Env-Core-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-11 e-12 e-13 e-14) arg-3)))))))(else (let ((bnd (vector 2 arg-1 (TT-Core-multiplicity 'erased e-8) (vector 1 ) (TT-Core-binderType 'erased e-8)))) (Env-Core-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 bnd 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))) (let ((e-14 (vector-ref sc2 4))) (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 1 e-11 e-12 e-13 e-14) arg-3))))))) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-16 e-17 e-18 e-19) arg-3)))))))(else (let ((bnd (vector 2 (TT-Core-binderLoc 'erased e-8) (TT-Core-multiplicity 'erased e-8) (vector 1 ) (TT-Core-binderType 'erased e-8)))) (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 bnd 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))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((2) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (Env-Core-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-11 e-12 e-13) arg-3))))))(else (Env-Core-abstractFullEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 (TT-Core-multiplicity 'erased e-8) (vector 1 ) (TT-Core-binderType 'erased e-8)) arg-3))))))))))))))) +(define Env-Core-abstractEnvType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 1 e-11 e-12 e-13) arg-3)))))) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 e-15 e-16 e-17) arg-3))))))(else (Env-Core-abstractEnvType e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 2 (TT-Core-multiplicity 'erased e-8) (vector 1 ) (TT-Core-binderType 'erased e-8)) arg-3))))))))))))))) (define Core-Core-case--cond-5229 (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--filterM-5107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Core-Core-filterM 'erased arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-1 e-5))))))))) (else (Core-Core-filterM 'erased arg-3 arg-2)))))) (define Core-Core-case--allM-5048 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Core-Core-allM 'erased arg-3 arg-2)) (else (lambda (eta-0) (vector 1 1))))))) @@ -2317,19 +2287,19 @@ (define Core-Core-case--show-2644 (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-Types-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Types-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-Types-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-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1))))))))))))) (define Core-Core-case--show-2516 (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-Types-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-Types-Prelude-C-43C-43 "Not a valid impossible pattern:\u000a\u0009" (Core-Core-show_Show__Error e-5)))))))) (define Core-Core-case--show-2323 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "older") (else "newer"))))) -(define Core-Core-n--6249-2743-showRig (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) "linear" "irrelevant" (lambda (eta-0) "unrestricted") ext-0))) -(define Core-Core-n--6249-2744-showRel (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) "relevant" "irrelevant" (lambda (eta-0) "non-linear") ext-0))) -(define Core-Core-n--6249-3490-showMod (lambda (arg-0 arg-1) (Name-Core-showSep "." (List-Data-reverse 'erased arg-1)))) +(define Core-Core-n--6124-2743-showRig (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) "linear" "irrelevant" (lambda (eta-0) "unrestricted") ext-0))) +(define Core-Core-n--6124-2744-showRel (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) "relevant" "irrelevant" (lambda (eta-0) "non-linear") ext-0))) +(define Core-Core-n--6124-3490-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--show-2323 e-2 e-1 e-0 (EqOrd-Prelude-C-60_Ord__Int e-1 e-2)))) (Strings-Types-Prelude-C-43C-43 "TTC data is in an " (Strings-Types-Prelude-C-43C-43 age (Strings-Types-Prelude-C-43C-43 " format, file: " (Strings-Types-Prelude-C-43C-43 e-0 (Strings-Types-Prelude-C-43C-43 ", expected version: " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-2) (Strings-Types-Prelude-C-43C-43 ", actual version: " (Show-Prelude-show_Show__Int e-1))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "End of buffer when reading " e-3))) (else (let ((e-4 (vector-ref sc0 1))) (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-2) (Strings-Types-Prelude-C-43C-43 ":Type mismatch: " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-4) (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-7) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-9) (Strings-Types-Prelude-C-43C-43 " and " (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-12) (Strings-Types-Prelude-C-43C-43 ":Pattern variable " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-14) (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-17) (Strings-Types-Prelude-C-43C-43 ":Cycle detected in metavariable solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-19) (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-22) (Strings-Types-Prelude-C-43C-43 ":When unifying: " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-24) (Strings-Types-Prelude-C-43C-43 " and " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-25) (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-28) (Strings-Types-Prelude-C-43C-43 ":" (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Strings-Types-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-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-31) (Strings-Types-Prelude-C-43C-43 ":Undefined name " (Name-Core-show_Show__Name e-32)))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((sc1 e-35)) (case (vector-ref sc1 0) ((1) (let ((e-196 (vector-ref sc1 1))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Types-Prelude-C-43C-43 ":Name " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Types-Prelude-C-43C-43 " is inaccessible since " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-196)) " is not explicitly imported")))))))(else (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Types-Prelude-C-43C-43 ":Name " (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-36) (Strings-Types-Prelude-C-43C-43 ":Return type of " (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-38) (Strings-Types-Prelude-C-43C-43 ":Return type of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-41) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) (Strings-Types-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-Types-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Types-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-Types-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-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-44) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-47) (Strings-Types-Prelude-C-43C-43 ":There are " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat e-48) (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-50) (Strings-Types-Prelude-C-43C-43 ":Trying to use " (Strings-Types-Prelude-C-43C-43 (Core-Core-n--6249-2743-showRig e-53 e-52 e-51 e-50 e-52) (Strings-Types-Prelude-C-43C-43 " name " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-51) (Strings-Types-Prelude-C-43C-43 " in " (Strings-Types-Prelude-C-43C-43 (Core-Core-n--6249-2744-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-55) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-54 e-57) (Strings-Types-Prelude-C-43C-43 " borrows argument " (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-60) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-63) (Strings-Types-Prelude-C-43C-43 ":Ambiguous name " (Show-Prelude-show_Show__C-40ListC-32C-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-66) (Strings-Types-Prelude-C-43C-43 ":Ambiguous elaboration " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-65 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-65 d x)))) e-68))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-70) (Strings-Types-Prelude-C-43C-43 ":Ambiguous search " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-69 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-69 d x)))) e-73))))))) ((20) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (let ((e-76 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-74) (Strings-Types-Prelude-C-43C-43 ":Ambiguity too deep in " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-75) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-76))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "No successful elaboration: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d-0) (lambda (x-0) (Core-Core-showPrec_Show__Error d-0 x-0))))) d x)))) e-77)))) ((22) (let ((e-79 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-79) ":Can't infer type of record to update"))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (let ((sc1 e-83)) (case (vector-ref sc1 0) ((0) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-81) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 e-82 " is not part of a record type")))) (else (let ((e-199 (vector-ref sc1 1))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-81) (Strings-Types-Prelude-C-43C-43 ":Record type " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-199) (Strings-Types-Prelude-C-43C-43 " has no field " e-82)))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-84) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-85) " is not a record type")))))) ((25) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-86) (Strings-Types-Prelude-C-43C-43 ":Field update " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "->" e-87) " not compatible with other updates")))))) ((26) (let ((e-88 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 4))) (let ((e-92 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-89) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) d x)))) e-91) (Strings-Types-Prelude-C-43C-43 " are not valid implicit arguments in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-88 e-92)))))))))) ((27) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-94) (Strings-Types-Prelude-C-43C-43 ":Need to bind implicits " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "," (Types-Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased x)) (Strings-Types-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-93 (Builtin-snd 'erased 'erased x))))) e-96)) "\u000a(The front end should probably have done this for you. Please report!)"))))))) ((28) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 4))) (let ((e-101 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-98) (Strings-Types-Prelude-C-43C-43 ":Can't bind name " (Strings-Types-Prelude-C-43C-43 (Name-Core-nameRoot e-100) (Strings-Types-Prelude-C-43C-43 " with type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-97 e-101)))))))))) ((29) (let ((e-102 (vector-ref sc0 1))) (let ((e-103 (vector-ref sc0 2))) (let ((e-105 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-103) (Strings-Types-Prelude-C-43C-43 ":Can't solve goal " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-102 e-105))))))) ((30) (let ((e-106 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-111 (vector-ref sc0 6))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-107) (Strings-Types-Prelude-C-43C-43 ":Can't solve goal " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-106 e-111) (Strings-Types-Prelude-C-43C-43 " since argument " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-108) " can't be inferred")))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "Unsolved holes " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d x)))) e-112)))) ((32) (let ((e-113 (vector-ref sc0 1))) (let ((e-114 (vector-ref sc0 2))) (let ((e-116 (vector-ref sc0 4))) (let ((e-117 (vector-ref sc0 5))) (let ((e-118 (vector-ref sc0 6))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-114) (Strings-Types-Prelude-C-43C-43 ":Can't infer type for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) (Strings-Types-Prelude-C-43C-43 " (got " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-113 e-118) (Strings-Types-Prelude-C-43C-43 " with hole " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-117) ")"))))))))))))) ((33) (let ((e-120 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-120) (Strings-Types-Prelude-C-43C-43 ":Named hole " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-122) " is solved by unification")))))) ((34) (let ((e-124 (vector-ref sc0 1))) (let ((e-125 (vector-ref sc0 2))) (let ((e-126 (vector-ref sc0 3))) (let ((e-127 (vector-ref sc0 4))) (let ((e-128 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-124) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-125) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-126) (Strings-Types-Prelude-C-43C-43 " cannot refer to " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-127) (Strings-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-128))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-129) (Strings-Types-Prelude-C-43C-43 ":Non linear pattern variable " (Name-Core-show_Show__Name e-130)))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-131) (Strings-Types-Prelude-C-43C-43 ":Pattern not allowed here: " (Name-Core-show_Show__Name e-132)))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-133) (Strings-Types-Prelude-C-43C-43 ":No type declaration for " (Name-Core-show_Show__Name e-134)))))) ((38) (let ((e-135 (vector-ref sc0 1))) (let ((e-136 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-135) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-136) " is already defined")))))) ((39) (let ((e-137 (vector-ref sc0 1))) (let ((e-138 (vector-ref sc0 2))) (let ((e-140 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-138) (Strings-Types-Prelude-C-43C-43 ":Not a function type: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-137 e-140))))))) ((40) (let ((e-141 (vector-ref sc0 1))) (let ((e-142 (vector-ref sc0 2))) (let ((e-144 (vector-ref sc0 4))) (let ((e-145 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-142) (Strings-Types-Prelude-C-43C-43 ":Rewriting by " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-141 e-144) (Strings-Types-Prelude-C-43C-43 " did not change type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-141 e-145)))))))))) ((41) (let ((e-146 (vector-ref sc0 1))) (let ((e-147 (vector-ref sc0 2))) (let ((e-149 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-147) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-146 e-149) " is not a rewrite rule type"))))))) ((42) (let ((e-150 (vector-ref sc0 1))) (let ((e-151 (vector-ref sc0 2))) (let ((e-152 (vector-ref sc0 3))) (let ((sc1 e-152)) (case (vector-ref sc1 0) ((0) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Types-Prelude-C-43C-43 ":Patterns for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-151) " have different numbers of arguments")))) ((1) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Types-Prelude-C-43C-43 ":Patterns for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-151) " require matching on different types")))) ((4) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Types-Prelude-C-43C-43 ":Can't infer type to match in " (Name-Core-show_Show__Name e-151)))) ((2) (let ((e-200 (vector-ref sc1 1))) (let ((sc2 e-200)) (let ((e-204 (vector-ref sc2 1))) (let ((e-205 (vector-ref sc2 2))) (let ((sc3 e-205)) (let ((e-209 (vector-ref sc3 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Types-Prelude-C-43C-43 ":Attempt to match on erased argument " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-204 e-209) (Strings-Types-Prelude-C-43C-43 " in " (Name-Core-show_Show__Name e-151)))))))))))) (else (let ((e-201 (vector-ref sc1 1))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Types-Prelude-C-43C-43 ":Constructor " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-201) " is not fully applied"))))))))))) ((43) (let ((e-153 (vector-ref sc0 1))) (let ((e-154 (vector-ref sc0 2))) (let ((e-156 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-154) (Strings-Types-Prelude-C-43C-43 ":Can't match on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-153 e-156) " as it is has a polymorphic type"))))))) ((44) (let ((e-157 (vector-ref sc0 1))) (let ((e-158 (vector-ref sc0 2))) (let ((e-160 (vector-ref sc0 4))) (let ((e-161 (vector-ref sc0 5))) (let ((e-162 (vector-ref sc0 6))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-158) (Strings-Types-Prelude-C-43C-43 ":Can't match on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-157 e-161) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-160) (Strings-Types-Prelude-C-43C-43 ")" (Strings-Types-Prelude-C-43C-43 " - it elaborates to " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-157 e-162)))))))))))))) ((45) (let ((e-163 (vector-ref sc0 1))) (let ((e-164 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-163) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 e-164 " can't be bound here")))))) ((46) (let ((e-165 (vector-ref sc0 1))) (let ((e-166 (vector-ref sc0 2))) (let ((e-168 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-166) (Strings-Types-Prelude-C-43C-43 ":Bad elaborator script " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-165 e-168))))))) ((47) (let ((e-169 (vector-ref sc0 1))) (let ((e-170 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-169) (Strings-Types-Prelude-C-43C-43 ":" e-170))))) ((48) (let ((e-171 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-171)))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "File error (" (Strings-Types-Prelude-C-43C-43 e-172 (Strings-Types-Prelude-C-43C-43 "): " (File-System-show_Show__FileError e-173))))))) ((50) (let ((e-175 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "Parse error (" (Strings-Types-Prelude-C-43C-43 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (Builtin-fst 'erased 'erased e-175) e-177) ")"))))) ((51) (let ((e-178 (vector-ref sc0 1))) (let ((e-179 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-178) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-179)) " not found")))))) ((52) (let ((e-180 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-n--6249-3490-showMod e-180 eta-0)) e-180))))) ((53) "Internal error when resolving implicit laziness") ((54) (let ((e-181 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "INTERNAL ERROR: " e-181))) ((55) (let ((e-182 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "Error: " e-182))) ((56) (let ((e-183 (vector-ref sc0 1))) (let ((e-184 (vector-ref sc0 2))) (let ((e-185 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-183) (Strings-Types-Prelude-C-43C-43 ":When elaborating type of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-184) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-185))))))))) ((57) (let ((e-186 (vector-ref sc0 1))) (let ((e-187 (vector-ref sc0 2))) (let ((e-188 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-186) (Strings-Types-Prelude-C-43C-43 ":When elaborating type of constructor " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-187) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-188))))))))) ((58) (let ((e-189 (vector-ref sc0 1))) (let ((e-190 (vector-ref sc0 2))) (let ((e-191 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-189) (Strings-Types-Prelude-C-43C-43 ":When elaborating left hand side of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-190) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-191))))))))) (else (let ((e-192 (vector-ref sc0 1))) (let ((e-193 (vector-ref sc0 2))) (let ((e-194 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-192) (Strings-Types-Prelude-C-43C-43 ":When elaborating right hand side of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-193) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-194))))))))))))) +(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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-2) (Strings-Types-Prelude-C-43C-43 ":Type mismatch: " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-4) (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-7) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-6 e-9) (Strings-Types-Prelude-C-43C-43 " and " (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-12) (Strings-Types-Prelude-C-43C-43 ":Pattern variable " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-14) (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-17) (Strings-Types-Prelude-C-43C-43 ":Cycle detected in metavariable solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-19) (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-22) (Strings-Types-Prelude-C-43C-43 ":When unifying: " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-24) (Strings-Types-Prelude-C-43C-43 " and " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-21 e-25) (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-28) (Strings-Types-Prelude-C-43C-43 ":" (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Strings-Types-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-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-31) (Strings-Types-Prelude-C-43C-43 ":Undefined name " (Name-Core-show_Show__Name e-32)))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((sc1 e-35)) (case (vector-ref sc1 0) ((1) (let ((e-196 (vector-ref sc1 1))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Types-Prelude-C-43C-43 ":Name " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) (Strings-Types-Prelude-C-43C-43 " is inaccessible since " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-196)) " is not explicitly imported")))))))(else (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-33) (Strings-Types-Prelude-C-43C-43 ":Name " (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-36) (Strings-Types-Prelude-C-43C-43 ":Return type of " (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-38) (Strings-Types-Prelude-C-43C-43 ":Return type of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-39) (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-41) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) (Strings-Types-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-Types-Prelude-C-43C-43 "Missing cases:\u000a\u0009" (Name-Core-showSep "\u000a\u0009" (Types-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-Types-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-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-1)))))))))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-44) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-47) (Strings-Types-Prelude-C-43C-43 ":There are " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat e-48) (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-50) (Strings-Types-Prelude-C-43C-43 ":Trying to use " (Strings-Types-Prelude-C-43C-43 (Core-Core-n--6124-2743-showRig e-53 e-52 e-51 e-50 e-52) (Strings-Types-Prelude-C-43C-43 " name " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-51) (Strings-Types-Prelude-C-43C-43 " in " (Strings-Types-Prelude-C-43C-43 (Core-Core-n--6124-2744-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-55) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-54 e-57) (Strings-Types-Prelude-C-43C-43 " borrows argument " (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-60) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-63) (Strings-Types-Prelude-C-43C-43 ":Ambiguous name " (Show-Prelude-show_Show__C-40ListC-32C-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-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-66) (Strings-Types-Prelude-C-43C-43 ":Ambiguous elaboration " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-65 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-65 d x)))) e-68))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-70) (Strings-Types-Prelude-C-43C-43 ":Ambiguous search " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-69 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-69 d x)))) e-73))))))) ((20) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (let ((e-76 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-74) (Strings-Types-Prelude-C-43C-43 ":Ambiguity too deep in " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-75) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-76))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "No successful elaboration: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d-0) (lambda (x-0) (Core-Core-showPrec_Show__Error d-0 x-0))))) d x)))) e-77)))) ((22) (let ((e-79 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-79) ":Can't infer type of record to update"))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (let ((sc1 e-83)) (case (vector-ref sc1 0) ((0) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-81) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 e-82 " is not part of a record type")))) (else (let ((e-199 (vector-ref sc1 1))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-81) (Strings-Types-Prelude-C-43C-43 ":Record type " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-199) (Strings-Types-Prelude-C-43C-43 " has no field " e-82)))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-84) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-85) " is not a record type")))))) ((25) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-86) (Strings-Types-Prelude-C-43C-43 ":Field update " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "->" e-87) " not compatible with other updates")))))) ((26) (let ((e-88 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 4))) (let ((e-92 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-89) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) d x)))) e-91) (Strings-Types-Prelude-C-43C-43 " are not valid implicit arguments in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-88 e-92)))))))))) ((27) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-94) (Strings-Types-Prelude-C-43C-43 ":Need to bind implicits " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "," (Types-Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased x)) (Strings-Types-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-93 (Builtin-snd 'erased 'erased x))))) e-96)) "\u000a(The front end should probably have done this for you. Please report!)"))))))) ((28) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 4))) (let ((e-101 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-98) (Strings-Types-Prelude-C-43C-43 ":Can't bind name " (Strings-Types-Prelude-C-43C-43 (Name-Core-nameRoot e-100) (Strings-Types-Prelude-C-43C-43 " with type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-97 e-101)))))))))) ((29) (let ((e-102 (vector-ref sc0 1))) (let ((e-103 (vector-ref sc0 2))) (let ((e-105 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-103) (Strings-Types-Prelude-C-43C-43 ":Can't solve goal " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-102 e-105))))))) ((30) (let ((e-106 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-111 (vector-ref sc0 6))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-107) (Strings-Types-Prelude-C-43C-43 ":Can't solve goal " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-106 e-111) (Strings-Types-Prelude-C-43C-43 " since argument " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-108) " can't be inferred")))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "Unsolved holes " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d x)))) e-112)))) ((32) (let ((e-113 (vector-ref sc0 1))) (let ((e-114 (vector-ref sc0 2))) (let ((e-116 (vector-ref sc0 4))) (let ((e-117 (vector-ref sc0 5))) (let ((e-118 (vector-ref sc0 6))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-114) (Strings-Types-Prelude-C-43C-43 ":Can't infer type for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) (Strings-Types-Prelude-C-43C-43 " (got " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-113 e-118) (Strings-Types-Prelude-C-43C-43 " with hole " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-117) ")"))))))))))))) ((33) (let ((e-120 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-120) (Strings-Types-Prelude-C-43C-43 ":Named hole " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-122) " is solved by unification")))))) ((34) (let ((e-124 (vector-ref sc0 1))) (let ((e-125 (vector-ref sc0 2))) (let ((e-126 (vector-ref sc0 3))) (let ((e-127 (vector-ref sc0 4))) (let ((e-128 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-124) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-125) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-126) (Strings-Types-Prelude-C-43C-43 " cannot refer to " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-127) (Strings-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-128))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-129) (Strings-Types-Prelude-C-43C-43 ":Non linear pattern variable " (Name-Core-show_Show__Name e-130)))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-131) (Strings-Types-Prelude-C-43C-43 ":Pattern not allowed here: " (Name-Core-show_Show__Name e-132)))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-133) (Strings-Types-Prelude-C-43C-43 ":No type declaration for " (Name-Core-show_Show__Name e-134)))))) ((38) (let ((e-135 (vector-ref sc0 1))) (let ((e-136 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-135) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-136) " is already defined")))))) ((39) (let ((e-137 (vector-ref sc0 1))) (let ((e-138 (vector-ref sc0 2))) (let ((e-140 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-138) (Strings-Types-Prelude-C-43C-43 ":Not a function type: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-137 e-140))))))) ((40) (let ((e-141 (vector-ref sc0 1))) (let ((e-142 (vector-ref sc0 2))) (let ((e-144 (vector-ref sc0 4))) (let ((e-145 (vector-ref sc0 5))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-142) (Strings-Types-Prelude-C-43C-43 ":Rewriting by " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-141 e-144) (Strings-Types-Prelude-C-43C-43 " did not change type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-141 e-145)))))))))) ((41) (let ((e-146 (vector-ref sc0 1))) (let ((e-147 (vector-ref sc0 2))) (let ((e-149 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-147) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-146 e-149) " is not a rewrite rule type"))))))) ((42) (let ((e-150 (vector-ref sc0 1))) (let ((e-151 (vector-ref sc0 2))) (let ((e-152 (vector-ref sc0 3))) (let ((sc1 e-152)) (case (vector-ref sc1 0) ((0) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Types-Prelude-C-43C-43 ":Patterns for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-151) " have different numbers of arguments")))) ((1) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Types-Prelude-C-43C-43 ":Patterns for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-151) " require matching on different types")))) ((4) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Types-Prelude-C-43C-43 ":Can't infer type to match in " (Name-Core-show_Show__Name e-151)))) ((2) (let ((e-200 (vector-ref sc1 1))) (let ((sc2 e-200)) (let ((e-204 (vector-ref sc2 1))) (let ((e-205 (vector-ref sc2 2))) (let ((sc3 e-205)) (let ((e-209 (vector-ref sc3 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Types-Prelude-C-43C-43 ":Attempt to match on erased argument " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-204 e-209) (Strings-Types-Prelude-C-43C-43 " in " (Name-Core-show_Show__Name e-151)))))))))))) (else (let ((e-201 (vector-ref sc1 1))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-150) (Strings-Types-Prelude-C-43C-43 ":Constructor " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-201) " is not fully applied"))))))))))) ((43) (let ((e-153 (vector-ref sc0 1))) (let ((e-154 (vector-ref sc0 2))) (let ((e-156 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-154) (Strings-Types-Prelude-C-43C-43 ":Can't match on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-153 e-156) " as it is has a polymorphic type"))))))) ((44) (let ((e-157 (vector-ref sc0 1))) (let ((e-158 (vector-ref sc0 2))) (let ((e-160 (vector-ref sc0 4))) (let ((e-161 (vector-ref sc0 5))) (let ((e-162 (vector-ref sc0 6))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-158) (Strings-Types-Prelude-C-43C-43 ":Can't match on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-157 e-161) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-160) (Strings-Types-Prelude-C-43C-43 ")" (Strings-Types-Prelude-C-43C-43 " - it elaborates to " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-157 e-162)))))))))))))) ((45) (let ((e-163 (vector-ref sc0 1))) (let ((e-164 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-163) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 e-164 " can't be bound here")))))) ((46) (let ((e-165 (vector-ref sc0 1))) (let ((e-166 (vector-ref sc0 2))) (let ((e-168 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-166) (Strings-Types-Prelude-C-43C-43 ":Bad elaborator script " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-165 e-168))))))) ((47) (let ((e-169 (vector-ref sc0 1))) (let ((e-170 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-169) (Strings-Types-Prelude-C-43C-43 ":" e-170))))) ((48) (let ((e-171 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-171)))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "File error (" (Strings-Types-Prelude-C-43C-43 e-172 (Strings-Types-Prelude-C-43C-43 "): " (File-System-show_Show__FileError e-173))))))) ((50) (let ((e-175 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "Parse error (" (Strings-Types-Prelude-C-43C-43 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (Builtin-fst 'erased 'erased e-175) e-177) ")"))))) ((51) (let ((e-178 (vector-ref sc0 1))) (let ((e-179 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-178) (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-179)) " not found")))))) ((52) (let ((e-180 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-n--6124-3490-showMod e-180 eta-0)) e-180))))) ((53) "Internal error when resolving implicit laziness") ((54) (let ((e-181 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "INTERNAL ERROR: " e-181))) ((55) (let ((e-182 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "Error: " e-182))) ((56) (let ((e-183 (vector-ref sc0 1))) (let ((e-184 (vector-ref sc0 2))) (let ((e-185 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-183) (Strings-Types-Prelude-C-43C-43 ":When elaborating type of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-184) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-185))))))))) ((57) (let ((e-186 (vector-ref sc0 1))) (let ((e-187 (vector-ref sc0 2))) (let ((e-188 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-186) (Strings-Types-Prelude-C-43C-43 ":When elaborating type of constructor " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-187) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-188))))))))) ((58) (let ((e-189 (vector-ref sc0 1))) (let ((e-190 (vector-ref sc0 2))) (let ((e-191 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-189) (Strings-Types-Prelude-C-43C-43 ":When elaborating left hand side of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-190) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-191))))))))) (else (let ((e-192 (vector-ref sc0 1))) (let ((e-193 (vector-ref sc0 2))) (let ((e-194 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-192) (Strings-Types-Prelude-C-43C-43 ":When elaborating right hand side of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-193) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Core-Core-show_Show__Error e-194))))))))))))) (define Core-Core-show_Show__DotReason (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Non linear pattern variable") ((1) "Variable applied to arguments") ((2) "Not a constructor application or primitive") ((3) "Erased argument") ((4) "User dotted") (else "Unknown reason"))))) (define Core-Core-showPrec_Show__Error (lambda (arg-0 arg-1) (Core-Core-show_Show__Error arg-1))) (define Core-Core-pretty_Pretty__DotReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Non linear pattern variable")) ((1) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Variable applied to arguments")) ((2) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Not a constructor application or primitive")) ((3) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Erased argument")) ((4) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "User dotted")) (else (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Unknown reason")))))) (define Core-Core-prettyPrec_Pretty__DotReason (lambda (arg-0 arg-1 arg-2) (Core-Core-pretty_Pretty__DotReason 'erased arg-2))) (define Core-Core-catch_Catchable__Core_Error (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((pC-39 (vector 0 e-2))) ((Core-Core-case--caseC-32blockC-32inC-32catch-4475 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2)) ext-0)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) (define Core-Core-__Impl_Show_Error (lambda () (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x)))))) -(define Core-Core-__Impl_Pretty_DotReason (lambda () (vector 0 (lambda (ann) (lambda (arg-3265) (Core-Core-pretty_Pretty__DotReason 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Core-Core-prettyPrec_Pretty__DotReason 'erased arg-3266 arg-3267))))))) +(define Core-Core-__Impl_Pretty_DotReason (lambda () (vector 0 (lambda (ann) (lambda (arg-3271) (Core-Core-pretty_Pretty__DotReason 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Core-Core-prettyPrec_Pretty__DotReason 'erased arg-3272 arg-3273))))))) (define Core-Core-__Impl_Catchable_Core_Error (lambda () (vector 0 (lambda (a) (lambda (arg-4375) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-4375 eta-0)))) (lambda (a) (lambda (arg-4376) (lambda (arg-4377) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased arg-4376 arg-4377 eta-0)))))))) (define Core-Core-wrapError (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 (arg-1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) (define Core-Core-when (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (arg-1)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) @@ -2341,12 +2311,12 @@ (define Core-Core-traverseC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-traverseC-39 'erased 'erased arg-2 e-3 (vector 1 e-5 arg-4)) eta-0)))))))))))))) (define PiInfo-Core-Core-traverse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) (define Core-Core-traverse (lambda (arg-0 arg-1 arg-2 arg-3) (Core-Core-traverseC-39 'erased 'erased arg-2 arg-3 (vector 0 )))) -(define Binder-Core-Core-traverse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased arg-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 e-2 e-5 e-6)))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((arg-2 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 1 e-6 e-7 e-5 e-10)))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased arg-2 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-11 e-12 e-5 e-6)))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased arg-2 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-16 e-17 e-5 e-6)))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((arg-2 e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-24) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-21 e-22 e-5 e-6)))))))))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((arg-2 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-26 e-27 e-5)))))))))))))))) +(define Binder-Core-Core-traverse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 e-5 e-6))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((arg-2 e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-8 e-9))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased arg-2 e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-9 e-5 e-6))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased arg-2 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-15) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-13 e-5 e-6))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((arg-2 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-17 e-5 e-6))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((arg-2 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-21 e-5))))))))))))))) (define Core-Core-throw (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (lambda (arg-4) ((e-2 'erased) arg-4)))))) (define Core-Core-Core-runCore (lambda (arg-0 arg-1) arg-1)) (define Core-Core-put (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (set-box! arg-3 arg-4))) (vector 1 act-24)))) (define Core-Core-pure (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1))) -(define Core-Core-newRef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 ((IORef-Data-newIORef 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-3) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) +(define Core-Core-newRef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 ((IORef-Data-newIORef 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-3) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) (define Core-Core-map (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (let ((sc0 eta-0)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (arg-2 e-5))))))) arg-3 ext-0))) (define Core-Core-getWarningLoc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1))))) (define Core-Core-getErrorLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-getErrorLoc e-0))) ((1) (let ((e-2 (vector-ref sc0 2))) (vector 1 e-2))) ((2) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-7))) ((3) (let ((e-12 (vector-ref sc0 2))) (vector 1 e-12))) ((4) (let ((e-17 (vector-ref sc0 2))) (vector 1 e-17))) ((5) (let ((e-22 (vector-ref sc0 2))) (vector 1 e-22))) ((6) (let ((e-28 (vector-ref sc0 2))) (vector 1 e-28))) ((7) (let ((e-31 (vector-ref sc0 1))) (vector 1 e-31))) ((8) (let ((e-33 (vector-ref sc0 1))) (vector 1 e-33))) ((9) (let ((e-36 (vector-ref sc0 1))) (vector 1 e-36))) ((10) (let ((e-38 (vector-ref sc0 1))) (vector 1 e-38))) ((11) (let ((e-41 (vector-ref sc0 1))) (vector 1 e-41))) ((12) (let ((e-44 (vector-ref sc0 1))) (vector 1 e-44))) ((13) (let ((e-47 (vector-ref sc0 1))) (vector 1 e-47))) ((14) (let ((e-50 (vector-ref sc0 1))) (vector 1 e-50))) ((15) (let ((e-55 (vector-ref sc0 2))) (vector 1 e-55))) ((16) (let ((e-60 (vector-ref sc0 2))) (vector 1 e-60))) ((17) (let ((e-63 (vector-ref sc0 1))) (vector 1 e-63))) ((18) (let ((e-66 (vector-ref sc0 2))) (vector 1 e-66))) ((19) (let ((e-70 (vector-ref sc0 2))) (vector 1 e-70))) ((20) (let ((e-74 (vector-ref sc0 1))) (vector 1 e-74))) ((21) (let ((e-77 (vector-ref sc0 1))) (let ((sc1 e-77)) (case (vector-ref sc1 0) ((1) (let ((e-196 (vector-ref sc1 1))) (let ((sc2 e-196)) (let ((e-202 (vector-ref sc2 2))) (Core-Core-getErrorLoc e-202))))) (else (vector 0 )))))) ((22) (let ((e-79 (vector-ref sc0 2))) (vector 1 e-79))) ((23) (let ((e-81 (vector-ref sc0 1))) (vector 1 e-81))) ((24) (let ((e-84 (vector-ref sc0 1))) (vector 1 e-84))) ((25) (let ((e-86 (vector-ref sc0 1))) (vector 1 e-86))) ((26) (let ((e-89 (vector-ref sc0 2))) (vector 1 e-89))) ((27) (let ((e-94 (vector-ref sc0 2))) (vector 1 e-94))) ((28) (let ((e-98 (vector-ref sc0 2))) (vector 1 e-98))) ((29) (let ((e-103 (vector-ref sc0 2))) (vector 1 e-103))) ((30) (let ((e-107 (vector-ref sc0 2))) (vector 1 e-107))) ((31) (let ((e-112 (vector-ref sc0 1))) (let ((sc1 e-112)) (case (vector-ref sc1 0) ((1) (let ((e-204 (vector-ref sc1 1))) (let ((sc2 e-204)) (let ((e-209 (vector-ref sc2 1))) (vector 1 e-209))))) (else (vector 0 )))))) ((32) (let ((e-114 (vector-ref sc0 2))) (vector 1 e-114))) ((33) (let ((e-120 (vector-ref sc0 2))) (vector 1 e-120))) ((34) (let ((e-124 (vector-ref sc0 1))) (vector 1 e-124))) ((35) (let ((e-129 (vector-ref sc0 1))) (vector 1 e-129))) ((36) (let ((e-131 (vector-ref sc0 1))) (vector 1 e-131))) ((37) (let ((e-133 (vector-ref sc0 1))) (vector 1 e-133))) ((38) (let ((e-135 (vector-ref sc0 1))) (vector 1 e-135))) ((39) (let ((e-138 (vector-ref sc0 2))) (vector 1 e-138))) ((40) (let ((e-142 (vector-ref sc0 2))) (vector 1 e-142))) ((41) (let ((e-147 (vector-ref sc0 2))) (vector 1 e-147))) ((42) (let ((e-150 (vector-ref sc0 1))) (vector 1 e-150))) ((43) (let ((e-154 (vector-ref sc0 2))) (vector 1 e-154))) ((44) (let ((e-158 (vector-ref sc0 2))) (vector 1 e-158))) ((45) (let ((e-163 (vector-ref sc0 1))) (vector 1 e-163))) ((46) (let ((e-166 (vector-ref sc0 2))) (vector 1 e-166))) ((47) (let ((e-169 (vector-ref sc0 1))) (vector 1 e-169))) ((48) (vector 0 )) ((49) (vector 0 )) ((50) (let ((e-176 (vector-ref sc0 2))) (vector 1 e-176))) ((51) (let ((e-178 (vector-ref sc0 1))) (vector 1 e-178))) ((52) (vector 0 )) ((53) (vector 0 )) ((54) (vector 0 )) ((55) (vector 0 )) ((56) (let ((e-185 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-185))) ((57) (let ((e-188 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-188))) ((58) (let ((e-191 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-191))) (else (let ((e-194 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-194))))))) @@ -2368,94 +2338,92 @@ (define IORef-Data-prim__readIORef (lambda (arg-0 arg-1 arg-2) (unbox arg-1))) (define IORef-Data-prim__newIORef (lambda (arg-0 arg-1 arg-2) (box arg-1))) (define IORef-Data-newIORef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (box arg-3)))))) (lambda (m) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) m))))))))) -(define Context-Core-case--logTimeWhen-18555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-25 (arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Num-Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-27 (arg-317 eta-1))) ((arg-318 act-27) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "TIMING " (Strings-Types-Prelude-C-43C-43 (arg-2) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Integer (Num-Prelude-div_Integral__Integer time nano)) (Strings-Types-Prelude-C-43C-43 "." (Strings-Types-Prelude-C-43C-43 (Context-Core-n--23859-18520-addZeros 'erased arg-1 arg-2 arg-3 arg-4 (Types-Prelude-unpack (Show-Prelude-show_Show__Integer (Num-Prelude-div_Integral__Integer (Num-Prelude-mod_Integral__Integer time nano) 1000000)))) "s"))))))) eta-0))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-6)))))))))))))))))))))))))) (else arg-1))))) -(define Context-Core-case--logC-18347 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Log-Options-Core-show_Show__LogLevel arg-5) (Strings-Types-Prelude-C-43C-43 ": " e-5)))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--logC-39-18296 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Log-Options-Core-show_Show__LogLevel arg-1) (Strings-Types-Prelude-C-43C-43 ": " (arg-0))))) eta-0))) (vector 1 act-24)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--logTerm-18219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Log-Options-Core-show_Show__LogLevel arg-7) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (arg-2) (Strings-Types-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5))))))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--recordWarning-18191 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 (vector 1 arg-0 e-25))))))))))))))))))))))))))))))) -(define Context-Core-case--setSession-18140 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 arg-0 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--setDebugElabCheck-18068 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (let ((e-46 (vector-ref sc2 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 e-41 arg-0 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--setLogTimings-17995 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (let ((e-46 (vector-ref sc2 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 arg-0 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--withLogLevel-17916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (let ((e-46 (vector-ref sc2 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 ((Log-Options-Core-insertLogLevel arg-2) arg-5) e-41 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--withLogLevel-17845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (let ((e-46 (vector-ref sc2 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 arg-5 e-41 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--addLogLevel-17738 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (let ((e-46 (vector-ref sc2 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 ((Log-Options-Core-insertLogLevel arg-0) e-40) e-41 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--isEqualTy-17600 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6))))))))))))))))))) -(define Context-Core-case--isPairType-17483 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6))))))))))))))))))) -(define Context-Core-case--addNameDirective-17456 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased arg-5 arg-0 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--setFromChar-17398 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromChar arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--setFromString-17347 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromString arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--setFromInteger-17296 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromInteger arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--setRewrite-17237 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setRewrite arg-6 arg-5 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--setPair-17164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setPair arg-6 arg-7 arg-8 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--setAutoImplicitLimit-17041 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 e-38 arg-0) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--setAmbigLimit-16974 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 arg-0 e-39) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--setDefaultTotalityOption-16908 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 arg-0 e-38 e-39) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--setUnboundImplicits-16842 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 arg-0 e-37 e-38 e-39) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--lazyActive-16776 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 arg-0 e-36 e-37 e-38 e-39) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--checkUnambig-16656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 8 e-10))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Types-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 (Types-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0))))))) -(define Context-Core-case--setExtension-16629 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setExtension arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--setPrefix-16577 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--getWorkingDir-16503 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) -(define Context-Core-case--caseC-32blockC-32inC-32setWorkingDir-16463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 arg-4 e-36 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--setWorkingDir-16400 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-1 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-26 e-2 e-3 (vector 0 (vector 0 e-1 e-36 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) -(define Context-Core-case--setSourceDir-16362 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 arg-0 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--setOutputDir-16293 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--setBuildDir-16224 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 arg-0 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--addLibDir-16145 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 (List-Types-Prelude-C-43C-43 'erased e-41 (vector 1 arg-0 (vector 0 ))) e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--addDataDir-16066 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 e-41 (List-Types-Prelude-C-43C-43 'erased e-42 (vector 1 arg-0 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--addExtraDir-15987 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 (List-Types-Prelude-C-43C-43 'erased e-40 (vector 1 arg-0 (vector 0 ))) e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--setCG-15907 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (let ((e-46 (vector-ref sc2 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--setPPrint-15835 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 arg-0 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--getFullName-15748 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 8 arg-0)))))))) -(define Context-Core-case--resetFirstEntry-15725 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 (let ((sc2 (let ((sc3 arg-1)) (let ((e-62 (vector-ref sc3 1))) e-62)))) (let ((e-46 (vector-ref sc2 2))) e-46)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--setAllPublic-15545 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-35 (vector-ref sc1 10))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-0 e-35 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--setVisible-15465 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-0 e-33) e-34 e-35 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-case--extendNS-15313 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 (List-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-0) e-2) e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--caseC-32blockC-32inC-32addData-15236 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-9)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 arg-15 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--addData-15159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--20047-14945-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-4 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-8 (let ((sc2 arg-9)) (let ((e-1 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-26 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-5 e-1 e-28 e-27 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))) -(define Context-Core-case--caseC-32blockC-32inC-32addDataC-44addDataConstructors-15026 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (Context-Core-n--20047-14945-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 arg-18)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-12 arg-11) eta-0))))))) -(define Context-Core-case--addDataC-44addDataConstructors-14979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Context-Core-n--20047-14945-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 e-3) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-12 arg-11) eta-0)))))))))))))) -(define Context-Core-case--caseC-32blockC-32inC-32getPs-14758 (lambda (arg-0 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--getPs-14733 (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--caseC-32blockC-32inC-32getPs-14758 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--updateParamsC-44mergeArg-14587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--dropRepsC-44toNothing-14453 (lambda (arg-0 arg-1 arg-2 arg-3 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--getNextTypeTag-14411 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--getDirectivesC-44getDir-14323 (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--caseC-32blockC-32inC-32addDirective-14288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 arg-4 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--addDirective-14226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Unknown code generator " arg-2)) eta-0))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 e-2 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))))))) -(define Context-Core-case--addImported-14186 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-0 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--setNestedNS-14112 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 arg-0 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--setNS-14062 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--clearSavedHints-14010 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 ) (vector 0 ) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))) -(define Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32addTransform-13915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 arg-9) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32addTransform-13824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--caseC-32blockC-32inC-32addTransform-13768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 e-2) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))))))) -(define Context-Core-case--addTransform-13720 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Transform arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Transform arg-5319 arg-5320)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Transform arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Transform arg-5319 arg-5320)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((Context-Core-case--caseC-32blockC-32inC-32addTransform-13768 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--setOpenHints-13701 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--addOpenHint-13584 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (NameMap-Data-insert 'erased arg-3 (vector 0 ) e-9) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--addGlobalHint-13508 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-0 e-8) e-9 e-10 (vector 1 (vector 0 arg-4 arg-0) e-11) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--caseC-32blockC-32inC-32addHintFor-13411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) e-7) e-8 e-9 (vector 1 (vector 0 arg-6 (vector 0 arg-7 arg-0)) e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--caseC-32blockC-32inC-32addHintFor-13330 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) e-7) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Context-Core-case--addHintFor-13276 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) e-7) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) e-7) e-8 e-9 (vector 1 (vector 0 arg-7 (vector 0 arg-8 arg-1)) e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))))))) -(define Context-Core-case--addHintFor-13231 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32setExternal-13125 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 arg-0))))) -(define Context-Core-case--caseC-32blockC-32inC-32setExternal-13096 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((flC-39 (let ((sc1 e-4)) (let ((e-9 (vector-ref sc1 1))) (vector 0 e-9 arg-0))))) (lambda (eta-0) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-3 flC-39 e-5 e-6 e-7))) eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Types-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--setExternal-13081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--caseC-32blockC-32inC-32setExternal-13096 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32setUniqueSearch-12990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--caseC-32blockC-32inC-32setUniqueSearch-12961 (lambda (arg-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-Types-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--setUniqueSearch-12946 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32setUniqueSearch-12961 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--caseC-32blockC-32inC-32setDetags-12860 (lambda (arg-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-Types-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--setDetags-12845 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32setDetags-12860 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--caseC-32blockC-32inC-32setDetermining-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-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--17403-12576-getPos arg-0 arg-1 arg-2 arg-3 'erased 0 arg-0 (let ((sc1 arg-5)) (let ((e-26 (vector-ref sc1 3))) e-26))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-8 e-4 e-5 e-6 e-7))) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Types-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--setDetermining-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--caseC-32blockC-32inC-32setDetermining-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--setDeterminingC-44getPos-12602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-n--17403-12576-getPos arg-0 arg-1 arg-2 arg-3 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-13) (List-Data-filter 'erased (lambda (arg-15) (Name-Core-C-47C-61_Eq__Name arg-15 arg-10)) arg-12) arg-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-13 e-5))))))))) (else (Context-Core-n--17403-12576-getPos arg-0 arg-1 arg-2 arg-3 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11)))))) +(define Context-Core-case--logTimeWhen-18347 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-25 (arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Num-Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-27 (arg-274 eta-1))) ((arg-275 act-27) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "TIMING " (Strings-Types-Prelude-C-43C-43 (arg-2) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Integer (Num-Prelude-div_Integral__Integer time nano)) (Strings-Types-Prelude-C-43C-43 "." (Strings-Types-Prelude-C-43C-43 (Context-Core-n--23448-18312-addZeros 'erased arg-1 arg-2 arg-3 arg-4 (Types-Prelude-unpack (Show-Prelude-show_Show__Integer (Num-Prelude-div_Integral__Integer (Num-Prelude-mod_Integral__Integer time nano) 1000000)))) "s"))))))) eta-0))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-6)))))))))))))))))))))))))) (else arg-1))))) +(define Context-Core-case--logC-18147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat arg-1) (Strings-Types-Prelude-C-43C-43 ": " e-5)))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--log-18100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat arg-1) (Strings-Types-Prelude-C-43C-43 ": " (arg-0))))) eta-0))) (vector 1 act-24)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--logTerm-18027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat arg-3) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (arg-2) (Strings-Types-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5))))))) eta-0))) (vector 1 act-25))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--recordWarning-17997 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 (vector 1 arg-0 e-25))))))))))))))))))))))))))))))) +(define Context-Core-case--setSession-17946 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 arg-0 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--setDebugElabCheck-17874 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (let ((e-46 (vector-ref sc2 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 e-41 arg-0 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--setLogTimings-17801 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (let ((e-46 (vector-ref sc2 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 arg-0 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--setLogLevel-17728 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (let ((e-46 (vector-ref sc2 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 e-38 e-39 arg-0 e-41 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--isEqualTy-17590 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6))))))))))))))))))) +(define Context-Core-case--isPairType-17473 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Name-Core-C-61C-61_Eq__Name e-5 e-6))))))))))))))))))) +(define Context-Core-case--addNameDirective-17446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased arg-5 arg-0 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--setFromChar-17388 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromChar arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--setFromString-17337 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromString arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--setFromInteger-17286 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromInteger arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--setRewrite-17227 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setRewrite arg-6 arg-5 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--setPair-17154 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setPair arg-6 arg-7 arg-8 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--setAutoImplicitLimit-17031 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 e-38 arg-0) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--setAmbigLimit-16964 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 e-37 arg-0 e-39) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--setDefaultTotalityOption-16898 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 e-36 arg-0 e-38 e-39) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--setUnboundImplicits-16832 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-35 arg-0 e-37 e-38 e-39) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--lazyActive-16766 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-29)) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 arg-0 e-36 e-37 e-38 e-39) e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--checkUnambig-16646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 8 e-10))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Types-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 (Types-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0))))))) +(define Context-Core-case--setExtension-16619 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setExtension arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--setPrefix-16567 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--getWorkingDir-16493 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) +(define Context-Core-case--caseC-32blockC-32inC-32setWorkingDir-16453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 arg-4 e-36 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--setWorkingDir-16390 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-1 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-26 e-2 e-3 (vector 0 (vector 0 e-1 e-36 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0))))))) +(define Context-Core-case--setSourceDir-16352 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 arg-0 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--setOutputDir-16283 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--setBuildDir-16214 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 arg-0 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--addLibDir-16135 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 (List-Types-Prelude-C-43C-43 'erased e-41 (vector 1 arg-0 (vector 0 ))) e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--addDataDir-16056 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 e-40 e-41 (List-Types-Prelude-C-43C-43 'erased e-42 (vector 1 arg-0 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--addExtraDir-15977 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-35 e-36 e-37 e-38 e-39 (List-Types-Prelude-C-43C-43 'erased e-40 (vector 1 arg-0 (vector 0 ))) e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--setCG-15897 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((sc2 e-28)) (let ((e-35 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 7))) (let ((e-42 (vector-ref sc2 8))) (let ((e-43 (vector-ref sc2 9))) (let ((e-44 (vector-ref sc2 10))) (let ((e-45 (vector-ref sc2 11))) (let ((e-46 (vector-ref sc2 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--setPPrint-15825 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 arg-0 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--getFullName-15738 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))))) (else (lambda (eta-0) (vector 1 (vector 8 arg-0)))))))) +(define Context-Core-case--resetFirstEntry-15715 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 (let ((sc2 (let ((sc3 arg-1)) (let ((e-62 (vector-ref sc3 1))) e-62)))) (let ((e-46 (vector-ref sc2 2))) e-46)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--setAllPublic-15535 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-35 (vector-ref sc1 10))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-0 e-35 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--setVisible-15455 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-0 e-33) e-34 e-35 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))) +(define Context-Core-case--extendNS-15303 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 (List-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-0) e-2) e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--caseC-32blockC-32inC-32addData-15226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-9)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 arg-15 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--addData-15149 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--19848-14935-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-4 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-8 (let ((sc2 arg-9)) (let ((e-1 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-27 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-26 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-5 e-1 e-28 e-27 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))) +(define Context-Core-case--caseC-32blockC-32inC-32addDataC-44addDataConstructors-15016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (Context-Core-n--19848-14935-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 arg-18)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-12 arg-11) eta-0))))))) +(define Context-Core-case--addDataC-44addDataConstructors-14969 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Context-Core-n--19848-14935-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-15 1 63) arg-13 e-3) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-12 arg-11) eta-0)))))))))))))) +(define Context-Core-case--caseC-32blockC-32inC-32getPs-14750 (lambda (arg-0 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--getPs-14725 (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--caseC-32blockC-32inC-32getPs-14750 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--updateParamsC-44mergeArg-14581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-12 arg-11 arg-9))) (else (vector 0 )))))) +(define Context-Core-case--dropRepsC-44toNothing-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) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 0 )) (else arg-12))))) +(define Context-Core-case--getNextTypeTag-14405 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--getDirectivesC-44getDir-14317 (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--caseC-32blockC-32inC-32addDirective-14282 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 arg-4 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--addDirective-14220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Unknown code generator " arg-2)) eta-0))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 e-2 arg-1) e-19) e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))))))) +(define Context-Core-case--addImported-14180 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-0 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--setNestedNS-14106 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 arg-0 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--setNS-14056 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--clearSavedHints-14004 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (vector 0 ) (vector 0 ) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))) +(define Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32addTransform-13909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 arg-9) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32addTransform-13818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--caseC-32blockC-32inC-32addTransform-13762 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 (vector 0 )) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-6 e-2) e-12) (vector 1 (vector 0 arg-7 arg-8) e-13) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))))))) +(define Context-Core-case--addTransform-13714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Transform arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Transform arg-5319 arg-5320)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Transform arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Transform arg-5319 arg-5320)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((Context-Core-case--caseC-32blockC-32inC-32addTransform-13762 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--setOpenHints-13695 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Context-Core-case--addOpenHint-13578 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (NameMap-Data-insert 'erased arg-3 (vector 0 ) e-9) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--addGlobalHint-13502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-0 e-8) e-9 e-10 (vector 1 (vector 0 arg-4 arg-0) e-11) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--caseC-32blockC-32inC-32addHintFor-13405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) e-7) e-8 e-9 (vector 1 (vector 0 arg-6 (vector 0 arg-7 arg-0)) e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--caseC-32blockC-32inC-32addHintFor-13324 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-6 (vector 1 (vector 0 arg-7 arg-0) arg-8) e-7) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Context-Core-case--addHintFor-13270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) e-7) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (NameMap-Data-insert 'erased arg-7 (vector 1 (vector 0 arg-8 arg-1) arg-9) e-7) e-8 e-9 (vector 1 (vector 0 arg-7 (vector 0 arg-8 arg-1)) e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))))))) +(define Context-Core-case--addHintFor-13225 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32setExternal-13119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--caseC-32blockC-32inC-32setExternal-13090 (lambda (arg-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-Types-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--setExternal-13075 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32setExternal-13090 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32setUniqueSearch-12984 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--caseC-32blockC-32inC-32setUniqueSearch-12955 (lambda (arg-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-Types-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--setUniqueSearch-12940 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32setUniqueSearch-12955 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--caseC-32blockC-32inC-32setDetags-12854 (lambda (arg-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-Types-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--setDetags-12839 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32setDetags-12854 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--caseC-32blockC-32inC-32setDetermining-12744 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((6) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 ((Context-Core-n--17215-12576-getPos arg-0 arg-1 arg-2 arg-3 'erased 0 arg-0 (let ((sc1 arg-5)) (let ((e-26 (vector-ref sc1 3))) e-26))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (Context-Core-updateDef arg-3 arg-1 (lambda (eta-1) (vector 1 (vector 6 e-0 e-1 e-2 e-8 e-4 e-5 e-6 e-7))) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Types-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--setDetermining-12729 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32setDetermining-12744 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--setDeterminingC-44getPos-12600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-n--17215-12576-getPos arg-0 arg-1 arg-2 arg-3 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-12) (List-Data-filter 'erased (lambda (arg-14) (Name-Core-C-47C-61_Eq__Name arg-14 arg-9)) arg-11) arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-12 e-5))))))))) (else (Context-Core-n--17215-12576-getPos arg-0 arg-1 arg-2 arg-3 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-12) arg-11 arg-10)))))) (define Context-Core-case--dropMutData-12560 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 (List-Data-filter 'erased (lambda (arg-3) (Name-Core-C-47C-61_Eq__Name arg-3 arg-0)) e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (define Context-Core-case--addMutData-12503 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 (vector 1 arg-0 e-1) e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (define Context-Core-case--caseC-32blockC-32inC-32setMutWith-12392 (lambda (arg-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-Types-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--setMutWith-12377 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32setMutWith-12392 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--caseC-32blockC-32inC-32getSearchData-12150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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 (Types-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--16801-12017-isDefault arg-0 arg-1 arg-2 arg-3 eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 ))))))) (else (let ((opens (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Basics-Prelude-not (Context-Core-n--16801-12017-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 (Types-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--16801-12018-direct arg-0 arg-1 arg-2 arg-3 eta-0)) arg-15)))) (let ((chasers (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Basics-Prelude-not (Context-Core-n--16801-12018-direct arg-0 arg-1 arg-2 arg-3 eta-0))) arg-15)))) (lambda (eta-0) (vector 1 (vector 0 arg-12 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Basics-Prelude-not (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 )))))))))))))))))) +(define Context-Core-case--caseC-32blockC-32inC-32getSearchData-12150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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 (Types-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--16613-12017-isDefault arg-0 arg-1 arg-2 arg-3 eta-0)) (NameMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 9))) e-8))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 ))))))) (else (let ((opens (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Basics-Prelude-not (Context-Core-n--16613-12017-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 (Types-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--16613-12018-direct arg-0 arg-1 arg-2 arg-3 eta-0)) arg-15)))) (let ((chasers (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Basics-Prelude-not (Context-Core-n--16613-12018-direct arg-0 arg-1 arg-2 arg-3 eta-0))) arg-15)))) (lambda (eta-0) (vector 1 (vector 0 arg-12 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Basics-Prelude-not (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 )))))))))))))))))) (define Context-Core-case--caseC-32blockC-32inC-32getSearchData-12081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--getSearchData-12043 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((e-6 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (let ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (let ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Context-Core-case--caseC-32blockC-32inC-32getSearchData-12081 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-4 e-7 e-8 e-9 e-6 e-5 _-0 e-10 (NameMap-Data-lookup 'erased e-10 (let ((sc3 arg-4)) (let ((e-29 (vector-ref sc3 8))) e-29))))))) (let ((sc3 arg-1)) (cond ((equal? sc3 0) (let ((defns (Types-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--16801-12017-isDefault arg-0 arg-1 arg-2 arg-3 eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-27 (vector-ref sc4 10))) e-27)))))) (let ((autos (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Basics-Prelude-not (Context-Core-n--16801-12017-isDefault arg-0 arg-1 arg-2 arg-3 eta-1))) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (let ((tyhs (Types-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--16801-12018-direct arg-0 arg-1 arg-2 arg-3 eta-1)) hs)))) (let ((chasers (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Basics-Prelude-not (Context-Core-n--16801-12018-direct arg-0 arg-1 arg-2 arg-3 eta-1))) hs)))) (vector 1 (vector 0 e-5 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Basics-Prelude-not (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0))))))) +(define Context-Core-case--getSearchData-12043 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((e-6 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (let ((e-8 (vector-ref sc1 7))) (let ((e-9 (vector-ref sc1 8))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (let ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))) (Context-Core-case--caseC-32blockC-32inC-32getSearchData-12081 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-4 e-7 e-8 e-9 e-6 e-5 _-0 e-10 (NameMap-Data-lookup 'erased e-10 (let ((sc3 arg-4)) (let ((e-29 (vector-ref sc3 8))) e-29))))))) (let ((sc3 arg-1)) (cond ((equal? sc3 0) (let ((defns (Types-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--16613-12017-isDefault arg-0 arg-1 arg-2 arg-3 eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-27 (vector-ref sc4 10))) e-27)))))) (let ((autos (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Basics-Prelude-not (Context-Core-n--16613-12017-isDefault arg-0 arg-1 arg-2 arg-3 eta-1))) (NameMap-Data-toList 'erased (let ((sc4 arg-4)) (let ((e-28 (vector-ref sc4 9))) e-28))))))) (let ((tyhs (Types-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--16613-12018-direct arg-0 arg-1 arg-2 arg-3 eta-1)) hs)))) (let ((chasers (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Basics-Prelude-not (Context-Core-n--16613-12018-direct arg-0 arg-1 arg-2 arg-3 eta-1))) hs)))) (vector 1 (vector 0 e-5 (List-Data-filter 'erased (lambda (eta-1) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-1))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Basics-Prelude-not (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 )))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0))))))) (define Context-Core-case--caseC-32blockC-32inC-32hide-11914 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 (Context-Core-hideName arg-5 e-0) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (define Context-Core-case--hide-11860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-2 (let ((sc3 arg-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (let ((e-28 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-5 (vector-ref sc3 6))) (let ((e-27 (vector-ref sc3 7))) (let ((e-26 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (vector 0 (Context-Core-hideName e-6 e-0) e-29 e-28 e-3 e-4 e-5 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Types-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0))))))) (define Context-Core-case--getTotality-11673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-10 (vector-ref sc1 11))) e-10)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) @@ -2501,10 +2469,10 @@ (define Context-Core-case--addUserHole-9315 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 (NameMap-Data-insert 'erased arg-0 (vector 0 ) e-22) e-23 e-24 e-25)))))))))))))))))))))))))))))) (define Context-Core-case--initHash-9265 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 5381 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (define Context-Core-case--addHash-9207 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (let ((sc1 arg-1)) (let ((e-26 (vector-ref sc1 2))) ((e-26 (let ((sc2 arg-4)) (let ((e-38 (vector-ref sc2 16))) e-38))) arg-2))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Context-Core-case--caseC-32blockC-32inC-32aliasName-9121 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-n--13545-9047-findAlias arg-0 arg-1 e-1))) (else (lambda (eta-0) (vector 1 arg-0))))))) +(define Context-Core-case--caseC-32blockC-32inC-32aliasName-9121 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-n--13357-9047-findAlias arg-0 arg-1 e-1))) (else (lambda (eta-0) (vector 1 arg-0))))))) (define Context-Core-case--aliasName-9107 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-case--caseC-32blockC-32inC-32aliasName-9121 arg-0 arg-1 arg-2 e-1 (StringMap-Data-lookup 'erased e-1 (let ((sc1 (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-3 (vector-ref sc1 4))) e-3)))))) (else (lambda (eta-0) (vector 1 arg-0))))))) -(define Context-Core-case--aliasNameC-44findAlias-9062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-4))) (else (Context-Core-n--13545-9047-findAlias arg-0 arg-1 arg-5)))))) -(define Context-Core-case--clearCtxt-8958 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--13384-8893-resetElab arg-0 (let ((sc1 arg-1)) (let ((e-47 (vector-ref sc1 5))) e-47))) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc1 arg-1)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25)))))))))))))))))))))))))))) +(define Context-Core-case--aliasNameC-44findAlias-9062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-4))) (else (Context-Core-n--13357-9047-findAlias arg-0 arg-1 arg-5)))))) +(define Context-Core-case--clearCtxt-8958 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--13196-8893-resetElab arg-0 (let ((sc1 arg-1)) (let ((e-47 (vector-ref sc1 5))) e-47))) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc1 arg-1)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25)))))))))))))))))))))))))))) (define Context-Core-case--clearCtxtC-44resetElab-8908 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 (Options-Core-defaultElab) e-4 e-5 e-6 e-7 e-8)))))))))))) (define Context-Core-case--clearDefs-8831 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 0 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) (define Context-Core-case--resolved-7316 (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))))))))))))))))))) @@ -2521,39 +2489,39 @@ (define Context-Core-case--getFnName-5283 (lambda (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--caseC-32blockC-32inC-32commitCtxt-5237 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-1 e-6 e-7 e-8 e-9 e-10)))))))))))))) (define Context-Core-case--caseC-32blockC-32inC-32commitCtxt-5208 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9 e-10))))))))))))) -(define Context-Core-case--commitCtxt-5164 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0)))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((a (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Context-Core-n--9499-5136-commitStaged arg-0 (IntMap-Data-toList 'erased (let ((sc2 arg-0)) (let ((e-6 (vector-ref sc2 7))) e-6))) e-5) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (let ((sc3 arg-0)) (let ((e-13 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-13 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-0)) (let ((e-11 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-11 e-1 e-2 e-3 e-4 e-0 e-6 e-7 e-8 e-9 e-10))))))))))))))))))))))) +(define Context-Core-case--commitCtxt-5164 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0)))(else (let ((e-0 (- arg-1 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((a (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Context-Core-n--9311-5136-commitStaged arg-0 (IntMap-Data-toList 'erased (let ((sc2 arg-0)) (let ((e-6 (vector-ref sc2 7))) e-6))) e-5) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (let ((sc3 arg-0)) (let ((e-13 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-13 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-0)) (let ((e-11 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-11 e-1 e-2 e-3 e-4 e-0 e-6 e-7 e-8 e-9 e-10))))))))))))))))))))))) (define Context-Core-case--branchCtxt-5134 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9 e-10))))))))))))))) (define Context-Core-case--hideName-5111 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (NameMap-Data-insert 'erased arg-1 (vector 0 ) e-10)))))))))))))))) -(define Context-Core-case--caseC-32blockC-32inC-32lookupCtxtName-5072 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-n--9005-4695-lookupPossibles arg-0 arg-1 (vector 0 ) e-1))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Context-Core-case--caseC-32blockC-32inC-32lookupCtxtName-5072 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Context-Core-n--8817-4695-lookupPossibles arg-0 arg-1 (vector 0 ) e-1))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Context-Core-case--caseC-32blockC-32inC-32lookupCtxtName-5028 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-5 e-6)) (vector 0 ))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Context-Core-case--lookupCtxtName-5013 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-1 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (vector 1 (vector 1 (vector 0 arg-1 (vector 0 e-7 e-6)) (vector 0 )))))))) (else (vector 1 (vector 0 )))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-case--caseC-32blockC-32inC-32lookupCtxtName-5072 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4929 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (Context-Core-n--9005-4695-lookupPossibles arg-0 arg-1 (vector 1 (vector 0 arg-3 (vector 0 arg-2 arg-7)) arg-6) arg-5)) (else (Context-Core-n--9005-4695-lookupPossibles arg-0 arg-1 arg-6 arg-5)))))) -(define Context-Core-case--caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4929 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Basics-Prelude-C-38C-38 (Context-Core-n--9005-4693-matches arg-0 arg-1 arg-1 arg-4) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-61C-61_Eq__Int arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-47C-61_Eq__Int arg-8 arg-9)))) arg-2 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--9005-4694-resn arg-0 arg-1 eta-0)) arg-6))))))))) (else (Context-Core-n--9005-4695-lookupPossibles arg-0 arg-1 arg-6 arg-5)))))) -(define Context-Core-case--lookupCtxtNameC-44lookupPossibles-4875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-2) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4929 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Basics-Prelude-C-38C-38 (Context-Core-n--9005-4693-matches arg-0 arg-1 arg-1 arg-4) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-61C-61_Eq__Int arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-47C-61_Eq__Int arg-8 arg-9)))) arg-2 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--9005-4694-resn arg-0 arg-1 eta-1)) arg-6)))))) eta-0)))) (else ((Context-Core-n--9005-4695-lookupPossibles arg-0 arg-1 arg-6 arg-5) eta-0)))))))))))(else (Context-Core-n--9005-4695-lookupPossibles arg-0 arg-1 arg-6 arg-5)))))) -(define Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (Context-Core-n--9005-4695-lookupPossibles arg-0 arg-1 (vector 1 (vector 0 arg-3 (vector 0 arg-2 arg-6)) arg-5) arg-4)) (else (Context-Core-n--9005-4695-lookupPossibles arg-0 arg-1 arg-5 arg-4)))))) -(define Context-Core-case--caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4795 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (Basics-Prelude-C-38C-38 (Context-Core-n--9005-4693-matches arg-0 arg-1 arg-1 arg-3) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-61C-61_Eq__Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-47C-61_Eq__Int arg-7 arg-8)))) arg-2 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--9005-4694-resn arg-0 arg-1 eta-0)) arg-5))))))))) (else (Context-Core-n--9005-4695-lookupPossibles arg-0 arg-1 arg-5 arg-4)))))) -(define Context-Core-case--lookupCtxtNameC-44lookupPossibles-4745 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-2) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4795 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (Basics-Prelude-C-38C-38 (Context-Core-n--9005-4693-matches arg-0 arg-1 arg-1 arg-3) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-61C-61_Eq__Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-47C-61_Eq__Int arg-7 arg-8)))) arg-2 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--9005-4694-resn arg-0 arg-1 eta-1)) arg-5)))))) eta-0)))) (else ((Context-Core-n--9005-4695-lookupPossibles arg-0 arg-1 arg-5 arg-4) eta-0)))))))))))(else (Context-Core-n--9005-4695-lookupPossibles arg-0 arg-1 arg-5 arg-4)))))) +(define Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4929 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (Context-Core-n--8817-4695-lookupPossibles arg-0 arg-1 (vector 1 (vector 0 arg-3 (vector 0 arg-2 arg-7)) arg-6) arg-5)) (else (Context-Core-n--8817-4695-lookupPossibles arg-0 arg-1 arg-6 arg-5)))))) +(define Context-Core-case--caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4929 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Basics-Prelude-C-38C-38 (Context-Core-n--8817-4693-matches arg-0 arg-1 arg-1 arg-4) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-61C-61_Eq__Int arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-47C-61_Eq__Int arg-8 arg-9)))) arg-2 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--8817-4694-resn arg-0 arg-1 eta-0)) arg-6))))))))) (else (Context-Core-n--8817-4695-lookupPossibles arg-0 arg-1 arg-6 arg-5)))))) +(define Context-Core-case--lookupCtxtNameC-44lookupPossibles-4875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-2) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4929 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Basics-Prelude-C-38C-38 (Context-Core-n--8817-4693-matches arg-0 arg-1 arg-1 arg-4) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-61C-61_Eq__Int arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-47C-61_Eq__Int arg-8 arg-9)))) arg-2 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--8817-4694-resn arg-0 arg-1 eta-1)) arg-6)))))) eta-0)))) (else ((Context-Core-n--8817-4695-lookupPossibles arg-0 arg-1 arg-6 arg-5) eta-0)))))))))))(else (Context-Core-n--8817-4695-lookupPossibles arg-0 arg-1 arg-6 arg-5)))))) +(define Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (Context-Core-n--8817-4695-lookupPossibles arg-0 arg-1 (vector 1 (vector 0 arg-3 (vector 0 arg-2 arg-6)) arg-5) arg-4)) (else (Context-Core-n--8817-4695-lookupPossibles arg-0 arg-1 arg-5 arg-4)))))) +(define Context-Core-case--caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4795 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (Basics-Prelude-C-38C-38 (Context-Core-n--8817-4693-matches arg-0 arg-1 arg-1 arg-3) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-61C-61_Eq__Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-47C-61_Eq__Int arg-7 arg-8)))) arg-2 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--8817-4694-resn arg-0 arg-1 eta-0)) arg-5))))))))) (else (Context-Core-n--8817-4695-lookupPossibles arg-0 arg-1 arg-5 arg-4)))))) +(define Context-Core-case--lookupCtxtNameC-44lookupPossibles-4745 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-2) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtNameC-44lookupPossibles-4795 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (Basics-Prelude-C-38C-38 (Context-Core-n--8817-4693-matches arg-0 arg-1 arg-1 arg-3) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-61C-61_Eq__Int arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-47C-61_Eq__Int arg-7 arg-8)))) arg-2 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--8817-4694-resn arg-0 arg-1 eta-1)) arg-5)))))) eta-0)))) (else ((Context-Core-n--8817-4695-lookupPossibles arg-0 arg-1 arg-5 arg-4) eta-0)))))))))))(else (Context-Core-n--8817-4695-lookupPossibles arg-0 arg-1 arg-5 arg-4)))))) (define Context-Core-case--lookupContextEntry-4674 (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 8 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Context-Core-case--caseC-32blockC-32inC-32lookupContextEntry-4639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--lookupContextEntry-4595 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 e-1)))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a-0) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-6357) arg-6357))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 arg-0 e-1))))) (else (vector 1 (vector 0 )))))))))))))))))))))) +(define Context-Core-case--lookupContextEntry-4595 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 e-1)))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a-0) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-5832) arg-5832))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 arg-0 e-1))))) (else (vector 1 (vector 0 )))))))))))))))))))))) (define Context-Core-case--lookupCtxtExact-4565 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtExact-4498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6))))))))))) (define Context-Core-case--caseC-32blockC-32inC-32lookupCtxtExact-4480 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtExact-4498 arg-0 arg-1 arg-2 arg-3 e-1 _-0 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Context-Core-case--caseC-32blockC-32inC-32lookupCtxtExact-4417 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-6))))))))))) -(define Context-Core-case--lookupCtxtExact-4402 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Context-Core-case--caseC-32blockC-32inC-32lookupCtxtExact-4417 arg-0 arg-1 e-1 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a-0) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-6357) arg-6357))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtExact-4498 arg-0 arg-1 a e-5 e-1 _-0 e-7 (Context-Core-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7)) eta-0))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))) +(define Context-Core-case--lookupCtxtExact-4402 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Context-Core-case--caseC-32blockC-32inC-32lookupCtxtExact-4417 arg-0 arg-1 e-1 e-5 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)) eta-0))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a-0) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-5832) arg-5832))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lookupCtxtExact-4498 arg-0 arg-1 a e-5 e-1 _-0 e-7 (Context-Core-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7)) eta-0))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))) (define Context-Core-case--lookupCtxtExactI-4378 (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 8 e-1) arg-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Context-Core-case--caseC-32blockC-32inC-32lookupCtxtExactI-4344 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Context-Core-case--lookupCtxtExactI-4301 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a-0) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-6357) arg-6357))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Context-Core-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))) +(define Context-Core-case--lookupCtxtExactI-4301 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Context-Core-returnDef (let ((sc2 arg-1)) (let ((e-9 (vector-ref sc2 10))) e-9)) arg-0 e-5)))))))))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a-0) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-5832) arg-5832))) e-5 arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Context-Core-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))) (define Context-Core-case--caseC-32blockC-32inC-32returnDef-4249 (lambda (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--returnDef-4233 (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--caseC-32blockC-32inC-32returnDef-4249 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32addEntry-4206 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 arg-1 e-6) e-7 e-8 e-9 e-10))))))))))))))) (define Context-Core-case--caseC-32blockC-32inC-32addEntry-4175 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-11 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-5 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9 e-10))))))))))))))))))))) -(define Context-Core-case--caseC-32blockC-32inC-32addEntry-4123 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a-0) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-6357) arg-6357))) e-5 e-2 arg-1) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))) -(define Context-Core-case--addEntry-4107 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox a))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a-0) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-26 (arg-317 eta-1))) ((arg-318 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-6357) arg-6357))) e-6 e-2 arg-1) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9 e-10))))))))))))))))))))))))))))) +(define Context-Core-case--caseC-32blockC-32inC-32addEntry-4123 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a-0) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-5832) arg-5832))) e-5 e-2 arg-1) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))) +(define Context-Core-case--addEntry-4107 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox a))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a-0) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-26 (arg-274 eta-1))) ((arg-275 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-5832) arg-5832))) e-6 e-2 arg-1) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9 e-10))))))))))))))))))))))))))))) (define Context-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32addCtxt-4082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 (vector 1 arg-1) e-6) e-7 e-8 e-9 e-10))))))))))))))) (define Context-Core-case--caseC-32blockC-32inC-32addCtxt-4051 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-11 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-5 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9 e-10))))))))))))))))))))) -(define Context-Core-case--caseC-32blockC-32inC-32addCtxt-3999 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a-0) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-6357) arg-6357))) e-5 e-2 (vector 1 arg-1)) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))) -(define Context-Core-case--addCtxt-3983 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox a))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a-0) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-26 (arg-317 eta-1))) ((arg-318 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-6357) arg-6357))) e-6 e-2 (vector 1 arg-1)) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9 e-10))))))))))))))))))))))))))))) +(define Context-Core-case--caseC-32blockC-32inC-32addCtxt-3999 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((a (let ((sc1 e-3)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a-0) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-5832) arg-5832))) e-5 e-2 (vector 1 arg-1)) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))) +(define Context-Core-case--addCtxt-3983 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((a (let ((sc3 e-3)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((act-25 (let ((act-25 (unbox a))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a-0) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-26 (arg-274 eta-1))) ((arg-275 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-5832) arg-5832))) e-6 e-2 (vector 1 arg-1)) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-2 e-3)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9 e-10))))))))))))))))))))))))))))) (define Context-Core-case--caseC-32blockC-32inC-32newAlias-3955 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 (Context-Core-addAlias arg-2 arg-1 arg-3 e-3) e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))) (define Context-Core-case--newAlias-3928 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-11 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (vector 0 e-0 e-1 e-12 (Context-Core-addAlias arg-2 arg-1 e-2 e-11) e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))) (define Context-Core-case--getPosition-3897 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1 arg-0))))) (else (Context-Core-newEntry arg-1 arg-0)))))) @@ -2563,34 +2531,34 @@ (define Context-Core-case--caseC-32blockC-32inC-32addPossible-3698 (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--addPossible-3676 (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--caseC-32blockC-32inC-32addPossible-3698 arg-0 arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 arg-0)))))))) (define Context-Core-case--show-2172 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) " [impl]") (else ""))))) -(define Context-Core-n--20760-15564-visible (lambda (arg-0 arg-1 arg-2) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) arg-2 arg-0))) -(define Context-Core-n--19477-14434-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--dropRepsC-44toNothing-14453 'erased arg-1 'erased 'erased arg-4 arg-5 arg-6 'erased e-4 e-5 e-6 'erased tm (Types-Prelude-C-61C-61_Eq__Nat arg-1 e-6)))))))(else arg-7)))))(else arg-7))))) -(define Context-Core-n--19750-14677-shrink (lambda (arg-0 arg-1 arg-2 arg-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))) (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))))))))) -(define Context-Core-n--24353-18970-showTimeLog (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 e-2 ": ")) eta-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((nano 1000000000)) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Integer (Num-Prelude-div_Integral__Integer e-7 nano)) (Strings-Types-Prelude-C-43C-43 "." (Strings-Types-Prelude-C-43C-43 (Context-Core-n--24353-18969-addZeros arg-0 (Types-Prelude-unpack (Show-Prelude-show_Show__Integer (Num-Prelude-div_Integral__Integer (Num-Prelude-mod_Integral__Integer e-7 nano) 1000000)))) "s")))) eta-0))) (vector 1 act-25))))))))))))))) -(define Context-Core-n--10768-6520-resolvedNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9))))))))))))))))))))))))))))))) -(define Context-Core-n--9005-4694-resn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) e-6)))))) -(define Context-Core-n--13384-8893-resetElab (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 (Options-Core-defaultElab) e-4 e-5 e-6 e-7 e-8)))))))))))) -(define Context-Core-n--19606-14562-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--updateParamsC-44mergeArg-14587 'erased arg-1 arg-2 'erased e-10 e-11 e-12 'erased 'erased e-6 'erased e-5 e-4 (Types-Prelude-C-61C-61_Eq__Nat e-6 e-12))))))(else (vector 0 ))))))))(else (vector 0 ))))))(else (vector 0 )))))) -(define Context-Core-n--9005-4693-matches (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) e-0 e-2)))(else 0)))))(else 0))))) -(define Context-Core-n--9005-4695-lookupPossibles (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-2)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Context-Core-case--lookupCtxtNameC-44lookupPossibles-4745 arg-0 arg-1 e-5 e-4 e-3 arg-2 (NameMap-Data-lookup 'erased e-4 (let ((sc2 arg-0)) (let ((e-10 (vector-ref sc2 11))) e-10))))))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Context-Core-case--lookupCtxtNameC-44lookupPossibles-4875 arg-0 arg-1 e-8 e-7 e-6 e-3 arg-2 (NameMap-Data-lookup 'erased e-7 (let ((sc2 arg-0)) (let ((e-10 (vector-ref sc2 11))) e-10))))))))))))))))) -(define Context-Core-n--19910-14817-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--19910-14817-justPos 'erased arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2) e-3))) (else (Context-Core-n--19910-14817-justPos 'erased arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2) e-3))))))))))) -(define Context-Core-n--13905-9376-isHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-2 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32getUserHolesC-44isHole-9398 arg-0 arg-2 arg-1 e-1 _-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 0))))))))))) -(define Context-Core-n--16801-12017-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0))) -(define Context-Core-n--11085-6715-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Context-Core-n--11085-6715-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0))))))))))))))))) -(define Context-Core-n--11084-6683-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Context-Core-n--11084-6683-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0))))))))))))))))) -(define Context-Core-n--17403-12576-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))) (let ((e-10 (vector-ref sc1 4))) (Context-Core-case--setDeterminingC-44getPos-12602 arg-0 arg-1 arg-2 arg-3 'erased e-2 e-7 e-8 e-9 e-10 e-3 e-5 arg-6 arg-5 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) e-3 arg-6)))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Types-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0)))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Types-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0)))))))))) -(define Context-Core-n--19360-14310-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--getDirectivesC-44getDir-14323 arg-0 arg-1 e-2 e-3 (Options-Core-C-61C-61_Eq__CG arg-0 e-2))))))) -(define Context-Core-n--10767-6379-fullNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9))))))))))))))))))))))))))))))) -(define Context-Core-n--13545-9047-findAlias (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Context-Core-case--aliasNameC-44findAlias-9062 arg-0 arg-1 e-6 e-5 e-4 e-3 (Name-Core-C-61C-61_Eq__Name e-5 arg-0))))))(else (Context-Core-n--13545-9047-findAlias arg-0 arg-1 e-3))))))))))) -(define Context-Core-n--16801-12018-direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0))) -(define Context-Core-n--19606-14537-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--20047-14944-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--9499-5136-commitStaged (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-2 e-6 e-7) eta-0))) ((Context-Core-n--9499-5136-commitStaged arg-0 e-3 arg-2) eta-0))))))))))))) -(define Context-Core-n--20760-15563-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--20760-15563-allParents arg-0 arg-1 e-3))))))))) -(define Context-Core-n--20047-14943-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))) (Types-Prelude-rangeFromTo_Range__Nat 0 e-0))))))) -(define Context-Core-n--24353-18969-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-Types-Prelude-C-43C-43 "00" (Types-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-Types-Prelude-C-43C-43 "0" (Strings-Types-Prelude-C-43C-43 (Types-Prelude-cast_Cast__Char_String e-2) (Types-Prelude-cast_Cast__Char_String e-6))))(else (Types-Prelude-pack arg-1)))))))(else (Types-Prelude-pack arg-1)))))))(else (Types-Prelude-pack arg-1)))))) -(define Context-Core-n--23859-18520-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-Types-Prelude-C-43C-43 "00" (Types-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-Types-Prelude-C-43C-43 "0" (Strings-Types-Prelude-C-43C-43 (Types-Prelude-cast_Cast__Char_String e-2) (Types-Prelude-cast_Cast__Char_String e-6))))(else (Types-Prelude-pack arg-5)))))))(else (Types-Prelude-pack arg-5)))))))(else (Types-Prelude-pack arg-5)))))) -(define Context-Core-n--20047-14945-addDataConstructors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-11))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((condef (Context-Core-newDef e-4 e-5 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-7 e-7 (Context-Core-n--20047-14944-conVisibility arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-6) (vector 5 arg-9 e-6 (vector 0 ))))) (lambda (eta-0) (let ((act-24 ((Context-Core-addCtxt e-5 condef arg-11) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 ((Context-Core-lookupCtxtExact e-5 arg-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) ((Context-Core-n--20047-14945-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-9 1 63) e-3 e-9) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-4 e-5) eta-0)))))))))))))))))))))))))))))) +(define Context-Core-n--20561-15554-visible (lambda (arg-0 arg-1 arg-2) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) arg-2 arg-0))) +(define Context-Core-n--19282-14428-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--dropRepsC-44toNothing-14447 'erased arg-1 'erased 'erased arg-4 arg-5 arg-6 'erased e-4 e-5 e-6 'erased tm (Types-Prelude-C-61C-61_Eq__Nat arg-1 e-6)))))))(else arg-7)))))(else arg-7))))) +(define Context-Core-n--19555-14669-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--23942-18762-showTimeLog (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 e-2 ": ")) eta-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((nano 1000000000)) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Integer (Num-Prelude-div_Integral__Integer e-7 nano)) (Strings-Types-Prelude-C-43C-43 "." (Strings-Types-Prelude-C-43C-43 (Context-Core-n--23942-18761-addZeros arg-0 (Types-Prelude-unpack (Show-Prelude-show_Show__Integer (Num-Prelude-div_Integral__Integer (Num-Prelude-mod_Integral__Integer e-7 nano) 1000000)))) "s")))) eta-0))) (vector 1 act-25))))))))))))))) +(define Context-Core-n--10580-6520-resolvedNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9))))))))))))))))))))))))))))))) +(define Context-Core-n--8817-4694-resn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) e-6)))))) +(define Context-Core-n--13196-8893-resetElab (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 (Options-Core-defaultElab) e-4 e-5 e-6 e-7 e-8)))))))))))) +(define Context-Core-n--19411-14556-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--updateParamsC-44mergeArg-14581 'erased arg-1 arg-2 'erased e-10 e-11 e-12 'erased 'erased e-6 'erased e-5 e-4 (Types-Prelude-C-61C-61_Eq__Nat e-6 e-12))))))(else (vector 0 ))))))))(else (vector 0 ))))))(else (vector 0 )))))) +(define Context-Core-n--8817-4693-matches (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) e-0 e-2)))(else 0)))))(else 0))))) +(define Context-Core-n--8817-4695-lookupPossibles (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-2)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Context-Core-case--lookupCtxtNameC-44lookupPossibles-4745 arg-0 arg-1 e-5 e-4 e-3 arg-2 (NameMap-Data-lookup 'erased e-4 (let ((sc2 arg-0)) (let ((e-10 (vector-ref sc2 11))) e-10))))))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Context-Core-case--lookupCtxtNameC-44lookupPossibles-4875 arg-0 arg-1 e-8 e-7 e-6 e-3 arg-2 (NameMap-Data-lookup 'erased e-7 (let ((sc2 arg-0)) (let ((e-10 (vector-ref sc2 11))) e-10))))))))))))))))) +(define Context-Core-n--19713-14809-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--19713-14809-justPos 'erased arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2) e-3))) (else (Context-Core-n--19713-14809-justPos 'erased arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2) e-3))))))))))) +(define Context-Core-n--13717-9376-isHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-2 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32getUserHolesC-44isHole-9398 arg-0 arg-2 arg-1 e-1 _-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 0))))))))))) +(define Context-Core-n--16613-12017-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0))) +(define Context-Core-n--10897-6715-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Context-Core-n--10897-6715-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0))))))))))))))))) +(define Context-Core-n--10896-6683-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-3))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Context-Core-n--10896-6683-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0))))))))))))))))) +(define Context-Core-n--17215-12576-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--setDeterminingC-44getPos-12600 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) e-3 arg-6))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Types-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0)))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Types-Prelude-C-43C-43 "Unknown determining arguments: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) arg-6)))) eta-0)))))))))) +(define Context-Core-n--19165-14304-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--getDirectivesC-44getDir-14317 arg-0 arg-1 e-2 e-3 (Options-Core-C-61C-61_Eq__CG arg-0 e-2))))))) +(define Context-Core-n--10579-6379-fullNamesPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9))))))))))))))))))))))))))))))) +(define Context-Core-n--13357-9047-findAlias (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Context-Core-case--aliasNameC-44findAlias-9062 arg-0 arg-1 e-6 e-5 e-4 e-3 (Name-Core-C-61C-61_Eq__Name e-5 arg-0))))))(else (Context-Core-n--13357-9047-findAlias arg-0 arg-1 e-3))))))))))) +(define Context-Core-n--16613-12018-direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0))) +(define Context-Core-n--19411-14531-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--19848-14934-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--9311-5136-commitStaged (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-2 e-6 e-7) eta-0))) ((Context-Core-n--9311-5136-commitStaged arg-0 e-3 arg-2) eta-0))))))))))))) +(define Context-Core-n--20561-15553-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--20561-15553-allParents arg-0 arg-1 e-3))))))))) +(define Context-Core-n--19848-14933-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))) (Types-Prelude-rangeFromTo_Range__Nat 0 e-0))))))) +(define Context-Core-n--23942-18761-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-Types-Prelude-C-43C-43 "00" (Types-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-Types-Prelude-C-43C-43 "0" (Strings-Types-Prelude-C-43C-43 (Types-Prelude-cast_Cast__Char_String e-2) (Types-Prelude-cast_Cast__Char_String e-6))))(else (Types-Prelude-pack arg-1)))))))(else (Types-Prelude-pack arg-1)))))))(else (Types-Prelude-pack arg-1)))))) +(define Context-Core-n--23448-18312-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-Types-Prelude-C-43C-43 "00" (Types-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-Types-Prelude-C-43C-43 "0" (Strings-Types-Prelude-C-43C-43 (Types-Prelude-cast_Cast__Char_String e-2) (Types-Prelude-cast_Cast__Char_String e-6))))(else (Types-Prelude-pack arg-5)))))))(else (Types-Prelude-pack arg-5)))))))(else (Types-Prelude-pack arg-5)))))) +(define Context-Core-n--19848-14935-addDataConstructors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-11))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((condef (Context-Core-newDef e-4 e-5 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-7 e-7 (Context-Core-n--19848-14934-conVisibility arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-6) (vector 5 arg-9 e-6 (vector 0 ))))) (lambda (eta-0) (let ((act-24 ((Context-Core-addCtxt e-5 condef arg-11) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 ((Context-Core-lookupCtxtExact e-5 arg-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) ((Context-Core-n--19848-14935-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (b+ arg-9 1 63) e-3 e-9) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-4 e-5) eta-0)))))))))))))))))))))))))))))) (define 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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Show-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"))))) @@ -2606,10 +2574,10 @@ (define Context-Core-resolved_HasNames__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))))))) (define Context-Core-resolved_HasNames__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 8 e-0)))))(else (Context-Core-case--resolved-5387 arg-1 arg-0 (Context-Core-getNameID arg-1 arg-0))))))) (define Context-Core-resolved_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Def arg-0 (let ((sc1 arg-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-resolved_HasNames__Totality arg-0 (let ((sc2 arg-1)) (let ((e-10 (vector-ref sc2 11))) e-10))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5319 arg-5320)))) arg-0 (let ((sc3 arg-1)) (let ((e-12 (vector-ref sc3 13))) e-12))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5319 arg-5320)))) arg-0 (let ((sc4 arg-1)) (let ((e-13 (vector-ref sc4 14))) e-13))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-resolved_HasNames__SCCall arg-0 eta-0 eta-1))) (let ((sc5 arg-1)) (let ((e-20 (vector-ref sc5 21))) e-20))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (let ((sc6 arg-1)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-26 (vector-ref sc6 6))) (let ((e-25 (vector-ref sc6 7))) (let ((e-24 (vector-ref sc6 8))) (let ((e-23 (vector-ref sc6 9))) (let ((e-22 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 12))) (let ((e-14 (vector-ref sc6 15))) (let ((e-15 (vector-ref sc6 16))) (let ((e-16 (vector-ref sc6 17))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-26 e-25 e-24 e-23 e-22 e-7 e-11 e-8 e-9 e-14 e-15 e-16 e-6 e-18 e-19 e-10)))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-resolved_HasNames__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--10768-6520-resolvedNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-0 e-1 e-5 e-6 e-7)))))))))))))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (let ((e-11 (vector-ref sc0 7))) (let ((e-12 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc2 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12)))))))))))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-13 e-14 e-5)))))))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) +(define Context-Core-resolved_HasNames__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--10580-6520-resolvedNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-0 e-1 e-5 e-6 e-7)))))))))))))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (let ((e-11 (vector-ref sc0 7))) (let ((e-12 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc2 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12)))))))))))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-13 e-14 e-5)))))))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) (define Context-Core-resolved_HasNames__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 arg-2)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))))))) (define Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Context-Core-case--resolved-5636 'erased e-3 e-2 e-1 arg-1 (Context-Core-getNameID e-3 arg-1)))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) ((Context-Core-case--resolved-5686 'erased e-8 e-7 e-6 e-5 arg-1 e-9 (Context-Core-getNameID e-6 arg-1)) eta-0)))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-10 e-11 e-5 e-6)))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-15 e-5 e-6))))))))))))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-5 e-6)))))))))))))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-24 e-25 e-5)))))))))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-31) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-28 e-29 e-5 e-6)))))))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-35) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-33 e-34 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))) -(define Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11085-6715-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2)))) +(define Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--10897-6715-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2)))) (define Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 2))) (((e-3 arg-2) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))))))) (define Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-1 arg-3)) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-6 e-7))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-7 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))) (define Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) ((Context-Core-case--resolved-6151 'erased e-3 e-4 e-2 e-1 arg-1 e-5 (Context-Core-getNameID e-1 arg-1)) eta-0)))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-6 e-7 e-5)))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-10 e-5))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) @@ -2621,10 +2589,10 @@ (define Context-Core-full_HasNames__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))))))) (define Context-Core-full_HasNames__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 e-0) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-1)) (let ((e-22 (vector-ref sc3 2))) e-22))))) (else (vector 1 (vector 8 e-0)))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) (define Context-Core-full_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-full_HasNames__Def arg-0 (let ((sc1 arg-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-full_HasNames__Totality arg-0 (let ((sc2 arg-1)) (let ((e-10 (vector-ref sc2 11))) e-10))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5319 arg-5320)))) arg-0 (let ((sc3 arg-1)) (let ((e-12 (vector-ref sc3 13))) e-12))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-5319 arg-5320)))) arg-0 (let ((sc4 arg-1)) (let ((e-13 (vector-ref sc4 14))) e-13))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-full_HasNames__SCCall arg-0 eta-0 eta-1))) (let ((sc5 arg-1)) (let ((e-20 (vector-ref sc5 21))) e-20))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (let ((sc6 arg-1)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-26 (vector-ref sc6 6))) (let ((e-25 (vector-ref sc6 7))) (let ((e-24 (vector-ref sc6 8))) (let ((e-23 (vector-ref sc6 9))) (let ((e-22 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 12))) (let ((e-14 (vector-ref sc6 15))) (let ((e-15 (vector-ref sc6 16))) (let ((e-16 (vector-ref sc6 17))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-26 e-25 e-24 e-23 e-22 e-7 e-11 e-8 e-9 e-14 e-15 e-16 e-6 e-18 e-19 e-10)))))))))))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-full_HasNames__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--10767-6379-fullNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-0 e-1 e-5 e-6 e-7)))))))))))))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (let ((e-11 (vector-ref sc0 7))) (let ((e-12 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc2 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12)))))))))))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-13 e-14 e-5)))))))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) +(define Context-Core-full_HasNames__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--10579-6379-fullNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-0 e-1 e-5 e-6 e-7)))))))))))))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (let ((e-11 (vector-ref sc0 7))) (let ((e-12 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc2 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12)))))))))))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-13 e-14 e-5)))))))))))) ((9) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5 e-17 e-18))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) (define Context-Core-full_HasNames__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 arg-2)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))))))) (define Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((8) (let ((e-36 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 e-36) arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (vector 1 (vector 1 e-1 e-2 (let ((sc4 e-4)) (let ((e-25 (vector-ref sc4 2))) e-25)))))) (else (vector 1 (vector 1 e-1 e-2 (vector 8 e-36))))))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (vector 2 e-5 e-6 e-7 e-9))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 arg-3)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-10 e-11 e-5 e-6)))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-15 e-5 e-6))))))))))))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-5 e-6)))))))))))))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-24 e-25 e-5)))))))))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-31) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-28 e-29 e-5 e-6)))))))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-35) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-33 e-34 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))) -(define Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--11084-6683-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--10896-6683-insertAll 'erased arg-2 arg-1 (NameMap-Data-empty 'erased) (NameMap-Data-toList 'erased arg-2)))) (define Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-2) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))))))) (define Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-3) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-1 arg-3)) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-6 e-7))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-7 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))) (define Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-1 arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (let ((sc4 e-7)) (let ((e-27 (vector-ref sc4 2))) e-27)) e-2 e-3 e-5)))) (else (vector 1 (vector 0 e-1 e-2 e-3 e-5))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-6 e-7 e-5)))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-10 e-5))))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) @@ -2655,7 +2623,6 @@ (define Context-Core-C-47C-61_Eq__SizeChange (lambda (arg-0 arg-1) (Basics-Prelude-not (Context-Core-C-61C-61_Eq__SizeChange arg-0 arg-1)))) (define Context-Core-C-47C-61_Eq__SCCall (lambda (arg-0 arg-1) (Basics-Prelude-not (Context-Core-C-61C-61_Eq__SCCall arg-0 arg-1)))) (define Context-Core-C-47C-61_Eq__DefFlag (lambda (arg-0 arg-1) (Basics-Prelude-not (Context-Core-C-61C-61_Eq__DefFlag arg-0 arg-1)))) -(define Context-Core-withLogLevel (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((logs (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-12 (vector-ref sc1 6))) e-12)))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-47 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (let ((e-46 (vector-ref sc3 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-47 e-36 e-37 e-38 e-39 ((Log-Options-Core-insertLogLevel arg-2) logs) e-41 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (arg-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (set-box! arg-1 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-29 (vector-ref sc4 6))) (let ((e-28 (vector-ref sc4 7))) (let ((e-27 (vector-ref sc4 8))) (let ((e-26 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((sc5 e-4)) (let ((e-38 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (let ((e-35 (vector-ref sc5 4))) (let ((e-30 (vector-ref sc5 5))) (let ((e-31 (vector-ref sc5 6))) (let ((e-32 (vector-ref sc5 7))) (let ((e-33 (vector-ref sc5 8))) (let ((e-34 (vector-ref sc5 9))) (let ((sc6 e-36)) (let ((e-50 (vector-ref sc6 1))) (let ((e-49 (vector-ref sc6 2))) (let ((e-48 (vector-ref sc6 3))) (let ((e-47 (vector-ref sc6 4))) (let ((e-39 (vector-ref sc6 5))) (let ((e-41 (vector-ref sc6 7))) (let ((e-42 (vector-ref sc6 8))) (let ((e-43 (vector-ref sc6 9))) (let ((e-44 (vector-ref sc6 10))) (let ((e-45 (vector-ref sc6 11))) (let ((e-46 (vector-ref sc6 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-38 e-37 (vector 0 e-50 e-49 e-48 e-47 e-39 logs e-41 e-42 e-43 e-44 e-45 e-46) e-35 e-30 e-31 e-32 e-33 e-34) e-29 e-28 e-27 e-26 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))))))))))))))))))))) (define Defs-Context-Core-warnings (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-25 (vector-ref sc0 26))) e-25)))) (define Context-Context-Core-visibleNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7)))) (define Context-Core-visibleInAny (lambda (arg-0 arg-1 arg-2) ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (ns) (Context-Core-visibleIn ns arg-1 arg-2))) arg-0))) @@ -2664,7 +2631,7 @@ (define GlobalDef-Context-Core-vars (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8)))) (define Defs-Context-Core-userHoles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-22 (vector-ref sc0 23))) e-22)))) (define Context-Core-updateTy (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 arg-1) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-0 (vector 8 arg-1) (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 arg-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (vector 1 (vector 0 ))))))))))))))))) -(define Context-Core-updateParams (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Context-Core-dropReps 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--19606-14537-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--19606-14562-mergeArg 'erased e-2 arg-2 eta-0 eta-1))) e-2 arg-2)))))))) +(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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--19411-14531-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--19411-14556-mergeArg 'erased e-2 arg-2 eta-0 eta-1))) e-2 arg-2)))))))) (define Context-Core-updateDef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32updateDef-9878 arg-2 arg-1 arg-0 e-5 e-1 _-0 (arg-2 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (define Context-Core-unsetFlag (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((flagsC-39 (List-Data-filter 'erased (lambda (arg-4) (Context-Core-C-47C-61_Eq__DefFlag arg-4 arg-3)) (let ((sc3 e-1)) (let ((e-11 (vector-ref sc3 12))) e-11))))) (let ((act-26 (Context-Core-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define TypeFlags-Context-Core-uniqueAuto (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) @@ -2675,7 +2642,7 @@ (define GlobalDef-Context-Core-totality (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10)))) (define Defs-Context-Core-toSave (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) (define Context-Core-toResolvedNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) (((e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) arg-3) ext-0)))))))))) -(define Context-Core-toPos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-n--19910-14817-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--19713-14809-justPos 'erased e-2 0 e-2))))))) (define Defs-Context-Core-toIR (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-21 (vector-ref sc0 22))) e-21)))) (define Context-Core-toFullNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (((e-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) arg-3) ext-0)))))))))) (define Defs-Context-Core-toCompileCase (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20)))) @@ -2684,10 +2651,10 @@ (define GlobalDef-Context-Core-specArgs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) (define Context-Core-sndName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (let ((sc1 eta-0)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-4 (vector-ref sc1 5))) e-4))))))))))) (define GlobalDef-Context-Core-sizeChange (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20)))) -(define Context-Core-showTimeRecord (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Context-Core-n--24353-18970-showTimeLog arg-0 eta-0)) (StringMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-24 (vector-ref sc1 25))) e-24)))) ext-0)))))))) -(define Context-Core-setWorkingDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-25 (arg-317 eta-0))) ((arg-318 act-25) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-1) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-26 (arg-317 eta-0))) ((arg-318 act-26) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357)))) ext-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((sc5 e-4)) (let ((e-38 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (let ((e-35 (vector-ref sc5 4))) (let ((e-30 (vector-ref sc5 5))) (let ((e-31 (vector-ref sc5 6))) (let ((e-32 (vector-ref sc5 7))) (let ((e-33 (vector-ref sc5 8))) (let ((e-34 (vector-ref sc5 9))) (let ((sc6 e-38)) (let ((e-45 (vector-ref sc6 2))) (let ((e-44 (vector-ref sc6 3))) (let ((e-43 (vector-ref sc6 4))) (let ((e-39 (vector-ref sc6 5))) (let ((e-40 (vector-ref sc6 6))) (let ((e-41 (vector-ref sc6 7))) (let ((e-42 (vector-ref sc6 8))) (vector 0 e-0 e-29 e-2 e-3 (vector 0 (vector 0 e-1 e-45 e-44 e-43 e-39 e-40 e-41 e-42) e-37 e-36 e-35 e-30 e-31 e-32 e-33 e-34) e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-27)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))) +(define Context-Core-showTimeRecord (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Context-Core-n--23942-18762-showTimeLog arg-0 eta-0)) (StringMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-24 (vector-ref sc1 25))) e-24)))) ext-0)))))))) +(define Context-Core-setWorkingDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((Directory-System-changeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-25 (arg-274 eta-0))) ((arg-275 act-25) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-1) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-26 (arg-274 eta-0))) ((arg-275 act-26) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832)))) ext-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((sc5 e-4)) (let ((e-38 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (let ((e-35 (vector-ref sc5 4))) (let ((e-30 (vector-ref sc5 5))) (let ((e-31 (vector-ref sc5 6))) (let ((e-32 (vector-ref sc5 7))) (let ((e-33 (vector-ref sc5 8))) (let ((e-34 (vector-ref sc5 9))) (let ((sc6 e-38)) (let ((e-45 (vector-ref sc6 2))) (let ((e-44 (vector-ref sc6 3))) (let ((e-43 (vector-ref sc6 4))) (let ((e-39 (vector-ref sc6 5))) (let ((e-40 (vector-ref sc6 6))) (let ((e-41 (vector-ref sc6 7))) (let ((e-42 (vector-ref sc6 8))) (vector 0 e-0 e-29 e-2 e-3 (vector 0 (vector 0 e-1 e-45 e-44 e-43 e-39 e-40 e-41 e-42) e-37 e-36 e-35 e-30 e-31 e-32 e-33 e-34) e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-27)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))) (define Context-Core-setVisible (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-0)) (let ((e-37 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((e-35 (vector-ref sc2 10))) (let ((e-36 (vector-ref sc2 11))) (vector 0 (vector 0 e-37 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-1 e-33) e-34 e-35 e-36) e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-setUniqueSearch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32setUniqueSearch-12961 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-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32setUniqueSearch-12955 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-setUnboundImplicits (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-40 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-40 arg-1 e-37 e-38 e-39) e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setTerminating (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((sc4 e-10)) (let ((e-24 (vector-ref sc4 2))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 (vector 0 arg-3 e-24) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define Context-Core-setSourceDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 arg-1 e-37 e-38 e-39 e-40 e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) @@ -2705,15 +2672,16 @@ (define Context-Core-setNS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 arg-1 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setMutWith (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32setMutWith-12392 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define Context-Core-setLogTimings (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-47 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (let ((e-46 (vector-ref sc3 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-47 e-36 e-37 e-38 e-39 e-40 arg-1 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) +(define Context-Core-setLogLevel (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-47 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (let ((e-46 (vector-ref sc3 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-47 e-36 e-37 e-38 e-39 arg-1 e-41 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setLinearCheck (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 arg-1) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-0 (vector 8 arg-1) (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 arg-2 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (vector 1 (vector 0 ))))))))))))))))) (define Context-Core-setFromString (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromString arg-1 e-4) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setFromInteger (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromInteger arg-1 e-4) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setFromChar (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setFromChar arg-1 e-4) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setFlag (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((flagsC-39 (vector 1 arg-3 (List-Data-filter 'erased (lambda (arg-4) (Context-Core-C-47C-61_Eq__DefFlag arg-4 arg-3)) (let ((sc3 e-1)) (let ((e-11 (vector-ref sc3 12))) e-11)))))) (let ((act-26 (Context-Core-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 flagsC-39 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) -(define Context-Core-setExternal (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32setExternal-13096 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) +(define Context-Core-setExternal (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32setExternal-13090 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define Context-Core-setExtension (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-setExtension arg-1 e-4) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-setDetermining (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32setDetermining-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-setDetags (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32setDetags-12860 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-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32setDetermining-12744 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) +(define Context-Core-setDetags (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--caseC-32blockC-32inC-32setDetags-12854 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define Context-Core-setDefaultTotalityOption (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-40 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 e-40 e-36 arg-1 e-38 e-39) e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setDebugElabCheck (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-47 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (let ((e-46 (vector-ref sc3 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-47 e-36 e-37 e-38 e-39 e-40 e-41 arg-1 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-setCtxt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 arg-1 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25))))))))) @@ -2750,7 +2718,7 @@ (define GlobalDef-Context-Core-noCycles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-15 (vector-ref sc0 16))) e-15)))) (define Defs-Context-Core-nextTag (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6)))) (define Context-Context-Core-nextEntry (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Context-Core-newEntry (lambda (arg-0 arg-1) (let ((idx (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (let ((a (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (EqOrd-Prelude-C-62C-61_Ord__Int idx (IOArray-Data-max 'erased e-5)))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 ((IOArray-Data-newArrayCopy 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a-0) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-6357) arg-6357))) (b+ (IOArray-Data-max 'erased e-5) (Context-Core-Grow) 63) e-5) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (set-box! a e-6))) (vector 1 act-26)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 idx (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-12 (vector-ref sc2 6))) (let ((e-11 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (vector 0 e-0 (b+ idx 1 63) (NameMap-Data-insert 'erased arg-0 idx e-2) (Context-Core-addPossible arg-0 idx e-3) e-4 e-12 e-11 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) +(define Context-Core-newEntry (lambda (arg-0 arg-1) (let ((idx (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (let ((a (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox a))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (EqOrd-Prelude-C-62C-61_Ord__Int idx (IOArray-Data-max 'erased e-5)))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 ((IOArray-Data-newArrayCopy 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a-0) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-5832) arg-5832))) (b+ (IOArray-Data-max 'erased e-5) (Context-Core-Grow) 63) e-5) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (set-box! a e-6))) (vector 1 act-26)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 idx (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-12 (vector-ref sc2 6))) (let ((e-11 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (vector 0 e-0 (b+ idx 1 63) (NameMap-Data-insert 'erased arg-0 idx e-2) (Context-Core-addPossible arg-0 idx e-3) e-4 e-12 e-11 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) (define Context-Core-newDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-0 arg-1 arg-4 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-2 arg-3 arg-5 (TT-Core-unchecked) (vector 0 ) (vector 0 ) (vector 0 ) 1 1 1 arg-6 (vector 0 ) (vector 0 ) (vector 0 )))) (define Context-Core-newAlias (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Context-Core-getPosition arg-1 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (let ((sc2 e-3)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-12 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-13 (Context-Core-addAlias arg-0 arg-1 e-2 e-12) e-4 e-11 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))) (define Defs-Context-Core-nestedNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) @@ -2770,28 +2738,27 @@ (define Context-Core-lookupCtxtExactI (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--lookupCtxtExactI-4301 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--lookupCtxtExactI-4378 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) ((8) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--lookupCtxtExact-4402 e-0 arg-1 (IntMap-Data-lookup 'erased e-0 (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-0 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 e-6)))))) (else (vector 1 (vector 0 )))))))))))))))) (define Context-Core-lookupContextEntry (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (Context-Core-case--lookupContextEntry-4595 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--lookupContextEntry-4674 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) -(define Context-Core-logTimeWhen (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-25 (arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Num-Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-27 (arg-317 eta-1))) ((arg-318 act-27) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "TIMING " (Strings-Types-Prelude-C-43C-43 (arg-3) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Integer (Num-Prelude-div_Integral__Integer time nano)) (Strings-Types-Prelude-C-43C-43 "." (Strings-Types-Prelude-C-43C-43 (Context-Core-n--23859-18520-addZeros 'erased arg-4 arg-3 arg-2 arg-1 (Types-Prelude-unpack (Show-Prelude-show_Show__Integer (Num-Prelude-div_Integral__Integer (Num-Prelude-mod_Integral__Integer time nano) 1000000)))) "s"))))))) eta-0))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-6)))))))))))))))))))))))))) (else arg-4))))) +(define Context-Core-logTimeWhen (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nano 1000000000)) (let ((t (+ (* (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-25 (arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Clock-System-clockTime (vector 3 )) eta-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tC-39 (+ (* (Clock-System-seconds 'erased e-7) nano) (Clock-System-nanoseconds 'erased e-7)))) (let ((time (Num-Prelude-C-45_Neg__Integer tC-39 t))) (let ((act-27 (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-27 (arg-274 eta-1))) ((arg-275 act-27) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "TIMING " (Strings-Types-Prelude-C-43C-43 (arg-3) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Integer (Num-Prelude-div_Integral__Integer time nano)) (Strings-Types-Prelude-C-43C-43 "." (Strings-Types-Prelude-C-43C-43 (Context-Core-n--23448-18312-addZeros 'erased arg-4 arg-3 arg-2 arg-1 (Types-Prelude-unpack (Show-Prelude-show_Show__Integer (Num-Prelude-div_Integral__Integer (Num-Prelude-mod_Integral__Integer time nano) 1000000)))) "s"))))))) eta-0))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-6)))))))))))))))))))))))))) (else arg-4))))) (define Context-Core-logTime (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-logTimeWhen 'erased arg-1 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6)) arg-2 arg-3) ext-0)))))))) -(define Context-Core-logTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lvl ((Log-Options-Core-mkLogLevel arg-2) arg-3))) ((Context-Core-case--logTerm-18219 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 lvl (Log-Options-Core-keepLog lvl (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)))) ext-0))))))))) -(define Context-Core-logC (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-getSession arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lvl ((Log-Options-Core-mkLogLevel arg-1) arg-2))) ((Context-Core-case--logC-18347 arg-3 arg-2 arg-1 arg-0 e-5 lvl (Log-Options-Core-keepLog lvl (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)))) ext-0))))))))) -(define Context-Core-logC-39 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getSession arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--logC-39-18296 arg-2 arg-1 arg-0 e-5 (Log-Options-Core-keepLog arg-1 (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)))) ext-0)))))))) -(define Context-Core-log (lambda (arg-0 arg-1 arg-2 arg-3) (let ((lvl ((Log-Options-Core-mkLogLevel arg-1) arg-2))) (lambda (eta-0) (Context-Core-logC-39 arg-0 lvl arg-3 eta-0))))) +(define Context-Core-logTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--logTerm-18027 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Types-Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)) arg-2)) ext-0)))))))) +(define Context-Core-logC (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getSession arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--logC-18147 arg-2 arg-1 arg-0 e-5 (Types-Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)) arg-1)) ext-0)))))))) +(define Context-Core-log (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getSession arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--log-18100 arg-2 arg-1 arg-0 e-5 (Types-Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)) arg-1)) ext-0)))))))) (define GlobalDef-Context-Core-location (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define GlobalDef-Context-Core-linearChecked (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-16 (vector-ref sc0 17))) e-16)))) (define Context-Core-lazyActive (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-29)) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 (vector 0 arg-1 e-36 e-37 e-38 e-39) e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-isVisible (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Context-Core-n--20760-15564-visible arg-1 arg-0 eta-0))) (List-Types-Prelude-C-43C-43 'erased (Context-Core-n--20760-15563-allParents arg-1 arg-0 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) (List-Types-Prelude-C-43C-43 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)) (let ((sc1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-7 (vector-ref sc1 8))) e-7))))))))))))) +(define Context-Core-isVisible (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Context-Core-n--20561-15554-visible arg-1 arg-0 eta-0))) (List-Types-Prelude-C-43C-43 'erased (Context-Core-n--20561-15553-allParents arg-1 arg-0 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) (List-Types-Prelude-C-43C-43 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)) (let ((sc1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-7 (vector-ref sc1 8))) e-7))))))))))))) (define Context-Core-isUnboundImplicits (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))) -(define Context-Core-isPairType (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--isPairType-17483 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-4 (vector-ref sc1 5))) e-4))) ext-0)))))))) +(define Context-Core-isPairType (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--isPairType-17473 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-4 (vector-ref sc1 5))) e-4))) ext-0)))))))) (define Context-Core-isLazyActive (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))) (define Context-Core-isExtension (lambda (arg-0 arg-1) (Options-Core-isExtension arg-0 (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 5))) e-4))))) -(define Context-Core-isEqualTy (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--isEqualTy-17600 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-9 (vector-ref sc1 6))) e-9))) ext-0)))))))) +(define Context-Core-isEqualTy (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--isEqualTy-17590 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-9 (vector-ref sc1 6))) e-9))) ext-0)))))))) (define Context-Core-isAllPublic (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-8 (vector-ref sc1 9))) e-8)))))))))) (define GlobalDef-Context-Core-invertible (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-14 (vector-ref sc0 15))) e-14)))) (define Context-Context-Core-inlineOnly (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9)))) (define Context-Core-initSize (lambda () 10000)) (define Context-Core-initHash (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 5381 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-initDefs (lambda (ext-0) (let ((act-24 (Context-Core-initCtxt ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 e-5 (vector 0 ) (vector 1 "Main" (vector 0 )) (vector 0 ) (Options-Core-defaults) (NameMap-Data-empty 'erased) 100 (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (vector 0 ) (vector 0 ) (NameMap-Data-empty 'erased) (vector 0 ) (NameMap-Data-empty 'erased) 5381 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased) (vector 0 )))))))))) -(define Context-Core-initCtxtS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((IOArray-Data-newArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Arr" ) e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 0 0 (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased) e-6 0 (IntMap-Data-empty 'erased) (vector 1 (vector 1 "_PE" (vector 0 )) (vector 0 )) 1 1 (NameMap-Data-empty 'erased))))))))))))))) +(define Context-Core-initCtxtS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((IOArray-Data-newArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Arr" ) e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 0 0 (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased) e-6 0 (IntMap-Data-empty 'erased) (vector 1 (vector 1 "_PE" (vector 0 )) (vector 0 )) 1 1 (NameMap-Data-empty 'erased))))))))))))))) (define Context-Core-initCtxt (lambda (ext-0) (Context-Core-initCtxtS (Context-Core-initSize) ext-0))) (define GlobalDef-Context-Core-inferrable (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6)))) (define Context-Core-inCurrentNS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 1 e-0))))))))))) ((6) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 3))) e-27)) arg-1))))))))) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-7)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1))))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1)))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) @@ -2805,13 +2772,13 @@ (define Context-Core-hideName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (NameMap-Data-insert 'erased arg-0 (vector 0 ) e-10)))))))))))))))) (define Context-Core-hide (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtName arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (let ((act-26 (set-box! arg-0 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((e-30 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-29 (vector-ref sc5 6))) (let ((e-28 (vector-ref sc5 7))) (let ((e-27 (vector-ref sc5 8))) (let ((e-26 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (let ((e-21 (vector-ref sc5 22))) (let ((e-22 (vector-ref sc5 23))) (let ((e-23 (vector-ref sc5 24))) (let ((e-24 (vector-ref sc5 25))) (let ((e-25 (vector-ref sc5 26))) (vector 0 (Context-Core-hideName e-8 e-0) e-31 e-30 e-3 e-4 e-29 e-28 e-27 e-26 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Types-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0)))))))))))))))) (define Context-Context-Core-hidden (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10)))) -(define Context-Core-getWorkingDir (lambda (ext-0) (let ((act-24 (let ((act-24 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357)))) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (vector 1 e-1))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))) -(define Context-Core-getUserHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((hs (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (lambda (arg-369) (lambda (arg-370) (Name-Core-compare_Ord__Name arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Name-Core-C-60_Ord__Name arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Name-Core-C-62_Ord__Name arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Name-Core-C-60C-61_Ord__Name arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Name-Core-C-62C-61_Ord__Name arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Name-Core-max_Ord__Name arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Name-Core-min_Ord__Name arg-381 arg-382)))) (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--13905-9376-isHole arg-0 e-5 eta-0 eta-1))) hs) ext-0))))))))) +(define Context-Core-getWorkingDir (lambda (ext-0) (let ((act-24 (let ((act-24 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832)))) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (vector 1 e-1))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))) +(define Context-Core-getUserHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((hs (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (lambda (arg-369) (lambda (arg-370) (Name-Core-compare_Ord__Name arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Name-Core-C-60_Ord__Name arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Name-Core-C-62_Ord__Name arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Name-Core-C-60C-61_Ord__Name arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Name-Core-C-62C-61_Ord__Name arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Name-Core-max_Ord__Name arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Name-Core-min_Ord__Name arg-381 arg-382)))) (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--13717-9376-isHole arg-0 e-5 eta-0 eta-1))) hs) ext-0))))))))) (define Context-Core-getTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) (define Context-Core-getSession (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))) -(define Context-Core-getSearchData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-10 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 6))) (let ((e-8 (vector-ref sc3 7))) (let ((e-9 (vector-ref sc3 8))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-3 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-11 e-10 e-7 e-8 e-9)))) (Context-Core-case--caseC-32blockC-32inC-32getSearchData-12081 arg-3 arg-2 arg-1 arg-0 e-5 e-2 e-3 e-4 e-7 e-8 e-9 e-10 e-11 _-0 e-12 (NameMap-Data-lookup 'erased e-12 (let ((sc5 e-5)) (let ((e-31 (vector-ref sc5 8))) e-31))))))) (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((defns (Types-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--16801-12017-isDefault arg-3 arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-29 (vector-ref sc6 10))) e-29)))))) (let ((autos (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Basics-Prelude-not (Context-Core-n--16801-12017-isDefault arg-3 arg-2 arg-1 arg-0 eta-0))) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (let ((tyhs (Types-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--16801-12018-direct arg-3 arg-2 arg-1 arg-0 eta-0)) hs)))) (let ((chasers (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Basics-Prelude-not (Context-Core-n--16801-12018-direct arg-3 arg-2 arg-1 arg-0 eta-0))) hs)))) (vector 1 (vector 0 e-11 (List-Data-filter 'erased (lambda (eta-0) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-0))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Basics-Prelude-not (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 ))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0)))))))))))))))) +(define Context-Core-getSearchData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-10 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 6))) (let ((e-8 (vector-ref sc3 7))) (let ((e-9 (vector-ref sc3 8))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-3 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((hs (let ((_-0 (vector 1 (vector 6 e-2 e-3 e-4 e-11 e-10 e-7 e-8 e-9)))) (Context-Core-case--caseC-32blockC-32inC-32getSearchData-12081 arg-3 arg-2 arg-1 arg-0 e-5 e-2 e-3 e-4 e-7 e-8 e-9 e-10 e-11 _-0 e-12 (NameMap-Data-lookup 'erased e-12 (let ((sc5 e-5)) (let ((e-31 (vector-ref sc5 8))) e-31))))))) (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((defns (Types-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--16613-12017-isDefault arg-3 arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (vector 1 (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))))) (else (let ((opens (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-29 (vector-ref sc6 10))) e-29)))))) (let ((autos (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Basics-Prelude-not (Context-Core-n--16613-12017-isDefault arg-3 arg-2 arg-1 arg-0 eta-0))) (NameMap-Data-toList 'erased (let ((sc6 e-5)) (let ((e-30 (vector-ref sc6 9))) e-30))))))) (let ((tyhs (Types-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--16613-12018-direct arg-3 arg-2 arg-1 arg-0 eta-0)) hs)))) (let ((chasers (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Basics-Prelude-not (Context-Core-n--16613-12018-direct arg-3 arg-2 arg-1 arg-0 eta-0))) hs)))) (vector 1 (vector 0 e-11 (List-Data-filter 'erased (lambda (eta-0) (List-Data-isCons 'erased (Builtin-snd 'erased 'erased eta-0))) (vector 1 (vector 0 1 opens) (vector 1 (vector 0 1 autos) (vector 1 (vector 0 (Basics-Prelude-not (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0))) tyhs) (vector 1 (vector 0 0 chasers) (vector 0 ))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0)))))))))))))))) (define Context-Core-getRewrite (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (let ((sc1 eta-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-9 (vector-ref sc1 6))) e-9))))))))))) -(define Context-Core-getPs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((scPs (Context-Core-getPs (vector 1 e-2 arg-0) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Types-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))) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--19750-14677-shrink arg-0 e-1 e-6 e-7 e-8 e-9 e-2 e-4 arg-2 arg-1 eta-1)) eta-0)) scPs)))))))(else (Context-Core-case--getPs-14733 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))))))(else (Context-Core-case--getPs-14733 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))) +(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) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Types-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))) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--19555-14669-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--getPs-14725 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))))))(else (Context-Core-case--getPs-14725 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) ((8) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-0 arg-1)))))(else (Context-Core-case--getPosition-3897 arg-1 arg-0 (NameMap-Data-lookup 'erased arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) (define Context-Core-getPPrint (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-1 (vector-ref sc1 2))) e-1)))))))))) (define Context-Core-getNextTypeTag (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 (b+ e-6 1 63) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (let ((sc2 e-5)) (let ((e-26 (vector-ref sc2 7))) e-26)))))))))))))) @@ -2822,10 +2789,10 @@ (define Context-Core-getFullName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 e-0) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 1))) e-27))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (let ((sc4 e-1)) (let ((e-23 (vector-ref sc4 2))) e-23))))) (else (vector 1 (vector 8 e-0))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) (define Context-Core-getFnName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Context-Core-case--getFnName-5283 e-0 e-1 e-2 e-4 e-3 (TT-Core-getFn 'erased e-3)))))))))) (define Context-Core-getDirs (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))) -(define Context-Core-getDirectives (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased (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-4 (vector-ref sc1 5))) e-4)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Context-Core-n--19360-14310-getDir arg-1 arg-0 eta-0)) (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))))))))) +(define Context-Core-getDirectives (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased (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-4 (vector-ref sc1 5))) e-4)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Context-Core-n--19165-14304-getDir arg-1 arg-0 eta-0)) (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))))))))) (define Context-Core-getDefaultTotalityOption (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))) (define Context-Core-getContent (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) -(define Context-Core-getConPs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 4))) (let ((bacc (Context-Core-getPs arg-0 arg-1 arg-2 e-9))) (Context-Core-getConPs (vector 1 e-2 arg-0) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Types-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-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) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (TT-Core-weaken_Weaken__Term e-2 arg-0 eta-2)) eta-1)) eta-0)) bacc) arg-2 e-4))))(else (Context-Core-toPos 'erased (Context-Core-getPs arg-0 arg-1 arg-2 arg-3)))))))))(else (Context-Core-toPos 'erased (Context-Core-getPs arg-0 arg-1 arg-2 arg-3))))))) (define Context-Core-getAutoImplicitLimit (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-4 (vector-ref sc1 5))) e-4)))))))))) (define Context-Core-getAmbigLimit (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-3 (vector-ref sc2 4))) e-3)))) (let ((e-3 (vector-ref sc1 4))) e-3)))))))))) (define Defs-Context-Core-gamma (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) @@ -2841,13 +2808,13 @@ (define TypeFlags-Context-Core-external (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Context-Core-extendNS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 (List-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-1) e-2) e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define GlobalDef-Context-Core-eraseArgs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) -(define Context-Core-dropReps (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (vector 1 (vector 1 (vector 0 e-8 e-9 e-10)) (Context-Core-dropReps 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--19477-14434-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--19282-14428-toNothing 'erased e-10 'erased 'erased e-9 e-8 e-3 eta-0)) e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3)))))))(else (vector 1 e-2 (Context-Core-dropReps 'erased e-3)))))))))))) (define Context-Core-dropMutData (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 (List-Data-filter 'erased (lambda (arg-2) (Name-Core-C-47C-61_Eq__Name arg-2 arg-1)) e-1) e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define SearchData-Context-Core-detArgs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define GlobalDef-Context-Core-definition (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17)))) (define Context-Core-defaultPI (lambda () (vector 0 (vector 0 ) 1))) (define Context-Core-defaultFlags (lambda () (vector 0 1 1))) -(define Context-Core-decode (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__GlobalDef e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((a (Context-Core-getContent arg-0))) (let ((act-26 (let ((act-26 (unbox a))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-resolved_HasNames__GlobalDef arg-0 e-6 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((act-28 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a-0) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-28 (arg-317 eta-1))) ((arg-318 act-28) eta-1))))))) (lambda (a-0) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-6357) arg-6357))) e-7 arg-1 (vector 1 e-8)) eta-0))) (vector 1 act-28))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 e-8))))))))))))))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))))))) +(define Context-Core-decode (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__GlobalDef e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((a (Context-Core-getContent arg-0))) (let ((act-26 (let ((act-26 (unbox a))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-resolved_HasNames__GlobalDef arg-0 e-6 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((act-28 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a-0) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a-0) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-28 (arg-274 eta-1))) ((arg-275 act-28) eta-1))))))) (lambda (a-0) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-5832) arg-5832))) e-7 arg-1 (vector 1 e-8)) eta-0))) (vector 1 act-28))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 e-8))))))))))))))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))))))) (define Defs-Context-Core-currentNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define Context-Context-Core-content (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (define GlobalDef-Context-Core-compexpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18)))) @@ -2857,7 +2824,7 @@ (define Context-Core-clearUserHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 (NameMap-Data-delete 'erased arg-1 e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-clearSavedHints (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 (vector 0 ) (vector 0 ) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-clearDefs (lambda (arg-0 ext-0) (vector 1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 0 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))) -(define Context-Core-clearCtxt (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-initDefs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--13384-8893-resetElab arg-0 (let ((sc3 e-5)) (let ((e-49 (vector-ref sc3 5))) e-49))) e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc3 e-5)) (let ((e-29 (vector-ref sc3 25))) e-29)) e-25))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) +(define Context-Core-clearCtxt (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-initDefs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 (Context-Core-n--13196-8893-resetElab arg-0 (let ((sc3 e-5)) (let ((e-49 (vector-ref sc3 5))) e-49))) e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc3 e-5)) (let ((e-29 (vector-ref sc3 25))) e-29)) e-25))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) (define Context-Core-checkUnambig (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefName arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 8 e-10)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Types-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 (Types-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 (Types-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 (Types-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)))) @@ -2870,26 +2837,25 @@ (define Defs-Context-Core-allImported (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18)))) (define Context-Core-aliasName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--aliasName-9107 arg-1 arg-0 e-5 (Name-Core-userNameRoot arg-1)) ext-0)))))))) (define Context-Core-addUserHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 (NameMap-Data-insert 'erased arg-1 (vector 0 ) e-22) e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-addTransform (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--addTransform-13720 arg-2 arg-1 arg-0 e-5 (Context-Core-getFnName arg-2)) ext-0)))))))) +(define Context-Core-addTransform (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--addTransform-13714 arg-2 arg-1 arg-0 e-5 (Context-Core-getFnName arg-2)) ext-0)))))))) (define Context-Core-addToSave (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-full_HasNames__Name (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-1) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 (NameMap-Data-insert 'erased e-6 (vector 0 ) e-27) e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (NameMap-Data-insert 'erased e-6 (vector 0 ) e-21) e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) (define Context-Core-addPossible (lambda (arg-0 arg-1 arg-2) (Context-Core-case--addPossible-3676 arg-2 arg-1 arg-0 (Name-Core-userNameRoot arg-0)))) (define Context-Core-addOpenHint (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 (NameMap-Data-insert 'erased e-6 (vector 0 ) e-9) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) (define Context-Core-addNameDirective (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-checkUnambig arg-0 arg-1 arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased e-6 arg-3 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) (define Context-Core-addName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-0))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-newEntry arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-setCtxt arg-0 e-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))))))) (define Context-Core-addMutData (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 (vector 1 arg-1 e-1) e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-addLogLevel (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-28)) (let ((e-47 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (let ((e-43 (vector-ref sc3 9))) (let ((e-44 (vector-ref sc3 10))) (let ((e-45 (vector-ref sc3 11))) (let ((e-46 (vector-ref sc3 12))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 (vector 0 e-47 e-36 e-37 e-38 e-39 ((Log-Options-Core-insertLogLevel arg-1) e-40) e-41 e-42 e-43 e-44 e-45 e-46) e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-addLibDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 e-39 e-40 (List-Types-Prelude-C-43C-43 'erased e-41 (vector 1 arg-1 (vector 0 ))) e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-addImported (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-1 e-17) e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-addHintFor (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((hs (Context-Core-case--addHintFor-13231 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (NameMap-Data-lookup 'erased e-6 (let ((sc3 e-5)) (let ((e-26 (vector-ref sc3 8))) e-26)))))) (let ((sc3 arg-5)) (cond ((equal? sc3 0) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-27))) (else (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) e-8 e-9 (vector 1 (vector 0 e-6 (vector 0 e-7 arg-4)) e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-27))))))))))))))))))))))) +(define Context-Core-addHintFor (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-2 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((hs (Context-Core-case--addHintFor-13225 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (NameMap-Data-lookup 'erased e-6 (let ((sc3 e-5)) (let ((e-26 (vector-ref sc3 8))) e-26)))))) (let ((sc3 arg-5)) (cond ((equal? sc3 0) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-27))) (else (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 (NameMap-Data-insert 'erased e-6 (vector 1 (vector 0 e-7 arg-4) hs) e-26) e-8 e-9 (vector 1 (vector 0 e-6 (vector 0 e-7 arg-4)) e-10) e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-27))))))))))))))))))))))) (define Context-Core-addHashWithNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-1 arg-3 arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-addHash 'erased arg-1 arg-2 e-5 ext-0)))))))) (define Context-Core-addHash (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (let ((sc2 arg-2)) (let ((e-27 (vector-ref sc2 2))) ((e-27 (let ((sc3 e-5)) (let ((e-39 (vector-ref sc3 16))) e-39))) arg-3))) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-addGlobalHint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased e-6 arg-2 e-8) e-9 e-10 (vector 1 (vector 0 e-6 arg-2) e-11) e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))) (define Context-Core-addExtraDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 e-39 (List-Types-Prelude-C-43C-43 'erased e-40 (vector 1 arg-1 (vector 0 ))) e-41 e-42) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Context-Core-addEntry (lambda (arg-0 arg-1 arg-2) (Context-Core-case--addEntry-4107 arg-2 arg-1 arg-0 (Types-Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Types-Prelude-fromInteger_Num__Nat 0))))) -(define Context-Core-addDirective (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--addDirective-14226 arg-0 arg-2 arg-1 e-5 (Options-Core-getCG (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0)))))))) +(define Context-Core-addDirective (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--addDirective-14220 arg-0 arg-2 arg-1 e-5 (Options-Core-getCG (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) arg-1)) ext-0)))))))) (define Context-Core-addDef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-addCtxt arg-1 arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (vector 0 e-3 e-1 e-29 e-28 e-4 e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--caseC-32blockC-32inC-32addDef-9520 arg-2 arg-1 arg-0 e-5 e-2 e-3 _-0 e-7 (let ((sc4 arg-2)) (let ((e-17 (vector-ref sc4 18))) e-17))) ext-0)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))))))))))) (define Context-Core-addDataDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((sc3 e-35)) (let ((e-43 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 7))) (let ((e-42 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-43 e-36 e-37 e-38 e-39 e-40 e-41 (List-Types-Prelude-C-43C-43 'erased e-42 (vector 1 arg-1 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) -(define Context-Core-addData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-getNextTypeTag arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tydef (Context-Core-newDef e-2 e-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-1 e-5 arg-2 (vector 6 e-7 e-4 (Context-Core-paramPos (vector 8 arg-3) (Types-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--20047-14943-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 ) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-10 (vector-ref sc4 2))) e-10))) e-1) (vector 0 ))))) (let ((act-26 ((Context-Core-addCtxt e-3 tydef (let ((sc4 e-6)) (let ((e-33 (vector-ref sc4 1))) e-33))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Context-Core-n--20047-14945-addDataConstructors e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 0 e-1 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-28 (let ((act-28 (set-box! arg-0 (let ((sc7 e-6)) (let ((e-36 (vector-ref sc7 2))) (let ((e-35 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (let ((e-33 (vector-ref sc7 5))) (let ((e-32 (vector-ref sc7 6))) (let ((e-31 (vector-ref sc7 7))) (let ((e-30 (vector-ref sc7 8))) (let ((e-29 (vector-ref sc7 9))) (let ((e-28 (vector-ref sc7 10))) (let ((e-27 (vector-ref sc7 11))) (let ((e-26 (vector-ref sc7 12))) (let ((e-12 (vector-ref sc7 13))) (let ((e-13 (vector-ref sc7 14))) (let ((e-14 (vector-ref sc7 15))) (let ((e-15 (vector-ref sc7 16))) (let ((e-16 (vector-ref sc7 17))) (let ((e-17 (vector-ref sc7 18))) (let ((e-18 (vector-ref sc7 19))) (let ((e-19 (vector-ref sc7 20))) (let ((e-20 (vector-ref sc7 21))) (let ((e-21 (vector-ref sc7 22))) (let ((e-22 (vector-ref sc7 23))) (let ((e-23 (vector-ref sc7 24))) (let ((e-24 (vector-ref sc7 25))) (let ((e-25 (vector-ref sc7 26))) (vector 0 e-11 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (vector 1 e-10)))))))))))))))))))))))))))))))))))))))) +(define Context-Core-addData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-getNextTypeTag arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tydef (Context-Core-newDef e-2 e-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-1 e-5 arg-2 (vector 6 e-7 e-4 (Context-Core-paramPos (vector 8 arg-3) (Types-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--19848-14933-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 ) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-10 (vector-ref sc4 2))) e-10))) e-1) (vector 0 ))))) (let ((act-26 ((Context-Core-addCtxt e-3 tydef (let ((sc4 e-6)) (let ((e-33 (vector-ref sc4 1))) e-33))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Context-Core-n--19848-14935-addDataConstructors e-5 e-4 e-3 e-2 e-1 arg-3 arg-2 arg-1 arg-0 0 e-1 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-28 (let ((act-28 (set-box! arg-0 (let ((sc7 e-6)) (let ((e-36 (vector-ref sc7 2))) (let ((e-35 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (let ((e-33 (vector-ref sc7 5))) (let ((e-32 (vector-ref sc7 6))) (let ((e-31 (vector-ref sc7 7))) (let ((e-30 (vector-ref sc7 8))) (let ((e-29 (vector-ref sc7 9))) (let ((e-28 (vector-ref sc7 10))) (let ((e-27 (vector-ref sc7 11))) (let ((e-26 (vector-ref sc7 12))) (let ((e-12 (vector-ref sc7 13))) (let ((e-13 (vector-ref sc7 14))) (let ((e-14 (vector-ref sc7 15))) (let ((e-15 (vector-ref sc7 16))) (let ((e-16 (vector-ref sc7 17))) (let ((e-17 (vector-ref sc7 18))) (let ((e-18 (vector-ref sc7 19))) (let ((e-19 (vector-ref sc7 20))) (let ((e-20 (vector-ref sc7 21))) (let ((e-21 (vector-ref sc7 22))) (let ((e-22 (vector-ref sc7 23))) (let ((e-23 (vector-ref sc7 24))) (let ((e-24 (vector-ref sc7 25))) (let ((e-25 (vector-ref sc7 26))) (vector 0 e-11 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (vector 1 e-10)))))))))))))))))))))))))))))))))))))))) (define Context-Core-addCtxt (lambda (arg-0 arg-1 arg-2) (Context-Core-case--addCtxt-3983 arg-2 arg-1 arg-0 (Types-Prelude-C-61C-61_Eq__Nat (let ((sc0 arg-2)) (let ((e-5 (vector-ref sc0 6))) e-5)) (Types-Prelude-fromInteger_Num__Nat 0))))) (define Context-Core-addContextEntry (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-addEntry arg-1 (vector 0 arg-2) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (vector 0 e-3 e-1 e-29 e-28 e-4 e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))) (define Context-Core-addContextAlias (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((act-26 (Context-Core-newAlias arg-1 arg-2 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-7 e-1 e-2 e-3 e-4 e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-27))))))))(else (vector 1 (vector 0 ))))))))))))))))) @@ -2909,23 +2875,16 @@ (define Directory-System-createDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim__createDir arg-2 eta-0)))))) (lambda (res) (Directory-System-case--createDir-2209 'erased arg-1 arg-2 res (EqOrd-Prelude-C-61C-61_Eq__Int res 0)))))))) (define Directory-System-closeDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Directory-System-prim__closeDir arg-2 eta-0))))))) (define Directory-System-changeDir (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (Directory-System-prim__changeDir arg-2 eta-0)))))) (lambda (ok) (let ((sc1 (let ((sc2 (let ((sc3 arg-1)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (EqOrd-Prelude-C-61C-61_Eq__Int ok 0)))))))))) -(define Clock-System-with--clockTime-676 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (Clock-System-fromOSClock arg-0 act-24 eta-0)))) (else (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (let ((act-25 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (arg-2) (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 1)) (lambda (eta-1) (Clock-System-osClockValid act-24 eta-1)) eta-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 act-24 eta-1)) eta-0)) (else (vector 0 )))))))))))) -(define Clock-System-case--withC-32blockC-32inC-32clockTime-713 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 0 ))))))) +(define Clock-System-with--clockTime-665 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (Clock-System-fromOSClock arg-0 act-24 eta-0)))) (else (lambda (eta-0) (let ((act-24 ((Clock-System-fetchOSClock arg-0) eta-0))) (let ((act-25 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (arg-2) (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 1)) (lambda (eta-1) (Clock-System-osClockValid act-24 eta-1)) eta-0))) (let ((sc1 act-25)) (cond ((equal? sc1 0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 act-24 eta-1)) eta-0)) (else (vector 0 )))))))))))) +(define Clock-System-case--withC-32blockC-32inC-32clockTime-702 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (lambda (eta-1) (Clock-System-fromOSClock arg-0 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 0 ))))))) (define Clock-System-seconds (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Clock-System-osClockValid (lambda (arg-0 ext-0) (Clock-System-prim__osClockValid arg-0 ext-0))) -(define Clock-System-osClockSecond (lambda (arg-0 ext-0) (Clock-System-prim__osClockSecond arg-0 ext-0))) -(define Clock-System-osClockNanosecond (lambda (arg-0 ext-0) (Clock-System-prim__osClockNanosecond arg-0 ext-0))) +(define Clock-System-prim__clockTimeMonotonic (lambda (ext-0) (apply blodwen-clock-time-monotonic (blodwen-read-args (vector 0 ))))) +(define Clock-System-osClockValid (lambda (arg-0 ext-0) (apply blodwen-is-time? (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-0 (vector 0 )))))) (define Clock-System-nanoseconds (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define Clock-System-isClockMandatory (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((5) (vector 1 )) ((6) (vector 1 ))(else (vector 0 )))))) -(define Clock-System-fromOSClock (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Clock-System-osClockSecond arg-1 ext-0))) (let ((act-25 (Clock-System-osClockNanosecond arg-1 ext-0))) (vector 0 arg-0 (Types-Prelude-cast_Cast__Bits64_Integer act-24) (Types-Prelude-cast_Cast__Bits64_Integer act-25)))))) -(define Clock-System-fetchOSClock (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Clock-System-clockTimeUtc eta-0))) ((1) (lambda (eta-0) (Clock-System-clockTimeMonotonic eta-0))) ((3) (lambda (eta-0) (Clock-System-clockTimeProcess eta-0))) ((4) (lambda (eta-0) (Clock-System-clockTimeThread eta-0))) ((5) (lambda (eta-0) (Clock-System-clockTimeGcCpu eta-0))) ((6) (lambda (eta-0) (Clock-System-clockTimeGcReal eta-0))) (else (lambda (eta-0) (Clock-System-clockTimeMonotonic eta-0))))))) -(define Clock-System-clockTimeUtc (lambda (ext-0) (Clock-System-prim__clockTimeUtc ext-0))) -(define Clock-System-clockTimeThread (lambda (ext-0) (Clock-System-prim__clockTimeThread ext-0))) -(define Clock-System-clockTimeProcess (lambda (ext-0) (Clock-System-prim__clockTimeProcess ext-0))) -(define Clock-System-clockTimeMonotonic (lambda (ext-0) (Clock-System-prim__clockTimeMonotonic ext-0))) -(define Clock-System-clockTimeGcReal (lambda (ext-0) (Clock-System-prim__clockTimeGcReal ext-0))) -(define Clock-System-clockTimeGcCpu (lambda (ext-0) (Clock-System-prim__clockTimeGcCpu ext-0))) -(define Clock-System-clockTime (lambda (arg-0) (Clock-System-with--clockTime-676 arg-0 (Clock-System-isClockMandatory arg-0)))) +(define Clock-System-fromOSClock (lambda (arg-0 arg-1 ext-0) (let ((act-24 (apply blodwen-clock-second (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-1 (vector 0 )))))) (let ((act-25 (apply blodwen-clock-nanosecond (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-1 (vector 0 )))))) (vector 0 arg-0 act-24 act-25))))) +(define Clock-System-fetchOSClock (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (apply blodwen-clock-time-utc (blodwen-read-args (vector 0 ))))) ((1) (lambda (eta-0) (Clock-System-prim__clockTimeMonotonic eta-0))) ((3) (lambda (eta-0) (apply blodwen-clock-time-process (blodwen-read-args (vector 0 ))))) ((4) (lambda (eta-0) (apply blodwen-clock-time-thread (blodwen-read-args (vector 0 ))))) ((5) (lambda (eta-0) (apply blodwen-clock-time-gccpu (blodwen-read-args (vector 0 ))))) ((6) (lambda (eta-0) (apply blodwen-clock-time-gcreal (blodwen-read-args (vector 0 ))))) (else (lambda (eta-0) (Clock-System-prim__clockTimeMonotonic eta-0))))))) +(define Clock-System-clockTime (lambda (arg-0) (Clock-System-with--clockTime-665 arg-0 (Clock-System-isClockMandatory arg-0)))) (define StringMap-Data-case--mergeWithC-44inserted-2815 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vC-39 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Types-Prelude-pure_Applicative__List 'erased (vector 0 e-2 vC-39)))))))) (define StringMap-Data-case--insert-2451 (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--treeInsert-1380 (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)))))))))))))) @@ -2942,32 +2901,32 @@ (define StringMap-Data-case--treeLookup-596 (lambda (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--caseC-32blockC-32inC-32treeLookup-643 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased (EqOrd-Prelude-C-60C-61_Ord__String arg-7 arg-3))))))) (define StringMap-Data-case--treeLookup-548 (lambda (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--treeLookup-505 (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--3955-2329-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--3955-2329-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3955-2329-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--3955-2329-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3955-2329-treeToListC-39 'erased 'erased 'erased (lambda (arg-6) (vector 1 arg-6 (StringMap-Data-n--3955-2329-treeToListC-39 'erased 'erased 'erased arg-3 e-14))) e-12))) e-10))))))))) -(define StringMap-Data-n--4415-2803-inserted (lambda (arg-0 arg-1 arg-2 arg-3) (Types-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 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Types-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--3955-2329-treeToListC-39 'erased 'erased 'erased (lambda (arg-2) (vector 1 arg-2 (vector 0 ))) ext-0))) +(define StringMap-Data-n--3846-2329-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--3846-2329-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3846-2329-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--3846-2329-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3846-2329-treeToListC-39 'erased 'erased 'erased (lambda (arg-6) (vector 1 arg-6 (StringMap-Data-n--3846-2329-treeToListC-39 'erased 'erased 'erased arg-3 e-14))) e-12))) e-10))))))))) +(define StringMap-Data-n--4306-2803-inserted (lambda (arg-0 arg-1 arg-2 arg-3) (Types-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 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) eta-0)) (lambda () arg-3) (StringMap-Data-lookup 'erased e-2 arg-2)) e-3))) (Types-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--3846-2329-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--treeLookup-505 'erased e-2 e-1 arg-2 'erased (EqOrd-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--treeLookup-548 'erased 'erased e-7 e-6 e-5 arg-2 'erased (EqOrd-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--treeLookup-596 'erased 'erased e-14 e-13 e-12 e-11 e-10 arg-2 'erased (EqOrd-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--treeInsertC-39-704 'erased arg-3 e-2 e-1 arg-2 'erased (EqOrd-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--treeInsertC-39-806 'erased 'erased arg-3 e-7 e-6 e-5 arg-2 'erased (EqOrd-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--treeInsertC-39-1000 'erased 'erased arg-3 e-14 e-13 e-12 e-11 e-10 arg-2 'erased (EqOrd-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--treeInsert-1380 '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--4415-2803-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--4306-2803-inserted 'erased arg-3 arg-2 arg-1) arg-2))) (define StringMap-Data-mergeLeft (lambda (arg-0 arg-1 arg-2) (StringMap-Data-mergeWith 'erased (lambda (eta-0) (lambda (eta-1) eta-0)) arg-1 arg-2))) (define StringMap-Data-lookup (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-treeLookup 'erased 'erased arg-1 e-3))))))) (define StringMap-Data-insertFrom (lambda (arg-0 ext-0 ext-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (arg-1) (lambda (arg-2) (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Basics-Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (StringMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) arg-1 arg-2))) 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--insert-2451 '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) (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Basics-Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Basics-Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (StringMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (StringMap-Data-empty 'erased) arg-1))) (define StringMap-Data-empty (lambda (arg-0) (vector 0 ))) -(define IOArray-Data-case--toListC-44iter-3835 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (List-Data-reverse 'erased arg-4))))) (else (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (IOArray-Data-readArray 'erased 'erased arg-2 arg-3 arg-6)) (lambda (el) (IOArray-Data-n--2236-3825-iter 'erased 'erased arg-2 arg-3 (b+ arg-6 1 63) arg-5 (vector 1 el arg-4))))))))))) +(define IOArray-Data-case--toListC-44iter-3835 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (List-Data-reverse 'erased arg-4))))) (else (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (IOArray-Data-readArray 'erased 'erased arg-2 arg-3 arg-6)) (lambda (el) (IOArray-Data-n--2127-3825-iter 'erased 'erased arg-2 arg-3 (b+ arg-6 1 63) arg-5 (vector 1 el arg-4))))))))))) (define IOArray-Data-case--newArrayCopy-3752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (IOArray-Data-max 'erased arg-3)) (else arg-4))))) -(define IOArray-Data-case--newArrayCopyC-44copyFrom-3666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (let ((sc2 arg-2)) (let ((e-4 (vector-ref sc2 2))) ((e-4 'erased) (lambda (eta-0) (vector-ref arg-7 arg-5)))))) (lambda (el) (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (let ((sc3 arg-2)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (lambda (eta-0) (vector-set! arg-6 arg-5 el)))))) (lambda (_-3731) (IOArray-Data-n--2064-3654-copyFrom 'erased 'erased arg-2 arg-3 arg-4 arg-7 arg-6 (Num-Prelude-C-45_Neg__Int arg-5 1))))))))))))))) +(define IOArray-Data-case--newArrayCopyC-44copyFrom-3666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (let ((sc2 arg-2)) (let ((e-4 (vector-ref sc2 2))) ((e-4 'erased) (lambda (eta-0) (vector-ref arg-7 arg-5)))))) (lambda (el) (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-5 (vector-ref sc2 2))) ((((e-5 'erased) 'erased) (let ((sc3 arg-2)) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (lambda (eta-0) (vector-set! arg-6 arg-5 el)))))) (lambda (_-3731) (IOArray-Data-n--1955-3654-copyFrom 'erased 'erased arg-2 arg-3 arg-4 arg-7 arg-6 (Num-Prelude-C-45_Neg__Int arg-5 1))))))))))))))) (define IOArray-Data-case--readArray-3605 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (lambda (eta-0) (vector-ref (let ((sc2 arg-4)) (let ((e-3 (vector-ref sc2 2))) e-3)) arg-3)))))))))) (define IOArray-Data-case--writeArray-3532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 1))) e-1)))) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (vector 0 ))))) (else (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) ((e-2 'erased) (lambda (eta-0) (vector-set! (let ((sc2 arg-5)) (let ((e-3 (vector-ref sc2 2))) e-3)) arg-4 (vector 1 arg-3))))))))))) -(define IOArray-Data-n--2236-3825-iter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (IOArray-Data-case--toListC-44iter-3835 'erased 'erased arg-2 arg-3 arg-6 arg-5 arg-4 (EqOrd-Prelude-C-62C-61_Ord__Int arg-4 arg-5)))) -(define IOArray-Data-n--2064-3654-copyFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (IOArray-Data-case--newArrayCopyC-44copyFrom-3666 'erased 'erased arg-2 arg-3 arg-4 arg-7 arg-6 arg-5 (EqOrd-Prelude-C-60_Ord__Int arg-7 0)))) +(define IOArray-Data-n--2127-3825-iter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (IOArray-Data-case--toListC-44iter-3835 'erased 'erased arg-2 arg-3 arg-6 arg-5 arg-4 (EqOrd-Prelude-C-62C-61_Ord__Int arg-4 arg-5)))) +(define IOArray-Data-n--1955-3654-copyFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (IOArray-Data-case--newArrayCopyC-44copyFrom-3666 'erased 'erased arg-2 arg-3 arg-4 arg-7 arg-6 arg-5 (EqOrd-Prelude-C-60_Ord__Int arg-7 0)))) (define IOArray-Data-writeArray (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (IOArray-Data-case--writeArray-3532 'erased 'erased arg-2 arg-5 arg-4 arg-3 (Basics-Prelude-C-124C-124 (EqOrd-Prelude-C-60_Ord__Int arg-4 0) (lambda () (EqOrd-Prelude-C-62C-61_Ord__Int arg-4 (IOArray-Data-max 'erased arg-3))))))) -(define IOArray-Data-toList (lambda (arg-0 arg-1 arg-2 arg-3) (IOArray-Data-n--2236-3825-iter 'erased 'erased arg-2 arg-3 0 (IOArray-Data-max 'erased arg-3) (vector 0 )))) +(define IOArray-Data-toList (lambda (arg-0 arg-1 arg-2 arg-3) (IOArray-Data-n--2127-3825-iter 'erased 'erased arg-2 arg-3 0 (IOArray-Data-max 'erased arg-3) (vector 0 )))) (define IOArray-Data-readArray (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IOArray-Data-case--readArray-3605 'erased 'erased arg-2 arg-4 arg-3 (Basics-Prelude-C-124C-124 (EqOrd-Prelude-C-60_Ord__Int arg-4 0) (lambda () (EqOrd-Prelude-C-62C-61_Ord__Int arg-4 (IOArray-Data-max 'erased arg-3))))))) -(define IOArray-Data-newArrayCopy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((newsizeC-39 (IOArray-Data-case--newArrayCopy-3752 'erased 'erased arg-2 arg-4 arg-3 (EqOrd-Prelude-C-60_Ord__Int arg-3 (IOArray-Data-max 'erased arg-4))))) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (IOArray-Data-newArray 'erased 'erased arg-2 newsizeC-39)) (lambda (arrC-39) (let ((sc1 (let ((sc2 arg-2)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (IOArray-Data-n--2064-3654-copyFrom 'erased 'erased arg-2 arg-4 arg-3 (let ((sc2 arg-4)) (let ((e-7 (vector-ref sc2 2))) e-7)) (let ((sc2 arrC-39)) (let ((e-7 (vector-ref sc2 2))) e-7)) (Num-Prelude-C-45_Neg__Int (IOArray-Data-max 'erased arg-4) 1))) (lambda (_-3801) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-9 (vector-ref sc3 1))) e-9)))) (let ((e-8 (vector-ref sc2 2))) ((e-8 'erased) arrC-39)))))))))))))) +(define IOArray-Data-newArrayCopy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((newsizeC-39 (IOArray-Data-case--newArrayCopy-3752 'erased 'erased arg-2 arg-4 arg-3 (EqOrd-Prelude-C-60_Ord__Int arg-3 (IOArray-Data-max 'erased arg-4))))) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (IOArray-Data-newArray 'erased 'erased arg-2 newsizeC-39)) (lambda (arrC-39) (let ((sc1 (let ((sc2 arg-2)) (let ((e-5 (vector-ref sc2 1))) e-5)))) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (IOArray-Data-n--1955-3654-copyFrom 'erased 'erased arg-2 arg-4 arg-3 (let ((sc2 arg-4)) (let ((e-7 (vector-ref sc2 2))) e-7)) (let ((sc2 arrC-39)) (let ((e-7 (vector-ref sc2 2))) e-7)) (Num-Prelude-C-45_Neg__Int (IOArray-Data-max 'erased arg-4) 1))) (lambda (_-3801) (let ((sc2 (let ((sc3 (let ((sc4 arg-2)) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-9 (vector-ref sc3 1))) e-9)))) (let ((e-8 (vector-ref sc2 2))) ((e-8 'erased) arrC-39)))))))))))))) (define IOArray-Data-newArray (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) ((e-4 'erased) (lambda (eta-0) (make-vector arg-3 (vector 0 ))))))) (lambda (bind-0) (let ((sc1 (let ((sc2 (let ((sc3 arg-2)) (let ((e-5 (vector-ref sc3 1))) e-5)))) (let ((e-6 (vector-ref sc2 1))) e-6)))) (let ((e-5 (vector-ref sc1 2))) ((e-5 'erased) (vector 0 arg-3 bind-0)))))))))) (define IOArray-IOArray-Data-maxSize (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define IOArray-Data-max (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 1))) e-1)))) @@ -2980,29 +2939,29 @@ (define Binary-Utils-case--caseC-32blockC-32inC-32toLimbs-4032 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (Num-Prelude-negate_Neg__Int 1) (vector 0 ))) (else (vector 1 (blodwen-and arg-0 4294967295) (Binary-Utils-toLimbs (blodwen-shr arg-0 32)))))))) (define Binary-Utils-case--toLimbs-4014 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (Binary-Utils-case--caseC-32blockC-32inC-32toLimbs-4032 arg-0 (EqOrd-Prelude-C-61C-61_Eq__Integer arg-0 (Num-Prelude-negate_Neg__Integer 1)))))))) (define Binary-Utils-case--fromBuf-3514 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Maybe" eta-0))))))) -(define Binary-Utils-case--fromBuf-3224 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-getDouble 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc 8 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Double")) eta-0))))))) -(define Binary-Utils-case--toBuf-3151 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-setDouble 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-setDouble 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26))))))))))))))))) +(define Binary-Utils-case--fromBuf-3224 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-getDouble 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc 8 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Double")) eta-0))))))) +(define Binary-Utils-case--toBuf-3151 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-setDouble 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-setDouble 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26))))))))))))))))) (define Binary-Utils-case--fromBuf-3062 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) ((equal? sc0 1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Bool" eta-0))))))) -(define Binary-Utils-case--caseC-32blockC-32inC-32fromBuf-2967 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-copyData 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) e-4)) arg-1 e-1 0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc arg-1 arg-2)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-1 0 arg-1 arg-1))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0))))))) -(define Binary-Utils-case--fromBuf-2947 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-newBuffer 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-copyData 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 arg-2)) (let ((e-4 (vector-ref sc3 2))) e-4)) arg-1 e-1 0) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (set-box! arg-0 (Binary-Utils-incLoc arg-1 arg-2)))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-1 0 arg-1 arg-1)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Binary")) eta-0))))))) -(define Binary-Utils-case--toBuf-2870 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-copyData 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 0 arg-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-copyData 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) e-0)) 0 arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1))) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26))))))))))))))))) -(define Binary-Utils-case--fromBuf-2778 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-getString 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc arg-1 arg-2)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Types-Prelude-C-43C-43 "String length " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-1) (Strings-Types-Prelude-C-43C-43 " at " (Show-Prelude-show_Show__Int (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) eta-0))))))) -(define Binary-Utils-case--toBuf-2704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-setString 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-setString 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26))))))))))))))))) -(define Binary-Utils-case--fromBuf-2609 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-getInt 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc 8 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Types-Prelude-C-43C-43 "Int " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-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--toBuf-2536 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-setInt 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-setInt 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26))))))))))))))))) -(define Binary-Utils-case--getTag-2466 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-getByte 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc 1 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Byte")) eta-0))))))) -(define Binary-Utils-case--tag-2392 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-setByte 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended 1 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 1 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-setByte 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended 1 e-5)))) (vector 1 act-26))))))))))))))))) +(define Binary-Utils-case--caseC-32blockC-32inC-32fromBuf-2967 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-copyData 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) e-4)) arg-1 e-1 0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc arg-1 arg-2)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-1 0 arg-1 arg-1))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0))))))) +(define Binary-Utils-case--fromBuf-2947 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-newBuffer 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-copyData 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 arg-2)) (let ((e-4 (vector-ref sc3 2))) e-4)) arg-1 e-1 0) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (set-box! arg-0 (Binary-Utils-incLoc arg-1 arg-2)))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-1 0 arg-1 arg-1)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Binary")) eta-0))))))) +(define Binary-Utils-case--toBuf-2870 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-copyData 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 0 arg-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-copyData 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) e-0)) 0 arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1))) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26))))))))))))))))) +(define Binary-Utils-case--fromBuf-2778 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-getString 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc arg-1 arg-2)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Types-Prelude-C-43C-43 "String length " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-1) (Strings-Types-Prelude-C-43C-43 " at " (Show-Prelude-show_Show__Int (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) eta-0))))))) +(define Binary-Utils-case--toBuf-2704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-setString 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended arg-2 arg-4)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary arg-2 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-setString 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended arg-2 e-5)))) (vector 1 act-26))))))))))))))))) +(define Binary-Utils-case--fromBuf-2609 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-getInt 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc 8 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 (Strings-Types-Prelude-C-43C-43 "Int " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-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--toBuf-2536 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-setInt 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended 8 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-setInt 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended 8 e-5)))) (vector 1 act-26))))))))))))))))) +(define Binary-Utils-case--getTag-2466 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-getByte 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Binary-Utils-incLoc 1 arg-1)))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Byte")) eta-0))))))) +(define Binary-Utils-case--tag-2392 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-setByte 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (set-box! arg-1 (Binary-Utils-appended 1 arg-2)))) (vector 1 act-25)))))))) (else (lambda (eta-0) (let ((act-24 ((Binary-Utils-extendBinary 1 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Buffer-Data-setByte 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (set-box! arg-1 (Binary-Utils-appended 1 e-5)))) (vector 1 act-26))))))))))))))))) (define Binary-Utils-case--extendBinary-2326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1 arg-2 arg-6 arg-0))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0))))))) (define Binary-Utils-case--extendBinary-2285 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (b+ arg-5 arg-4 63)) (else arg-5))))) (define Binary-Utils-case--initBinaryS-2248 (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--initBinary-2219 (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--readFromFile-2140 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Buffer-Data-rawSize 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) eta-0))) (vector 1 (vector 0 e-2 0 act-24 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5)))))))) +(define Binary-Utils-case--readFromFile-2140 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Buffer-Data-rawSize 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) eta-0))) (vector 1 (vector 0 e-2 0 act-24 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5)))))))) (define Binary-Utils-case--incLoc-2042 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (b+ e-1 arg-1 63) e-2 e-3)))))))) -(define Binary-Utils-n--5722-3894-writeAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-3) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-n--5722-3894-writeAll 'erased arg-1 arg-2 arg-3 arg-4 'erased e-4) eta-0))))))))))))) -(define Binary-Utils-n--5724-3922-readElems (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Vect-Data-reverse 'erased 'erased arg-5))))(else (let ((e-0 (- arg-6 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-2) eta-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--5724-3922-readElems 'erased arg-1 arg-2 arg-3 'erased (vector 1 e-5 arg-5) e-0) eta-0))))))))))))) -(define Binary-Utils-n--5556-3761-readElems (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-3))))(else (let ((e-0 (- arg-4 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-2) eta-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--5556-3761-readElems 'erased arg-1 arg-2 (vector 1 e-5 arg-3) e-0) eta-0))))))))))))) -(define Binary-Utils-n--5554-3724-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--5554-3724-length_aux 'erased arg-1 arg-2 arg-3 e-3 (b+ 1 arg-5 63)))))))) -(define Binary-Utils-n--5554-3725-TailRec_length (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5554-3724-length_aux 'erased arg-1 arg-2 arg-3 arg-4 0))) +(define Binary-Utils-n--5612-3894-writeAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-3) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-n--5612-3894-writeAll 'erased arg-1 arg-2 arg-3 arg-4 'erased e-4) eta-0))))))))))))) +(define Binary-Utils-n--5614-3922-readElems (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Vect-Data-reverse 'erased 'erased arg-5))))(else (let ((e-0 (- arg-6 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-2) eta-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--5614-3922-readElems 'erased arg-1 arg-2 arg-3 'erased (vector 1 e-5 arg-5) e-0) eta-0))))))))))))) +(define Binary-Utils-n--5446-3761-readElems (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-3))))(else (let ((e-0 (- arg-4 1))) (lambda (eta-0) (let ((act-24 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-2) eta-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--5446-3761-readElems 'erased arg-1 arg-2 (vector 1 e-5 arg-3) e-0) eta-0))))))))))))) +(define Binary-Utils-n--5444-3724-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--5444-3724-length_aux 'erased arg-1 arg-2 arg-3 e-3 (b+ 1 arg-5 63)))))))) +(define Binary-Utils-n--5444-3725-TailRec_length (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5444-3724-length_aux 'erased arg-1 arg-2 arg-3 arg-4 0))) (define Binary-Utils-toBuf_TTC__String (lambda (arg-0 arg-1) (let ((req (Buffer-Data-stringByteLength arg-1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-0 req eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--toBuf-2704 arg-1 arg-0 req e-5 e-6 (EqOrd-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 (Types-Prelude-cast_Cast__Nat_Integer arg-1)))) (define Binary-Utils-toBuf_TTC__Integer (lambda (arg-0 arg-1) (Binary-Utils-case--toBuf-4092 arg-1 arg-0 (EqOrd-Prelude-C-60_Ord__Integer arg-1 0)))) @@ -3014,8 +2973,8 @@ (define Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (vector 1 (vector 0 )))))) (define Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-3) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((sc2 (Builtin-snd 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-3) e-3) eta-0))))))))))))) (define Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-2 0 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-2 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-2) e-2) eta-0)))))))))))))) -(define Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-2 (Binary-Utils-n--5554-3725-TailRec_length 'erased arg-1 arg-3 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (lambda (arg-4) ((e-1 arg-2) arg-4)))) arg-3) ext-0))))))) -(define Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5722-3894-writeAll 'erased arg-1 arg-2 arg-4 arg-3 'erased arg-4))) +(define Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__Int arg-2 (Binary-Utils-n--5444-3725-TailRec_length 'erased arg-1 arg-3 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (lambda (arg-4) ((e-1 arg-2) arg-4)))) arg-3) ext-0))))))) +(define Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5612-3894-writeAll 'erased arg-1 arg-2 arg-4 arg-3 'erased arg-4))) (define Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Builtin-fst 'erased 'erased arg-2))) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-3) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((sc2 ((Builtin-snd 'erased 'erased arg-2) e-2))) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-3) e-3) eta-0))))))))))))) (define Binary-Utils-fromBuf_TTC__String (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--fromBuf-2778 arg-0 e-5 e-6 (EqOrd-Prelude-C-62C-61_Ord__Int (Binary-Utils-toRead e-6) e-5)) ext-0))))))))))))) (define Binary-Utils-fromBuf_TTC__Nat (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Types-Prelude-fromInteger_Num__Nat e-5))))))))) @@ -3028,8 +2987,8 @@ (define Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 ext-0) (vector 1 (vector 0 )))) (define Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((sc0 (Builtin-fst 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-3) ext-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-3) ext-0))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) (define Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-getTag arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) ((e-2 arg-2) ext-0))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6))))))))(else (Binary-Utils-corrupt 'erased "Maybe" ext-0))))))))))) -(define Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--5556-3761-readElems 'erased arg-1 arg-2 (vector 0 ) (Types-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--5724-3922-readElems 'erased arg-2 arg-3 arg-1 'erased (vector 0 ) arg-1))) +(define Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--5446-3761-readElems 'erased arg-1 arg-2 (vector 0 ) (Types-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--5614-3922-readElems 'erased arg-2 arg-3 arg-1 'erased (vector 0 ) arg-1))) (define Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((sc0 (Builtin-fst 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-3) ext-0))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 ((Builtin-snd 'erased 'erased arg-2) e-5))) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-3) ext-0))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) (define Binary-Utils-__Impl_TTC_String (lambda () (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))))) (define Binary-Utils-__Impl_TTC_Nat (lambda () (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0)))))) @@ -3045,23 +3004,23 @@ (define Binary-Utils-__Impl_TTC_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-2180 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-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-2177 arg-2179))) (lambda (arg-2180) (Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-2180))))) (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-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-2180 eta-0)))))) -(define Binary-Utils-writeToFile (lambda (arg-0 arg-1) (Buffer-Data-writeBufferToFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3))))) +(define Binary-Utils-writeToFile (lambda (arg-0 arg-1) (Buffer-Data-writeBufferToFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3))))) (define Binary-Binary-Utils-used (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Binary-Utils-toRead (lambda (arg-0) (Num-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--toLimbs-4014 arg-0 (EqOrd-Prelude-C-61C-61_Eq__Integer arg-0 0)))) (define Binary-Utils-toBuf (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3))))))) (define Binary-Utils-tag (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--tag-2392 arg-1 arg-0 e-5 (EqOrd-Prelude-C-62C-61_Ord__Int (Binary-Utils-avail e-5) 1)) ext-0)))))))) (define Binary-Binary-Utils-size (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define Binary-Utils-readFromFile (lambda (arg-0 ext-0) (let ((act-24 ((Buffer-Data-createBufferFromFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Buffer-Data-rawSize 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-25 (arg-317 eta-0))) ((arg-318 act-25) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) ext-0))) (vector 1 (vector 0 e-2 0 act-25 act-25))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5)))))))) +(define Binary-Utils-readFromFile (lambda (arg-0 ext-0) (let ((act-24 ((Buffer-Data-createBufferFromFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Buffer-Data-rawSize 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-25 (arg-274 eta-0))) ((arg-275 act-25) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) ext-0))) (vector 1 (vector 0 e-2 0 act-25 act-25))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5)))))))) (define Binary-Utils-newBinary (lambda (arg-0 arg-1) (vector 0 arg-0 0 arg-1 0))) (define Binary-Binary-Utils-loc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Binary-Utils-initBinaryS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((Buffer-Data-newBuffer 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 arg-0) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") ext-0))))))))))) -(define Binary-Utils-initBinary (lambda (ext-0) (let ((act-24 (let ((act-24 ((Buffer-Data-newBuffer 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Binary-Utils-blockSize)) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 (Binary-Utils-blockSize)) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") ext-0))))))))))) +(define Binary-Utils-initBinaryS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((Buffer-Data-newBuffer 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 arg-0) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") ext-0))))))))))) +(define Binary-Utils-initBinary (lambda (ext-0) (let ((act-24 (let ((act-24 ((Buffer-Data-newBuffer 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Binary-Utils-blockSize)) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) (Binary-Utils-newBinary e-1 (Binary-Utils-blockSize)) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer creation failed") ext-0))))))))))) (define Binary-Utils-incLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (b+ e-1 arg-0 63) e-2 e-3)))))))) (define Binary-Utils-getTag (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--getTag-2466 arg-0 e-5 (EqOrd-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))) (+ (Types-Prelude-cast_Cast__Int_Integer e-2) (blodwen-shl (Binary-Utils-fromLimbs e-3) 32))))))))) (define Binary-Utils-fromBuf (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (e-2 arg-2)))))) -(define Binary-Utils-extendBinary (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((newsize (b* e-2 2 63))) (let ((sC-39 (Binary-Utils-case--extendBinary-2285 e-3 e-2 e-1 e-0 arg-0 newsize (EqOrd-Prelude-C-60_Ord__Int (Num-Prelude-C-45_Neg__Int newsize e-1) arg-0)))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-resizeBuffer 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-0 sC-39) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (vector 1 (vector 0 e-4 e-1 sC-39 e-3)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0))))))))))))))))))) +(define Binary-Utils-extendBinary (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((newsize (b* e-2 2 63))) (let ((sC-39 (Binary-Utils-case--extendBinary-2285 e-3 e-2 e-1 e-0 arg-0 newsize (EqOrd-Prelude-C-60_Ord__Int (Num-Prelude-C-45_Neg__Int newsize e-1) arg-0)))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Buffer-Data-resizeBuffer 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-0 sC-39) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (vector 1 (vector 0 e-4 e-1 sC-39 e-3)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0))))))))))))))))))) (define Binary-Utils-corrupt (lambda (arg-0 arg-1 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 2 arg-1)) ext-0))) (define Binary-Binary-Utils-buf (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define Binary-Utils-blockSize (lambda () 655360)) @@ -3094,46 +3053,14 @@ (define Buffer-Data-freeBuffer (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) e-1)))) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (vector 0 )))))) (define Buffer-Data-createBufferFromFile (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1)))) (let ((e-2 (vector-ref sc0 2))) ((((e-2 'erased) 'erased) (File-System-openFile 'erased arg-1 arg-2 (vector 0 ))) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 arg-1)) (let ((e-6 (vector-ref sc3 1))) e-6)))) (let ((e-6 (vector-ref sc2 2))) ((((e-6 'erased) 'erased) (File-System-fileSize 'erased arg-1 e-4)) (lambda (_-1) (let ((sc3 _-1)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 1))) e-10)))) (let ((e-10 (vector-ref sc4 2))) ((((e-10 'erased) 'erased) (Buffer-Data-newBuffer 'erased arg-1 e-8)) (lambda (_-2) (let ((sc5 _-2)) (case (vector-ref sc5 0) ((1) (let ((e-12 (vector-ref sc5 1))) (let ((sc6 (let ((sc7 arg-1)) (let ((e-14 (vector-ref sc7 1))) e-14)))) (let ((e-14 (vector-ref sc6 2))) ((((e-14 'erased) 'erased) (Buffer-Data-readBufferData 'erased arg-1 e-4 e-12 0 e-8)) (lambda (_-3) (let ((sc7 _-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 (let ((sc9 arg-1)) (let ((e-18 (vector-ref sc9 1))) e-18)))) (let ((e-18 (vector-ref sc8 2))) ((((e-18 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-4403) (let ((sc9 (let ((sc10 (let ((sc11 arg-1)) (let ((e-21 (vector-ref sc11 1))) e-21)))) (let ((e-22 (vector-ref sc10 1))) e-22)))) (let ((e-21 (vector-ref sc9 2))) ((e-21 'erased) (vector 1 e-12))))))))) (else (let ((e-16 (vector-ref sc7 1))) (let ((sc8 (let ((sc9 (let ((sc10 arg-1)) (let ((e-18 (vector-ref sc10 1))) e-18)))) (let ((e-19 (vector-ref sc9 1))) e-19)))) (let ((e-18 (vector-ref sc8 2))) ((e-18 'erased) (vector 0 e-16)))))))))))))) (else (let ((sc6 (let ((sc7 (let ((sc8 arg-1)) (let ((e-13 (vector-ref sc8 1))) e-13)))) (let ((e-14 (vector-ref sc7 1))) e-14)))) (let ((e-13 (vector-ref sc6 2))) ((e-13 'erased) (vector 0 (vector 1 )))))))))))))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-10 (vector-ref sc6 1))) e-10)))) (let ((e-11 (vector-ref sc5 1))) e-11)))) (let ((e-10 (vector-ref sc4 2))) ((e-10 'erased) (vector 0 e-8)))))))))))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (let ((sc3 (let ((sc4 arg-1)) (let ((e-6 (vector-ref sc4 1))) e-6)))) (let ((e-7 (vector-ref sc3 1))) e-7)))) (let ((e-6 (vector-ref sc2 2))) ((e-6 'erased) (vector 0 e-5)))))))))))))) (define Buffer-Data-copyData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__copyData arg-2 arg-3 arg-4 arg-5 arg-6 eta-0))))))) -(define Log-Options-Core-case--keepLogC-44goC-44there-6786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Maybe-Data-fromMaybe 'erased (lambda () 1) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (These-Data-fromThat 'erased 'erased arg-3) (lambda (assoc) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (StringMap-Data-lookup 'erased e-2 assoc) (lambda (next) (Types-Prelude-pure_Applicative__Maybe 'erased (Log-Options-Core-n--3281-6741-go arg-0 arg-1 arg-2 e-3 next)))))))))))))) -(define Log-Options-Core-case--keepLogC-44goC-44here-6753 (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))) (Types-Prelude-C-60C-61_Ord__Nat arg-0 e-2))))))) -(define Log-Options-Core-case--parseLogLevel-6699 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Strings-Data-parsePositive 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (+ arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (* arg-4 arg-5))) (lambda (arg-6) arg-6)) e-3) (lambda (lvl) (Types-Prelude-pure_Applicative__Maybe 'erased (e-2 (Types-Prelude-fromInteger_Num__Nat lvl)))))))))) -(define Log-Options-Core-case--parseLogLevel-6657 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (lambda (eta-0) (vector 0 (vector 0 ) eta-0)) e-1))) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (Log-Options-Core-mkLogLevel e-1) e-5)))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Log-Options-Core-case--show-6575 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Show-Prelude-show_Show__Nat arg-0))(else (Strings-Types-Prelude-C-43C-43 (Strings-Data-fastAppend (List-Data-intersperse 'erased "." arg-1)) (Strings-Types-Prelude-C-43C-43 ":" (Show-Prelude-show_Show__Nat arg-0)))))))) -(define Log-Options-Core-n--3286-6747-there (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Maybe-Data-fromMaybe 'erased (lambda () 1) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (These-Data-fromThat 'erased 'erased arg-3) (lambda (assoc) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (StringMap-Data-lookup 'erased e-2 assoc) (lambda (next) (Types-Prelude-pure_Applicative__Maybe 'erased (Log-Options-Core-n--3281-6741-go arg-0 arg-1 arg-2 e-3 next)))))))))))))) -(define Log-Options-Core-n--3286-6746-here (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Log-Options-Core-case--keepLogC-44goC-44here-6753 arg-0 arg-1 arg-2 arg-3 arg-4 (These-Data-fromThis 'erased 'erased arg-3)))) -(define Log-Options-Core-n--3281-6741-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Basics-Prelude-C-124C-124 (Log-Options-Core-n--3286-6746-here arg-0 arg-1 arg-2 arg-4 arg-3) (lambda () (Log-Options-Core-n--3286-6747-there arg-0 arg-1 arg-2 arg-4 arg-3))))) -(define Log-Options-Core-show_Show__LogLevel (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((0) (Show-Prelude-show_Show__Nat e-1))(else (Strings-Types-Prelude-C-43C-43 (Strings-Data-fastAppend (List-Data-intersperse 'erased "." e-0)) (Strings-Types-Prelude-C-43C-43 ":" (Show-Prelude-show_Show__Nat e-1))))))))))) -(define Log-Options-Core-pretty_Pretty__LogLevel (lambda (arg-0 ext-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Log-Options-Core-show_Show__LogLevel ext-0)))) -(define Log-Options-Core-prettyPrec_Pretty__LogLevel (lambda (arg-0 arg-1 arg-2) (Log-Options-Core-pretty_Pretty__LogLevel 'erased arg-2))) -(define Log-Options-Core-__Impl_Pretty_LogLevel (lambda () (vector 0 (lambda (ann) (lambda (arg-3265) (Log-Options-Core-pretty_Pretty__LogLevel 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Log-Options-Core-prettyPrec_Pretty__LogLevel 'erased arg-3266 arg-3267))))))) -(define Log-Options-Core-withVerbosity (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 arg-0))))) -(define Log-Options-Core-verbosity (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Log-Options-Core-unsafeMkLogLevel (lambda (ext-0 ext-1) (vector 0 ext-0 ext-1))) -(define Log-Options-Core-topics (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) -(define Log-Options-Core-parseLogLevel (lambda (arg-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Log-Options-Core-case--parseLogLevel-6657 arg-0 (Strings-Data-split (lambda (arg-1) (EqOrd-Prelude-C-61C-61_Eq__Char arg-1 #\:)) arg-0)) (lambda (_-0) (let ((sc0 _-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Strings-Data-parsePositive 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (+ arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (* arg-4 arg-5))) (lambda (arg-6) arg-6)) e-3) (lambda (lvl) (Types-Prelude-pure_Applicative__Maybe 'erased (e-2 (Types-Prelude-fromInteger_Num__Nat lvl)))))))))))) -(define Log-Options-Core-mkLogLevelC-39 (lambda (arg-0 arg-1) (vector 0 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (List1-Data-toList 'erased eta-0))) arg-0) arg-1))) -(define Log-Options-Core-mkLogLevel (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (lambda (eta-0) (Log-Options-Core-mkLogLevelC-39 (vector 0 ) eta-0)))(else (lambda (eta-0) (Log-Options-Core-mkLogLevelC-39 (vector 1 (Strings-Data-split (lambda (arg-1) (EqOrd-Prelude-C-61C-61_Eq__Char arg-1 #\.)) arg-0)) eta-0))))))) -(define Log-Options-Core-keepLog (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Log-Options-Core-n--3281-6741-go e-1 e-0 arg-1 e-0 arg-1)))))) -(define Log-Options-Core-insertLogLevel (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (StringTrie-Data-insertWith 'erased e-0 (lambda (eta-1) (Types-Prelude-maybe 'erased 'erased (lambda () e-1) (lambda () (lambda (arg-1) (Types-Prelude-max_Ord__Nat e-1 arg-1))) eta-1)) eta-0))))))) -(define Log-Options-Core-defaultLogLevel (lambda () (StringTrie-Data-singleton 'erased (vector 0 ) 0))) -(define Log-Options-Core-LogLevels (lambda () (vector "Data.StringTrie.StringTrie" (vector "Prelude.Types.Nat" )))) -(define These-Data-these (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (arg-3 e-2))) ((1) (let ((e-5 (vector-ref sc0 1))) (arg-4 e-5))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) ((arg-5 e-8) e-9)))))))) -(define These-Data-fromThis (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))) ((1) (vector 0 )) (else (let ((e-8 (vector-ref sc0 1))) (vector 1 e-8))))))) -(define These-Data-fromThat (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5))) (else (let ((e-9 (vector-ref sc0 2))) (vector 1 e-9))))))) -(define These-Data-bifold (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) e-2)) ((1) (let ((e-5 (vector-ref sc0 1))) e-5)) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) ((e-1 e-8) e-9)))))))))) -(define StringTrie-Data-n--1977-3166-rec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Types-Prelude-maybe 'erased 'erased (lambda () (StringMap-Data-insert 'erased arg-1 (StringTrie-Data-n--1977-3165-end 'erased arg-1 arg-2 arg-3 arg-4) arg-5)) (lambda () (lambda (tm) (StringMap-Data-insert 'erased arg-1 (StringTrie-Data-insertWith 'erased arg-2 arg-4 tm) arg-5))) (StringMap-Data-lookup 'erased arg-1 arg-5)))) -(define StringTrie-Data-n--1977-3165-end (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (StringTrie-Data-singleton 'erased arg-2 (arg-4 (vector 0 ))))) -(define StringTrie-Data-singleton (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (StringMap-Data-singleton 'erased e-2 (StringTrie-Data-singleton 'erased e-3 arg-2)))))))))) -(define StringTrie-Data-insertWith (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (These-Data-these 'erased 'erased 'erased (lambda (eta-0) (vector 0 (arg-2 (vector 1 eta-0)))) (lambda (eta-0) (vector 2 (arg-2 (vector 0 )) eta-0)) (lambda (eta-0) (lambda (eta-1) (vector 2 (arg-2 (vector 1 eta-0)) eta-1))) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (These-Data-these 'erased 'erased 'erased (lambda (x) (vector 2 x (StringMap-Data-singleton 'erased e-2 (StringTrie-Data-n--1977-3165-end 'erased e-2 e-3 arg-3 arg-2)))) (lambda (eta-0) (vector 1 (StringTrie-Data-n--1977-3166-rec 'erased e-2 e-3 arg-3 arg-2 eta-0))) (lambda (x) (lambda (eta-0) (vector 2 x (StringTrie-Data-n--1977-3166-rec 'erased e-2 e-3 arg-3 arg-2 eta-0)))) arg-3)))))))) -(define StringTrie-Data-empty (lambda (arg-0) (vector 1 (StringMap-Data-empty 'erased)))) -(define Options-Core-case--addCG-1350 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0 e-8)))))))))))))) -(define Options-Core-case--setExtension-1320 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0 e-7) e-8))))))))))))) -(define Options-Core-case--setFromChar-1299 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-9 e-10 (vector 1 arg-0)) e-7 e-8)))))))))))))))) -(define Options-Core-case--setFromString-1275 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-9 (vector 1 arg-0) e-11) e-7 e-8)))))))))))))))) -(define Options-Core-case--setFromInteger-1251 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 (vector 1 arg-0) e-10 e-11) e-7 e-8)))))))))))))))) -(define Options-Core-case--setRewrite-1226 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-1 arg-0)) e-6 e-7 e-8)))))))))))) -(define Options-Core-case--setPair-1203 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-2 arg-1 arg-0)) e-5 e-6 e-7 e-8)))))))))))) -(define Options-Core-case--clearNames-1181 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 ) e-8))))))))) +(define Options-Core-case--addCG-1352 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0 e-8)))))))))))))) +(define Options-Core-case--setExtension-1322 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0 e-7) e-8))))))))))))) +(define Options-Core-case--setFromChar-1301 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-9 e-10 (vector 1 arg-0)) e-7 e-8)))))))))))))))) +(define Options-Core-case--setFromString-1277 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-9 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-9 (vector 1 arg-0) e-11) e-7 e-8)))))))))))))))) +(define Options-Core-case--setFromInteger-1253 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((sc1 e-6)) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 (vector 1 arg-0) e-10 e-11) e-7 e-8)))))))))))))))) +(define Options-Core-case--setRewrite-1228 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-1 arg-0)) e-6 e-7 e-8)))))))))))) +(define Options-Core-case--setPair-1205 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-2 arg-1 arg-0)) e-5 e-6 e-7 e-8)))))))))))) +(define Options-Core-case--clearNames-1183 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 ) e-8))))))))) (define Options-Core-show_Show__CG (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "chez") ((1) "racket") ((2) "gambit") ((3) "node") ((4) "javascript") (else (let ((e-0 (vector-ref sc0 1))) e-0)))))) (define Options-Core-showPrec_Show__CG (lambda (arg-0 arg-1) (Options-Core-show_Show__CG arg-1))) (define Options-Core-__Impl_Show_CG (lambda () (vector 0 (lambda (x) (Options-Core-show_Show__CG x)) (lambda (d) (lambda (x) (Options-Core-showPrec_Show__CG d x)))))) @@ -3193,7 +3120,7 @@ (define Options-Options-Core-dirs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define Session-Options-Core-directives (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (define Options-Core-defaults (lambda () (vector 0 (Options-Core-defaultDirs) (Options-Core-defaultPPrint) (Options-Core-defaultSession) (Options-Core-defaultElab) (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 ) (vector 0 )))) -(define Options-Core-defaultSession (lambda () (vector 0 1 1 1 (vector 0 ) (vector 0 ) (Log-Options-Core-defaultLogLevel) 1 1 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 )))) +(define Options-Core-defaultSession (lambda () (vector 0 1 1 1 (vector 0 ) (vector 0 ) 0 1 1 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 )))) (define Options-Core-defaultPPrint (lambda () (vector 0 1 0 1))) (define Options-Core-defaultElab (lambda () (vector 0 0 0 (vector 1 ) (+ 1 (+ 1 (+ 1 0))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))))))))))))))))))))))))))))))) (define Options-Core-defaultDirs (lambda () (vector 0 "." (vector 0 ) "build" (vector 0 ) "/usr/local" (vector 1 "." (vector 0 )) (vector 0 ) (vector 0 )))) @@ -3211,9 +3138,9 @@ (define Path-Utils-case--C-60C-46C-62-3865 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Path-Utils-case--caseC-32blockC-32inC-32C-60C-46C-62-3882 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 (Path-Utils-splitFileName e-1)))) (else arg-1))))) (define Path-Utils-case--C-60C-46C-62-3839 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) "") (else (Strings-Types-Prelude-C-43C-43 "." arg-3)))))) (define Path-Utils-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32stripPrefix-3743 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 (vector 0 ))) (else (vector 0 )))))) -(define Path-Utils-case--caseC-32blockC-32inC-32stripPrefix-3698 (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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32stripPrefix-3743 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-2 e-1 e-0 (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (Path-Utils-C-61C-61_Eq__Volume arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Path-Utils-C-47C-61_Eq__Volume arg-7 arg-8)))) arg-5 e-0) (lambda () (EqOrd-Prelude-C-61C-61_Eq__Bool arg-4 e-1)))) (lambda (_-3717) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-n--4095-3638-stripBody arg-0 arg-1 arg-3 e-2) (lambda (body) (Types-Prelude-pure_Applicative__Maybe 'erased (Path-Utils-show_Show__Path (vector 0 (vector 0 ) 1 body e-3)))))))))))))) +(define Path-Utils-case--caseC-32blockC-32inC-32stripPrefix-3698 (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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32stripPrefix-3743 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-2 e-1 e-0 (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (Path-Utils-C-61C-61_Eq__Volume arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Path-Utils-C-47C-61_Eq__Volume arg-7 arg-8)))) arg-5 e-0) (lambda () (EqOrd-Prelude-C-61C-61_Eq__Bool arg-4 e-1)))) (lambda (_-3717) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-n--3986-3638-stripBody arg-0 arg-1 arg-3 e-2) (lambda (body) (Types-Prelude-pure_Applicative__Maybe 'erased (Path-Utils-show_Show__Path (vector 0 (vector 0 ) 1 body e-3)))))))))))))) (define Path-Utils-case--stripPrefix-3688 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (Path-Utils-case--caseC-32blockC-32inC-32stripPrefix-3698 arg-0 arg-1 e-3 e-2 e-1 e-0 (Path-Utils-parse arg-0))))))))) -(define Path-Utils-case--stripPrefixC-44stripBody-3658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Path-Utils-n--4095-3638-stripBody arg-0 arg-1 arg-3 arg-5)) (else (vector 0 )))))) +(define Path-Utils-case--stripPrefixC-44stripBody-3658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Path-Utils-n--3986-3638-stripBody arg-0 arg-1 arg-3 arg-5)) (else (vector 0 )))))) (define Path-Utils-case--splitParent-3592 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (Path-Utils-show_Show__Path e-2) (Path-Utils-show_Show__Path e-3)))))))) (define Path-Utils-case--splitFileName-3503 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (vector 0 arg-0 "")) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (cond ((equal? sc2 #\.) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 0 arg-0 ""))(else (vector 0 (Types-Prelude-pack (List-Data-reverse 'erased e-7)) (Types-Prelude-pack (List-Data-reverse 'erased e-2)))))))(else (vector 0 (Types-Prelude-pack (List-Data-reverse 'erased e-7)) (Types-Prelude-pack (List-Data-reverse 'erased e-2)))))))))))))))) (define Path-Utils-case--setFileNameC-39-3476 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Path-Utils-appendC-39 (Maybe-Data-fromMaybe 'erased (lambda () (Path-Utils-emptyPath)) (Path-Utils-parentC-39 arg-0)) (Path-Utils-parse arg-1))) (else (Path-Utils-appendC-39 arg-0 (Path-Utils-parse arg-1))))))) @@ -3235,8 +3162,8 @@ (define Path-Utils-case--show-2614 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else ""))))) (define Path-Utils-case--pathSeparator-2405 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\;) (else #\:))))) (define Path-Utils-case--dirSeparator-2400 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\\) (else #\/))))) -(define Path-Utils-n--4095-3638-stripBody (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Path-Utils-case--stripPrefixC-44stripBody-3658 arg-0 arg-1 e-1 e-2 e-4 e-5 (Path-Utils-C-61C-61_Eq__Body e-1 e-4)))))))))))))))) -(define Path-Utils-n--3900-3457-findNormal (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3))) ((0) (Path-Utils-n--3900-3457-findNormal arg-0 e-2))(else (vector 0 )))))))(else (vector 0 )))))) +(define Path-Utils-n--3986-3638-stripBody (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 arg-3))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Path-Utils-case--stripPrefixC-44stripBody-3658 arg-0 arg-1 e-1 e-2 e-4 e-5 (Path-Utils-C-61C-61_Eq__Body e-1 e-4)))))))))))))))) +(define Path-Utils-n--3791-3457-findNormal (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3))) ((0) (Path-Utils-n--3791-3457-findNormal arg-0 e-2))(else (vector 0 )))))))(else (vector 0 )))))) (define Path-Utils-tokValue_TokenKind__PathTokenKind (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1) (else (vector 0 )))))) (define Path-Utils-show_Show__Volume (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "\\\\" (Strings-Types-Prelude-C-43C-43 e-0 (Strings-Types-Prelude-C-43C-43 "\\" e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 (Strings-Data-singleton e-2) ":"))))))) (define Path-Utils-show_Show__Path (lambda (arg-0) (let ((sep (Strings-Data-singleton (Path-Utils-dirSeparator)))) (let ((volStr (Maybe-Data-fromMaybe 'erased (lambda () "") (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Volume eta-0)) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))))) (let ((rootStr (Path-Utils-case--show-2614 arg-0 sep volStr (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))) (let ((bodyStr (Extra-String-Data-join 'erased sep (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Path-Utils-show_Show__Body eta-0)) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) (let ((trailStr (Path-Utils-case--show-2636 arg-0 sep volStr rootStr bodyStr (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))) (Strings-Types-Prelude-C-43C-43 volStr (Strings-Types-Prelude-C-43C-43 rootStr (Strings-Types-Prelude-C-43C-43 bodyStr trailStr)))))))))) @@ -3279,7 +3206,7 @@ (define Path-Utils-isAbsolute (lambda (arg-0) (Path-Utils-isAbsoluteC-39 (Path-Utils-parse arg-0)))) (define Path-Path-Utils-hasTrailSep (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Path-Path-Utils-hasRoot (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Path-Utils-fileNameC-39 (lambda (arg-0) (Path-Utils-n--3900-3457-findNormal arg-0 (List-Data-reverse 'erased (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) +(define Path-Utils-fileNameC-39 (lambda (arg-0) (Path-Utils-n--3791-3457-findNormal arg-0 (List-Data-reverse 'erased (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))))) (define Path-Utils-fileName (lambda (arg-0) (Path-Utils-fileNameC-39 (Path-Utils-parse arg-0)))) (define Path-Utils-extension (lambda (arg-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-fileName arg-0) (lambda (bind-0) (Types-Prelude-pure_Applicative__Maybe 'erased (Builtin-snd 'erased 'erased (Path-Utils-splitFileName bind-0))))))) (define Path-Utils-emptyPath (lambda () (vector 0 (vector 0 ) 1 (vector 0 ) 1))) @@ -3291,8 +3218,8 @@ (define Path-Utils-PathToken (lambda () (vector "Text.Token.Token" (vector "Utils.Path.PathTokenKind" )))) (define Path-Utils-C-60C-47C-62 (lambda (arg-0 arg-1) (Path-Utils-show_Show__Path (Path-Utils-appendC-39 (Path-Utils-parse arg-0) (Path-Utils-parse arg-1))))) (define Path-Utils-C-60C-46C-62 (lambda (arg-0 arg-1) (let ((pC-39 (Path-Utils-parse arg-0))) (let ((ext (Types-Prelude-pack (List-Data-dropWhile 'erased (lambda (arg-2) (EqOrd-Prelude-C-61C-61_Eq__Char arg-2 #\.)) (Types-Prelude-unpack arg-1))))) (let ((ext-0 (Path-Utils-case--C-60C-46C-62-3839 arg-1 arg-0 pC-39 ext (EqOrd-Prelude-C-61C-61_Eq__String (Strings-Data-ltrim ext) "")))) (Path-Utils-case--C-60C-46C-62-3865 arg-1 arg-0 pC-39 ext ext-0 (Path-Utils-fileNameC-39 pC-39))))))) -(define Hash-Core-case--hashWithSaltC-44hashChars-2182 (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--3503-2170-hashChars arg-0 arg-1 (b+ (b* arg-5 33 63) (Types-Prelude-cast_Cast__Char_Int (Strings-Data-strIndex arg-2 arg-4)) 63) (b+ arg-4 1 63) arg-3 arg-2)))))) -(define Hash-Core-n--3503-2170-hashChars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Hash-Core-case--hashWithSaltC-44hashChars-2182 arg-0 arg-1 arg-5 arg-4 arg-3 arg-2 (EqOrd-Prelude-C-61C-61_Eq__Int arg-3 arg-4)))) +(define Hash-Core-case--hashWithSaltC-44hashChars-2188 (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--3384-2176-hashChars arg-0 arg-1 (b+ (b* arg-5 33 63) (Types-Prelude-cast_Cast__Char_Int (Strings-Data-strIndex arg-2 arg-4)) 63) (b+ arg-4 1 63) arg-3 arg-2)))))) +(define Hash-Core-n--3384-2176-hashChars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Hash-Core-case--hashWithSaltC-44hashChars-2188 arg-0 arg-1 arg-5 arg-4 arg-3 arg-2 (EqOrd-Prelude-C-61C-61_Eq__Int arg-3 arg-4)))) (define Hash-Core-hash_Hashable__String (lambda (ext-0) (Hash-Core-hashWithSalt_Hashable__String 5381 ext-0))) (define Hash-Core-hash_Hashable__Nat (lambda (ext-0) (Types-Prelude-cast_Cast__Nat_Int ext-0))) (define Hash-Core-hash_Hashable__Name (lambda (ext-0) (Hash-Core-hashWithSalt_Hashable__Name 5381 ext-0))) @@ -3302,33 +3229,33 @@ (define Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 ext-0) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 5381 ext-0))) (define Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 5381 ext-0))) (define Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1 ext-0) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 5381 ext-0))) -(define Hash-Core-hashWithSalt_Hashable__String (lambda (arg-0 arg-1) (Hash-Core-n--3503-2170-hashChars arg-1 arg-0 arg-0 0 (Types-Prelude-cast_Cast__Nat_Int (Strings-Types-Prelude-length arg-1)) arg-1))) +(define Hash-Core-hashWithSalt_Hashable__String (lambda (arg-0 arg-1) (Hash-Core-n--3384-2176-hashChars arg-1 arg-0 arg-0 0 (Types-Prelude-cast_Cast__Nat_Int (Strings-Types-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 1) (lambda (eta-0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 2)) ext-0))) (define Hash-Core-hashWithSalt_Hashable__Nat (lambda (arg-0 arg-1) (b+ (b* arg-0 33 63) (Hash-Core-hash_Hashable__Nat arg-1) 63))) -(define Hash-Core-hashWithSalt_Hashable__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__String arg-0 e-0))) ((4) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name arg-0 e-3))) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__String arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__String arg-1908 arg-1909)))) arg-0 e-4) e-5)))) ((8) (let ((e-6 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__Int arg-0 e-6)))(else (Hash-Core-hashWithSalt_Hashable__String arg-0 (Name-Core-show_Show__Name arg-1))))))) +(define Hash-Core-hashWithSalt_Hashable__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__String arg-0 e-0))) ((4) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name arg-0 e-3))) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__String arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__String arg-1914 arg-1915)))) arg-0 e-4) e-5)))) ((8) (let ((e-6 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__Int arg-0 e-6)))(else (Hash-Core-hashWithSalt_Hashable__String arg-0 (Name-Core-show_Show__Name arg-1))))))) (define Hash-Core-hashWithSalt_Hashable__Integer (lambda (arg-0 arg-1) (b+ (b* arg-0 33 63) (Hash-Core-hash_Hashable__Integer arg-1) 63))) (define Hash-Core-hashWithSalt_Hashable__Int (lambda (arg-0 arg-1) (b+ (b* arg-0 33 63) (Hash-Core-hash_Hashable__Int arg-1) 63))) -(define Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Nat (Hash-Core-hashWithSalt_Hashable__Integer arg-1 0) e-4))) ((1) (let ((e-9 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__Integer arg-1 1) e-9))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (Hash-Core-hashWithSalt_Hashable__Int (Hash-Core-hashWithSalt_Hashable__Integer arg-1 2) e-13) e-14)))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 3) e-18) e-19)))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 4) e-22) e-23)))) ((5) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 5) e-27) e-28)))) ((6) (let ((e-32 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 6) e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 7) e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 8) e-41))) ((9) (let ((e-44 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__String (Hash-Core-hashWithSalt_Hashable__Integer arg-1 9) (TT-Core-show_Show__Constant e-44)))) ((10) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 10)) (else (Hash-Core-hashWithSalt_Hashable__Integer arg-1 11)))))) +(define Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Nat (Hash-Core-hashWithSalt_Hashable__Integer arg-1 0) e-4))) ((1) (let ((e-9 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__Integer arg-1 1) e-9))) ((2) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (Hash-Core-hashWithSalt_Hashable__Int (Hash-Core-hashWithSalt_Hashable__Integer arg-1 2) e-13) e-14)))) ((3) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 3) e-18) e-19)))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 4) e-22) e-23)))) ((5) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 5) e-27) e-28)))) ((6) (let ((e-32 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 6) e-32))) ((7) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 7) e-36) e-37)))) ((8) (let ((e-41 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased (Hash-Core-hashWithSalt_Hashable__Integer arg-1 8) e-41))) ((9) (let ((e-44 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__String (Hash-Core-hashWithSalt_Hashable__Integer arg-1 9) (TT-Core-show_Show__Constant e-44)))) ((10) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 10)) (else (Hash-Core-hashWithSalt_Hashable__Integer arg-1 11)))))) (define Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 0)) ((1) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 1)) ((2) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 2)) (else (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__Integer arg-2 3)) e-4))))))))) (define Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (Num-Prelude-abs_Abs__Int arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 (b+ (b* arg-2 33 63) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2))) 63) e-3)))))))) -(define Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-1)) (let ((e-5 (vector-ref sc1 2))) ((e-5 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 0) e-2) e-3)) e-4))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 2))) ((e-3 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 1) e-7)) e-8)))) e-9))))))) ((2) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 2) e-12) e-13)) e-14))))))) ((3) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 3) e-17) e-18)) e-19))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 2))) ((e-3 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 4) e-22)) e-23)))) e-24))))))) (else (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 5) e-27)) e-28)))))))))) -(define Hash-Core-__Impl_Hashable_String (lambda () (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__String arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__String arg-1908 arg-1909)))))) -(define Hash-Core-__Impl_Hashable_Nat (lambda () (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Nat arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Nat arg-1908 arg-1909)))))) -(define Hash-Core-__Impl_Hashable_Name (lambda () (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))))) -(define Hash-Core-__Impl_Hashable_Integer (lambda () (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Integer arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Integer arg-1908 arg-1909)))))) -(define Hash-Core-__Impl_Hashable_Int (lambda () (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Int arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Int arg-1908 arg-1909)))))) -(define Hash-Core-__Impl_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))))) -(define Hash-Core-__Impl_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1908 arg-1909)))))) -(define Hash-Core-__Impl_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-1908 arg-1909)))))) -(define Hash-Core-__Impl_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-1908 arg-1909)))))) +(define Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) ((e-4 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 0) e-1) e-2)) e-3))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 2))) ((e-3 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 1) e-5)) e-6)))) e-7))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 2) e-9) e-10)) e-11))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 3) e-13) e-14)) e-15))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 2))) ((e-3 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 4) e-17)) e-18)))) e-19))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 (Hash-Core-hashWithSalt_Hashable__RigCount (Hash-Core-hashWithSalt_Hashable__Integer arg-2 5) e-21)) e-22)))))))))) +(define Hash-Core-__Impl_Hashable_String (lambda () (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__String arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__String arg-1914 arg-1915)))))) +(define Hash-Core-__Impl_Hashable_Nat (lambda () (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Nat arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Nat arg-1914 arg-1915)))))) +(define Hash-Core-__Impl_Hashable_Name (lambda () (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))))) +(define Hash-Core-__Impl_Hashable_Integer (lambda () (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Integer arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Integer arg-1914 arg-1915)))))) +(define Hash-Core-__Impl_Hashable_Int (lambda () (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Int arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Int arg-1914 arg-1915)))))) +(define Hash-Core-__Impl_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))))) +(define Hash-Core-__Impl_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1914 arg-1915)))))) +(define Hash-Core-__Impl_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-1914 arg-1915)))))) +(define Hash-Core-__Impl_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-1914 arg-1915)))))) (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--mkTerm-11968 (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--mkPatC-39-11892 (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--insertCaseNames-11527 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-0 (List-Types-Prelude-C-43C-43 'erased arg-2 (List-Types-Prelude-C-43C-43 'erased arg-7 arg-1)) arg-8 (TT-Core-insertNames arg-2 arg-1 arg-7 arg-4) (Types-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--4019-11717-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--4019-11716-getAltSets 'erased arg-1 arg-2 arg-3 'erased arg-5 e-5))) ((1) (let ((e-8 (vector-ref sc0 2))) (((arg-3 'erased) arg-5) e-8))) ((2) arg-5) (else arg-5))))) -(define CaseTree-Core-n--4019-11716-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--4019-11716-getAltSets 'erased arg-1 arg-2 arg-3 'erased (CaseTree-Core-n--4019-11715-getAltSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-2) e-3)))))))) -(define CaseTree-Core-n--4019-11715-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--4019-11717-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseTree-Core-n--4019-11717-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseTree-Core-n--4019-11717-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseTree-Core-n--4019-11717-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-13))))))) +(define CaseTree-Core-case--insertCaseNames-11529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (vector 0 arg-0 (List-Types-Prelude-C-43C-43 'erased arg-2 (List-Types-Prelude-C-43C-43 'erased arg-7 arg-1)) arg-8 (TT-Core-insertNames arg-2 arg-1 arg-7 arg-4) (Types-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--3900-11719-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--3900-11718-getAltSets 'erased arg-1 arg-2 arg-3 'erased arg-5 e-5))) ((1) (let ((e-8 (vector-ref sc0 2))) (((arg-3 'erased) arg-5) e-8))) ((2) arg-5) (else arg-5))))) +(define CaseTree-Core-n--3900-11718-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--3900-11718-getAltSets 'erased arg-1 arg-2 arg-3 'erased (CaseTree-Core-n--3900-11717-getAltSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-2) e-3)))))))) +(define CaseTree-Core-n--3900-11717-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--3900-11719-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseTree-Core-n--3900-11719-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseTree-Core-n--3900-11719-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseTree-Core-n--3900-11719-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (Strings-Types-Prelude-C-43C-43 "@(" (Strings-Types-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-4) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-5) (Strings-Types-Prelude-C-43C-43 " " (Show-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-Types-Prelude-C-43C-43 "" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Types-Prelude-C-43C-43 " " (Show-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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat e-16) (Strings-Types-Prelude-C-43C-43 " -> " (Strings-Types-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat e-17) ")"))))))) ((5) (let ((e-21 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 "(Delay " (Strings-Types-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-Types-Prelude-C-43C-43 ".(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-25) ")")))))))) @@ -3337,18 +3264,18 @@ (define CaseTree-Core-showPrec_Show__Pat (lambda (arg-0 arg-1) (CaseTree-Core-show_Show__Pat arg-1))) (define CaseTree-Core-showPrec_Show__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2))) (define CaseTree-Core-showPrec_Show__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CaseTree-Core-show_Show__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2))) -(define CaseTree-Core-__Impl_Weaken_CaseTree (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3641) (CaseTree-Core-weaken_Weaken__CaseTree n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (CaseTree-Core-weakenNs_Weaken__CaseTree vars ns arg-3645))))))) +(define CaseTree-Core-__Impl_Weaken_CaseTree (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3584) (CaseTree-Core-weaken_Weaken__CaseTree n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (CaseTree-Core-weakenNs_Weaken__CaseTree vars ns arg-3588))))))) (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) (Types-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) (Types-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 e-14 (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--mkTerm-11968 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-36 (vector-ref sc1 4))) (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-36 e-36) (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-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((sc2 e-39)) (case (vector-ref sc2 0) ((0) (vector 0 e-14 e-40 (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--mkPatC-39-11892 e-25 e-24 arg-1 arg-0 (EqOrd-Prelude-C-61C-61_Eq__Int (TT-Core-constTag e-25) 0))))) ((11) (let ((e-27 (vector-ref sc0 1))) (vector 2 e-27 (vector 1 "Type") 0 (vector 0 ))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1)))))) -(define CaseTree-Core-insertCaseNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (CaseTree-Core-case--insertCaseNames-11527 e-0 arg-1 arg-0 e-5 e-4 e-2 'erased arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 1 e-7 (TT-Core-insertNames arg-0 arg-1 arg-2 e-8))))) ((2) (let ((e-10 (vector-ref sc0 1))) (vector 2 e-10))) (else (vector 3 )))))) +(define CaseTree-Core-mkTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (CaseTree-Core-mkTerm arg-0 e-2))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (TT-Core-apply 'erased e-3 (vector 1 e-3 (vector 2 e-5 e-6) e-4) (Types-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) (Types-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--mkTerm-11968 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--mkPatC-39-11892 e-25 e-24 arg-1 arg-0 (EqOrd-Prelude-C-61C-61_Eq__Int (TT-Core-constTag e-25) 0))))) ((11) (let ((e-27 (vector-ref sc0 1))) (vector 2 e-27 (vector 1 "Type") 0 (vector 0 ))))(else (vector 7 (TT-Core-getLoc 'erased arg-1) arg-1)))))) +(define CaseTree-Core-insertCaseNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (CaseTree-Core-case--insertCaseNames-11529 e-0 arg-1 arg-0 e-5 e-4 e-2 'erased arg-2 (TT-Core-insertNVarNames 'erased 'erased arg-0 arg-2 e-2 'erased))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 1 e-7 (TT-Core-insertNames arg-0 arg-1 arg-2 e-8))))) ((2) (let ((e-10 (vector-ref sc0 1))) (vector 2 e-10))) (else (vector 3 )))))) (define CaseTree-Core-insertCaseAltNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 0 e-1 e-2 e-3 (CaseTree-Core-insertCaseNames (List-Types-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--4019-11717-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-11809) (lambda (eta-0) (lambda (eta-1) (TT-Core-addMetas 'erased eta-0 eta-1)))) (NameMap-Data-empty 'erased) ext-0))) +(define CaseTree-Core-getNames (lambda (arg-0 arg-1 arg-2 arg-3) (CaseTree-Core-n--3900-11719-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-11811) (lambda (eta-0) (lambda (eta-1) (TT-Core-addMetas 'erased eta-0 eta-1)))) (NameMap-Data-empty 'erased) ext-0))) (define CaseTree-Core-argToPat (lambda (arg-0) (CaseTree-Core-mkPatC-39 (vector 0 ) arg-0 arg-0))) -(define CaseTree-Core-addRefs (lambda (arg-0 arg-1 arg-2 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-11799) (lambda (eta-0) (lambda (eta-1) (TT-Core-addRefs 'erased 1 arg-1 eta-0 eta-1)))) arg-2 ext-0))) +(define CaseTree-Core-addRefs (lambda (arg-0 arg-1 arg-2 ext-0) (CaseTree-Core-getNames 'erased (lambda (vs-11801) (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--mkLocals-2958 (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--caseC-32blockC-32inC-32resolveRef-2823 (lambda (arg-0 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--resolveRef-2771 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32resolveRef-2823 '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-Types-Prelude-C-43C-43 'erased arg-7 arg-6) 0 'erased))) (else (CompileExpr-Core-resolveRef 'erased 'erased arg-7 (List-Types-Prelude-C-43C-43 'erased arg-6 (vector 1 arg-3 (vector 0 ))) arg-1 arg-5 arg-4)))))) @@ -3369,7 +3296,7 @@ (define CompileExpr-Core-showPrec_Show__NamedCExp (lambda (arg-0 arg-1) (CompileExpr-Core-show_Show__NamedCExp arg-1))) (define CompileExpr-Core-showPrec_Show__CFType (lambda (arg-0 arg-1) (CompileExpr-Core-show_Show__CFType arg-1))) (define CompileExpr-Core-showPrec_Show__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 arg-0 arg-2))) -(define CompileExpr-Core-__Impl_Weaken_CExp (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3641) (CompileExpr-Core-weaken_Weaken__CExp n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (CompileExpr-Core-weakenNs_Weaken__CExp vars ns arg-3645))))))) +(define CompileExpr-Core-__Impl_Weaken_CExp (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3584) (CompileExpr-Core-weaken_Weaken__CExp n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (CompileExpr-Core-weakenNs_Weaken__CExp vars ns arg-3588))))))) (define CompileExpr-Core-__Impl_Show_NamedConstAlt (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedConstAlt x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedConstAlt d x)))))) (define CompileExpr-Core-__Impl_Show_NamedConAlt (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedConAlt x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedConAlt d x)))))) (define CompileExpr-Core-__Impl_Show_NamedCExp (lambda () (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))))) @@ -3405,32 +3332,32 @@ (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))) (Basics-Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name arg-1 e-2) (lambda () (CompileExpr-Core-elem 'erased arg-1 e-3)))))))))) (define CompileExpr-Core-conArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 e-6 (CompileExpr-Core-conArgs 'erased e-3 e-7))))))))))) (define CompileExpr-Core-addLocs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((rec (CompileExpr-Core-addLocs 'erased e-3 arg-2))) (vector 1 (CompileExpr-Core-uniqueName 'erased e-2 rec) rec))))))))) -(define TTC-Core-case--fromBuf-12526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (TTC-Core-fromBuf_TTC__Totality arg-0 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__DefFlag arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__DefFlag arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (TTC-Core-toBuf_TTC__SCCall arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SCCall arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc12 1))) (vector 1 (vector 0 arg-4 arg-6 e-5 e-6 e-7 e-8 e-9 arg-5 e-10 e-11 e-12 e-13 arg-8 arg-3 e-14 e-15 0 arg-9 arg-1 (vector 0 ) e-16)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-6 (vector 10 arg-4 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-5 (vector 0 ) (vector 2 ) (TT-Core-unchecked) (vector 0 ) arg-8 arg-3 1 1 0 arg-9 arg-1 (vector 0 ) (vector 0 ))))))))) -(define TTC-Core-case--fromBuf-12151 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "SizeChange" eta-0))))))) -(define TTC-Core-case--fromBuf-12032 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__TotalReq arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DefFlag" eta-0))))))) -(define TTC-Core-case--fromBuf-11925 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "TotalReq" eta-0))))))) -(define TTC-Core-case--fromBuf-11584 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PMDefInfo arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-6 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) arg-2178 arg-2180 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) arg-2180 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181 arg-2182))) (lambda (arg-2181) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-1)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-1))))) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2178 arg-2181))) (lambda (arg-2181) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2))))) arg-2178 arg-2181))) (lambda (arg-2181) (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-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3))))) arg-2181 eta-2))))) arg-2180 eta-1)))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-3)))) arg-2177 arg-2179 eta-2)))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-3)))) arg-2181 eta-2)))) (lambda (y) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2178 arg-2181))) (lambda (arg-2181) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2))))) arg-2178 arg-2181))) (lambda (arg-2181) (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-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3))))) arg-2181 eta-2))))) arg-2177 arg-2179))) (lambda (arg-2181) (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-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2177 arg-2179))) (lambda (arg-2182) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2182))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3))))) arg-2177 arg-2179))) (lambda (arg-2182) (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-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-4)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-4))))) arg-2182 eta-3))))) arg-2181 eta-2)))))) arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-5 e-6 e-7 (vector 2 "") e-8)))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-2))))) arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__TypeFlags arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-2)))) arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12)))))))))))))))))))))))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-5 (Context-Core-holeInit e-6))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 9 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Def" eta-0))))))) -(define TTC-Core-case--fromBuf-11118 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "HoleInfo" eta-0))))))) -(define TTC-Core-case--fromBuf-10853 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CG" eta-0))))))) -(define TTC-Core-case--fromBuf-10688 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 e-5 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CFType arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CDef" eta-0))))))) -(define TTC-Core-case--fromBuf-10379 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 7 )))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 12 )))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-5 e-6)))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 14 e-5))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__CFType arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2180 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CFType arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-2181 eta-2))))) arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 15 e-5 e-6)))))))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CFType arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 16 e-5 e-6)))))))))))))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CFType" eta-0))))))) -(define TTC-Core-case--caseC-32blockC-32inC-32fromBuf-9542 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0))))))) -(define TTC-Core-case--fromBuf-9518 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((bind-0 0)) ((TTC-Core-case--caseC-32blockC-32inC-32fromBuf-9542 arg-0 arg-1 bind-0 e-5 e-6 (TTC-Core-getName e-6 arg-0)) eta-0)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Bool arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-6 arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-6 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 6 e-6 e-5 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-5 e-6)))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 10 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 11 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0))))))) -(define TTC-Core-case--fromBuf-8953 (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--10624-8420-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--10624-8421-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--10624-8422-fromBuf3 arg-0 arg-1 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0))))))))))))))))))) -(define TTC-Core-case--fromBufC-44fromBuf3-8923 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 23 )))) ((equal? sc0 100) (lambda (eta-0) (vector 1 (vector 36 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 3" eta-0))))))) -(define TTC-Core-case--fromBufC-44fromBuf2-8627 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 14 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 19 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 20 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 21 )))) ((equal? sc0 35) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 36) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 37) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 38) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 39) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-5))))))))) ((equal? sc0 101) (lambda (eta-0) (vector 1 (vector 37 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 2" eta-0))))))) -(define TTC-Core-case--fromBufC-44fromBuf1-8433 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 22 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 24 )))) ((equal? sc0 20) (lambda (eta-0) (vector 1 (vector 25 )))) ((equal? sc0 22) (lambda (eta-0) (vector 1 (vector 26 )))) ((equal? sc0 23) (lambda (eta-0) (vector 1 (vector 27 )))) ((equal? sc0 24) (lambda (eta-0) (vector 1 (vector 28 )))) ((equal? sc0 25) (lambda (eta-0) (vector 1 (vector 29 )))) ((equal? sc0 26) (lambda (eta-0) (vector 1 (vector 30 )))) ((equal? sc0 27) (lambda (eta-0) (vector 1 (vector 31 )))) ((equal? sc0 32) (lambda (eta-0) (vector 1 (vector 32 )))) ((equal? sc0 33) (lambda (eta-0) (vector 1 (vector 33 )))) ((equal? sc0 34) (lambda (eta-0) (vector 1 (vector 34 )))) ((equal? sc0 99) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 35 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 1" eta-0))))))) -(define TTC-Core-case--fromBuf-7925 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Covering" eta-0))))))) -(define TTC-Core-case--fromBuf-7829 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PartialReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Terminating" eta-0))))))) -(define TTC-Core-case--fromBuf-7736 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PartialReason" eta-0))))))) -(define TTC-Core-case--fromBuf-7647 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Visibility" eta-0))))))) -(define TTC-Core-case--fromBuf-7407 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Types-Prelude-C-43C-43 'erased e-7 arg-0) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-5 (vector 1 e-6 arg-0)) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseAlt" eta-0))))))) -(define TTC-Core-case--fromBuf-7168 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 arg-0 e-6 (vector 10 (FC-Core-emptyFC) 1) e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 0 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseTree" eta-0))))))) -(define TTC-Core-case--caseC-32blockC-32inC-32fromBuf-6520 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (FC-Core-emptyFC) arg-4 arg-5)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0))))))) -(define TTC-Core-case--fromBuf-6177 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Binary-Utils-corrupt 'erased "Term" eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) (TTC-Core-getName e-6 arg-1)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (FC-Core-emptyFC) e-5 e-6)))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__NameType arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 (FC-Core-emptyFC) e-5 0 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-5 arg-1) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__UseSide arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 (FC-Core-emptyFC) e-6 e-5 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 (FC-Core-emptyFC) e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 (FC-Core-emptyFC) 1)))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 (FC-Core-emptyFC)))))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((idx (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int arg-2 12))))) (let ((bind-0 arg-2)) ((TTC-Core-case--caseC-32blockC-32inC-32fromBuf-6520 arg-0 arg-1 arg-2 bind-0 e-5 idx (TTC-Core-getName idx arg-1)) eta-0)))))))))))))) -(define TTC-Core-case--toBuf-5834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-6 (b+ 12 (Types-Prelude-cast_Cast__Nat_Int arg-1) 63) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-1)))) arg-6 arg-4) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-6 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-1)))) arg-6 arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-6 arg-1) eta-0))))))))))))))) -(define TTC-Core-case--fromBuf-5780 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "UseSide" eta-0))))))) -(define TTC-Core-case--fromBuf-5553 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (FC-Core-emptyFC) e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 (FC-Core-emptyFC) e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 (FC-Core-emptyFC) e-5 (vector 10 (FC-Core-emptyFC) 1))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Binder" eta-0))))))) +(define TTC-Core-case--fromBuf-12514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (TTC-Core-fromBuf_TTC__Totality arg-0 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__DefFlag arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__DefFlag arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (TTC-Core-toBuf_TTC__SCCall arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SCCall arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc12 1))) (vector 1 (vector 0 arg-4 arg-6 e-5 e-6 e-7 e-8 e-9 arg-5 e-10 e-11 e-12 e-13 arg-8 arg-3 e-14 e-15 0 arg-9 arg-1 (vector 0 ) e-16)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-6 (vector 10 arg-4 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-5 (vector 0 ) (vector 2 ) (TT-Core-unchecked) (vector 0 ) arg-8 arg-3 1 1 0 arg-9 arg-1 (vector 0 ) (vector 0 ))))))))) +(define TTC-Core-case--fromBuf-12139 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "SizeChange" eta-0))))))) +(define TTC-Core-case--fromBuf-12020 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__TotalReq arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 7 (vector 0 ))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 8 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DefFlag" eta-0))))))) +(define TTC-Core-case--fromBuf-11913 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "TotalReq" eta-0))))))) +(define TTC-Core-case--fromBuf-11572 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PMDefInfo arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-6 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) arg-2178 arg-2180 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) arg-2180 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181 arg-2182))) (lambda (arg-2181) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-1)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-1))))) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2178 arg-2181))) (lambda (arg-2181) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2))))) arg-2178 arg-2181))) (lambda (arg-2181) (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-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3))))) arg-2181 eta-2))))) arg-2180 eta-1)))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-3)))) arg-2177 arg-2179 eta-2)))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-3)))) arg-2181 eta-2)))) (lambda (y) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2178 arg-2181))) (lambda (arg-2181) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2))))) arg-2178 arg-2181))) (lambda (arg-2181) (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-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3))))) arg-2181 eta-2))))) arg-2177 arg-2179))) (lambda (arg-2181) (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-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2177 arg-2179))) (lambda (arg-2182) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2182))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3))))) arg-2177 arg-2179))) (lambda (arg-2182) (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-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-4)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-4))))) arg-2182 eta-3))))) arg-2181 eta-2)))))) arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-5 e-6 e-7 (vector 2 "") e-8)))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-2))))) arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__TypeFlags arg-0 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-2)))) arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 6 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12)))))))))))))))))))))))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-5 (Context-Core-holeInit e-6))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 9 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Def" eta-0))))))) +(define TTC-Core-case--fromBuf-11106 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "HoleInfo" eta-0))))))) +(define TTC-Core-case--fromBuf-10841 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CG" eta-0))))))) +(define TTC-Core-case--fromBuf-10676 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 e-5 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CFType arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CDef" eta-0))))))) +(define TTC-Core-case--fromBuf-10367 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc0 4) (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc0 5) (lambda (eta-0) (vector 1 (vector 5 )))) ((equal? sc0 6) (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc0 7) (lambda (eta-0) (vector 1 (vector 7 )))) ((equal? sc0 8) (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 12 )))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-5 e-6)))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 14 e-5))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__CFType arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2180 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CFType arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-2181 eta-2))))) arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 15 e-5 e-6)))))))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CFType arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 16 e-5 e-6)))))))))))))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 11 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CFType" eta-0))))))) +(define TTC-Core-case--caseC-32blockC-32inC-32fromBuf-9530 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-3)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0))))))) +(define TTC-Core-case--fromBuf-9506 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((bind-0 0)) ((TTC-Core-case--caseC-32blockC-32inC-32fromBuf-9530 arg-0 arg-1 bind-0 e-5 e-6 (TTC-Core-getName e-6 arg-0)) eta-0)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Bool arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 3 e-5 e-6 e-7 e-8 e-9))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-6 arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-6 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 6 e-6 e-5 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-5 e-6)))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 10 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 11 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 12 e-5 e-6)))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0))))))) +(define TTC-Core-case--fromBuf-8941 (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--10436-8408-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--10436-8409-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--10436-8410-fromBuf3 arg-0 arg-1 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0))))))))))))))))))) +(define TTC-Core-case--fromBufC-44fromBuf3-8911 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 23 )))) ((equal? sc0 100) (lambda (eta-0) (vector 1 (vector 36 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 3" eta-0))))))) +(define TTC-Core-case--fromBufC-44fromBuf2-8615 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 14 e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-5))))))))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 19 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 20 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 21 )))) ((equal? sc0 35) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 36) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 37) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 38) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-5))))))))) ((equal? sc0 39) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-5))))))))) ((equal? sc0 101) (lambda (eta-0) (vector 1 (vector 37 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 2" eta-0))))))) +(define TTC-Core-case--fromBufC-44fromBuf1-8421 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 22 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 24 )))) ((equal? sc0 20) (lambda (eta-0) (vector 1 (vector 25 )))) ((equal? sc0 22) (lambda (eta-0) (vector 1 (vector 26 )))) ((equal? sc0 23) (lambda (eta-0) (vector 1 (vector 27 )))) ((equal? sc0 24) (lambda (eta-0) (vector 1 (vector 28 )))) ((equal? sc0 25) (lambda (eta-0) (vector 1 (vector 29 )))) ((equal? sc0 26) (lambda (eta-0) (vector 1 (vector 30 )))) ((equal? sc0 27) (lambda (eta-0) (vector 1 (vector 31 )))) ((equal? sc0 32) (lambda (eta-0) (vector 1 (vector 32 )))) ((equal? sc0 33) (lambda (eta-0) (vector 1 (vector 33 )))) ((equal? sc0 34) (lambda (eta-0) (vector 1 (vector 34 )))) ((equal? sc0 99) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 35 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 1" eta-0))))))) +(define TTC-Core-case--fromBuf-7913 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Covering" eta-0))))))) +(define TTC-Core-case--fromBuf-7817 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__PartialReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Terminating" eta-0))))))) +(define TTC-Core-case--fromBuf-7724 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PartialReason" eta-0))))))) +(define TTC-Core-case--fromBuf-7635 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Visibility" eta-0))))))) +(define TTC-Core-case--fromBuf-7395 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Types-Prelude-C-43C-43 'erased e-7 arg-0) arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-5 (vector 1 e-6 arg-0)) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseAlt" eta-0))))))) +(define TTC-Core-case--fromBuf-7156 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 arg-0 e-6 (vector 10 (FC-Core-emptyFC) 1) e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 0 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseTree" eta-0))))))) +(define TTC-Core-case--caseC-32blockC-32inC-32fromBuf-6508 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 (FC-Core-emptyFC) arg-4 arg-5)))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0))))))) +(define TTC-Core-case--fromBuf-6165 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Binary-Utils-corrupt 'erased "Term" eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) (TTC-Core-getName e-6 arg-1)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (FC-Core-emptyFC) e-5 e-6)))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__NameType arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 (FC-Core-emptyFC) e-5 0 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-5 arg-1) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__UseSide arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 (FC-Core-emptyFC) e-6 e-5 e-7))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 (FC-Core-emptyFC) e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 (FC-Core-emptyFC) e-5 e-6)))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 (FC-Core-emptyFC) e-5))))))))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 (FC-Core-emptyFC) 1)))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 (FC-Core-emptyFC)))))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((idx (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int arg-2 12))))) (let ((bind-0 arg-2)) ((TTC-Core-case--caseC-32blockC-32inC-32fromBuf-6508 arg-0 arg-1 arg-2 bind-0 e-5 idx (TTC-Core-getName idx arg-1)) eta-0)))))))))))))) +(define TTC-Core-case--toBuf-5822 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-6 (b+ 12 (Types-Prelude-cast_Cast__Nat_Int arg-1) 63) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-1)))) arg-6 arg-4) eta-0))))))) (else (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-6 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-1)))) arg-6 arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-6 arg-1) eta-0))))))))))))))) +(define TTC-Core-case--fromBuf-5768 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "UseSide" eta-0))))))) +(define TTC-Core-case--fromBuf-5541 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5 (vector 10 (FC-Core-emptyFC) 1))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Binder" eta-0))))))) (define TTC-Core-case--fromBuf-5241 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "NameType" eta-0))))))) (define TTC-Core-case--fromBuf-5135 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "LazyReason" eta-0))))))) (define TTC-Core-case--fromBuf-4893 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-5))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-5))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Integer arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-5))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-5))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Char arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-5))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__Double arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-5))))))))) ((equal? sc0 9) (lambda (eta-0) (vector 1 (vector 9 )))) ((equal? sc0 10) (lambda (eta-0) (vector 1 (vector 10 )))) ((equal? sc0 11) (lambda (eta-0) (vector 1 (vector 11 )))) ((equal? sc0 12) (lambda (eta-0) (vector 1 (vector 12 )))) ((equal? sc0 13) (lambda (eta-0) (vector 1 (vector 13 )))) ((equal? sc0 14) (lambda (eta-0) (vector 1 (vector 14 )))) ((equal? sc0 15) (lambda (eta-0) (vector 1 (vector 15 )))) ((equal? sc0 16) (lambda (eta-0) (vector 1 (vector 16 )))) ((equal? sc0 17) (lambda (eta-0) (vector 1 (vector 17 )))) ((equal? sc0 18) (lambda (eta-0) (vector 1 (vector 18 )))) ((equal? sc0 19) (lambda (eta-0) (vector 1 (vector 19 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Constant" eta-0))))))) @@ -3438,10 +3365,10 @@ (define TTC-Core-case--fromBuf-4510 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RigCount" eta-0))))))) (define TTC-Core-case--fromBuf-4299 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-5 e-6)))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-5 e-6)))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-5 e-6)))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1))))) arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-5 e-6)))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-5 e-6)))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-5 e-6))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Name" eta-0))))))) (define TTC-Core-case--fromBuf-4040 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1))))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1))))) arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FC" eta-0))))))) -(define TTC-Core-n--10624-8422-fromBuf3 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 18) (vector 1 (vector 23 ))) ((equal? sc1 100) (vector 1 (vector 36 )))(else (Binary-Utils-corrupt 'erased "PrimFn 3" ext-0))))))))))) -(define TTC-Core-n--10624-8421-fromBuf2 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-6)))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-6)))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 12 e-6)))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-6)))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-6)))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 15 e-6)))))))) ((equal? sc1 14) (vector 1 (vector 19 ))) ((equal? sc1 15) (vector 1 (vector 20 ))) ((equal? sc1 16) (vector 1 (vector 21 ))) ((equal? sc1 35) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-6)))))))) ((equal? sc1 36) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-6)))))))) ((equal? sc1 37) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-6)))))))) ((equal? sc1 38) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6)))))))) ((equal? sc1 39) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 e-6)))))))) ((equal? sc1 101) (vector 1 (vector 37 )))(else (Binary-Utils-corrupt 'erased "PrimFn 2" ext-0))))))))))) -(define TTC-Core-n--10624-8420-fromBuf1 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 11) (vector 1 (vector 16 ))) ((equal? sc1 12) (vector 1 (vector 17 ))) ((equal? sc1 13) (vector 1 (vector 18 ))) ((equal? sc1 17) (vector 1 (vector 22 ))) ((equal? sc1 19) (vector 1 (vector 24 ))) ((equal? sc1 20) (vector 1 (vector 25 ))) ((equal? sc1 22) (vector 1 (vector 26 ))) ((equal? sc1 23) (vector 1 (vector 27 ))) ((equal? sc1 24) (vector 1 (vector 28 ))) ((equal? sc1 25) (vector 1 (vector 29 ))) ((equal? sc1 26) (vector 1 (vector 30 ))) ((equal? sc1 27) (vector 1 (vector 31 ))) ((equal? sc1 32) (vector 1 (vector 32 ))) ((equal? sc1 33) (vector 1 (vector 33 ))) ((equal? sc1 34) (vector 1 (vector 34 ))) ((equal? sc1 99) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 35 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "PrimFn 1" ext-0))))))))))) -(define TTC-Core-n--14751-12261-cwName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((6) 0) ((7) 0)(else 1))))) +(define TTC-Core-n--10436-8410-fromBuf3 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 18) (vector 1 (vector 23 ))) ((equal? sc1 100) (vector 1 (vector 36 )))(else (Binary-Utils-corrupt 'erased "PrimFn 3" ext-0))))))))))) +(define TTC-Core-n--10436-8409-fromBuf2 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6)))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6)))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-6)))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 11 e-6)))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 12 e-6)))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-6)))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-6)))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 15 e-6)))))))) ((equal? sc1 14) (vector 1 (vector 19 ))) ((equal? sc1 15) (vector 1 (vector 20 ))) ((equal? sc1 16) (vector 1 (vector 21 ))) ((equal? sc1 35) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-6)))))))) ((equal? sc1 36) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-6)))))))) ((equal? sc1 37) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-6)))))))) ((equal? sc1 38) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-6)))))))) ((equal? sc1 39) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 e-6)))))))) ((equal? sc1 101) (vector 1 (vector 37 )))(else (Binary-Utils-corrupt 'erased "PrimFn 2" ext-0))))))))))) +(define TTC-Core-n--10436-8408-fromBuf1 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 11) (vector 1 (vector 16 ))) ((equal? sc1 12) (vector 1 (vector 17 ))) ((equal? sc1 13) (vector 1 (vector 18 ))) ((equal? sc1 17) (vector 1 (vector 22 ))) ((equal? sc1 19) (vector 1 (vector 24 ))) ((equal? sc1 20) (vector 1 (vector 25 ))) ((equal? sc1 22) (vector 1 (vector 26 ))) ((equal? sc1 23) (vector 1 (vector 27 ))) ((equal? sc1 24) (vector 1 (vector 28 ))) ((equal? sc1 25) (vector 1 (vector 29 ))) ((equal? sc1 26) (vector 1 (vector 30 ))) ((equal? sc1 27) (vector 1 (vector 31 ))) ((equal? sc1 32) (vector 1 (vector 32 ))) ((equal? sc1 33) (vector 1 (vector 33 ))) ((equal? sc1 34) (vector 1 (vector 34 ))) ((equal? sc1 99) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 35 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "PrimFn 1" ext-0))))))))))) +(define TTC-Core-n--14563-12249-cwName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((6) 0) ((7) 0)(else 1))))) (define TTC-Core-toBuf_TTC__Visibility (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))))))) (define TTC-Core-toBuf_TTC__UseSide (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))))))) (define TTC-Core-toBuf_TTC__TypeFlags (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))))))) @@ -3461,7 +3388,7 @@ (define TTC-Core-toBuf_TTC__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-2) eta-0)))))))) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-4 eta-0))))))))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-6 eta-0))))))))))))) ((4) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-8) eta-0))))))))))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1))))) arg-0 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-10) eta-0))))))))))))) ((6) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-12 eta-0))))))))))))) ((7) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__Int arg-0 e-14 eta-0))))))))))))) (else (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Can't write resolved name " (Show-Prelude-show_Show__Int e-15))) eta-0)))))))) (define TTC-Core-toBuf_TTC__LazyReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))))))) (define TTC-Core-toBuf_TTC__HoleInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-0) eta-0)))))))))))) -(define TTC-Core-toBuf_TTC__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CDef arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2180 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-18 (vector-ref sc0 19))) e-18))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Bool arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-2))))) arg-2180 eta-1)))) arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2182 eta-2))))) arg-2181 eta-1)))) arg-2180 eta-0)))) arg-0 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased eta-0)) (let ((sc1 arg-1)) (let ((e-13 (vector-ref sc1 14))) e-13)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__FC arg-0 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__RigCount arg-0 (let ((sc3 arg-1)) (let ((e-21 (vector-ref sc3 8))) e-21))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc4 arg-1)) (let ((e-1 (vector-ref sc4 2))) e-1))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Bool arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-2))))) arg-2180 eta-1)))) arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2182 eta-2))))) arg-2181 eta-1)))) arg-2180 eta-0)))) arg-0 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased eta-0)) (let ((sc5 arg-1)) (let ((e-12 (vector-ref sc5 13))) e-12)))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((TTC-Core-toBuf_TTC__Def arg-0 (let ((sc6 arg-1)) (let ((e-17 (vector-ref sc6 18))) e-17))) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((sc7 (Basics-Prelude-C-124C-124 (Name-Core-isUserName (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))) (lambda () (TTC-Core-n--14751-12261-cwName arg-1 arg-0 (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))))))) (cond ((equal? sc7 0) (let ((act-31 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 (let ((sc8 arg-1)) (let ((e-2 (vector-ref sc8 3))) e-2))) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-32 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0)))) arg-0 (let ((sc9 arg-1)) (let ((e-3 (vector-ref sc9 4))) e-3)) ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-33 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0)))) arg-0 (let ((sc10 arg-1)) (let ((e-4 (vector-ref sc10 5))) e-4)) ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-34 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0)))) arg-0 (let ((sc11 arg-1)) (let ((e-30 (vector-ref sc11 6))) e-30)) ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-35 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0)))) arg-0 (let ((sc12 arg-1)) (let ((e-30 (vector-ref sc12 7))) e-30)) ext-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-36 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 (let ((sc13 arg-1)) (let ((e-29 (vector-ref sc13 9))) e-29)) ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-37 ((TTC-Core-toBuf_TTC__Visibility arg-0 (let ((sc14 arg-1)) (let ((e-29 (vector-ref sc14 10))) e-29))) ext-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-38 ((TTC-Core-toBuf_TTC__Totality arg-0 (let ((sc15 arg-1)) (let ((e-29 (vector-ref sc15 11))) e-29))) ext-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-39 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__DefFlag arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-2180 eta-0)))) arg-0 (let ((sc16 arg-1)) (let ((e-29 (vector-ref sc16 12))) e-29)) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((act-40 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc17 arg-1)) (let ((e-27 (vector-ref sc17 15))) e-27))) ext-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((act-41 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc18 arg-1)) (let ((e-27 (vector-ref sc18 16))) e-27))) ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-2180 eta-0)))) arg-0 (let ((sc19 arg-1)) (let ((e-23 (vector-ref sc19 21))) e-23)) ext-0)))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) +(define TTC-Core-toBuf_TTC__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CDef arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2180 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-18 (vector-ref sc0 19))) e-18))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Bool arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-2))))) arg-2180 eta-1)))) arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2182 eta-2))))) arg-2181 eta-1)))) arg-2180 eta-0)))) arg-0 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased eta-0)) (let ((sc1 arg-1)) (let ((e-13 (vector-ref sc1 14))) e-13)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__FC arg-0 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__RigCount arg-0 (let ((sc3 arg-1)) (let ((e-21 (vector-ref sc3 8))) e-21))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((TTC-Core-toBuf_TTC__Name arg-0 (let ((sc4 arg-1)) (let ((e-1 (vector-ref sc4 2))) e-1))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Bool arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-2))))) arg-2180 eta-1)))) arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2182 eta-2))))) arg-2181 eta-1)))) arg-2180 eta-0)))) arg-0 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-toList 'erased eta-0)) (let ((sc5 arg-1)) (let ((e-12 (vector-ref sc5 13))) e-12)))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((TTC-Core-toBuf_TTC__Def arg-0 (let ((sc6 arg-1)) (let ((e-17 (vector-ref sc6 18))) e-17))) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((sc7 (Basics-Prelude-C-124C-124 (Name-Core-isUserName (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))) (lambda () (TTC-Core-n--14563-12249-cwName arg-1 arg-0 (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))))))) (cond ((equal? sc7 0) (let ((act-31 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 (let ((sc8 arg-1)) (let ((e-2 (vector-ref sc8 3))) e-2))) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-32 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0)))) arg-0 (let ((sc9 arg-1)) (let ((e-3 (vector-ref sc9 4))) e-3)) ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-33 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0)))) arg-0 (let ((sc10 arg-1)) (let ((e-4 (vector-ref sc10 5))) e-4)) ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-34 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0)))) arg-0 (let ((sc11 arg-1)) (let ((e-30 (vector-ref sc11 6))) e-30)) ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-35 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0)))) arg-0 (let ((sc12 arg-1)) (let ((e-30 (vector-ref sc12 7))) e-30)) ext-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-36 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 (let ((sc13 arg-1)) (let ((e-29 (vector-ref sc13 9))) e-29)) ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-37 ((TTC-Core-toBuf_TTC__Visibility arg-0 (let ((sc14 arg-1)) (let ((e-29 (vector-ref sc14 10))) e-29))) ext-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-38 ((TTC-Core-toBuf_TTC__Totality arg-0 (let ((sc15 arg-1)) (let ((e-29 (vector-ref sc15 11))) e-29))) ext-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-39 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__DefFlag arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-2180 eta-0)))) arg-0 (let ((sc16 arg-1)) (let ((e-29 (vector-ref sc16 12))) e-29)) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((act-40 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc17 arg-1)) (let ((e-27 (vector-ref sc17 15))) e-27))) ext-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((act-41 ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc18 arg-1)) (let ((e-27 (vector-ref sc18 16))) e-27))) ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-2180 eta-0)))) arg-0 (let ((sc19 arg-1)) (let ((e-23 (vector-ref sc19 21))) e-23)) ext-0)))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) (define TTC-Core-toBuf_TTC__FC (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1))))) arg-0 e-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1))))) arg-0 e-2) eta-0)))))))))))))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))))))) (define TTC-Core-toBuf_TTC__DefFlag (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((4) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__TotalReq arg-0 e-0) eta-0)))))))) ((5) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 8 eta-0))) ((7) (lambda (eta-0) (Binary-Utils-tag arg-0 9 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0))))))) (define TTC-Core-toBuf_TTC__Def (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (TTC-Core-toBuf_TTC__PMDefInfo arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 e-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-1 arg-0 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) arg-2178 arg-2180 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) arg-2180 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181 arg-2182))) (lambda (arg-2181) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-1)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-1))))) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2178 arg-2181))) (lambda (arg-2181) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2))))) arg-2178 arg-2181))) (lambda (arg-2181) (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-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3))))) arg-2181 eta-2))))) arg-2180 eta-1)))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-3)))) arg-2177 arg-2179 eta-2)))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-3)))) arg-2181 eta-2)))) (lambda (y) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2178 arg-2181))) (lambda (arg-2181) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2))))) arg-2178 arg-2181))) (lambda (arg-2181) (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-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3))))) arg-2181 eta-2))))) arg-2177 arg-2179))) (lambda (arg-2181) (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-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2177 arg-2179))) (lambda (arg-2182) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2182))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-3))))) arg-2177 arg-2179))) (lambda (arg-2182) (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-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-4)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-4))))) arg-2182 eta-3))))) arg-2181 eta-2)))))) arg-2180 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-5) eta-0)))))))) ((3) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 e-7 eta-0))))))))))))) ((4) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Trying to serialise a Builtin") eta-0))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 e-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-2))))) arg-2180 eta-1)))) arg-0 e-12) eta-0)))))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((e-18 (vector-ref sc0 6))) (let ((e-19 (vector-ref sc0 7))) (let ((e-20 (vector-ref sc0 8))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 e-13 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-14) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 e-15 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 e-16 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (TTC-Core-toBuf_TTC__TypeFlags arg-0 e-17 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 e-18 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 e-19 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-2)))) arg-2180 eta-1)))) arg-0 e-20) eta-0))))))))))))))))))))))))))))))))))))))))))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 (let ((sc3 e-22)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))) ((8) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-24) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-0 e-25) eta-0)))))))))))))))))) ((9) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 e-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-27) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 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))))))) @@ -3470,7 +3397,7 @@ (define TTC-Core-toBuf_TTC__CG (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((5) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-0) eta-0)))))))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 6 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) (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))) ((12) (lambda (eta-0) (Binary-Utils-tag arg-0 10 eta-0))) ((13) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__CFType arg-0 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-1) eta-0))))))))))))) ((14) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-2) eta-0)))))))) ((15) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__CFType arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2180 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CFType arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-2181 eta-2))))) arg-2180 eta-1)))) arg-0 e-4 eta-0))))))))))))) ((16) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CFType arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2180 eta-1)))) arg-0 e-6 eta-0))))))))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-0 15 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 16 eta-0))))))) (define TTC-Core-toBuf_TTC__CDef (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 e-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 e-0 arg-0 e-1) eta-0))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) arg-0 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-0 e-4) eta-0)))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-0 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CFType arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2180 eta-1)))) arg-0 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-7) eta-0)))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 e-8) eta-0)))))))))))) -(define TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (TTC-Core-case--toBuf-5834 arg-0 e-4 'erased 'erased e-3 e-2 arg-1 (Types-Prelude-C-60_Ord__Nat e-4 (Types-Prelude-fromInteger_Num__Nat 244))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__NameType arg-1 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-1 e-9) eta-0))))))))))))) ((2) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-14 eta-0))))))))))))) ((3) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 e-18) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-17 arg-0) arg-1 e-19) eta-0)))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-23) eta-0))))))))))))) ((5) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-27) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__UseSide arg-1 e-26) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-28) eta-0)))))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-31) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-32) eta-0))))))))))))) ((7) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-35) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-36) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-37) eta-0)))))))))))))))))) ((8) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-41) eta-0))))))))))))) ((9) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-44) eta-0)))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-1 10 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 11 eta-0))))))) +(define TTC-Core-toBuf_TTC__C-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--toBuf-5822 arg-0 e-4 'erased 'erased e-3 e-2 arg-1 (Types-Prelude-C-60_Ord__Nat e-4 (Types-Prelude-fromInteger_Num__Nat 244))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__NameType arg-1 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-1 e-9) eta-0))))))))))))) ((2) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-14 eta-0))))))))))))) ((3) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 e-18) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-17 arg-0) arg-1 e-19) eta-0)))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-23) eta-0))))))))))))) ((5) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-27) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__UseSide arg-1 e-26) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-28) eta-0)))))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-31) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-32) eta-0))))))))))))) ((7) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-35) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-36) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-37) eta-0)))))))))))))))))) ((8) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-41) eta-0))))))))))))) ((9) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-44) eta-0)))))))) ((10) (lambda (eta-0) (Binary-Utils-tag arg-1 10 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 11 eta-0))))))) (define TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-0 (- arg-0 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-18 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-18) eta-0)))))))) ((16) (lambda (eta-0) (Binary-Utils-tag arg-1 11 eta-0))) ((17) (lambda (eta-0) (Binary-Utils-tag arg-1 12 eta-0))) ((18) (lambda (eta-0) (Binary-Utils-tag arg-1 13 eta-0))) ((22) (lambda (eta-0) (Binary-Utils-tag arg-1 17 eta-0))) ((24) (lambda (eta-0) (Binary-Utils-tag arg-1 19 eta-0))) ((25) (lambda (eta-0) (Binary-Utils-tag arg-1 20 eta-0))) ((26) (lambda (eta-0) (Binary-Utils-tag arg-1 22 eta-0))) ((27) (lambda (eta-0) (Binary-Utils-tag arg-1 23 eta-0))) ((28) (lambda (eta-0) (Binary-Utils-tag arg-1 24 eta-0))) ((29) (lambda (eta-0) (Binary-Utils-tag arg-1 25 eta-0))) ((30) (lambda (eta-0) (Binary-Utils-tag arg-1 26 eta-0))) ((31) (lambda (eta-0) (Binary-Utils-tag arg-1 27 eta-0))) ((32) (lambda (eta-0) (Binary-Utils-tag arg-1 32 eta-0))) ((33) (lambda (eta-0) (Binary-Utils-tag arg-1 33 eta-0))) ((34) (lambda (eta-0) (Binary-Utils-tag arg-1 34 eta-0))) (else (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 99 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Constant arg-1 e-19) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-20) eta-0))))))))))))))))(else (let ((e-1 (- e-0 1))) (let ((sc0 e-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-3) eta-0)))))))) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-4) eta-0)))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-5) eta-0)))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-6) eta-0)))))))) ((4) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-7) eta-0)))))))) ((6) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 35 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-8) eta-0)))))))) ((7) (let ((e-9 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 36 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-9) eta-0)))))))) ((8) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 37 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-10) eta-0)))))))) ((9) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 38 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-11) eta-0)))))))) ((10) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 39 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-12) eta-0)))))))) ((11) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-13) eta-0)))))))) ((12) (let ((e-14 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-14) eta-0)))))))) ((13) (let ((e-15 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-15) eta-0)))))))) ((14) (let ((e-16 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 9 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-16) eta-0)))))))) ((15) (let ((e-17 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 10 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-17) eta-0)))))))) ((19) (lambda (eta-0) (Binary-Utils-tag arg-1 14 eta-0))) ((20) (lambda (eta-0) (Binary-Utils-tag arg-1 15 eta-0))) ((21) (lambda (eta-0) (Binary-Utils-tag arg-1 16 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 101 eta-0))))))(else (let ((e-2 (- e-1 1))) (let ((sc0 e-2)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((23) (lambda (eta-0) (Binary-Utils-tag arg-1 18 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 100 eta-0))))))(else (blodwen-error-quit "Nat case not covered")))))))))))))))))) (define TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-2 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-2 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-2 2 eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-2 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (((e-1 arg-2) e-4) eta-0)))))))))))))) (define TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__Name arg-1 e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-5 eta-0)))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-8) eta-0)))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-1 e-10) eta-0)))))))) (else (lambda (eta-0) (Binary-Utils-tag arg-1 3 eta-0))))))) @@ -3478,7 +3405,7 @@ (define TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Name arg-1 e-7) eta-0))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-10 arg-0) arg-1 e-11) eta-0)))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-14) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Binary-Utils-toBuf_TTC__Bool arg-1 e-15) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-16) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-14 arg-0) arg-1 e-17) eta-0)))))))))))))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-21 eta-0)))))))))))))))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-24) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) arg-1 e-25) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-26 eta-0))))))))))))))))))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-29) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-28) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 e-28 arg-1 e-30) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-28 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-31) eta-0))))))))))))))))))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-33) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__Name arg-1 e-34) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-35 eta-0)))))))))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-37) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-38) eta-0))))))))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-41) eta-0))))))))))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-43) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-44) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-45 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-46) eta-0))))))))))))))))))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-48) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-49) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-50 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-51) eta-0))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-53) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__Constant arg-1 e-54) eta-0))))))))))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__FC arg-1 e-56) eta-0)))))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__FC arg-1 e-58) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Binary-Utils-toBuf_TTC__String arg-1 e-59) eta-0))))))))))))))))) (define TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Constant arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-2) eta-0))))))))))) (define TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-1)))) arg-1 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-1 e-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Types-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-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-4) eta-0)))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-8) eta-0))))))))))))) ((2) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-13) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-14) eta-0)))))))))))))))))) ((3) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-18) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-19) eta-0)))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-23) eta-0))))))))))))) (else (let ((e-27 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__RigCount arg-1 e-27) eta-0)))))))))))) +(define TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-3) eta-0)))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-6) eta-0))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-11) eta-0)))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-1)))) arg-1 e-14) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-15) eta-0)))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-18) eta-0))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((TTC-Core-toBuf_TTC__RigCount arg-1 e-21) eta-0)))))))))))) (define TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-1 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-3 arg-1 e-9) eta-0))))))))))))))) (define TTC-Core-fromBuf_TTC__Visibility (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 )))(else (Binary-Utils-corrupt 'erased "Visibility" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__UseSide (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 )))(else (Binary-Utils-corrupt 'erased "UseSide" ext-0))))))))))) @@ -3499,7 +3426,7 @@ (define TTC-Core-fromBuf_TTC__Name (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-6 e-7))))))))))))) ((equal? sc1 4) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-6 e-7))))))))))))) ((equal? sc1 5) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-0)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-0))))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 e-6 e-7))))))))))))) ((equal? sc1 6) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 6 e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "Name" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__LazyReason (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 )))(else (Binary-Utils-corrupt 'erased "LazyReason" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__HoleInfo (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6))))))))(else (Binary-Utils-corrupt 'erased "HoleInfo" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__GlobalDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CDef arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Bool arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-2))))) arg-2180 eta-1)))) arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2182 eta-2))))) arg-2181 eta-1)))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((refsR (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-6))) (let ((act-26 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Bool arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-2))))) arg-2180 eta-1)))) arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2182 eta-2))))) arg-2181 eta-1)))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((refs (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-10))) (let ((act-30 (TTC-Core-fromBuf_TTC__Def arg-0 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) ((TTC-Core-case--fromBuf-12526 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__GlobalDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CDef arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Bool arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-2))))) arg-2180 eta-1)))) arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2182 eta-2))))) arg-2181 eta-1)))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((refsR (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-6))) (let ((act-26 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Bool arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-2))))) arg-2180 eta-1)))) arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2182 eta-2))))) arg-2181 eta-1)))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((refs (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (NameMap-Data-fromList 'erased eta-0)) e-10))) (let ((act-30 (TTC-Core-fromBuf_TTC__Def arg-0 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) ((TTC-Core-case--fromBuf-12514 arg-0 e-5 e-6 refsR e-7 e-8 e-9 e-10 refs e-11 (Name-Core-isUserName e-9)) ext-0)))))))))))))))))))))))))))))))))))))))) (define TTC-Core-fromBuf_TTC__FC (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-0)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-0))))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-0)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-0))))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (vector 1 (vector 1 )))(else (Binary-Utils-corrupt 'erased "FC" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__DefFlag (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 2) (vector 1 (vector 0 ))) ((equal? sc1 3) (vector 1 (vector 1 ))) ((equal? sc1 4) (vector 1 (vector 2 ))) ((equal? sc1 5) (vector 1 (vector 3 ))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__TotalReq arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-6)))))))) ((equal? sc1 7) (vector 1 (vector 5 ))) ((equal? sc1 8) (vector 1 (vector 6 ))) ((equal? sc1 9) (vector 1 (vector 7 (vector 0 )))) ((equal? sc1 10) (vector 1 (vector 8 )))(else (Binary-Utils-corrupt 'erased "DefFlag" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__Def (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__PMDefInfo arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-7 arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) arg-2178 arg-2180 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) arg-2180 eta-0)))) (lambda (y) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181 arg-2182))) (lambda (arg-2181) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-0)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-0))))) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-1))))) arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2178 arg-2181))) (lambda (arg-2181) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) arg-2181 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2178 arg-2181))) (lambda (arg-2181) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2181))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2177 arg-2179))) (lambda (arg-2182) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2182))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2182 eta-2))))) arg-2177 arg-2179))) (lambda (arg-2182) (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-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-3)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2183 eta-3))))) arg-2182 eta-2))))) arg-2181 eta-1)))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 1 e-6 e-7 e-8 (vector 2 "") e-9))))))))))))))))))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-6 e-7))))))))))))) ((equal? sc1 4) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 5) (let ((act-25 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__TypeFlags arg-0 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-1)))) arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1)))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (vector 1 (vector 6 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))))))))))))))))))))))))))))) ((equal? sc1 6) (let ((act-25 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 7 e-6 (Context-Core-holeInit e-7)))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 8 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 9 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 9) (vector 1 (vector 10 ))) ((equal? sc1 10) (vector 1 (vector 11 )))(else (Binary-Utils-corrupt 'erased "Def" ext-0))))))))))) @@ -3508,15 +3435,15 @@ (define TTC-Core-fromBuf_TTC__CG (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 2) (vector 1 (vector 1 ))) ((equal? sc1 3) (vector 1 (vector 2 ))) ((equal? sc1 4) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6)))))))) ((equal? sc1 5) (vector 1 (vector 3 ))) ((equal? sc1 6) (vector 1 (vector 4 )))(else (Binary-Utils-corrupt 'erased "CG" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__CFType (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (vector 1 (vector 3 ))) ((equal? sc1 4) (vector 1 (vector 4 ))) ((equal? sc1 5) (vector 1 (vector 5 ))) ((equal? sc1 6) (vector 1 (vector 6 ))) ((equal? sc1 7) (vector 1 (vector 7 ))) ((equal? sc1 8) (vector 1 (vector 8 ))) ((equal? sc1 9) (vector 1 (vector 9 ))) ((equal? sc1 10) (vector 1 (vector 12 ))) ((equal? sc1 11) (let ((act-25 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 13 e-6 e-7))))))))))))) ((equal? sc1 12) (let ((act-25 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-6)))))))) ((equal? sc1 13) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__CFType arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CFType arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 15 e-6 e-7))))))))))))) ((equal? sc1 14) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CFType arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 16 e-6 e-7))))))))))))) ((equal? sc1 15) (vector 1 (vector 10 ))) ((equal? sc1 16) (vector 1 (vector 11 )))(else (Binary-Utils-corrupt 'erased "CFType" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__CDef (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 e-6 arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-6 e-7))))))))))))) ((equal? sc1 1) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CFType arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "CDef" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) (TTC-Core-getName e-7 arg-0)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (FC-Core-emptyFC) e-6 e-7))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__NameType arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 (FC-Core-emptyFC) e-6 0 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__UseSide arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 (FC-Core-emptyFC) e-7 e-6 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 6 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 (FC-Core-emptyFC) e-6)))))))) ((equal? sc1 10) (vector 1 (vector 10 (FC-Core-emptyFC) 1))) ((equal? sc1 11) (vector 1 (vector 11 (FC-Core-emptyFC))))(else (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((idx (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int e-5 12))))) (let ((bind-0 e-5)) ((TTC-Core-case--caseC-32blockC-32inC-32fromBuf-6520 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--10624-8420-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--10624-8421-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--10624-8422-fromBuf3 arg-1 arg-0 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0))))))))))))))))))) +(define TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) (TTC-Core-getName e-7 arg-0)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (FC-Core-emptyFC) e-6 e-7))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__NameType arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 (FC-Core-emptyFC) e-6 0 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__UseSide arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 (FC-Core-emptyFC) e-7 e-6 e-8)))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 6 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 (FC-Core-emptyFC) e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 (FC-Core-emptyFC) e-6)))))))) ((equal? sc1 10) (vector 1 (vector 10 (FC-Core-emptyFC) 1))) ((equal? sc1 11) (vector 1 (vector 11 (FC-Core-emptyFC))))(else (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((idx (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int e-5 12))))) (let ((bind-0 e-5)) ((TTC-Core-case--caseC-32blockC-32inC-32fromBuf-6508 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--10436-8408-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--10436-8409-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--10436-8410-fromBuf3 arg-1 arg-0 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0))))))))))))))))))) (define TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Binary-Utils-getTag arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (let ((act-25 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) ((e-2 arg-2) ext-0))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "PiInfo" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 arg-0 e-7 (vector 10 (FC-Core-emptyFC) 1) e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 0 e-6)))))))) ((equal? sc1 2) (let ((act-25 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-6)))))))) ((equal? sc1 3) (vector 1 (vector 3 )))(else (Binary-Utils-corrupt 'erased "CaseTree" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (List-Types-Prelude-C-43C-43 'erased e-8 arg-0) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 e-7 arg-0)) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 2 e-6 e-7))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))(else (Binary-Utils-corrupt 'erased "CaseAlt" ext-0))))))))))) -(define TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 0)) ((TTC-Core-case--caseC-32blockC-32inC-32fromBuf-9542 arg-0 arg-1 bind-0 e-6 e-7 (TTC-Core-getName e-7 arg-0)) ext-0))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-7 arg-0) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__Bool arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-7 arg-0) arg-1 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 3 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 4 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 5 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-7 arg-1) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-7 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 6 e-7 e-6 e-8 e-9))))))))))))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 9 e-6 e-7))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 10 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 11 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 12) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 12 e-6 e-7))))))))))))) ((equal? sc1 13) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-6)))))))) ((equal? sc1 14) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 14 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "CExp" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 0)) ((TTC-Core-case--caseC-32blockC-32inC-32fromBuf-9530 arg-0 arg-1 bind-0 e-6 e-7 (TTC-Core-getName e-7 arg-0)) ext-0))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-7 arg-0) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__Bool arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-7 arg-0) arg-1 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 3 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 4 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 5 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 6) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-7 arg-1) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-7 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 6 e-7 e-6 e-8 e-9))))))))))))))))))))))) ((equal? sc1 7) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 8) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-6 e-7))))))))))))) ((equal? sc1 9) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 9 e-6 e-7))))))))))))) ((equal? sc1 10) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 10 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 11) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 11 e-6 e-7 e-8 e-9))))))))))))))))))))))) ((equal? sc1 12) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 12 e-6 e-7))))))))))))) ((equal? sc1 13) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-6)))))))) ((equal? sc1 14) (let ((act-25 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 14 e-6 e-7)))))))))))))(else (Binary-Utils-corrupt 'erased "CExp" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))) (define TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (List-Types-Prelude-C-43C-43 'erased e-7 arg-0) arg-1 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8)))))))))))))))))))))))) -(define TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (FC-Core-emptyFC) e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 (FC-Core-emptyFC) e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 (FC-Core-emptyFC) e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 (FC-Core-emptyFC) e-6 (vector 10 (FC-Core-emptyFC) 1)))))))))(else (Binary-Utils-corrupt 'erased "Binder" ext-0))))))))))) +(define TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 1) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 2) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 2 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 3) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2180 eta-0)))) arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 3 e-6 e-7 e-8)))))))))))))))))) ((equal? sc1 4) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1)))))))))))))) ((equal? sc1 5) (let ((act-25 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-6 (vector 10 (FC-Core-emptyFC) 1)))))))))(else (Binary-Utils-corrupt 'erased "Binder" ext-0))))))))))) (define TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-3 arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6))))))))))))))))))) (define TTC-Core-__Impl_TTC_Visibility (lambda () (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Visibility arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Visibility arg-2180 eta-0)))))) (define TTC-Core-__Impl_TTC_UseSide (lambda () (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__UseSide arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__UseSide arg-2180 eta-0)))))) @@ -3552,114 +3479,113 @@ (define TTC-Core-__Impl_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-2180 eta-0)))))) (define TTC-Core-__Impl_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-2177 arg-2179))) (lambda (arg-2180) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-2180))))) (define TTC-Core-getName (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (vector 1 e-3)))(else (let ((sc1 arg-1)) (vector 0 ))))))(else (let ((e-1 (- arg-0 1))) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 2))) (TTC-Core-getName e-1 e-7)))(else (let ((sc0 arg-1)) (vector 0 ))))))))))) -(define Normalise-Core-case--replaceC-39-15798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-2))) (else (Normalise-Core-n--17818-15539-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1)))))) -(define Normalise-Core-case--logEnv-15499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (Normalise-Core-n--17655-15389-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 arg-1)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--logGlueNF-15288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-28 (arg-317 eta-1))) ((arg-318 act-28) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Log-Options-Core-show_Show__LogLevel arg-8) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (arg-3) (Strings-Types-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-8))))))) eta-0))) (vector 1 act-28)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--logGlue-15185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-27 (arg-317 eta-1))) ((arg-318 act-27) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Log-Options-Core-show_Show__LogLevel arg-8) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (arg-3) (Strings-Types-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--logTermNFC-39-15077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-27 (arg-317 eta-1))) ((arg-318 act-27) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Log-Options-Core-show_Show__LogLevel arg-4) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (arg-3) (Strings-Types-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--logNF-14973 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-2 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-27 (arg-317 eta-1))) ((arg-318 act-27) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Log-Options-Core-show_Show__LogLevel arg-8) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (arg-3) (Strings-Types-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32convGen-14546 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--convGen-14509 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 arg-4 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6) eta-0)) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32convGen-14421 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-10)))(else (lambda (eta-0) (Context-Core-clearDefs arg-10 eta-0))))))) -(define Normalise-Core-case--convGen-14383 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (vector 1 arg-10))(else (Context-Core-clearDefs arg-10 eta-0)))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Normalise-Core-convGen_Convert__Closure arg-0 arg-11 e-5 arg-9 arg-5 arg-7 eta-0)))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--convGen-14317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-3 arg-5)) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--convGen-14220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--convGen-14138 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--convGen-14075 (lambda (arg-0 arg-1 arg-2 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--convGen-13833 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (((arg-2 arg-10) arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-6 arg-10) arg-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 e-5 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--convBinders-13695 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-5 arg-4 arg-3 (TT-Core-binderType 'erased arg-2) (TT-Core-binderType 'erased arg-1))))))) -(define Normalise-Core-case--convBinders-13627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 arg-3 arg-6)))))) -(define Normalise-Core-case--convBinders-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) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 arg-3 arg-6)))))) -(define Normalise-Core-case--chkConvHead-13465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37) (let ((sc0 arg-37)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-9 arg-8 arg-7 arg-36 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (FC-Core-C-61C-61_Eq__FC (let ((sc2 arg-20)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 arg-22)) (let ((e-0 (vector-ref sc2 1))) e-0))))))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12613 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12693 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--12437-12044-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-35 arg-5)))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12613 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--12437-12044-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-34 arg-6)))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12459 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12535 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12437-12043-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-33)))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12387 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12459 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--12437-12043-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-28))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12387 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-0 e-1 e-3 e-4 e-2 (let ((sc1 arg-22)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12327 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-1 _-0 (let ((sc1 arg-20)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12227 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((_-1 (vector 1 e-2))) ((Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12327 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-1 _-0 e-2 _-1 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 1)) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (let ((sc3 arg-8)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((_-2 (vector 1 e-2))) ((Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12327 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-1 _-1 e-2 _-2 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1)))))))))))) (else (lambda (eta-0) (vector 1 0))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32chkConvCaseBlock-12135 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((6) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-0 (vector 6 e-2 e-3)))) (let ((sc3 e-5)) (cond ((equal? sc3 1) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc4 arg-8)) (let ((e-30 (vector-ref sc4 1))) e-30))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((_-1 1)) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-4 (let ((sc6 arg-8)) (let ((e-32 (vector-ref sc6 1))) e-32))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((_-2 (vector 1 e-4))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 1))) (let ((_-3 (vector 1 e-8))) ((Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12327 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-0 e-2 e-3 _-0 _-1 e-4 _-2 e-8 _-3 (let ((sc8 e-4)) (let ((e-17 (vector-ref sc8 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--chkConvCaseBlock-12096 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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) ((6) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-8)) (let ((e-29 (vector-ref sc2 1))) e-29)) arg-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-0 (vector 6 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) ((6) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((act-25 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-1 (vector 0 e-6 (vector 6 e-8 e-7)))) (let ((sc6 e-9)) (cond ((equal? sc6 1) (let ((act-26 ((Context-Core-lookupCtxtExact arg-3 (let ((sc7 arg-8)) (let ((e-35 (vector-ref sc7 1))) e-35))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((_-2 1)) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Context-Core-lookupCtxtExact arg-4 (let ((sc9 arg-8)) (let ((e-37 (vector-ref sc9 1))) e-37))) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (let ((_-3 (vector 1 e-11))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((_-4 (vector 1 e-13))) ((Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12327 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-0 e-2 e-3 _-0 e-6 e-8 e-7 _-1 _-2 e-11 _-3 e-13 _-4 (let ((sc11 e-11)) (let ((e-17 (vector-ref sc11 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0)))))))))))))(else (vector 1 1)))))))(else (vector 1 1))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkSameDefs-11893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-n--12434-11581-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-16 e-1))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32chkSameDefs-11846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVars arg-10 e-3 arg-6 (vector 0 ) arg-12 e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) ((Normalise-Core-n--12434-11581-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 e-3 e-8) eta-0))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--chkSameDefs-11815 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact arg-3 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((act-25 ((Normalise-Core-getMatchingVars e-3 e-12 arg-6 (vector 0 ) e-4 e-11) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) ((Normalise-Core-n--12434-11581-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-12 e-15) eta-0))) (else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32chkSameDefsC-44convertMatches-11672 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-7 arg-6 arg-5 arg-17 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--12434-11581-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Basics-Prelude-C-38C-38 e-5 (lambda () e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--chkSameDefsC-44convertMatches-11631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--caseC-32blockC-32inC-32chkSameDefsC-44convertMatches-11672 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 'erased arg-14 'erased arg-16 e-1 (Normalise-Core-n--12434-11580-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-14 arg-1)))) (else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32getMatchingVars-11470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-6)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--getMatchingVars-11437 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term arg-1 arg-7 (Env-Core-mkEnv (TT-Core-getLoc 'erased arg-2) arg-1) e-1 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 1 arg-6))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--getMatchingVarAlts-11335 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-7 e-1 arg-3 arg-5))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--getMatchingVarAlt-11240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-7 arg-6 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getMatchingVarAlt-11103 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--12425-10850-dropP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-2 arg-6 eta-1)) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32getMatchingVarAlt-11065 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVars (List-Types-Prelude-C-43C-43 'erased arg-2 arg-0) (List-Types-Prelude-C-43C-43 'erased arg-6 arg-1) arg-11 e-1 arg-3 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--12425-10850-dropP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-2 arg-6 eta-1)) e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--getMatchingVarAlt-11036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Normalise-Core-case--caseC-32blockC-32inC-32getMatchingVarAlt-11065 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Normalise-Core-n--12425-10848-extend arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-2 arg-6 arg-10))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-case--tryUpdate-10335 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-6 arg-5 arg-8)))) -(define Normalise-Core-case--tryUpdateC-44findIdx-10264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 arg-11)) (else (Normalise-Core-n--11889-10238-findIdx arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 arg-12 arg-13)))))) -(define Normalise-Core-case--quoteGenNF-9602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-10))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 arg-3) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-10))))))))))))) -(define Normalise-Core-case--quoteGenNFC-44toHolesOnly-9522 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--quoteHead-9077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2))))))))) -(define Normalise-Core-case--quoteHeadC-44findName-9032 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 (+ 1 arg-13)))) -(define Normalise-Core-case--caseC-32blockC-32inC-32quoteHeadC-44findName-8972 (lambda (arg-0 arg-1 arg-2 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--quoteHeadC-44findName-8895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--10306-8879-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--quoteHead-8837 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (vector 1 (vector 0 arg-8 arg-4 arg-11)))) -(define Normalise-Core-case--quoteHeadC-44addLater-8783 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32evalDef-8266 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (arg-8)))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32evalDef-8180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (arg-8)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-15 e-5 arg-14 arg-12 e-6 arg-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (vector 1 e-1)))(else (vector 1 (arg-8)))))))))))))))))))) -(define Normalise-Core-case--evalDef-8142 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (Normalise-Core-case--caseC-32blockC-32inC-32evalDef-8180 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Normalise-Core-argsFromStack arg-0 arg-1 'erased arg-3 arg-9))) (else (lambda (eta-0) (vector 1 (arg-8)))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32evalOp-8055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) -(define Normalise-Core-case--evalOp-8022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--7026-7986-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Normalise-Core-case--caseC-32blockC-32inC-32evalOp-8055 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-6 (arg-6 e-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 (arg-3)))))))))(else (lambda (eta-0) (vector 1 (arg-3))))))))(else (lambda (eta-0) (vector 1 (arg-3)))))))) -(define Normalise-Core-case--argsFromStack-7954 (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))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-5 e-2) e-3))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32evalTree-7827 (lambda (arg-0 arg-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--evalTree-7708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 arg-8 arg-10 arg-9 (TT-Core-embed 'erased 'erased arg-5) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 2 ))))(else (let ((e-3 (- e-2 1))) (let ((optsC-39 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-9 e-8 e-4 e-5 (vector 1 e-3) e-7))))))))))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 optsC-39 arg-10 arg-9 (TT-Core-embed 'erased 'erased arg-5) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))))))))))))) -(define Normalise-Core-case--findAlt-7574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1))))) ((1) (Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5)) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Normalise-Core-case--tryAlt-7475 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-10 arg-9 arg-8 arg-7 arg-6 arg-4)) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Normalise-Core-case--tryAlt-7359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-6)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Normalise-Core-case--tryAlt-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) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-13 arg-12 arg-11 arg-10 arg-9 arg-7)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Normalise-Core-case--tryAlt-7092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Normalise-Core-case--tryAlt-6998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Normalise-Core-case--evalConAlt-6925 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-evalTree arg-0 arg-1 (List-Types-Prelude-C-43C-43 'erased arg-4 arg-2) arg-3 arg-11 e-1 arg-9 arg-8 arg-7 arg-5))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32evalRef-6715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-1 arg-8 arg-7 (let ((sc1 arg-10)) (let ((e-7 (vector-ref sc1 8))) e-7)) (let ((sc1 arg-10)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11)) arg-4 arg-3))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32evalRef-6678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-updateLimit arg-6 arg-5 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc3 arg-10)) (let ((e-7 (vector-ref sc3 8))) e-7)) (let ((sc3 arg-10)) (let ((e-17 (vector-ref sc3 18))) e-17)) (let ((sc3 arg-10)) (let ((e-11 (vector-ref sc3 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3))))))))))))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32evalRef-6645 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc1 arg-10)) (let ((e-15 (vector-ref sc1 16))) e-15)) arg-7 arg-5 arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 arg-5 e-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc5 arg-10)) (let ((e-7 (vector-ref sc5 8))) e-7)) (let ((sc5 arg-10)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 arg-10)) (let ((e-11 (vector-ref sc5 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) -(define Normalise-Core-case--evalRef-6616 (lambda (arg-0 arg-1 arg-2 arg-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 (Basics-Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) (lambda () (Context-Core-reducibleInAny (vector 1 (let ((sc1 arg-0)) (let ((e-2 (vector-ref sc1 3))) e-2)) (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3))) (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (let ((sc1 redok)) (cond ((equal? sc1 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc2 e-1)) (let ((e-15 (vector-ref sc2 16))) e-15)) arg-7 arg-5 arg-0 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 arg-5 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-3 arg-8 arg-7 (let ((sc6 e-1)) (let ((e-7 (vector-ref sc6 8))) e-7)) (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) (let ((sc6 e-1)) (let ((e-11 (vector-ref sc6 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32evalLocal-6399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-3 (vector-ref sc0 3))) (Normalise-Core-eval arg-0 arg-1 arg-3 (vector 0 ) arg-10 (vector 0 ) e-3 arg-5)))(else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5)))))))) -(define Normalise-Core-case--evalLocal-6367 (lambda (arg-0 arg-1 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--caseC-32blockC-32inC-32evalLocal-6399 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-3641) (TT-Core-weaken_Weaken__Term n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (TT-Core-weakenNs_Weaken__Term vars ns arg-3645))))) arg-3 arg-6 'erased arg-10))) (else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5)))))))) -(define Normalise-Core-case--eval-6189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-9 (vector 1 e-4 arg-8) (vector 0 e-1 (vector 0 ) 0) arg-7))))(else (lambda (eta-0) (vector 1 (vector 7 arg-6 arg-5 arg-10 arg-7)))))))) -(define Normalise-Core-case--eval-6076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8)) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-5 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-7 arg-6 e-5 e-6)))))))))))))))))) -(define Normalise-Core-case--eval-5915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-14 arg-13 tm (vector 0 ))) arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-11 arg-5 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 arg-5 arg-3) defsC-39 arg-1 arg-14 (vector 1 arg arg-13) arg-6 arg-12)))))))))))) (else (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 arg-5 arg-3) arg-14 (vector 1 (vector 0 arg-3 arg-1 arg-13 arg-14 arg-7) arg-13) arg-6 arg-12)))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32updateLimit-5716 (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--6850-5595-set arg-0 arg-1 arg-1 arg-2 e-7))))))))))))) -(define Normalise-Core-case--caseC-32blockC-32inC-32updateLimit-5674 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((e-3 (- e-2 1))) (lambda (eta-0) (vector 1 (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-9 e-8 e-4 e-5 e-6 (Normalise-Core-n--6850-5595-set arg-0 arg-1 arg-1 e-3 e-7)))))))))))))))))))))))) +(define Normalise-Core-case--replaceC-39-15723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-2))) (else (Normalise-Core-n--17546-15464-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1)))))) +(define Normalise-Core-case--logEnv-15428 (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--17388-15316-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 arg-1)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--logGlueNF-15225 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-28 (arg-274 eta-1))) ((arg-275 act-28) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat arg-4) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (arg-3) (Strings-Types-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-8))))))) eta-0))) (vector 1 act-28)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--logGlue-15128 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-27 (arg-274 eta-1))) ((arg-275 act-27) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat arg-4) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (arg-3) (Strings-Types-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--logTermNF-15031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-27 (arg-274 eta-1))) ((arg-275 act-27) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat arg-4) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (arg-3) (Strings-Types-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--logNF-14931 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-2 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-27 (arg-274 eta-1))) ((arg-275 act-27) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "LOG " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat arg-4) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (arg-3) (Strings-Types-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))) eta-0))) (vector 1 act-27))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32convGen-14504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--convGen-14467 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 arg-4 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Normalise-Core-allConv arg-0 arg-11 arg-10 arg-9 arg-3 arg-6) eta-0)) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32convGen-14379 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-10)))(else (lambda (eta-0) (Context-Core-clearDefs arg-10 eta-0))))))) +(define Normalise-Core-case--convGen-14341 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (vector 1 arg-10))(else (Context-Core-clearDefs arg-10 eta-0)))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Normalise-Core-convGen_Convert__Closure arg-0 arg-11 e-5 arg-9 arg-5 arg-7 eta-0)))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--convGen-14275 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-3 arg-5)) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--convGen-14178 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--convGen-14096 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-13 arg-12 arg-11 arg-5 arg-8)) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--convGen-14033 (lambda (arg-0 arg-1 arg-2 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--convGen-13791 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (((arg-2 arg-10) arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-6 arg-10) arg-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 e-5 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--convBinders-13653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-5 arg-4 arg-3 (TT-Core-binderType 'erased arg-2) (TT-Core-binderType 'erased arg-1))))))) +(define Normalise-Core-case--convBinders-13593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)))))) +(define Normalise-Core-case--convBinders-13529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)))))) +(define Normalise-Core-case--chkConvHead-13447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Normalise-Core-allConv arg-0 arg-9 arg-8 arg-7 arg-1 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12675 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37) (let ((sc0 arg-37)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-9 arg-8 arg-7 arg-36 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (FC-Core-C-61C-61_Eq__FC (let ((sc2 arg-20)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 arg-22)) (let ((e-0 (vector-ref sc2 1))) e-0))))))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-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 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12675 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--12236-12026-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-35 arg-5)))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12517 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12595 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--12236-12026-getScrutinee arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-34 arg-6)))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12441 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12517 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12236-12025-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-33)))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12441 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--12236-12025-findArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-28))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12369 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-0 e-1 e-3 e-4 e-2 (let ((sc1 arg-22)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12260 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12309 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-1 _-0 (let ((sc1 arg-20)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12209 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((_-1 (vector 1 e-2))) ((Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12309 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-1 _-0 e-2 _-1 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 1)) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (let ((sc3 arg-8)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((_-2 (vector 1 e-2))) ((Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12309 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 _-0 e-1 _-1 e-2 _-2 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1)))))))))))) (else (lambda (eta-0) (vector 1 0))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32chkConvCaseBlock-12117 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) ((6) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-0 (vector 6 e-2 e-3)))) (let ((sc3 e-5)) (cond ((equal? sc3 1) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc4 arg-8)) (let ((e-30 (vector-ref sc4 1))) e-30))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((_-1 1)) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-4 (let ((sc6 arg-8)) (let ((e-32 (vector-ref sc6 1))) e-32))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((_-2 (vector 1 e-4))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((1) (let ((e-8 (vector-ref sc7 1))) (let ((_-3 (vector 1 e-8))) ((Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12309 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-0 e-2 e-3 _-0 _-1 e-4 _-2 e-8 _-3 (let ((sc8 e-4)) (let ((e-17 (vector-ref sc8 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--chkConvCaseBlock-12078 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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) ((6) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-8)) (let ((e-29 (vector-ref sc2 1))) e-29)) arg-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-0 (vector 6 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) ((6) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((act-25 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-1 (vector 0 e-6 (vector 6 e-8 e-7)))) (let ((sc6 e-9)) (cond ((equal? sc6 1) (let ((act-26 ((Context-Core-lookupCtxtExact arg-3 (let ((sc7 arg-8)) (let ((e-35 (vector-ref sc7 1))) e-35))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((_-2 1)) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Context-Core-lookupCtxtExact arg-4 (let ((sc9 arg-8)) (let ((e-37 (vector-ref sc9 1))) e-37))) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (let ((_-3 (vector 1 e-11))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((1) (let ((e-13 (vector-ref sc10 1))) (let ((_-4 (vector 1 e-13))) ((Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12309 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-0 e-2 e-3 _-0 e-6 e-8 e-7 _-1 _-2 e-11 _-3 e-13 _-4 (let ((sc11 e-11)) (let ((e-17 (vector-ref sc11 18))) e-17))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0)))))))))))))(else (vector 1 1)))))))(else (vector 1 1))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkSameDefs-11875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-n--12233-11563-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-16 e-1))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32chkSameDefs-11828 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVars arg-10 e-3 arg-6 (vector 0 ) arg-12 e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) ((Normalise-Core-n--12233-11563-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 e-3 e-8) eta-0))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--chkSameDefs-11797 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact arg-3 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((act-25 ((Normalise-Core-getMatchingVars e-3 e-12 arg-6 (vector 0 ) e-4 e-11) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((1) (let ((e-15 (vector-ref sc6 1))) ((Normalise-Core-n--12233-11563-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-12 e-15) eta-0))) (else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32chkSameDefsC-44convertMatches-11654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-7 arg-6 arg-5 arg-17 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--12233-11563-convertMatches arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Basics-Prelude-C-38C-38 e-5 (lambda () e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--chkSameDefsC-44convertMatches-11613 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--caseC-32blockC-32inC-32chkSameDefsC-44convertMatches-11654 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased arg-12 'erased arg-14 'erased arg-16 e-1 (Normalise-Core-n--12233-11562-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-14 arg-1)))) (else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32getMatchingVars-11452 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-6)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--getMatchingVars-11419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term arg-1 arg-7 (Env-Core-mkEnv (TT-Core-getLoc 'erased arg-2) arg-1) e-1 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 1 arg-6))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--getMatchingVarAlts-11317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-7 e-1 arg-3 arg-5))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--getMatchingVarAlt-11222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-7 arg-6 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getMatchingVarAlt-11085 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--12224-10832-dropP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-2 arg-6 eta-1)) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32getMatchingVarAlt-11047 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVars (List-Types-Prelude-C-43C-43 'erased arg-2 arg-0) (List-Types-Prelude-C-43C-43 'erased arg-6 arg-1) arg-11 e-1 arg-3 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Normalise-Core-n--12224-10832-dropP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-2 arg-6 eta-1)) e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--getMatchingVarAlt-11018 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Normalise-Core-case--caseC-32blockC-32inC-32getMatchingVarAlt-11047 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Normalise-Core-n--12224-10830-extend arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-2 arg-6 arg-10))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-case--tryUpdate-10317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-6 arg-5 arg-8)))) +(define Normalise-Core-case--tryUpdateC-44findIdx-10246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 arg-11)) (else (Normalise-Core-n--11689-10220-findIdx arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 arg-12 arg-13)))))) +(define Normalise-Core-case--quoteGenNF-9584 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-10))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 arg-3) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-10))))))))))))) +(define Normalise-Core-case--quoteGenNFC-44toHolesOnly-9504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--quoteHead-9059 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2))))))))) +(define Normalise-Core-case--quoteHeadC-44findName-9014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 (+ 1 arg-13)))) +(define Normalise-Core-case--caseC-32blockC-32inC-32quoteHeadC-44findName-8954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (vector 1 (+ 1 arg-14)))) +(define Normalise-Core-case--quoteHeadC-44findName-8877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 0)) (else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--10107-8861-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--quoteHead-8819 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (vector 1 (vector 0 arg-8 arg-4 arg-11)))) +(define Normalise-Core-case--quoteHeadC-44addLater-8765 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32evalDef-8248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (arg-8)))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32evalDef-8162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (arg-8)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-15 e-5 arg-14 arg-12 e-6 arg-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (vector 1 e-1)))(else (vector 1 (arg-8)))))))))))))))))))) +(define Normalise-Core-case--evalDef-8124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--caseC-32blockC-32inC-32evalDef-8162 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Normalise-Core-argsFromStack arg-0 arg-1 'erased arg-3 arg-9))) (else (lambda (eta-0) (vector 1 (arg-8)))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32evalOp-8037 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (arg-3)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) +(define Normalise-Core-case--evalOp-8004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--6844-7968-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Normalise-Core-case--caseC-32blockC-32inC-32evalOp-8037 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-6 (arg-6 e-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 (arg-3)))))))))(else (lambda (eta-0) (vector 1 (arg-3))))))))(else (lambda (eta-0) (vector 1 (arg-3)))))))) +(define Normalise-Core-case--argsFromStack-7936 (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))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-5 e-2) e-3))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32evalTree-7809 (lambda (arg-0 arg-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--evalTree-7690 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 arg-8 arg-10 arg-9 (TT-Core-embed 'erased 'erased arg-5) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 2 ))))(else (let ((e-3 (- e-2 1))) (let ((optsC-39 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-9 e-8 e-4 e-5 (vector 1 e-3) e-7))))))))))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 optsC-39 arg-10 arg-9 (TT-Core-embed 'erased 'erased arg-5) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5))))))))))))))))))) +(define Normalise-Core-case--findAlt-7556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-1))))) ((1) (Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5)) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Normalise-Core-case--tryAlt-7457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-10 arg-9 arg-8 arg-7 arg-6 arg-4)) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Normalise-Core-case--tryAlt-7341 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-6)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Normalise-Core-case--tryAlt-7176 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-13 arg-12 arg-11 arg-10 arg-9 arg-7)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Normalise-Core-case--tryAlt-7074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Normalise-Core-case--tryAlt-6980 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-17 arg-16 arg-15 arg-14 arg-13 arg-8 arg-4 arg-10)) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Normalise-Core-case--evalConAlt-6907 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-evalTree arg-0 arg-1 (List-Types-Prelude-C-43C-43 'erased arg-4 arg-2) arg-3 arg-11 e-1 arg-9 arg-8 arg-7 arg-5))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32evalRef-6697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-1 arg-8 arg-7 (let ((sc1 arg-10)) (let ((e-7 (vector-ref sc1 8))) e-7)) (let ((sc1 arg-10)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 arg-10)) (let ((e-11 (vector-ref sc1 12))) e-11)) arg-4 arg-3))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32evalRef-6660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-updateLimit arg-6 arg-5 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc3 arg-10)) (let ((e-7 (vector-ref sc3 8))) e-7)) (let ((sc3 arg-10)) (let ((e-17 (vector-ref sc3 18))) e-17)) (let ((sc3 arg-10)) (let ((e-11 (vector-ref sc3 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3))))))))))))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32evalRef-6627 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc1 arg-10)) (let ((e-15 (vector-ref sc1 16))) e-15)) arg-7 arg-5 arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 arg-5 e-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-2 arg-8 arg-7 (let ((sc5 arg-10)) (let ((e-7 (vector-ref sc5 8))) e-7)) (let ((sc5 arg-10)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 arg-10)) (let ((e-11 (vector-ref sc5 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) +(define Normalise-Core-case--evalRef-6598 (lambda (arg-0 arg-1 arg-2 arg-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 (Basics-Prelude-C-124C-124 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)) (lambda () (Context-Core-reducibleInAny (vector 1 (let ((sc1 arg-0)) (let ((e-2 (vector-ref sc1 3))) e-2)) (let ((sc1 arg-0)) (let ((e-3 (vector-ref sc1 4))) e-3))) (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (let ((sc1 redok)) (cond ((equal? sc1 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-useMeta (let ((sc2 e-1)) (let ((e-15 (vector-ref sc2 16))) e-15)) arg-7 arg-5 arg-0 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-updateLimit arg-6 arg-5 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-9 e-3 arg-8 arg-7 (let ((sc6 e-1)) (let ((e-7 (vector-ref sc6 8))) e-7)) (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) (let ((sc6 e-1)) (let ((e-11 (vector-ref sc6 12))) e-11)) arg-4 arg-3) eta-0))) (else (vector 1 (arg-3)))))))))))) (else (vector 1 (arg-3)))))))))))) (else (lambda (eta-0) (vector 1 (arg-3))))))))) (else (lambda (eta-0) (vector 1 (arg-3)))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32evalLocal-6383 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (Normalise-Core-eval arg-0 arg-1 arg-3 (vector 0 ) arg-10 (vector 0 ) e-2 arg-5)))(else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5)))))))) +(define Normalise-Core-case--evalLocal-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)) (cond ((equal? sc0 0) (Normalise-Core-case--caseC-32blockC-32inC-32evalLocal-6383 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-3584) (TT-Core-weaken_Weaken__Term n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (TT-Core-weakenNs_Weaken__Term vars ns arg-3588))))) arg-3 arg-6 'erased arg-10))) (else (lambda (eta-0) (vector 1 (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5)))))))) +(define Normalise-Core-case--eval-6181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-9 (vector 1 e-4 arg-8) (vector 0 e-1 (vector 0 ) 0) arg-7))))(else (lambda (eta-0) (vector 1 (vector 7 arg-6 arg-5 arg-10 arg-7)))))))) +(define Normalise-Core-case--eval-6068 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8)) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-5 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-7 arg-6 e-5 e-6)))))))))))))))))) +(define Normalise-Core-case--eval-5911 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-13 arg-12 tm (vector 0 ))) arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-10 arg-4 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 arg-4 arg-3) defsC-39 arg-1 arg-13 (vector 1 arg arg-12) arg-5 arg-11)))))))))))) (else (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 arg-4 arg-3) arg-13 (vector 1 (vector 0 arg-3 arg-1 arg-12 arg-13 arg-6) arg-12) arg-5 arg-11)))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32updateLimit-5716 (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--6668-5595-set arg-0 arg-1 arg-1 arg-2 e-7))))))))))))) +(define Normalise-Core-case--caseC-32blockC-32inC-32updateLimit-5674 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((e-3 (- e-2 1))) (lambda (eta-0) (vector 1 (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-9 e-8 e-4 e-5 e-6 (Normalise-Core-n--6668-5595-set arg-0 arg-1 arg-1 e-3 e-7)))))))))))))))))))))))) (define Normalise-Core-case--updateLimit-5661 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Normalise-Core-case--caseC-32blockC-32inC-32updateLimit-5674 arg-0 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Name-Core-C-61C-61_Eq__Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) arg-1 (let ((sc1 arg-0)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-0)))))))) -(define Normalise-Core-case--updateLimitC-44set-5615 (lambda (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--6850-5595-set arg-0 arg-1 arg-6 arg-5 arg-4))))))) +(define Normalise-Core-case--updateLimitC-44set-5615 (lambda (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--6668-5595-set arg-0 arg-1 arg-6 arg-5 arg-4))))))) (define Normalise-Core-case--useMeta-5565 (lambda (arg-0 arg-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 8 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--caseC-32blockC-32inC-32useMeta-5536 (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--useMeta-5510 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 (IntMap-Data-insert 'erased arg-0 (vector 0 ) e-3) e-4 e-5 e-6 e-7)))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-n--12425-10847-weakenP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-12 arg-14 e-2) (TT-Core-weaken_Weaken__Var arg-13 arg-15 e-3))))))) -(define Normalise-Core-n--11889-10408-weakenP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-7 arg-0 e-2) (TT-Core-weaken_Weaken__Var arg-7 arg-1 e-3))))))) -(define Normalise-Core-n--11889-10406-tryUpdatePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 ))) ((0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) ((2) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-4) (lambda (bind-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 3 bind-0)))))))))) -(define Normalise-Core-n--11889-10407-tryUpdateB (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11889-10406-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-4) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 e-1 e-2 bind-0 bind-1))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-8) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-9) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 e-6 e-7 bind-0 bind-1))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11889-10406-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-14) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 bind-0 bind-1)))))))))))(else (vector 0 )))))) -(define Normalise-Core-n--10321-9500-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--7024-7863-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--7024-7863-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--6850-5595-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--updateLimitC-44set-5615 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--17818-15539-repSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-n--17818-15539-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((xC-39 (vector 2 "tmp" arg-6))) (let ((act-25 (let ((act-25 (((e-4 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 1 e-1 (vector 0 ) xC-39))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (Normalise-Core-replaceC-39 arg-0 (b+ arg-6 1 63) arg-5 arg-4 arg-3 arg-2 e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 e-5 (TT-Core-refsToLocals 'erased (vector 1 e-2 (vector 0 )) (vector 1 e-2 xC-39 (vector 0 )) e-6)))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 (vector 1 e-6 e-7 (vector 0 )) eta-0))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17818-15538-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-6 e-7 (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 e-9 e-5)))))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17818-15538-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 2 e-10 e-11 e-12 e-13 (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-10 e-7 e-5)))))))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17818-15538-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 3 e-16 e-17 e-18 e-19 (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-16 e-7 e-5)))))))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--17818-15539-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--17818-15539-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--17818-15539-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-5 e-33) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-5 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-31 e-32 e-5 e-6)))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17818-15538-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--17818-15539-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-7 eta-0)))))))))))) -(define Normalise-Core-n--17818-15538-repArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-5 arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 ext-0)))))))) -(define Normalise-Core-n--17655-15388-lvl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((Log-Options-Core-mkLogLevel arg-4) arg-3))) -(define Normalise-Core-n--12437-12044-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--12437-12044-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--12434-11580-getArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased e-2))))(else (let ((e-0 (- arg-8 1))) (let ((sc0 arg-9)) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--12434-11580-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0 e-6)))))))))))) -(define Normalise-Core-n--10306-8879-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--quoteHeadC-44findName-8895 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 (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--10306-8879-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--11889-10238-findIdx (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--tryUpdateC-44findIdx-10264 arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 'erased e-6 'erased e-7 e-3 arg-9 (Types-Prelude-C-61C-61_Eq__Nat e-6 arg-9)))))))))))) -(define Normalise-Core-n--12437-12043-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--12425-10848-extend (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (Types-Prelude-pure_Applicative__Maybe 'erased arg-14))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12425-10848-extend arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3 e-7 arg-14) (lambda (rest) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 0 0) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--12425-10847-weakenP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-6 (List-Types-Prelude-C-43C-43 'erased e-3 arg-0) (List-Types-Prelude-C-43C-43 'erased e-7 arg-1) eta-0)) rest))))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Normalise-Core-n--7026-7986-evalAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-0 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--7026-7986-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) -(define Normalise-Core-n--17655-15389-dumpEnv (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)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNFC-39 e-3 arg-5 (Normalise-Core-n--17655-15388-lvl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (lambda () (Strings-Types-Prelude-C-43C-43 arg-2 (Strings-Types-Prelude-C-43C-43 ": let " (Name-Core-show_Show__Name e-2)))) e-9 e-13 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logTermNFC-39 e-3 arg-5 (Normalise-Core-n--17655-15388-lvl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (lambda () (Strings-Types-Prelude-C-43C-43 arg-2 (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-12) (Strings-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))) e-9 e-14 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else ((Normalise-Core-n--17655-15389-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-9) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNFC-39 e-3 arg-5 (Normalise-Core-n--17655-15388-lvl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (lambda () (Strings-Types-Prelude-C-43C-43 arg-2 (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (TT-Core-multiplicity 'erased e-8)) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-3 d x)))) (TT-Core-piInfo 'erased e-8)) (Strings-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))))) e-9 (TT-Core-binderType 'erased e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((Normalise-Core-n--17655-15389-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-9) eta-0))))))))))))))))))) -(define Normalise-Core-n--12425-10849-dropV (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 1 arg-14)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-14)) (cond ((equal? sc1 0) (vector 0 ))(else (let ((e-8 (- arg-14 1))) (Normalise-Core-n--12425-10849-dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased e-3 e-8))))))))))) -(define Normalise-Core-n--12425-10850-dropP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12425-10849-dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased arg-12 e-2) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12425-10849-dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased arg-13 e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 bind-0 bind-1))))))))))) -(define Normalise-Core-n--12434-11581-convertMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--chkSameDefsC-44convertMatches-11631 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-6 'erased e-7 'erased e-3 (Normalise-Core-n--12434-11580-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-2)))))))))))) -(define Normalise-Core-n--7021-7425-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) 0) ((3) 0) ((8) 0) ((0) 0) ((10) 0)(else 1))))) -(define Normalise-Core-n--7013-5865-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--7013-5865-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--7014-6289-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-27 (vector-ref sc2 1))) (let ((e-28 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) e-27) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((Normalise-Core-n--7014-6289-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-28) eta-0))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))(else (lambda (eta-0) (vector 1 arg-8)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-7 1 e-6 e-30 e-31 (List-Types-Prelude-C-43C-43 'erased e-8 arg-9) (lambda () (vector 1 e-6 (vector 1 e-30 e-31) e-8)))))) ((0) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 (vector 0 ) arg-7 e-6 e-34 e-35 'erased (List-Types-Prelude-C-43C-43 'erased e-8 arg-9) (vector 0 )))))(else (lambda (eta-0) (vector 1 arg-8))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 2 e-10 e-11 e-12 e-13 (List-Types-Prelude-C-43C-43 'erased e-14 arg-9)))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 3 e-16 e-17 e-18 e-19 (List-Types-Prelude-C-43C-43 'erased e-20 arg-9))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))) -(define Normalise-Core-n--10306-8754-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--quoteHeadC-44addLater-8783 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--10306-8754-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-n--12224-10829-weakenP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-12 arg-14 e-2) (TT-Core-weaken_Weaken__Var arg-13 arg-15 e-3))))))) +(define Normalise-Core-n--11689-10390-weakenP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (TT-Core-weaken_Weaken__Var arg-7 arg-0 e-2) (TT-Core-weaken_Weaken__Var arg-7 arg-1 e-3))))))) +(define Normalise-Core-n--11689-10388-tryUpdatePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 ))) ((0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) ((2) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-4) (lambda (bind-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 3 bind-0)))))))))) +(define Normalise-Core-n--11689-10389-tryUpdateB (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11689-10388-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 e-1 bind-0 bind-1)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-6) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-7) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11689-10388-tryUpdatePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-6 e-11) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 e-9 bind-0 bind-1))))))))))(else (vector 0 )))))) +(define Normalise-Core-n--10122-9482-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--6842-7845-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--6842-7845-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--6668-5595-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--updateLimitC-44set-5615 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--17546-15464-repSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-n--17546-15464-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((xC-39 (vector 2 "tmp" arg-6))) (let ((act-25 (let ((act-25 (((e-4 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 1 e-1 (vector 0 ) xC-39))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (Normalise-Core-replaceC-39 arg-0 (b+ arg-6 1 63) arg-5 arg-4 arg-3 arg-2 e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 e-5 (TT-Core-refsToLocals 'erased (vector 1 e-2 (vector 0 )) (vector 1 e-2 xC-39 (vector 0 )) e-6)))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 (vector 1 e-6 e-7 (vector 0 )) eta-0))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17546-15463-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-6 e-7 (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 e-9 e-5)))))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17546-15463-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 2 e-10 e-11 e-12 e-13 (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-10 e-7 e-5)))))))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17546-15463-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-4 (vector 3 e-16 e-17 e-18 e-19 (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-16 e-7 e-5)))))))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--17546-15464-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--17546-15464-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-n--17546-15464-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-5 e-33) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-5 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-31 e-32 e-5 e-6)))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--17546-15463-repArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--17546-15464-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-7 eta-0)))))))))))) +(define Normalise-Core-n--17546-15463-repArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-5 arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-replaceC-39 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 ext-0)))))))) +(define Normalise-Core-n--12236-12026-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--12236-12026-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--12233-11562-getArgPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-8)) (cond ((equal? sc0 0) (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased e-2))))(else (let ((e-0 (- arg-8 1))) (let ((sc0 arg-9)) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-n--12233-11562-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0 e-6)))))))))))) +(define Normalise-Core-n--10107-8861-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--quoteHeadC-44findName-8877 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 (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--10107-8861-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--11689-10220-findIdx (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--tryUpdateC-44findIdx-10246 arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 'erased e-6 'erased e-7 e-3 arg-9 (Types-Prelude-C-61C-61_Eq__Nat e-6 arg-9)))))))))))) +(define Normalise-Core-n--12236-12025-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--12224-10830-extend (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (Types-Prelude-pure_Applicative__Maybe 'erased arg-14))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12224-10830-extend arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3 e-7 arg-14) (lambda (rest) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 0 0) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--12224-10829-weakenP arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 e-6 (List-Types-Prelude-C-43C-43 'erased e-3 arg-0) (List-Types-Prelude-C-43C-43 'erased e-7 arg-1) eta-0)) rest))))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Normalise-Core-n--6844-7968-evalAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-2 arg-0 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-n--6844-7968-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) +(define Normalise-Core-n--17388-15316-dumpEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Types-Prelude-C-43C-43 arg-2 (Strings-Types-Prelude-C-43C-43 ": let " (Name-Core-show_Show__Name e-2)))) e-9 e-12 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Types-Prelude-C-43C-43 arg-2 (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-11) (Strings-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))) e-9 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else ((Normalise-Core-n--17388-15316-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-3 arg-4 arg-3 (lambda () (Strings-Types-Prelude-C-43C-43 arg-2 (Strings-Types-Prelude-C-43C-43 ":" (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (TT-Core-multiplicity 'erased e-8)) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-3 d x)))) (TT-Core-piInfo 'erased e-8)) (Strings-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-2)))))))) e-9 (TT-Core-binderType 'erased e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((Normalise-Core-n--17388-15316-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0))))))))))))))))))) +(define Normalise-Core-n--12224-10831-dropV (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 1 arg-14)) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-14)) (cond ((equal? sc1 0) (vector 0 ))(else (let ((e-8 (- arg-14 1))) (Normalise-Core-n--12224-10831-dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased e-3 e-8))))))))))) +(define Normalise-Core-n--12224-10832-dropP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12224-10831-dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased arg-12 e-2) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--12224-10831-dropV arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 'erased arg-13 e-3) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 bind-0 bind-1))))))))))) +(define Normalise-Core-n--12233-11563-convertMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Normalise-Core-case--chkSameDefsC-44convertMatches-11613 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-6 'erased e-7 'erased e-3 (Normalise-Core-n--12233-11562-getArgPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-2)))))))))))) +(define Normalise-Core-n--6839-7407-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) 0) ((3) 0) ((8) 0) ((0) 0) ((10) 0)(else 1))))) +(define Normalise-Core-n--6831-5865-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--6831-5865-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--6832-6281-applyToStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) e-26) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((Normalise-Core-n--6832-6281-applyToStack arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-27) eta-0))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))(else (lambda (eta-0) (vector 1 arg-8)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-7 1 e-6 e-29 e-30 (List-Types-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-Types-Prelude-C-43C-43 'erased e-8 arg-9) (vector 0 )))))(else (lambda (eta-0) (vector 1 arg-8))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 2 e-10 e-11 e-12 e-13 (List-Types-Prelude-C-43C-43 'erased e-14 arg-9)))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (vector 1 (vector 3 e-16 e-17 e-18 e-19 (List-Types-Prelude-C-43C-43 'erased e-20 arg-9))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))) +(define Normalise-Core-n--10107-8736-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--quoteHeadC-44addLater-8765 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--10107-8736-addLater arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 'erased arg-13 e-3 'erased))))))))) (define Normalise-Core-quote_Quote__Term (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-quoteGen_Quote__Term arg-0 e-5 arg-1 arg-2 arg-3 ext-0)))))))) (define Normalise-Core-quote_Quote__NF (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-quoteGen_Quote__NF arg-0 e-5 arg-1 arg-2 arg-3) ext-0)))))))) (define Normalise-Core-quote_Quote__Closure (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-quoteGen_Quote__Closure arg-0 e-5 arg-1 arg-2 arg-3 ext-0)))))))) @@ -3670,29 +3596,29 @@ (define Normalise-Core-convert_Convert__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-convGen_Convert__NF arg-0 e-5 arg-1 arg-2 arg-3 arg-4) ext-0)))))))) (define Normalise-Core-convert_Convert__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-convGen_Convert__Closure arg-0 e-5 arg-1 arg-2 arg-3 arg-4 ext-0)))))))) (define Normalise-Core-convGen_Convert__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 arg-3 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-2 arg-3 arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-5 e-6) ext-0))))))))))))) -(define Normalise-Core-convGen_Convert__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (let ((e-100 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-109 (vector-ref sc1 3))) (let ((e-110 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Normalise-Core-genName arg-1 "conv" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((c (vector 0 (vector 0 ) (Value-Core-defaultOpts) (vector 0 ) arg-3 (vector 1 e-97 (vector 0 ) e-5)))) (let ((act-25 ((Normalise-Core-convBinders arg-0 arg-1 arg-2 arg-3 e-99 e-109) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-26 (((e-100 arg-2) c) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (((e-110 arg-2) c) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-7 e-8) eta-0)))))))))))) (else (vector 1 1)))))))))))))))))))(else (let ((sc1 e-99)) (case (vector-ref sc1 0) ((0) (let ((e-102 (vector-ref sc1 1))) (let ((e-103 (vector-ref sc1 2))) (let ((e-104 (vector-ref sc1 3))) (let ((e-105 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-104) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-105 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-5 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-97 e-98 (vector 0 e-102 e-103 e-6 e-7) (vector 4 e-97 (TT-Core-weaken_Weaken__Term e-98 arg-0 e-8) (vector 0 e-97 (vector 0 ) 0)))) eta-0)))))))))))))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((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))) (let ((e-95 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-94) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-95 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-93 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 e-8) (vector 0 e-87 (vector 0 ) 0)))) eta-0)))))))))))))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0)))))))))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((1) (let ((e-50 (vector-ref sc3 2))) (let ((e-51 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (cond ((equal? sc5 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((e-16 (vector-ref sc2 5))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((2) (let ((e-53 (vector-ref sc3 1))) (let ((e-54 (vector-ref sc3 2))) (let ((e-55 (vector-ref sc3 3))) (let ((e-56 (vector-ref sc3 4))) (let ((e-57 (vector-ref sc3 5))) (Normalise-Core-case--convGen-14138 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (let ((e-21 (vector-ref sc2 4))) (let ((e-22 (vector-ref sc2 5))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((3) (let ((e-59 (vector-ref sc3 1))) (let ((e-60 (vector-ref sc3 2))) (let ((e-61 (vector-ref sc3 3))) (let ((e-62 (vector-ref sc3 4))) (let ((e-63 (vector-ref sc3 5))) (Normalise-Core-case--convGen-14220 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((4) (let ((e-68 (vector-ref sc3 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc2 1))) (let ((e-30 (vector-ref sc2 2))) (let ((e-31 (vector-ref sc2 3))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((5) (let ((e-70 (vector-ref sc3 1))) (let ((e-71 (vector-ref sc3 2))) (let ((e-72 (vector-ref sc3 3))) (Normalise-Core-case--convGen-14317 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc2 1))) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (let ((e-36 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((6) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((e-76 (vector-ref sc3 3))) (let ((e-77 (vector-ref sc3 4))) (Normalise-Core-case--convGen-14383 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((e-40 (vector-ref sc2 3))) (let ((e-41 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((7) (let ((e-79 (vector-ref sc3 1))) (let ((e-80 (vector-ref sc3 2))) (let ((e-81 (vector-ref sc3 3))) (let ((e-82 (vector-ref sc3 4))) (Normalise-Core-case--convGen-14509 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc2 2))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((8) (let ((e-85 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((2) (let ((e-53 (vector-ref sc2 1))) (let ((e-54 (vector-ref sc2 2))) (let ((e-55 (vector-ref sc2 3))) (let ((e-56 (vector-ref sc2 4))) (let ((e-57 (vector-ref sc2 5))) (Normalise-Core-case--convGen-14138 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((e-22 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((3) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (let ((e-62 (vector-ref sc2 4))) (let ((e-63 (vector-ref sc2 5))) (Normalise-Core-case--convGen-14220 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((e-31 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((5) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((e-72 (vector-ref sc2 3))) (Normalise-Core-case--convGen-14317 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (let ((e-35 (vector-ref sc1 3))) (let ((e-36 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((6) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((e-76 (vector-ref sc2 3))) (let ((e-77 (vector-ref sc2 4))) (Normalise-Core-case--convGen-14383 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-79 (vector-ref sc2 1))) (let ((e-80 (vector-ref sc2 2))) (let ((e-81 (vector-ref sc2 3))) (let ((e-82 (vector-ref sc2 4))) (Normalise-Core-case--convGen-14509 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((e-89 (vector-ref sc0 3))) (let ((sc1 e-89)) (case (vector-ref sc1 0) ((0) (let ((e-92 (vector-ref sc1 1))) (let ((e-93 (vector-ref sc1 2))) (let ((e-94 (vector-ref sc1 3))) (let ((e-95 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-94) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-95 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-93 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 e-8) (vector 0 e-87 (vector 0 ) 0)))) eta-0)))))))))))))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0)))))))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((2) (let ((e-53 (vector-ref sc2 1))) (let ((e-54 (vector-ref sc2 2))) (let ((e-55 (vector-ref sc2 3))) (let ((e-56 (vector-ref sc2 4))) (let ((e-57 (vector-ref sc2 5))) (Normalise-Core-case--convGen-14138 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((e-22 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((3) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (let ((e-62 (vector-ref sc2 4))) (let ((e-63 (vector-ref sc2 5))) (Normalise-Core-case--convGen-14220 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((e-31 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((5) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((e-72 (vector-ref sc2 3))) (Normalise-Core-case--convGen-14317 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (let ((e-35 (vector-ref sc1 3))) (let ((e-36 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((6) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((e-76 (vector-ref sc2 3))) (let ((e-77 (vector-ref sc2 4))) (Normalise-Core-case--convGen-14383 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-79 (vector-ref sc2 1))) (let ((e-80 (vector-ref sc2 2))) (let ((e-81 (vector-ref sc2 3))) (let ((e-82 (vector-ref sc2 4))) (Normalise-Core-case--convGen-14509 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 2))) (let ((e-51 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-53 (vector-ref sc1 1))) (let ((e-54 (vector-ref sc1 2))) (let ((e-55 (vector-ref sc1 3))) (let ((e-56 (vector-ref sc1 4))) (let ((e-57 (vector-ref sc1 5))) (Normalise-Core-case--convGen-14138 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (let ((e-22 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((e-61 (vector-ref sc1 3))) (let ((e-62 (vector-ref sc1 4))) (let ((e-63 (vector-ref sc1 5))) (Normalise-Core-case--convGen-14220 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((4) (let ((e-68 (vector-ref sc1 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((5) (let ((e-70 (vector-ref sc1 1))) (let ((e-71 (vector-ref sc1 2))) (let ((e-72 (vector-ref sc1 3))) (Normalise-Core-case--convGen-14317 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((e-36 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((6) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (let ((e-77 (vector-ref sc1 4))) (Normalise-Core-case--convGen-14383 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((7) (let ((e-79 (vector-ref sc1 1))) (let ((e-80 (vector-ref sc1 2))) (let ((e-81 (vector-ref sc1 3))) (let ((e-82 (vector-ref sc1 4))) (Normalise-Core-case--convGen-14509 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (let ((e-85 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))) +(define Normalise-Core-convGen_Convert__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (let ((e-98 (vector-ref sc0 3))) (let ((e-99 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-107 (vector-ref sc1 3))) (let ((e-108 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Normalise-Core-genName arg-1 "conv" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((c (vector 0 (vector 0 ) (Value-Core-defaultOpts) (vector 0 ) arg-3 (vector 1 e-96 (vector 0 ) e-5)))) (let ((act-25 ((Normalise-Core-convBinders arg-0 arg-1 arg-2 arg-3 e-98 e-107) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-26 (((e-99 arg-2) c) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (((e-108 arg-2) c) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-7 e-8) eta-0)))))))))))) (else (vector 1 1)))))))))))))))))))(else (let ((sc1 e-98)) (case (vector-ref sc1 0) ((0) (let ((e-101 (vector-ref sc1 1))) (let ((e-102 (vector-ref sc1 2))) (let ((e-103 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-102) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-103 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-5 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-96 e-97 (vector 0 e-101 e-6 e-7) (vector 4 e-96 (TT-Core-weaken_Weaken__Term e-97 arg-0 e-8) (vector 0 e-96 (vector 0 ) 0)))) eta-0)))))))))))))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))))))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-87 (vector-ref sc1 1))) (let ((e-88 (vector-ref sc1 2))) (let ((e-89 (vector-ref sc1 3))) (let ((sc2 e-89)) (case (vector-ref sc2 0) ((0) (let ((e-92 (vector-ref sc2 1))) (let ((e-93 (vector-ref sc2 2))) (let ((e-94 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-93) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 e-8) (vector 0 e-87 (vector 0 ) 0)))) eta-0)))))))))))))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0))))))))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((1) (let ((e-50 (vector-ref sc3 2))) (let ((e-51 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (cond ((equal? sc5 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((e-16 (vector-ref sc2 5))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((2) (let ((e-53 (vector-ref sc3 1))) (let ((e-54 (vector-ref sc3 2))) (let ((e-55 (vector-ref sc3 3))) (let ((e-56 (vector-ref sc3 4))) (let ((e-57 (vector-ref sc3 5))) (Normalise-Core-case--convGen-14096 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((e-20 (vector-ref sc2 3))) (let ((e-21 (vector-ref sc2 4))) (let ((e-22 (vector-ref sc2 5))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((3) (let ((e-59 (vector-ref sc3 1))) (let ((e-60 (vector-ref sc3 2))) (let ((e-61 (vector-ref sc3 3))) (let ((e-62 (vector-ref sc3 4))) (let ((e-63 (vector-ref sc3 5))) (Normalise-Core-case--convGen-14178 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((4) (let ((e-68 (vector-ref sc3 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc2 1))) (let ((e-30 (vector-ref sc2 2))) (let ((e-31 (vector-ref sc2 3))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((5) (let ((e-70 (vector-ref sc3 1))) (let ((e-71 (vector-ref sc3 2))) (let ((e-72 (vector-ref sc3 3))) (Normalise-Core-case--convGen-14275 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc2 1))) (let ((e-34 (vector-ref sc2 2))) (let ((e-35 (vector-ref sc2 3))) (let ((e-36 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((6) (let ((e-74 (vector-ref sc3 1))) (let ((e-75 (vector-ref sc3 2))) (let ((e-76 (vector-ref sc3 3))) (let ((e-77 (vector-ref sc3 4))) (Normalise-Core-case--convGen-14341 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((e-40 (vector-ref sc2 3))) (let ((e-41 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((7) (let ((e-79 (vector-ref sc3 1))) (let ((e-80 (vector-ref sc3 2))) (let ((e-81 (vector-ref sc3 3))) (let ((e-82 (vector-ref sc3 4))) (Normalise-Core-case--convGen-14467 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc2 2))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((8) (let ((e-85 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((10) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((2) (let ((e-53 (vector-ref sc2 1))) (let ((e-54 (vector-ref sc2 2))) (let ((e-55 (vector-ref sc2 3))) (let ((e-56 (vector-ref sc2 4))) (let ((e-57 (vector-ref sc2 5))) (Normalise-Core-case--convGen-14096 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((e-22 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((3) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (let ((e-62 (vector-ref sc2 4))) (let ((e-63 (vector-ref sc2 5))) (Normalise-Core-case--convGen-14178 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((e-31 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((5) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((e-72 (vector-ref sc2 3))) (Normalise-Core-case--convGen-14275 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (let ((e-35 (vector-ref sc1 3))) (let ((e-36 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((6) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((e-76 (vector-ref sc2 3))) (let ((e-77 (vector-ref sc2 4))) (Normalise-Core-case--convGen-14341 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-79 (vector-ref sc2 1))) (let ((e-80 (vector-ref sc2 2))) (let ((e-81 (vector-ref sc2 3))) (let ((e-82 (vector-ref sc2 4))) (Normalise-Core-case--convGen-14467 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((e-89 (vector-ref sc0 3))) (let ((sc1 e-89)) (case (vector-ref sc1 0) ((0) (let ((e-92 (vector-ref sc1 1))) (let ((e-93 (vector-ref sc1 2))) (let ((e-94 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (arg-6) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-6 eta-1))) e-93) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) ((Normalise-Core-nf arg-0 arg-2 arg-3 (vector 3 e-87 e-88 (vector 0 e-92 e-6 e-7) (vector 4 e-87 (TT-Core-weaken_Weaken__Term e-88 arg-0 e-8) (vector 0 e-87 (vector 0 ) 0)))) eta-0)))))))))))))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-6 arg-5) eta-0))))))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-50 (vector-ref sc2 2))) (let ((e-51 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((2) (let ((e-53 (vector-ref sc2 1))) (let ((e-54 (vector-ref sc2 2))) (let ((e-55 (vector-ref sc2 3))) (let ((e-56 (vector-ref sc2 4))) (let ((e-57 (vector-ref sc2 5))) (Normalise-Core-case--convGen-14096 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((e-22 (vector-ref sc1 5))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((3) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (let ((e-61 (vector-ref sc2 3))) (let ((e-62 (vector-ref sc2 4))) (let ((e-63 (vector-ref sc2 5))) (Normalise-Core-case--convGen-14178 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((4) (let ((e-68 (vector-ref sc2 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((e-31 (vector-ref sc1 3))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((5) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((e-72 (vector-ref sc2 3))) (Normalise-Core-case--convGen-14275 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc1 1))) (let ((e-34 (vector-ref sc1 2))) (let ((e-35 (vector-ref sc1 3))) (let ((e-36 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((6) (let ((e-74 (vector-ref sc2 1))) (let ((e-75 (vector-ref sc2 2))) (let ((e-76 (vector-ref sc2 3))) (let ((e-77 (vector-ref sc2 4))) (Normalise-Core-case--convGen-14341 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((7) (let ((e-79 (vector-ref sc2 1))) (let ((e-80 (vector-ref sc2 2))) (let ((e-81 (vector-ref sc2 3))) (let ((e-82 (vector-ref sc2 4))) (Normalise-Core-case--convGen-14467 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((8) (let ((e-85 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((10) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-50 (vector-ref sc1 2))) (let ((e-51 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-10 e-51) eta-0)) (else ((Normalise-Core-chkConvCaseBlock arg-0 e-8 arg-1 arg-2 arg-3 e-9 e-10 e-50 e-51) eta-0)))))))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((2) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-53 (vector-ref sc1 1))) (let ((e-54 (vector-ref sc1 2))) (let ((e-55 (vector-ref sc1 3))) (let ((e-56 (vector-ref sc1 4))) (let ((e-57 (vector-ref sc1 5))) (Normalise-Core-case--convGen-14096 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-14 e-55))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((3) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (let ((e-22 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((e-61 (vector-ref sc1 3))) (let ((e-62 (vector-ref sc1 4))) (let ((e-63 (vector-ref sc1 5))) (Normalise-Core-case--convGen-14178 arg-0 e-59 e-62 e-18 e-21 e-22 e-20 e-19 e-63 e-61 e-60 arg-3 arg-2 arg-1 (Name-Core-C-61C-61_Eq__Name e-19 e-60))))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))) ((4) (let ((e-27 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((4) (let ((e-68 (vector-ref sc1 4))) (Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-27 e-68)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((5) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((5) (let ((e-70 (vector-ref sc1 1))) (let ((e-71 (vector-ref sc1 2))) (let ((e-72 (vector-ref sc1 3))) (Normalise-Core-case--convGen-14275 arg-0 e-70 e-29 e-31 e-30 e-72 e-71 arg-3 arg-2 arg-1 (TT-Core-compatible e-30 e-71))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))) ((6) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((e-36 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((6) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (let ((e-77 (vector-ref sc1 4))) (Normalise-Core-case--convGen-14341 arg-0 e-74 e-76 e-33 e-35 e-36 e-34 e-77 e-75 arg-3 arg-2 arg-1 (TT-Core-compatible e-34 e-75)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((7) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((7) (let ((e-79 (vector-ref sc1 1))) (let ((e-80 (vector-ref sc1 2))) (let ((e-81 (vector-ref sc1 3))) (let ((e-82 (vector-ref sc1 4))) (Normalise-Core-case--convGen-14467 arg-0 e-79 e-38 e-41 e-40 e-39 e-82 e-81 e-80 arg-3 arg-2 arg-1 (TT-Core-compatible e-39 e-80)))))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1)))))))))))))))) ((8) (let ((e-44 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((8) (let ((e-85 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-44 e-85)))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((10) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((10) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))))))))))))))) (define Normalise-Core-convGen_Convert__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-2 arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-2 arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Normalise-Core-convGen_Convert__NF arg-0 arg-1 arg-2 arg-3 e-5 e-6) ext-0))))))))))))) -(define Normalise-Core-__Impl_Quote_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-8535) (lambda (arg-8536) (lambda (arg-8538) (lambda (eta-0) (Normalise-Core-quote_Quote__Term vars arg-8535 arg-8536 arg-8538 eta-0)))))) (lambda (vars) (lambda (arg-8540) (lambda (arg-8542) (lambda (arg-8543) (lambda (arg-8545) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Term vars arg-8540 arg-8542 arg-8543 arg-8545 eta-0)))))))))) -(define Normalise-Core-__Impl_Quote_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-8535) (lambda (arg-8536) (lambda (arg-8538) (lambda (eta-0) (Normalise-Core-quote_Quote__NF vars arg-8535 arg-8536 arg-8538 eta-0)))))) (lambda (vars) (lambda (arg-8540) (lambda (arg-8542) (lambda (arg-8543) (lambda (arg-8545) (Normalise-Core-quoteGen_Quote__NF vars arg-8540 arg-8542 arg-8543 arg-8545))))))))) -(define Normalise-Core-__Impl_Quote_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-8535) (lambda (arg-8536) (lambda (arg-8538) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-8535 arg-8536 arg-8538 eta-0)))))) (lambda (vars) (lambda (arg-8540) (lambda (arg-8542) (lambda (arg-8543) (lambda (arg-8545) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-8540 arg-8542 arg-8543 arg-8545 eta-0)))))))))) -(define Normalise-Core-__Impl_Convert_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-10117) (lambda (arg-10118) (lambda (arg-10120) (lambda (arg-10121) (lambda (eta-0) (Normalise-Core-convert_Convert__Term vars arg-10117 arg-10118 arg-10120 arg-10121 eta-0))))))) (lambda (vars) (lambda (arg-10123) (lambda (arg-10125) (lambda (arg-10126) (lambda (arg-10128) (lambda (arg-10129) (lambda (eta-0) (Normalise-Core-convGen_Convert__Term vars arg-10123 arg-10125 arg-10126 arg-10128 arg-10129 eta-0))))))))))) -(define Normalise-Core-__Impl_Convert_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-10117) (lambda (arg-10118) (lambda (arg-10120) (lambda (arg-10121) (lambda (eta-0) (Normalise-Core-convert_Convert__NF vars arg-10117 arg-10118 arg-10120 arg-10121 eta-0))))))) (lambda (vars) (lambda (arg-10123) (lambda (arg-10125) (lambda (arg-10126) (lambda (arg-10128) (lambda (arg-10129) (Normalise-Core-convGen_Convert__NF vars arg-10123 arg-10125 arg-10126 arg-10128 arg-10129)))))))))) -(define Normalise-Core-__Impl_Convert_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-10117) (lambda (arg-10118) (lambda (arg-10120) (lambda (arg-10121) (lambda (eta-0) (Normalise-Core-convert_Convert__Closure vars arg-10117 arg-10118 arg-10120 arg-10121 eta-0))))))) (lambda (vars) (lambda (arg-10123) (lambda (arg-10125) (lambda (arg-10126) (lambda (arg-10128) (lambda (arg-10129) (lambda (eta-0) (Normalise-Core-convGen_Convert__Closure vars arg-10123 arg-10125 arg-10126 arg-10128 arg-10129 eta-0))))))))))) +(define Normalise-Core-__Impl_Quote_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-8517) (lambda (arg-8518) (lambda (arg-8520) (lambda (eta-0) (Normalise-Core-quote_Quote__Term vars arg-8517 arg-8518 arg-8520 eta-0)))))) (lambda (vars) (lambda (arg-8522) (lambda (arg-8524) (lambda (arg-8525) (lambda (arg-8527) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Term vars arg-8522 arg-8524 arg-8525 arg-8527 eta-0)))))))))) +(define Normalise-Core-__Impl_Quote_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-8517) (lambda (arg-8518) (lambda (arg-8520) (lambda (eta-0) (Normalise-Core-quote_Quote__NF vars arg-8517 arg-8518 arg-8520 eta-0)))))) (lambda (vars) (lambda (arg-8522) (lambda (arg-8524) (lambda (arg-8525) (lambda (arg-8527) (Normalise-Core-quoteGen_Quote__NF vars arg-8522 arg-8524 arg-8525 arg-8527))))))))) +(define Normalise-Core-__Impl_Quote_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-8517) (lambda (arg-8518) (lambda (arg-8520) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-8517 arg-8518 arg-8520 eta-0)))))) (lambda (vars) (lambda (arg-8522) (lambda (arg-8524) (lambda (arg-8525) (lambda (arg-8527) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-8522 arg-8524 arg-8525 arg-8527 eta-0)))))))))) +(define Normalise-Core-__Impl_Convert_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-10099) (lambda (arg-10100) (lambda (arg-10102) (lambda (arg-10103) (lambda (eta-0) (Normalise-Core-convert_Convert__Term vars arg-10099 arg-10100 arg-10102 arg-10103 eta-0))))))) (lambda (vars) (lambda (arg-10105) (lambda (arg-10107) (lambda (arg-10108) (lambda (arg-10110) (lambda (arg-10111) (lambda (eta-0) (Normalise-Core-convGen_Convert__Term vars arg-10105 arg-10107 arg-10108 arg-10110 arg-10111 eta-0))))))))))) +(define Normalise-Core-__Impl_Convert_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-10099) (lambda (arg-10100) (lambda (arg-10102) (lambda (arg-10103) (lambda (eta-0) (Normalise-Core-convert_Convert__NF vars arg-10099 arg-10100 arg-10102 arg-10103 eta-0))))))) (lambda (vars) (lambda (arg-10105) (lambda (arg-10107) (lambda (arg-10108) (lambda (arg-10110) (lambda (arg-10111) (Normalise-Core-convGen_Convert__NF vars arg-10105 arg-10107 arg-10108 arg-10110 arg-10111)))))))))) +(define Normalise-Core-__Impl_Convert_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-10099) (lambda (arg-10100) (lambda (arg-10102) (lambda (arg-10103) (lambda (eta-0) (Normalise-Core-convert_Convert__Closure vars arg-10099 arg-10100 arg-10102 arg-10103 eta-0))))))) (lambda (vars) (lambda (arg-10105) (lambda (arg-10107) (lambda (arg-10108) (lambda (arg-10110) (lambda (arg-10111) (lambda (eta-0) (Normalise-Core-convGen_Convert__Closure vars arg-10105 arg-10107 arg-10108 arg-10110 arg-10111 eta-0))))))))))) (define Normalise-Core-useMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 arg-4)))) (else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-0 (vector-ref sc1 1))) (Normalise-Core-case--useMeta-5510 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--useMeta-5565 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--updateLimit-5661 arg-2 arg-1 (Basics-Prelude-not (List-Data-isNil 'erased (let ((sc1 arg-2)) (let ((e-7 (vector-ref sc1 8))) e-7))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-2)))))))) -(define Normalise-Core-tryUpdate (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11889-10238-findIdx arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 arg-2 e-4) (lambda (_-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 e-3 _-0)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Types-Prelude-pure_Applicative__Maybe 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-156 arg-158)))))) (lambda (eta-0) (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 eta-0)) e-14) (lambda (bind-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 bind-0))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11889-10407-tryUpdateB arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-18) (lambda (bC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate (vector 1 e-17 arg-0) (vector 1 e-17 arg-1) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--11889-10408-weakenP arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-17 eta-0)) arg-2) e-19) (lambda (bind-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 3 e-16 e-17 bC-39 bind-0))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-22) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-23) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-27) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-28) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-32) (lambda (bind-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-36) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-37) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-41) (lambda (bind-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Types-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))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49)))))))) -(define Normalise-Core-tryAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (let ((e-32 (vector-ref sc1 3))) (let ((e-33 (vector-ref sc1 4))) (Normalise-Core-case--tryAlt-6998 arg-0 arg-1 arg-2 e-3 e-7 e-6 e-5 e-4 e-32 arg-3 e-33 e-31 e-30 arg-8 arg-7 arg-6 arg-5 arg-4 (EqOrd-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--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (let ((e-38 (vector-ref sc1 4))) (Normalise-Core-case--tryAlt-7092 arg-0 arg-1 arg-2 e-9 e-13 e-12 e-11 e-10 e-37 arg-3 e-38 e-36 e-35 arg-8 arg-7 arg-6 arg-5 arg-4 (Name-Core-C-61C-61_Eq__Name e-10 e-35)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (let ((e-43 (vector-ref sc1 4))) (let ((sc2 e-40)) (case (vector-ref sc2 0) ((1) (let ((e-47 (vector-ref sc2 1))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (Normalise-Core-case--tryAlt-7194 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-47 e-43 e-41 arg-8 arg-7 arg-6 arg-5 arg-4 (EqOrd-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--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (Normalise-Core-case--tryAlt-7359 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-46 e-45 arg-8 arg-7 arg-6 arg-5 arg-4 (TT-Core-C-61C-61_Eq__Constant e-45 e-16)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-50 (vector-ref sc1 1))) (let ((e-52 (vector-ref sc1 3))) (let ((e-53 (vector-ref sc1 4))) (let ((sc2 e-50)) (case (vector-ref sc2 0) ((1) (let ((e-54 (vector-ref sc2 1))) (let ((sc3 e-54)) (cond ((equal? sc3 "Type") (let ((sc4 e-52)) (case (vector-ref sc4 0) ((0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 e-53))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((0) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((2) (let ((e-57 (vector-ref sc1 1))) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (let ((e-60 (vector-ref sc1 4))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-62 (vector-ref sc2 1))) (let ((e-64 (vector-ref sc2 3))) (let ((e-65 (vector-ref sc2 4))) (let ((sc3 e-62)) (case (vector-ref sc3 0) ((1) (let ((e-66 (vector-ref sc3 1))) (let ((sc4 e-66)) (cond ((equal? sc4 "->") (let ((sc5 e-64)) (case (vector-ref sc5 0) ((1) (let ((e-68 (vector-ref sc5 1))) (let ((e-69 (vector-ref sc5 2))) (let ((sc6 e-69)) (case (vector-ref sc6 0) ((1) (let ((e-71 (vector-ref sc6 1))) (let ((e-72 (vector-ref sc6 2))) (let ((sc7 e-72)) (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-68 (vector 1 e-71 (vector 0 ))) (vector 1 (vector 1 e-60) (vector 1 (vector 1 (vector 0 e-20 e-21 (vector 0 e-57 e-58 e-59 e-60) e-23)) (vector 0 ))) e-65))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) ((6) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((e-77 (vector-ref sc1 3))) (Normalise-Core-evalTree arg-0 arg-1 (vector 1 e-75 (vector 1 e-76 arg-3)) arg-2 arg-4 (vector 1 e-27 (vector 1 e-28 arg-5)) arg-6 arg-7 arg-8 e-77)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--tryAlt-7475 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--7021-7425-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))) +(define Normalise-Core-tryUpdate (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11689-10220-findIdx arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 arg-2 e-4) (lambda (_-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 e-3 _-0)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Types-Prelude-pure_Applicative__Maybe 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-113 arg-115)))))) (lambda (eta-0) (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 eta-0)) e-14) (lambda (bind-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 bind-0))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--11689-10389-tryUpdateB arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-18) (lambda (bC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate (vector 1 e-17 arg-0) (vector 1 e-17 arg-1) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Normalise-Core-n--11689-10390-weakenP arg-0 arg-1 e-17 e-19 e-18 e-16 arg-2 e-17 eta-0)) arg-2) e-19) (lambda (bind-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 3 e-16 e-17 bC-39 bind-0))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-22) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-23) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-27) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-28) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-32) (lambda (bind-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-36) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-37) (lambda (bind-1) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-tryUpdate arg-0 arg-1 arg-2 e-41) (lambda (bind-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (Types-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))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 11 e-49)))))))) +(define Normalise-Core-tryAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (let ((e-32 (vector-ref sc1 3))) (let ((e-33 (vector-ref sc1 4))) (Normalise-Core-case--tryAlt-6980 arg-0 arg-1 arg-2 e-3 e-7 e-6 e-5 e-4 e-32 arg-3 e-33 e-31 e-30 arg-8 arg-7 arg-6 arg-5 arg-4 (EqOrd-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--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (let ((e-38 (vector-ref sc1 4))) (Normalise-Core-case--tryAlt-7074 arg-0 arg-1 arg-2 e-9 e-13 e-12 e-11 e-10 e-37 arg-3 e-38 e-36 e-35 arg-8 arg-7 arg-6 arg-5 arg-4 (Name-Core-C-61C-61_Eq__Name e-10 e-35)))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((e-42 (vector-ref sc1 3))) (let ((e-43 (vector-ref sc1 4))) (let ((sc2 e-40)) (case (vector-ref sc2 0) ((1) (let ((e-47 (vector-ref sc2 1))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (Normalise-Core-case--tryAlt-7176 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-47 e-43 e-41 arg-8 arg-7 arg-6 arg-5 arg-4 (EqOrd-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--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (Normalise-Core-case--tryAlt-7341 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-46 e-45 arg-8 arg-7 arg-6 arg-5 arg-4 (TT-Core-C-61C-61_Eq__Constant e-45 e-16)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-50 (vector-ref sc1 1))) (let ((e-52 (vector-ref sc1 3))) (let ((e-53 (vector-ref sc1 4))) (let ((sc2 e-50)) (case (vector-ref sc2 0) ((1) (let ((e-54 (vector-ref sc2 1))) (let ((sc3 e-54)) (cond ((equal? sc3 "Type") (let ((sc4 e-52)) (case (vector-ref sc4 0) ((0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 e-53))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((0) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((2) (let ((e-57 (vector-ref sc1 1))) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-61 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 3))) (let ((e-64 (vector-ref sc2 4))) (let ((sc3 e-61)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((sc4 e-65)) (cond ((equal? sc4 "->") (let ((sc5 e-63)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (Normalise-Core-evalConAlt arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-67 (vector 1 e-70 (vector 0 ))) (vector 1 (vector 1 e-59) (vector 1 (vector 1 (vector 0 e-20 e-21 (vector 0 e-57 e-58 e-59) e-23)) (vector 0 ))) e-64))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) ((6) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (let ((e-76 (vector-ref sc1 3))) (Normalise-Core-evalTree arg-0 arg-1 (vector 1 e-74 (vector 1 e-75 arg-3)) arg-2 arg-4 (vector 1 e-27 (vector 1 e-28 arg-5)) arg-6 arg-7 arg-8 e-76)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--tryAlt-7457 arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--6839-7407-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))) (define Normalise-Core-toClosure (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 (vector 0 ) arg-1 (vector 0 ) arg-2 arg-3))) -(define Normalise-Core-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Normalise-Core-n--7024-7863-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--6842-7845-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) (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1))))) -(define Normalise-Core-replaceC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-2 arg-3 arg-4 arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 arg-5)) (else ((Normalise-Core-n--17818-15539-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-24 (Normalise-Core-convert_Convert__NF arg-0 arg-2 arg-3 arg-4 arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 arg-5)) (else ((Normalise-Core-n--17546-15464-repSub arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-6) ext-0))))))))))) (define Normalise-Core-replace (lambda (arg-0 ext-5 ext-1 ext-2 ext-3 ext-4 ext-0) (Normalise-Core-replaceC-39 arg-0 0 ext-5 ext-1 ext-2 ext-3 ext-4 ext-0))) (define Normalise-Core-quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) -(define Normalise-Core-quoteHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Normalise-Core-case--quoteHead-8837 arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--10306-8754-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--quoteHead-9077 arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--10306-8879-findName arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 'erased arg-5)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 e-6 e-7))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 arg-4 e-9 e-10 e-5)))))))))))))))) -(define Normalise-Core-quoteGenNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Normalise-Core-genName arg-2 "qv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (((e-4 arg-3) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((Normalise-Core-quoteGenNF (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 (vector 1 e-2 e-5 arg-4) arg-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-1 e-2 e-7 e-6))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteHead arg-0 arg-1 arg-2 arg-3 e-6 arg-4 arg-5 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 e-5 e-9))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-10 (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-16 (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5)))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--10321-9500-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased e-34)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--10321-9500-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased e-33)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-31 e-32 e-8 e-6)))))))))))))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure arg-1 arg-3 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))))) ((8) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-41 e-42)))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-44 e-45)))))) (else (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-47))))))))) +(define Normalise-Core-quoteHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Normalise-Core-case--quoteHead-8819 arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--10107-8736-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--quoteHead-9059 arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--10107-8861-findName arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 'erased arg-5)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 e-6 e-7))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 arg-4 e-9 e-10 e-5)))))))))))))))) +(define Normalise-Core-quoteGenNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Normalise-Core-genName arg-2 "qv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (((e-4 arg-3) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((Normalise-Core-quoteGenNF (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 (vector 1 e-2 e-5 arg-4) arg-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-1 e-2 e-7 e-6))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteHead arg-0 arg-1 arg-2 arg-3 e-6 arg-4 arg-5 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 e-5 e-9))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-10 (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-16 (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5)))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--10122-9482-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased e-34)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--10122-9482-toHolesOnly arg-0 arg-1 e-34 e-33 e-32 e-31 arg-5 arg-4 arg-3 arg-2 'erased e-33)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-31 e-32 e-8 e-6)))))))))))))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure arg-1 arg-3 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))))) ((8) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-41 e-42)))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-44 e-45)))))) (else (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-47))))))))) (define Normalise-Core-quoteGen (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-2 arg-1) arg-3) arg-4) arg-5) arg-6))))))))) -(define Normalise-Core-quoteBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 e-2 e-6 e-5)))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 1 e-6 e-7 e-5 e-10)))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-11 e-12 e-6 e-5)))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-16 e-17 e-6 e-5)))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-24) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-21 e-22 e-5 e-6)))))))))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-26 e-27 e-5)))))))))))))))) +(define Normalise-Core-quoteBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 e-6 e-5))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-8 e-9))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-9 e-6 e-5))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-13 e-6 e-5))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-17 e-5 e-6))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-21 e-5))))))))))))))) (define Normalise-Core-quoteArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-3 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7))))))))))))))))))))))))) (define Normalise-Core-quote (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) ((((e-1 arg-1) arg-3) arg-4) arg-5)))))))) (define Normalise-Core-normaliseScope (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-normaliseScope (vector 1 e-2 arg-0) arg-1 (vector 1 e-3 arg-2) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-1 e-2 e-3 e-5)))))))))))))(else (lambda (eta-0) (Normalise-Core-normalise arg-0 arg-1 arg-2 arg-3 eta-0))))))) @@ -3704,21 +3630,20 @@ (define Normalise-Core-normalise (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-quote_Quote__NF arg-0 arg-1 arg-2 e-5 ext-0)))))))) (define Normalise-Core-nfOpts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Normalise-Core-eval arg-2 arg-1 arg-0 (vector 0 ) arg-3 (vector 0 ) arg-4 (vector 0 )))) (define Normalise-Core-nf (lambda (arg-0 arg-1 arg-2 arg-3) (Normalise-Core-eval arg-1 (Value-Core-defaultOpts) arg-0 (vector 0 ) arg-2 (vector 0 ) arg-3 (vector 0 )))) -(define Normalise-Core-logTermNFC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--logTermNFC-39-15077 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Log-Options-Core-keepLog arg-2 (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)))) ext-0)))))))) -(define Normalise-Core-logTermNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((lvl ((Log-Options-Core-mkLogLevel arg-2) arg-3))) (lambda (eta-0) (Normalise-Core-logTermNFC-39 arg-0 arg-1 lvl arg-4 arg-5 arg-6 eta-0))))) -(define Normalise-Core-logNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lvl ((Log-Options-Core-mkLogLevel arg-2) arg-3))) ((Normalise-Core-case--logNF-14973 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 lvl (Log-Options-Core-keepLog lvl (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)))) ext-0))))))))) -(define Normalise-Core-logGlueNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lvl ((Log-Options-Core-mkLogLevel arg-2) arg-3))) ((Normalise-Core-case--logGlueNF-15288 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 lvl (Log-Options-Core-keepLog lvl (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)))) ext-0))))))))) -(define Normalise-Core-logGlue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lvl ((Log-Options-Core-mkLogLevel arg-2) arg-3))) ((Normalise-Core-case--logGlue-15185 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 lvl (Log-Options-Core-keepLog lvl (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)))) ext-0))))))))) -(define Normalise-Core-logEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--logEnv-15499 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Log-Options-Core-keepLog (Normalise-Core-n--17655-15388-lvl arg-0 arg-5 arg-4 arg-3 arg-2 arg-1) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)))) ext-0)))))))) +(define Normalise-Core-logTermNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--logTermNF-15031 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Types-Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)) arg-2)) ext-0)))))))) +(define Normalise-Core-logNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--logNF-14931 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Types-Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)) arg-2)) ext-0)))))))) +(define Normalise-Core-logGlueNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--logGlueNF-15225 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Types-Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)) arg-2)) ext-0)))))))) +(define Normalise-Core-logGlue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--logGlue-15128 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Types-Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)) arg-2)) ext-0)))))))) +(define Normalise-Core-logEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--logEnv-15428 arg-0 arg-4 arg-3 arg-2 arg-1 e-5 (Types-Prelude-C-62C-61_Ord__Nat (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 6))) e-12)) arg-2)) ext-0)))))))) (define Normalise-Core-isFromTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define Normalise-Core-gnf (lambda (arg-0 arg-1 arg-2) (vector 0 0 (lambda (eta-0) (vector 1 arg-2)) (lambda (c) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox c))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-nf arg-0 e-5 arg-1 arg-2) eta-0))))))))))) (define Normalise-Core-glueBack (lambda (arg-0 arg-1 arg-2 arg-3) (vector 0 1 (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-2 arg-3 eta-0))))))) (lambda (eta-0) (lambda (eta-1) (vector 1 arg-3)))))) -(define Normalise-Core-getValArity (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getValArity arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (+ 1 e-10))))))))))))))(else (lambda (eta-0) (vector 1 0)))))))))(else (lambda (eta-0) (vector 1 0))))))) +(define Normalise-Core-getValArity (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getValArity arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (+ 1 e-9))))))))))))))(else (lambda (eta-0) (vector 1 0)))))))))(else (lambda (eta-0) (vector 1 0))))))) (define Normalise-Core-getTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (define Normalise-Core-getNF (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 3))) (e-3 arg-1))))) -(define Normalise-Core-getMatchingVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 5))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-2 (vector 1 (vector 0 e-2 e-14) arg-3) e-5 e-17))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (Normalise-Core-case--getMatchingVars-11437 arg-0 arg-1 e-8 e-7 e-20 e-19 arg-3 arg-2 (Normalise-Core-tryUpdate arg-0 arg-1 arg-3 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((2) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-getMatchingVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 5))) (Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-2 (vector 1 (vector 0 e-2 e-14) arg-3) e-5 e-17))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (Normalise-Core-case--getMatchingVars-11419 arg-0 arg-1 e-8 e-7 e-20 e-19 arg-3 arg-2 (Normalise-Core-tryUpdate arg-0 arg-1 arg-3 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((2) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))) ((3) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Normalise-Core-getMatchingVarAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 arg-3))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getMatchingVarAlt arg-0 arg-1 arg-2 arg-3 e-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Normalise-Core-getMatchingVarAlts arg-0 arg-1 arg-2 e-1 e-3 e-7) eta-0))) (else (vector 1 (vector 0 ))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Normalise-Core-getMatchingVarAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (Normalise-Core-case--getMatchingVarAlt-11036 arg-0 arg-1 e-3 e-4 e-2 e-1 e-13 e-14 e-12 e-11 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name e-1 e-11)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (Normalise-Core-case--getMatchingVarAlt-11240 arg-0 arg-1 e-7 e-6 e-17 e-16 arg-3 arg-2 (TT-Core-C-61C-61_Eq__Constant e-6 e-16)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (let ((e-19 (vector-ref sc1 1))) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-2 arg-3 e-9 e-19)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Normalise-Core-getMatchingVarAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (Normalise-Core-case--getMatchingVarAlt-11018 arg-0 arg-1 e-3 e-4 e-2 e-1 e-13 e-14 e-12 e-11 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name e-1 e-11)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (Normalise-Core-case--getMatchingVarAlt-11222 arg-0 arg-1 e-7 e-6 e-17 e-16 arg-3 arg-2 (TT-Core-C-61C-61_Eq__Constant e-6 e-16)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((3) (let ((e-19 (vector-ref sc1 1))) (Normalise-Core-getMatchingVars arg-0 arg-1 arg-2 arg-3 e-9 e-19)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Normalise-Core-getCaseBound (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 1 arg-6)) (else (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-11 (vector-ref sc1 2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__Maybe 'erased 'erased eta-2 eta-3))))) (lambda (arg-7) (vector 1 e-2 arg-7)) (Normalise-Core-getCaseBound arg-0 arg-1 'erased 'erased e-3 e-11 arg-6))))))))))))) (define Normalise-Core-getArity (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-getValArity arg-0 arg-1 arg-2 e-5) ext-0)))))))) (define Normalise-Core-genName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (b+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))))) @@ -3726,23 +3651,23 @@ (define Normalise-Core-gErased (lambda (arg-0 arg-1) (vector 0 0 (lambda (eta-0) (vector 1 (vector 10 arg-1 1))) (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 9 arg-1 1))))))) (define Normalise-Core-findAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-tryAlt arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 0 e-1)))) ((1) ((Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-3) eta-0)) (else (vector 1 (vector 2 )))))))))))))))))) (define Normalise-Core-evalWithOpts (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3) (Normalise-Core-eval arg-2 arg-3 arg-0 arg-1 ext-0 ext-1 ext-2 ext-3))) -(define Normalise-Core-evalTree (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalLocal arg-0 arg-1 'erased arg-3 arg-2 arg-4 arg-7 (vector 0 ) e-2 'erased (vector 0 ) arg-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((locC-39 (Normalise-Core-updateLocal arg-0 arg-1 'erased 'erased 'erased e-2 'erased arg-5 e-6))) ((Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 locC-39 arg-6 arg-7 arg-8 e-6 e-5) eta-0))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (Normalise-Core-case--evalTree-7708 arg-0 arg-1 arg-2 arg-3 e-7 e-8 arg-8 arg-7 arg-6 arg-5 arg-4 (let ((sc1 arg-6)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Normalise-Core-evalTree (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalLocal arg-0 arg-1 'erased arg-3 arg-2 arg-4 arg-7 (vector 0 ) e-2 'erased (vector 0 ) arg-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((locC-39 (Normalise-Core-updateLocal arg-0 arg-1 'erased 'erased 'erased e-2 'erased arg-5 e-6))) ((Normalise-Core-findAlt arg-0 arg-1 arg-2 arg-3 arg-4 locC-39 arg-6 arg-7 arg-8 e-6 e-5) eta-0))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (Normalise-Core-case--evalTree-7690 arg-0 arg-1 arg-2 arg-3 e-7 e-8 arg-8 arg-7 arg-6 arg-5 arg-4 (let ((sc1 arg-6)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))) (define Normalise-Core-evalRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 arg-5 arg-7 e-0 e-1 arg-8)))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 3 arg-5 arg-7 e-2 e-3 arg-8)))))) ((0) (lambda (eta-0) (vector 1 (arg-9))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((redok (Basics-Prelude-C-124C-124 (let ((sc2 arg-1)) (let ((e-4 (vector-ref sc2 5))) e-4)) (lambda () (Context-Core-reducibleInAny (vector 1 (let ((sc2 arg-0)) (let ((e-2 (vector-ref sc2 3))) e-2)) (let ((sc2 arg-0)) (let ((e-3 (vector-ref sc2 4))) e-3))) (let ((sc2 e-1)) (let ((e-22 (vector-ref sc2 2))) e-22)) (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9))))))) (let ((sc2 redok)) (cond ((equal? sc2 0) (let ((act-25 ((Normalise-Core-useMeta (let ((sc3 e-1)) (let ((e-15 (vector-ref sc3 16))) e-15)) arg-5 arg-7 arg-0 arg-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-updateLimit arg-6 arg-7 e-2) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) ((Normalise-Core-evalDef arg-0 arg-1 arg-2 arg-3 e-3 arg-4 arg-5 (let ((sc7 e-1)) (let ((e-21 (vector-ref sc7 8))) e-21)) (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17)) (let ((sc7 e-1)) (let ((e-11 (vector-ref sc7 12))) e-11)) arg-8 arg-9) eta-0))) (else (vector 1 (arg-9)))))))))))) (else (vector 1 (arg-9))))))))))) (else (vector 1 (arg-9)))))))) (else (vector 1 (arg-9)))))))))))))))) -(define Normalise-Core-evalOp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Normalise-Core-case--evalOp-8022 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--evalOp-8004 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 8 arg-6) (List-Types-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--evalLocal-6367 arg-0 arg-1 'erased arg-3 arg-11 arg-10 arg-8 'erased arg-7 arg-6 arg-5 (Basics-Prelude-C-38C-38 (Basics-Prelude-not (Basics-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--7014-6289-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--evalDef-8142 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 (Basics-Prelude-C-124C-124 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)) (lambda () (Basics-Prelude-C-124C-124 (Basics-Prelude-not (Basics-Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)) (lambda () (Basics-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 () (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 arg-5 (lambda () (Basics-Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) arg-7)))) (lambda () (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 arg-5 (lambda () (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)))) (lambda () (Basics-Prelude-C-38C-38 (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5)) (lambda () (Types-Prelude-elem 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (Context-Core-C-61C-61_Eq__DefFlag arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Context-Core-C-47C-61_Eq__DefFlag arg-12 arg-13)))) (vector 3 ) arg-9)))))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-evalOp arg-0 arg-1 e-5 arg-2 (Primitives-Core-getOp 'erased e-6 arg-2) arg-10 arg-11))))(else (lambda (eta-0) (vector 1 (arg-11)))))))) -(define Normalise-Core-evalConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (Normalise-Core-case--evalConAlt-6925 arg-0 arg-1 arg-2 arg-3 arg-9 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-getCaseBound arg-0 arg-1 'erased 'erased arg-10 arg-9 arg-5)))) +(define Normalise-Core-evalLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Normalise-Core-case--evalLocal-6351 arg-0 arg-1 'erased arg-3 arg-11 arg-10 arg-8 'erased arg-7 arg-6 arg-5 (Basics-Prelude-C-38C-38 (Basics-Prelude-not (Basics-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--6832-6281-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--evalDef-8124 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 (Basics-Prelude-C-124C-124 (let ((sc1 e-0)) (let ((e-5 (vector-ref sc1 2))) e-5)) (lambda () (Basics-Prelude-C-124C-124 (Basics-Prelude-not (Basics-Prelude-C-124C-124 (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)) (lambda () (Basics-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 () (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 arg-5 (lambda () (Basics-Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) arg-7)))) (lambda () (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 arg-5 (lambda () (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) e-12)))) (lambda () (Basics-Prelude-C-38C-38 (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 6))) e-5)) (lambda () (Types-Prelude-elem 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (Context-Core-C-61C-61_Eq__DefFlag arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Context-Core-C-47C-61_Eq__DefFlag arg-12 arg-13)))) (vector 3 ) arg-9)))))))))))))))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Normalise-Core-evalOp arg-0 arg-1 e-5 arg-2 (Primitives-Core-getOp 'erased e-6 arg-2) arg-10 arg-11))))(else (lambda (eta-0) (vector 1 (arg-11)))))))) +(define Normalise-Core-evalConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (Normalise-Core-case--evalConAlt-6907 arg-0 arg-1 arg-2 arg-3 arg-9 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-getCaseBound arg-0 arg-1 'erased 'erased arg-10 arg-9 arg-5)))) (define Normalise-Core-evalClosure (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (Normalise-Core-eval arg-1 e-2 arg-0 e-1 e-4 e-3 e-5 (vector 0 )))))))) (else (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-7)))))))) (define Normalise-Core-evalArg (lambda (arg-0 arg-1 arg-2) (Normalise-Core-evalClosure arg-0 arg-1 arg-2))) -(define Normalise-Core-eval (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 arg-3 arg-4 e-2 e-3 e-4 'erased arg-7 arg-5))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-4 1 e-7 e-8 e-9 arg-7 (lambda () (vector 1 e-7 (vector 1 e-8 e-9) arg-7))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Normalise-Core-evalMeta arg-0 arg-1 arg-2 arg-4 e-11 e-12 e-13 (Normalise-Core-n--7013-5865-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-61 (vector-ref sc2 1))) (let ((e-62 (vector-ref sc2 2))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 e-17 arg-3) arg-4 (vector 1 e-61 arg-5) e-19 e-62))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 0 ))) e-18) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))) ((1) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (let ((e-58 (vector-ref sc1 3))) (let ((e-59 (vector-ref sc1 4))) (let ((b (vector 1 e-56 e-57 e-58 e-59))) (Normalise-Core-case--eval-5915 arg-0 arg-1 arg-2 arg-3 e-56 e-17 e-19 e-58 e-59 e-57 b e-16 arg-7 arg-5 arg-4 (Basics-Prelude-C-38C-38 (Basics-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 () (Basics-Prelude-not (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 6))) e-5))))))))))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 0 ))) e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 (vector 1 (vector 0 arg-3 arg-1 arg-5 arg-4 e-23) arg-7))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Normalise-Core-case--eval-6076 arg-0 arg-1 arg-2 arg-3 e-28 e-27 e-26 e-25 arg-7 arg-5 arg-4 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-30 e-31 e-5)))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (vector 1 (vector 6 e-34 e-35 (vector 0 arg-3 arg-1 arg-5 arg-4 e-36) (vector 0 arg-3 arg-1 arg-5 arg-4 e-37))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) ((Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-4 (vector 1 e-4 arg-5) (vector 0 e-1 (vector 0 ) 0) arg-7) eta-0))))(else (vector 1 (vector 7 e-39 e-40 e-5 arg-7))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 8 e-43 e-44)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-46 e-47)))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 10 e-49))))))))) +(define Normalise-Core-eval (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Normalise-Core-evalLocal arg-0 arg-1 'erased arg-2 arg-3 arg-4 e-2 e-3 e-4 'erased arg-7 arg-5))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Normalise-Core-evalRef arg-0 arg-1 arg-2 arg-4 1 e-7 e-8 e-9 arg-7 (lambda () (vector 1 e-7 (vector 1 e-8 e-9) arg-7))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Normalise-Core-evalMeta arg-0 arg-1 arg-2 arg-4 e-11 e-12 e-13 (Normalise-Core-n--6831-5865-closeArgs arg-0 arg-1 arg-3 arg-2 e-14 e-13 e-12 e-11 arg-7 arg-5 arg-4 e-14) arg-7)))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (let ((e-60 (vector-ref sc2 2))) (Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 e-17 arg-3) arg-4 (vector 1 e-59 arg-5) e-19 e-60))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 0 ))) e-18) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))) ((1) (let ((e-55 (vector-ref sc1 1))) (let ((e-56 (vector-ref sc1 2))) (let ((e-57 (vector-ref sc1 3))) (let ((b (vector 1 e-55 e-56 e-57))) (Normalise-Core-case--eval-5911 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 (Basics-Prelude-C-38C-38 (Basics-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 () (Basics-Prelude-not (let ((sc2 arg-1)) (let ((e-5 (vector-ref sc2 6))) e-5)))))))))))(else (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (tm) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tm (vector 0 ))) e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-16 e-17 e-5 (lambda (defsC-39) (lambda (arg) (Normalise-Core-evalWithOpts arg-2 (vector 1 e-17 arg-3) defsC-39 arg-1 arg-4 (vector 1 arg arg-5) e-19 arg-7))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 (vector 1 (vector 0 arg-3 arg-1 arg-5 arg-4 e-23) arg-7))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Normalise-Core-case--eval-6068 arg-0 arg-1 arg-2 arg-3 e-28 e-27 e-26 e-25 arg-7 arg-5 arg-4 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-30 e-31 e-5)))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (vector 1 (vector 6 e-34 e-35 (vector 0 arg-3 arg-1 arg-5 arg-4 e-36) (vector 0 arg-3 arg-1 arg-5 arg-4 e-37))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) ((Normalise-Core-eval arg-0 arg-1 arg-2 (vector 1 (vector 1 "fvar") arg-3) arg-4 (vector 1 e-4 arg-5) (vector 0 e-1 (vector 0 ) 0) arg-7) eta-0))))(else (vector 1 (vector 7 e-39 e-40 e-5 arg-7))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 8 e-43 e-44)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-46 e-47)))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 10 e-49))))))))) (define Normalise-Core-convert (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-1 arg-1) arg-3) arg-4) arg-5) arg-6))))))))) (define Normalise-Core-convGen (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) ((((((e-2 arg-1) arg-3) arg-4) arg-5) arg-6) arg-7)))))))))) -(define Normalise-Core-convBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (Normalise-Core-case--convBinders-13551 arg-0 e-11 e-1 e-4 e-3 e-2 e-14 e-13 e-12 arg-3 arg-2 arg-1 (Basics-Prelude-not (Normalise-Core-subRig e-2 e-12))))))))(else (Normalise-Core-case--convBinders-13695 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-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (Normalise-Core-case--convBinders-13627 arg-0 e-16 e-6 e-9 e-8 e-7 e-19 e-18 e-17 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega e-7 e-17)))))))(else (Normalise-Core-case--convBinders-13695 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--convBinders-13695 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5)))))))) -(define Normalise-Core-chkSameDefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Context-Core-lookupDefExact arg-4 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((act-25 (Context-Core-lookupDefExact arg-5 (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((act-26 ((Normalise-Core-getMatchingVars e-3 e-13 arg-2 (vector 0 ) e-4 e-12) ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-16 (vector-ref sc7 1))) ((Normalise-Core-n--12434-11581-convertMatches arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-3 e-13 e-16) ext-0))) (else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))) -(define Normalise-Core-chkConvHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Types-Prelude-C-61C-61_Eq__Nat e-3 e-15)))))(else (lambda (eta-0) (vector 1 1))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-7 e-19)))))(else (lambda (eta-0) (vector 1 1))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (Normalise-Core-case--chkConvHead-13465 arg-0 e-11 e-10 e-9 e-23 e-22 e-21 arg-3 arg-2 arg-1 (EqOrd-Prelude-C-61C-61_Eq__Int e-10 e-22))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Normalise-Core-chkConvCaseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((6) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((act-25 ((Context-Core-full_HasNames__Name (let ((sc5 arg-3)) (let ((e-34 (vector-ref sc5 1))) e-34)) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-0 (vector 6 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) ((6) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-26 (Normalise-Core-chkSameDefs arg-0 arg-2 arg-3 arg-4 e-2 e-5 arg-6 arg-8 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (let ((_-1 (vector 0 e-11 (vector 6 e-13 e-12)))) (let ((sc9 e-14)) (cond ((equal? sc9 1) (let ((act-27 ((Context-Core-lookupCtxtExact e-2 (let ((sc10 arg-3)) (let ((e-40 (vector-ref sc10 1))) e-40))) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((_-2 1)) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-16 (vector-ref sc11 1))) (let ((act-28 ((Context-Core-lookupCtxtExact e-5 (let ((sc12 arg-3)) (let ((e-42 (vector-ref sc12 1))) e-42))) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((_-3 (vector 1 e-16))) (let ((sc13 e-17)) (case (vector-ref sc13 0) ((1) (let ((e-18 (vector-ref sc13 1))) (let ((_-4 (vector 1 e-18))) ((Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12327 arg-0 e-4 e-1 e-2 e-5 arg-8 arg-6 arg-4 arg-3 arg-2 arg-1 e-0 e-8 e-7 _-0 e-11 e-13 e-12 _-1 _-2 e-16 _-3 e-18 _-4 (let ((sc14 e-16)) (let ((e-22 (vector-ref sc14 18))) e-22))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0)))))))))))))(else (vector 1 1)))))))(else (vector 1 1)))))))))))))(else (vector 1 1)))))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-convBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (Normalise-Core-case--convBinders-13529 arg-0 e-3 e-2 e-1 e-11 e-10 e-9 arg-3 arg-2 arg-1 (Basics-Prelude-not (Normalise-Core-subRig e-1 e-9)))))))(else (Normalise-Core-case--convBinders-13653 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--convBinders-13593 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--convBinders-13653 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--convBinders-13653 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (TT-Core-multiplicity 'erased arg-4) (TT-Core-multiplicity 'erased arg-5)))))))) +(define Normalise-Core-chkSameDefs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Context-Core-lookupDefExact arg-4 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((act-25 (Context-Core-lookupDefExact arg-5 (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-13 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((act-26 ((Normalise-Core-getMatchingVars e-3 e-13 arg-2 (vector 0 ) e-4 e-12) ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-16 (vector-ref sc7 1))) ((Normalise-Core-n--12233-11563-convertMatches arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-3 e-13 e-16) ext-0))) (else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))) +(define Normalise-Core-chkConvHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Types-Prelude-C-61C-61_Eq__Nat e-3 e-15)))))(else (lambda (eta-0) (vector 1 1))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-19 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-7 e-19)))))(else (lambda (eta-0) (vector 1 1))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (Normalise-Core-case--chkConvHead-13447 arg-0 e-11 e-10 e-9 e-23 e-22 e-21 arg-3 arg-2 arg-1 (EqOrd-Prelude-C-61C-61_Eq__Int e-10 e-22))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Normalise-Core-chkConvCaseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((6) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((act-25 ((Context-Core-full_HasNames__Name (let ((sc5 arg-3)) (let ((e-34 (vector-ref sc5 1))) e-34)) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-0 (vector 6 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) ((6) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-26 (Normalise-Core-chkSameDefs arg-0 arg-2 arg-3 arg-4 e-2 e-5 arg-6 arg-8 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (let ((_-1 (vector 0 e-11 (vector 6 e-13 e-12)))) (let ((sc9 e-14)) (cond ((equal? sc9 1) (let ((act-27 ((Context-Core-lookupCtxtExact e-2 (let ((sc10 arg-3)) (let ((e-40 (vector-ref sc10 1))) e-40))) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((_-2 1)) (let ((sc11 e-15)) (case (vector-ref sc11 0) ((1) (let ((e-16 (vector-ref sc11 1))) (let ((act-28 ((Context-Core-lookupCtxtExact e-5 (let ((sc12 arg-3)) (let ((e-42 (vector-ref sc12 1))) e-42))) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((_-3 (vector 1 e-16))) (let ((sc13 e-17)) (case (vector-ref sc13 0) ((1) (let ((e-18 (vector-ref sc13 1))) (let ((_-4 (vector 1 e-18))) ((Normalise-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32chkConvCaseBlock-12309 arg-0 e-4 e-1 e-2 e-5 arg-8 arg-6 arg-4 arg-3 arg-2 arg-1 e-0 e-8 e-7 _-0 e-11 e-13 e-12 _-1 _-2 e-16 _-3 e-18 _-4 (let ((sc14 e-16)) (let ((e-22 (vector-ref sc14 18))) e-22))) eta-0))))(else (vector 1 1))))))))))))(else (vector 1 1))))))))))) (else (vector 1 0)))))))))))))(else (vector 1 1)))))))(else (vector 1 1)))))))))))))(else (vector 1 1)))))))(else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) (define Normalise-Core-argsFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 (vector 0 ) arg-4))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Types-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))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 e-6 e-5) e-4)))))))))))))))))) (define Normalise-Core-allConv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convGen_Convert__Closure arg-0 arg-1 arg-2 arg-3 e-2 e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-3 e-7) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Basics-Prelude-C-38C-38 e-5 (lambda () e-8)))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) (define Normalise-Core-Stack (lambda (arg-0) (vector "Prelude.Types.List" (vector "Core.Value.Closure" arg-0)))) @@ -3764,7 +3689,7 @@ (define Primitives-Core-shiftr (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (Interfaces-Prelude-shiftR e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-shr e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-shr e-2 e-8)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-shr e-3 e-9)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-shr e-4 e-10)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 5 (blodwen-shr e-5 e-11)))))(else (vector 0 ))))))(else (vector 0 )))))) (define Primitives-Core-shiftl (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (Interfaces-Prelude-shiftL e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-shl e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 (Num-Prelude-mod_Integral__Int (blodwen-bits-shl e-2 e-8 63) (Primitives-Core-b8max))))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 3 (Num-Prelude-mod_Integral__Int (blodwen-bits-shl e-3 e-9 63) (Primitives-Core-b16max))))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 4 (Num-Prelude-mod_Integral__Int (blodwen-bits-shl e-4 e-10 63) (Primitives-Core-b32max))))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 5 (Num-Prelude-mod_Integral__Integer (blodwen-shl e-5 e-11) (Primitives-Core-b64max))))))(else (vector 0 ))))))(else (vector 0 )))))) (define Primitives-Core-prim (lambda (arg-0) (vector 1 (Strings-Types-Prelude-C-43C-43 "prim__" arg-0)))) -(define Primitives-Core-predTy (lambda (arg-0 arg-1) (let ((arr (lambda (eta-0) (lambda (eta-1) (TT-Core-linFnType (vector 0 ) (FC-Core-emptyFC) eta-0 eta-1))))) ((arr (vector 9 (FC-Core-emptyFC) arg-0)) (vector 9 (FC-Core-emptyFC) arg-1))))) +(define Primitives-Core-predTy (lambda (arg-0 arg-1) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-0) (vector 9 (FC-Core-emptyFC) arg-1)))) (define Primitives-Core-opName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "add_" (TT-Core-show_Show__Constant e-0))))) ((1) (let ((e-1 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "sub_" (TT-Core-show_Show__Constant e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "mul_" (TT-Core-show_Show__Constant e-2))))) ((3) (let ((e-3 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "div_" (TT-Core-show_Show__Constant e-3))))) ((4) (let ((e-4 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "mod_" (TT-Core-show_Show__Constant e-4))))) ((5) (let ((e-5 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "negate_" (TT-Core-show_Show__Constant e-5))))) ((6) (let ((e-6 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "shl_" (TT-Core-show_Show__Constant e-6))))) ((7) (let ((e-7 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "shr_" (TT-Core-show_Show__Constant e-7))))) ((8) (let ((e-8 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "and_" (TT-Core-show_Show__Constant e-8))))) ((9) (let ((e-9 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "or_" (TT-Core-show_Show__Constant e-9))))) ((10) (let ((e-10 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "xor_" (TT-Core-show_Show__Constant e-10))))) ((11) (let ((e-11 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "lt_" (TT-Core-show_Show__Constant e-11))))) ((12) (let ((e-12 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "lte_" (TT-Core-show_Show__Constant e-12))))) ((13) (let ((e-13 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "eq_" (TT-Core-show_Show__Constant e-13))))) ((14) (let ((e-14 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "gte_" (TT-Core-show_Show__Constant e-14))))) ((15) (let ((e-15 (vector-ref sc0 1))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "gt_" (TT-Core-show_Show__Constant e-15))))) ((16) (Primitives-Core-prim "strLength")) ((17) (Primitives-Core-prim "strHead")) ((18) (Primitives-Core-prim "strTail")) ((19) (Primitives-Core-prim "strIndex")) ((20) (Primitives-Core-prim "strCons")) ((21) (Primitives-Core-prim "strAppend")) ((22) (Primitives-Core-prim "strReverse")) ((23) (Primitives-Core-prim "strSubstr")) ((24) (Primitives-Core-prim "doubleExp")) ((25) (Primitives-Core-prim "doubleLog")) ((26) (Primitives-Core-prim "doubleSin")) ((27) (Primitives-Core-prim "doubleCos")) ((28) (Primitives-Core-prim "doubleTan")) ((29) (Primitives-Core-prim "doubleASin")) ((30) (Primitives-Core-prim "doubleACos")) ((31) (Primitives-Core-prim "doubleATan")) ((32) (Primitives-Core-prim "doubleSqrt")) ((33) (Primitives-Core-prim "doubleFloor")) ((34) (Primitives-Core-prim "doubleCeiling")) ((35) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (Primitives-Core-prim (Strings-Types-Prelude-C-43C-43 "cast_" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-16) (TT-Core-show_Show__Constant e-17))))))) ((36) (Primitives-Core-prim "believe_me")) (else (Primitives-Core-prim "crash")))))) (define Primitives-Core-neg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (Num-Prelude-negate_Neg__Integer e-0))))) ((0) (let ((e-1 (vector-ref sc0 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (Num-Prelude-negate_Neg__Int e-1))))) ((8) (let ((e-2 (vector-ref sc0 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 8 (Num-Prelude-negate_Neg__Double e-2)))))(else (vector 0 )))))) (define Primitives-Core-mul (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (* e-0 e-7)))))(else (vector 0 )))))) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 (Num-Prelude-mod_Integral__Int (b* e-1 e-8 63) (Primitives-Core-b8max))))))(else (vector 0 )))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 3 (Num-Prelude-mod_Integral__Int (b* e-2 e-9 63) (Primitives-Core-b16max))))))(else (vector 0 )))))) ((4) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 4 (Num-Prelude-mod_Integral__Int (b* e-3 e-10 63) (Primitives-Core-b32max))))))(else (vector 0 )))))) ((5) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 5 (Num-Prelude-mod_Integral__Integer (* e-4 e-11) (Primitives-Core-b64max))))))(else (vector 0 )))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (b* e-5 e-12 63)))))(else (vector 0 )))))) ((8) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-13 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 8 (Num-Prelude-C-42_Num__Double e-6 e-13)))))(else (vector 0 ))))))(else (vector 0 )))))) @@ -3790,10 +3715,10 @@ (define Primitives-Core-doubleASin (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Types-Prelude-asin eta-0)) ext-0))) (define Primitives-Core-doubleACos (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Types-Prelude-acos eta-0)) ext-0))) (define Primitives-Core-div (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (vector 0 ))(else (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (Num-Prelude-div_Integral__Integer e-0 e-3))))))))(else (vector 0 )))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((sc2 e-4)) (cond ((equal? sc2 0) (vector 0 ))(else (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (Num-Prelude-div_Integral__Int e-1 e-4))))))))(else (vector 0 )))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 8 (Num-Prelude-C-47_Fractional__Double e-2 e-5)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define Primitives-Core-crashTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (FC-Core-emptyFC) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "msg") (vector 2 (FC-Core-emptyFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 (FC-Core-emptyFC) (vector 16 ))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0)))))) +(define Primitives-Core-crashTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "msg") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 (FC-Core-emptyFC) (vector 16 ))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0)))))) (define Primitives-Core-constantIntegerValue (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 1 (Types-Prelude-cast_Cast__Int_Integer e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 1 (Types-Prelude-cast_Cast__Int_Integer e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (vector 1 (Types-Prelude-cast_Cast__Int_Integer e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (vector 1 (Types-Prelude-cast_Cast__Int_Integer e-4)))) ((5) (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))(else (vector 0 )))))) -(define Primitives-Core-constTy3 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((arr (lambda (eta-0) (lambda (eta-1) (TT-Core-linFnType (vector 0 ) (FC-Core-emptyFC) eta-0 eta-1))))) ((arr (vector 9 (FC-Core-emptyFC) arg-0)) ((arr (vector 9 (FC-Core-emptyFC) arg-1)) ((arr (vector 9 (FC-Core-emptyFC) arg-2)) (vector 9 (FC-Core-emptyFC) arg-3))))))) -(define Primitives-Core-constTy (lambda (arg-0 arg-1 arg-2) (let ((arr (lambda (eta-0) (lambda (eta-1) (TT-Core-linFnType (vector 0 ) (FC-Core-emptyFC) eta-0 eta-1))))) ((arr (vector 9 (FC-Core-emptyFC) arg-0)) ((arr (vector 9 (FC-Core-emptyFC) arg-1)) (vector 9 (FC-Core-emptyFC) arg-2)))))) +(define Primitives-Core-constTy3 (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-0) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-1) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-2) (vector 9 (FC-Core-emptyFC) arg-3)))))) +(define Primitives-Core-constTy (lambda (arg-0 arg-1 arg-2) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-0) (TT-Core-linFnType (vector 0 ) (vector 9 (FC-Core-emptyFC) arg-1) (vector 9 (FC-Core-emptyFC) arg-2))))) (define Primitives-Core-cmpTy (lambda (arg-0) (Primitives-Core-constTy arg-0 arg-0 (vector 10 )))) (define Primitives-Core-castTo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (Primitives-Core-castInt 'erased eta-0))) ((11) (lambda (eta-0) (Primitives-Core-castInteger 'erased eta-0))) ((12) (lambda (eta-0) (Primitives-Core-castBits8 'erased eta-0))) ((13) (lambda (eta-0) (Primitives-Core-castBits16 'erased eta-0))) ((14) (lambda (eta-0) (Primitives-Core-castBits32 'erased eta-0))) ((15) (lambda (eta-0) (Primitives-Core-castBits64 'erased eta-0))) ((16) (lambda (eta-0) (Primitives-Core-castString 'erased eta-0))) ((17) (lambda (eta-0) (Primitives-Core-castChar 'erased eta-0))) ((18) (lambda (eta-0) (Primitives-Core-castDouble 'erased eta-0)))(else (lambda (eta-0) (vector 0 ))))))) (define Primitives-Core-castString (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Show-Prelude-show_Show__Int e-7)))))(else (vector 0 )))))) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Show-Prelude-show_Show__Integer e-8)))))(else (vector 0 )))))) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Show-Prelude-show_Show__Int e-9)))))(else (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Show-Prelude-show_Show__Int e-10)))))(else (vector 0 )))))) ((4) (let ((e-11 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Show-Prelude-show_Show__Int e-11)))))(else (vector 0 )))))) ((5) (let ((e-12 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Show-Prelude-show_Show__Integer e-12)))))(else (vector 0 )))))) ((7) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (String-Utils-stripQuotes (Show-Prelude-show_Show__Char e-13))))))(else (vector 0 )))))) ((8) (let ((e-14 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Show-Prelude-show_Show__Double e-14)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) @@ -3809,7 +3734,7 @@ (define Primitives-Core-bor (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-or e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-or e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-or e-2 e-8)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-or e-3 e-9)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-or e-4 e-10)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 5 (blodwen-or e-5 e-11)))))(else (vector 0 ))))))(else (vector 0 )))))) (define Primitives-Core-bitCastWrap (lambda (arg-0 arg-1) (Primitives-Core-case--bitCastWrap-935 arg-1 arg-0 (EqOrd-Prelude-C-62C-61_Ord__Integer arg-0 0)))) (define Primitives-Core-binOp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((8) (let ((e-13 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (vector 8 e-5 eta-0)) ((arg-0 e-6) e-13)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Primitives-Core-believeMeTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (FC-Core-emptyFC) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "b") (vector 2 (FC-Core-emptyFC) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "x") (vector 2 (FC-Core-emptyFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))))))) +(define Primitives-Core-believeMeTy (lambda () (vector 3 (FC-Core-emptyFC) (vector 1 "a") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "b") (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 11 (FC-Core-emptyFC))) (vector 3 (FC-Core-emptyFC) (vector 1 "x") (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))) (vector 0 (FC-Core-emptyFC) (vector 0 ) (+ 1 0))))))) (define Primitives-Core-believeMe (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((2) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 e-10))(else (let ((sc4 e-11)) (vector 0 )))))) ((3) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 e-10))(else (let ((sc4 e-11)) (vector 0 )))))) ((8) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 e-10))(else (let ((sc4 e-11)) (vector 0 )))))) ((10) (let ((e-29 (vector-ref sc3 1))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 10 e-29)))(else (let ((sc4 e-11)) (vector 0 )))))))(else (let ((sc3 e-11)) (vector 0 )))))))))))))) (define Primitives-Core-band (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-and e-0 e-6)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-and e-1 e-7)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 (blodwen-and e-2 e-8)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 3 (blodwen-and e-3 e-9)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-10 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 4 (blodwen-and e-4 e-10)))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 5 (blodwen-and e-5 e-11)))))(else (vector 0 ))))))(else (vector 0 )))))) (define Primitives-Core-b8max (lambda () 256)) @@ -3820,63 +3745,63 @@ (define Primitives-Core-arithTy (lambda (arg-0) (Primitives-Core-constTy arg-0 arg-0 arg-0))) (define Primitives-Core-allPrimitives (lambda () (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 0 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 1 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 2 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 18 ) (vector 0 ))))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 3 t) (Primitives-Core-arithTy t) (TT-Core-notCovering))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 18 ) (vector 0 ))))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 4 t) (Primitives-Core-arithTy t) (TT-Core-notCovering))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 5 t) (Primitives-Core-predTy t t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 18 ) (vector 0 ))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 6 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 7 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 8 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 9 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 )))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 10 t) (Primitives-Core-arithTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 0 )))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 11 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 12 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 13 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 14 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 (+ 1 0)) (vector 15 t) (Primitives-Core-cmpTy t) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 1 (vector 16 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))))))) (List-Types-Prelude-C-43C-43 'erased (vector 1 (vector 0 (+ 1 0) (vector 16 ) (Primitives-Core-predTy (vector 16 ) (vector 10 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 17 ) (Primitives-Core-predTy (vector 16 ) (vector 17 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 0) (vector 18 ) (Primitives-Core-predTy (vector 16 ) (vector 16 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 19 ) (Primitives-Core-constTy (vector 16 ) (vector 10 ) (vector 17 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 20 ) (Primitives-Core-constTy (vector 17 ) (vector 16 ) (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 21 ) (Primitives-Core-arithTy (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 22 ) (Primitives-Core-predTy (vector 16 ) (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 (+ 1 0))) (vector 23 ) (Primitives-Core-constTy3 (vector 10 ) (vector 10 ) (vector 16 ) (vector 16 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 (+ 1 0))) (vector 36 ) (Primitives-Core-believeMeTy) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 37 ) (Primitives-Core-crashTy) (TT-Core-notCovering)) (vector 0 ))))))))))) (List-Types-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-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 16 )) (Primitives-Core-predTy t (vector 16 )) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 11 )) (Primitives-Core-predTy t (vector 11 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 10 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 10 )) (Primitives-Core-predTy t (vector 10 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 1 (vector 17 ) (vector 1 (vector 18 ) (vector 0 )))))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 18 )) (Primitives-Core-predTy t (vector 18 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 0 ))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 17 )) (Primitives-Core-predTy t (vector 17 )) (TT-Core-isTotal))) (vector 1 (vector 16 ) (vector 1 (vector 10 ) (vector 0 )))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 12 )) (Primitives-Core-predTy t (vector 12 )) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 13 )) (Primitives-Core-predTy t (vector 13 )) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 14 ) (vector 1 (vector 15 ) (vector 0 ))))))) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 14 )) (Primitives-Core-predTy t (vector 14 )) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 15 ) (vector 0 ))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 15 )) (Primitives-Core-predTy t (vector 15 )) (TT-Core-isTotal))) (vector 1 (vector 10 ) (vector 1 (vector 11 ) (vector 1 (vector 12 ) (vector 1 (vector 13 ) (vector 1 (vector 14 ) (vector 0 ))))))))))))))))))))))))))))))))))) (define Primitives-Core-add (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-8 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (+ e-0 e-8)))))(else (vector 0 )))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (b+ e-1 e-9 63)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 (Num-Prelude-mod_Integral__Int (b+ e-2 e-10 63) (Primitives-Core-b8max))))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-11 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 3 (Num-Prelude-mod_Integral__Int (b+ e-3 e-11 63) (Primitives-Core-b16max))))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-12 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 4 (Num-Prelude-mod_Integral__Int (b+ e-4 e-12 63) (Primitives-Core-b32max))))))(else (vector 0 )))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (let ((e-13 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 5 (Num-Prelude-mod_Integral__Integer (+ e-5 e-13) (Primitives-Core-b64max))))))(else (vector 0 )))))) ((7) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-14 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 7 (Types-Prelude-cast_Cast__Int_Char (b+ (Types-Prelude-cast_Cast__Char_Int e-6) (Types-Prelude-cast_Cast__Char_Int e-14) 63))))))(else (vector 0 )))))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-15 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 8 (Num-Prelude-C-43_Num__Double e-7 e-15)))))(else (vector 0 ))))))(else (vector 0 )))))) -(define Binary-Core-case--readImportHashes-9316 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getImportHashes arg-0 e-5 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Binary-Core-case--readIFaceHash-9265 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getHash arg-0 e-5 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 0))) eta-0))))))))) (else (lambda (eta-0) (vector 1 0))))))) -(define Binary-Core-case--caseC-32blockC-32inC-32readFromTTC-9080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8959 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-16)) (let ((e-19 (vector-ref sc1 9))) e-19)) e-7 e-8 e-9))))))))))))) -(define Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc1 arg-16)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 arg-16)) (let ((e-8 (vector-ref sc1 8))) e-8)))))))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Binary-Core-addGlobalDef arg-9 arg-3 arg-15 eta-1)) (let ((sc1 arg-16)) (let ((e-4 (vector-ref sc1 4))) e-4))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addUserHole arg-9 eta-1 eta-2))) (let ((sc2 arg-16)) (let ((e-19 (vector-ref sc2 5))) e-19))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-setNS arg-9 (let ((sc3 arg-16)) (let ((e-10 (vector-ref sc3 10))) e-10)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((sc4 arg-7)) (cond ((equal? sc4 0) (Context-Core-setNestedNS arg-9 (let ((sc5 arg-16)) (let ((e-11 (vector-ref sc5 11))) e-11)) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((sc5 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-19) (lambda (arg-20) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-21) (lambda (arg-22) (EqOrd-Prelude-C-61C-61_Eq__String arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (EqOrd-Prelude-C-47C-61_Eq__String arg-21 arg-22)))) arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-21) (lambda (arg-22) (EqOrd-Prelude-C-61C-61_Eq__String arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (EqOrd-Prelude-C-47C-61_Eq__String arg-21 arg-22)))) arg-19 arg-20)))) arg-3 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased (Binary-Core-getNSas eta-1))) (let ((sc6 arg-10)) (let ((e-18 (vector-ref sc6 19))) e-18))))))) (cond ((equal? sc5 0) (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addTypeHint arg-9 arg-6 eta-1)) (let ((sc6 arg-16)) (let ((e-20 (vector-ref sc6 7))) e-20))) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addAutoHint arg-9 eta-1)) (let ((sc7 arg-16)) (let ((e-22 (vector-ref sc7 6))) e-22))) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-30 (Binary-Core-updatePair arg-9 (let ((sc8 arg-16)) (let ((e-12 (vector-ref sc8 12))) e-12)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-31 (Binary-Core-updateRewrite arg-9 (let ((sc9 arg-16)) (let ((e-13 (vector-ref sc9 13))) e-13)) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-32 (Binary-Core-updatePrims arg-9 (let ((sc10 arg-16)) (let ((e-14 (vector-ref sc10 14))) e-14)) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-33 ((Binary-Core-updateNameDirectives arg-9 (List-Data-reverse 'erased (let ((sc11 arg-16)) (let ((e-15 (vector-ref sc11 15))) e-15)))) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-34 (Binary-Core-updateCGDirectives arg-9 (let ((sc12 arg-16)) (let ((e-16 (vector-ref sc12 16))) e-16)) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else ((Binary-Core-updateTransforms arg-9 (let ((sc13 arg-16)) (let ((e-17 (vector-ref sc13 17))) e-17))) eta-0)))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (let ((sc6 (Basics-Prelude-not arg-5))) (cond ((equal? sc6 0) (Context-Core-clearSavedHints arg-9 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (Context-Core-resetFirstEntry arg-9 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-8))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (set-box! arg-8 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-2 (vector-ref sc9 3))) (let ((e-3 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-17 (vector-ref sc9 6))) (let ((e-15 (vector-ref sc9 8))) (let ((e-14 (vector-ref sc9 9))) (let ((e-13 (vector-ref sc9 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-17 (let ((sc10 arg-16)) (let ((e-27 (vector-ref sc10 9))) e-27)) e-15 e-14 e-13)))))))))))))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc10 arg-16)) (let ((e-2 (vector-ref sc10 2))) e-2)) (let ((sc10 arg-16)) (let ((e-24 (vector-ref sc10 8))) e-24))))))))))))))))))))))))))))))))))))))))))))))))) -(define Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 arg-2)))))) -(define Binary-Core-case--caseC-32blockC-32inC-32readFromTTC-8527 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8572 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-2 arg-3))))) (let ((act-25 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-4 as e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((ex (let ((sc3 e-6)) (let ((e-18 (vector-ref sc3 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8653 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 as e-6 ex (Binary-Core-n--12159-8388-alreadyDone 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-3 arg-2 (let ((sc3 arg-10)) (let ((e-18 (vector-ref sc3 19))) e-18)))) eta-0))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 arg-4 (Strings-Types-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) -(define Binary-Core-case--readFromTTC-8481 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-9 (let ((sc1 arg-10)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Binary-Utils-readFromFile arg-4 eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8572 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__String arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__String arg-12 arg-13)))) arg-2 arg-3))))) (let ((act-27 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-4 as e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((ex (let ((sc6 e-8)) (let ((e-18 (vector-ref sc6 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8653 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 as e-8 ex (Binary-Core-n--12159-8388-alreadyDone 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-3 arg-2 (let ((sc6 arg-10)) (let ((e-18 (vector-ref sc6 19))) e-18)))) eta-0)))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 arg-4 (Strings-Types-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-7)))) eta-0))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Binary-Core-case--caseC-32blockC-32inC-32updateTransformsC-44addT-8317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 arg-7) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Binary-Core-case--caseC-32blockC-32inC-32updateTransformsC-44addT-8245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Binary-Core-case--updateTransformsC-44addT-8193 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 e-2) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))))))) -(define Binary-Core-case--updateCGDirectives-8157 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 arg-3 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define Binary-Core-case--updateNameDirectives-8090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased arg-0 arg-1 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Binary-Core-case--updatePrims-8022 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-0 e-32) e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) -(define Binary-Core-case--updatePrimNames-7950 (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 (Types-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) (Types-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) (Types-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--updateRewrite-7930 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 (Types-Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-31) e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) -(define Binary-Core-case--updatePair-7865 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 (Types-Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-30) e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) -(define Binary-Core-case--addAutoHint-7799 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-1 e-8) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define Binary-Core-case--addGlobalDef-7630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Context-Core-addContextEntry arg-4 arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))) -(define Binary-Core-case--addGlobalDefC-44completeDef-7548 (lambda (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--writeToTTC-7460 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 arg-3 (Strings-Types-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) +(define Binary-Core-case--readImportHashes-9312 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getImportHashes arg-0 e-5 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Binary-Core-case--readIFaceHash-9261 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (Binary-Core-getHash arg-0 e-5 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6))))))) (lambda (err) (lambda (eta-1) (vector 1 0))) eta-0))))))))) (else (lambda (eta-0) (vector 1 0))))))) +(define Binary-Core-case--caseC-32blockC-32inC-32readFromTTC-9076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8955 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-16)) (let ((e-19 (vector-ref sc1 9))) e-19)) e-7 e-8 e-9))))))))))))) +(define Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc1 arg-16)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 arg-16)) (let ((e-8 (vector-ref sc1 8))) e-8)))))))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Binary-Core-addGlobalDef arg-9 arg-3 arg-15 eta-1)) (let ((sc1 arg-16)) (let ((e-4 (vector-ref sc1 4))) e-4))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addUserHole arg-9 eta-1 eta-2))) (let ((sc2 arg-16)) (let ((e-19 (vector-ref sc2 5))) e-19))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-setNS arg-9 (let ((sc3 arg-16)) (let ((e-10 (vector-ref sc3 10))) e-10)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((sc4 arg-7)) (cond ((equal? sc4 0) (Context-Core-setNestedNS arg-9 (let ((sc5 arg-16)) (let ((e-11 (vector-ref sc5 11))) e-11)) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((sc5 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-19) (lambda (arg-20) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-21) (lambda (arg-22) (EqOrd-Prelude-C-61C-61_Eq__String arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (EqOrd-Prelude-C-47C-61_Eq__String arg-21 arg-22)))) arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-21) (lambda (arg-22) (EqOrd-Prelude-C-61C-61_Eq__String arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (EqOrd-Prelude-C-47C-61_Eq__String arg-21 arg-22)))) arg-19 arg-20)))) arg-3 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased (Binary-Core-getNSas eta-1))) (let ((sc6 arg-10)) (let ((e-18 (vector-ref sc6 19))) e-18))))))) (cond ((equal? sc5 0) (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addTypeHint arg-9 arg-6 eta-1)) (let ((sc6 arg-16)) (let ((e-20 (vector-ref sc6 7))) e-20))) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addAutoHint arg-9 eta-1)) (let ((sc7 arg-16)) (let ((e-22 (vector-ref sc7 6))) e-22))) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-30 (Binary-Core-updatePair arg-9 (let ((sc8 arg-16)) (let ((e-12 (vector-ref sc8 12))) e-12)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-31 (Binary-Core-updateRewrite arg-9 (let ((sc9 arg-16)) (let ((e-13 (vector-ref sc9 13))) e-13)) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-32 (Binary-Core-updatePrims arg-9 (let ((sc10 arg-16)) (let ((e-14 (vector-ref sc10 14))) e-14)) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-33 ((Binary-Core-updateNameDirectives arg-9 (List-Data-reverse 'erased (let ((sc11 arg-16)) (let ((e-15 (vector-ref sc11 15))) e-15)))) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-34 (Binary-Core-updateCGDirectives arg-9 (let ((sc12 arg-16)) (let ((e-16 (vector-ref sc12 16))) e-16)) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else ((Binary-Core-updateTransforms arg-9 (let ((sc13 arg-16)) (let ((e-17 (vector-ref sc13 17))) e-17))) eta-0)))))))))))))))))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (let ((sc6 (Basics-Prelude-not arg-5))) (cond ((equal? sc6 0) (Context-Core-clearSavedHints arg-9 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (Context-Core-resetFirstEntry arg-9 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-8))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (set-box! arg-8 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-2 (vector-ref sc9 3))) (let ((e-3 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-17 (vector-ref sc9 6))) (let ((e-15 (vector-ref sc9 8))) (let ((e-14 (vector-ref sc9 9))) (let ((e-13 (vector-ref sc9 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-17 (let ((sc10 arg-16)) (let ((e-27 (vector-ref sc10 9))) e-27)) e-15 e-14 e-13)))))))))))))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc10 arg-16)) (let ((e-2 (vector-ref sc10 2))) e-2)) (let ((sc10 arg-16)) (let ((e-24 (vector-ref sc10 8))) e-24))))))))))))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 arg-2)))))) +(define Binary-Core-case--caseC-32blockC-32inC-32readFromTTC-8523 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8568 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-2 arg-3))))) (let ((act-25 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-4 as e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((ex (let ((sc3 e-6)) (let ((e-18 (vector-ref sc3 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8649 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2 _-0 e-5 as e-6 ex (Binary-Core-n--11981-8384-alreadyDone 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-3 arg-2 (let ((sc3 arg-10)) (let ((e-18 (vector-ref sc3 19))) e-18)))) eta-0))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 arg-4 (Strings-Types-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) +(define Binary-Core-case--readFromTTC-8477 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-9 (let ((sc1 arg-10)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 arg-2))) e-18) e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Binary-Utils-readFromFile arg-4 eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8568 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__String arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__String arg-12 arg-13)))) arg-2 arg-3))))) (let ((act-27 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-4 as e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((ex (let ((sc6 e-8)) (let ((e-18 (vector-ref sc6 18))) e-18)))) (let ((_-0 (vector 1 e-2))) ((Binary-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32readFromTTC-8649 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-2 _-0 e-7 as e-8 ex (Binary-Core-n--11981-8384-alreadyDone 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-3 arg-2 (let ((sc6 arg-10)) (let ((e-18 (vector-ref sc6 19))) e-18)))) eta-0)))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 arg-4 (Strings-Types-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-7)))) eta-0))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Binary-Core-case--caseC-32blockC-32inC-32updateTransformsC-44addT-8313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 arg-7) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Binary-Core-case--caseC-32blockC-32inC-32updateTransformsC-44addT-8241 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Binary-Core-case--updateTransformsC-44addT-8189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 (vector 0 )) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-26 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-26 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-5 (vector 1 arg-4 e-2) e-12) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-24))))))))) +(define Binary-Core-case--updateCGDirectives-8153 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 arg-3 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define Binary-Core-case--updateNameDirectives-8086 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased arg-0 arg-1 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Binary-Core-case--updatePrims-8018 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-0 e-32) e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-case--updatePrimNames-7946 (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 (Types-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) (Types-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) (Types-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--updateRewrite-7926 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 (Types-Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-31) e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-case--updatePair-7861 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 (Types-Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-30) e-31 e-32 e-33 e-34) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-case--addAutoHint-7795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (NameMap-Data-insert 'erased arg-4 arg-1 e-8) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define Binary-Core-case--addGlobalDef-7628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Context-Core-addContextEntry arg-4 arg-0 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))) +(define Binary-Core-case--addGlobalDefC-44completeDef-7546 (lambda (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--writeToTTC-7458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 arg-3 (Strings-Types-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) (define Binary-Core-case--caseC-32blockC-32inC-32getSaveDefs-7273 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (Binary-Core-getSaveDefs arg-1 arg-3 arg-2))(else (lambda (eta-0) (let ((act-24 (Binary-Utils-initBinaryS 16384 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (Context-Core-full_HasNames__GlobalDef (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (TTC-Core-toBuf_TTC__GlobalDef e-5 e-6 eta-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Binary-Core-getSaveDefs arg-1 (vector 1 (vector 0 (let ((sc3 arg-4)) (let ((e-1 (vector-ref sc3 2))) e-1)) e-7) arg-3) arg-2) eta-0))))))))))))))))))))) (define Binary-Core-case--getSaveDefs-7260 (lambda (arg-0 arg-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--caseC-32blockC-32inC-32getSaveDefs-7273 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (Binary-Core-getSaveDefs arg-1 arg-3 arg-2)))))) -(define Binary-Core-n--9553-5855-resolved_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) (((e-4 arg-4) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Binary-Core-n--9553-5855-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--9976-6466-resolvedRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 e-6))))))))))))))))))))))) -(define Binary-Core-n--9976-6467-resolvedPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-21 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-21 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-21 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7)))))))))))))))))))))))) -(define Binary-Core-n--9976-6465-resolvedPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-resolved_HasNames__Name arg-21 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 0 e-6 e-7 e-8))))))))))))))))))))))))))))) -(define Binary-Core-n--9552-5826-full_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Binary-Core-n--9552-5826-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--9975-6272-fullRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 e-6))))))))))))))))))))))) -(define Binary-Core-n--9975-6273-fullPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-21 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-21 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-21 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7)))))))))))))))))))))))) -(define Binary-Core-n--9975-6271-fullPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-full_HasNames__Name arg-21 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 0 e-6 e-7 e-8))))))))))))))))))))))))))))) -(define Binary-Core-n--11252-7539-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--addGlobalDefC-44completeDef-7548 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--12159-8388-alreadyDone (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-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))) (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-10 e-10) (lambda () (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 e-15))) (lambda () (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-10 e-10) (lambda () (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-10 arg-11))) (lambda () (Binary-Core-n--12159-8388-alreadyDone 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3))))))))))))))))))) -(define Binary-Core-n--11920-8177-addT (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Core-case--updateTransformsC-44addT-8193 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-n--9379-5855-resolved_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) (((e-4 arg-4) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Binary-Core-n--9379-5855-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--9802-6466-resolvedRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 e-6))))))))))))))))))))))) +(define Binary-Core-n--9802-6467-resolvedPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-21 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-21 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-21 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7)))))))))))))))))))))))) +(define Binary-Core-n--9802-6465-resolvedPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-resolved_HasNames__Name arg-21 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 0 e-6 e-7 e-8))))))))))))))))))))))))))))) +(define Binary-Core-n--9378-5826-full_aux (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-5)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-2) eta-0))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Binary-Core-n--9378-5826-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--9801-6272-fullRW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 e-6))))))))))))))))))))))) +(define Binary-Core-n--9801-6273-fullPrim (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-21 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-21 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-21 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7)))))))))))))))))))))))) +(define Binary-Core-n--9801-6271-fullPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-full_HasNames__Name arg-21 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 0 e-6 e-7 e-8))))))))))))))))))))))))))))) +(define Binary-Core-n--11076-7537-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--addGlobalDefC-44completeDef-7546 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--11981-8384-alreadyDone (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-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))) (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-10 e-10) (lambda () (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 e-15))) (lambda () (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-10 e-10) (lambda () (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-10 arg-11))) (lambda () (Binary-Core-n--11981-8384-alreadyDone 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3))))))))))))))))))) +(define Binary-Core-n--11742-8173-addT (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Core-case--updateTransformsC-44addT-8189 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 e-5 (NameMap-Data-lookup 'erased arg-4 (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 13))) e-12)))) ext-0)))))))) (define Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Transform arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))))))) (define Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-3))))))))))))) (define Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-resolved_HasNames__Name arg-0 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 (vector 0 e-8 e-7)))))))))))))))))))))) (define Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-3))))))))))))) -(define Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 18))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-2 arg-4)) e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-20 (vector-ref sc2 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc2 1))) (let ((act-26 ((Binary-Core-n--9976-6465-resolvedPair 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc3 1))) (let ((act-27 ((Binary-Core-n--9976-6466-resolvedRW 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-13) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc4 1))) (let ((act-28 ((Binary-Core-n--9976-6467-resolvedPrim 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-14) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-23 (vector-ref sc5 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc5 1))) (let ((act-29 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (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-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (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-5319 arg-5320)))) arg-2 e-15) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc6 1))) (let ((act-30 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (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-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (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-5319 arg-5320)))) arg-2 e-17) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 arg-1)) (let ((e-26 (vector-ref sc8 2))) (((e-26 arg-2) e-18) eta-0))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc8 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 e-5 e-19 e-20 e-8 e-9 e-10 e-11 e-21 e-22 e-23 e-24 e-16 e-25 e-26)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--9553-5855-resolved_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3))) +(define Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 18))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-resolved_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-2 arg-4)) e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-20 (vector-ref sc2 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc2 1))) (let ((act-26 ((Binary-Core-n--9802-6465-resolvedPair 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc3 1))) (let ((act-27 ((Binary-Core-n--9802-6466-resolvedRW 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-13) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc4 1))) (let ((act-28 ((Binary-Core-n--9802-6467-resolvedPrim 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-14) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-23 (vector-ref sc5 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc5 1))) (let ((act-29 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (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-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (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-5319 arg-5320)))) arg-2 e-15) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc6 1))) (let ((act-30 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (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-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (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-5319 arg-5320)))) arg-2 e-17) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 arg-1)) (let ((e-26 (vector-ref sc8 2))) (((e-26 arg-2) e-18) eta-0))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc8 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 e-5 e-19 e-20 e-8 e-9 e-10 e-11 e-21 e-22 e-23 e-24 e-16 e-25 e-26)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--9379-5855-resolved_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3))) (define Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32TransformC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32TransformC-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__Transform arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))))))) (define Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-3))))))))))))) (define Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-full_HasNames__Name arg-0 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 (vector 0 e-8 e-7)))))))))))))))))))))) (define Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40ListC-32StringC-41C-41C-124C-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-3))))))))))))) -(define Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 18))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-2 arg-4)) e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-20 (vector-ref sc2 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc2 1))) (let ((act-26 ((Binary-Core-n--9975-6271-fullPair 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc3 1))) (let ((act-27 ((Binary-Core-n--9975-6272-fullRW 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-13) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc4 1))) (let ((act-28 ((Binary-Core-n--9975-6273-fullPrim 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-14) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-23 (vector-ref sc5 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc5 1))) (let ((act-29 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (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-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (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-5319 arg-5320)))) arg-2 e-15) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc6 1))) (let ((act-30 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (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-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (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-5319 arg-5320)))) arg-2 e-17) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 arg-1)) (let ((e-27 (vector-ref sc8 1))) (((e-27 arg-2) e-18) eta-0))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc8 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 e-5 e-19 e-20 e-8 e-9 e-10 e-11 e-21 e-22 e-23 e-24 e-16 e-25 e-26)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--9552-5826-full_aux 'erased arg-1 arg-3 arg-2 arg-2 (vector 0 ) arg-3))) +(define Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 18))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41 arg-2 arg-4)) e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-4) (Binary-Core-full_HasNames__C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32C-40C-124C-40C-40BuiltinC-46PairC-32NameC-41C-32BoolC-41C-44C-40C-40BuiltinC-46MkPairC-32NameC-41C-32BoolC-41C-124C-41C-41C-124C-41 arg-2 arg-4)) e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-20 (vector-ref sc2 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc2 1))) (let ((act-26 ((Binary-Core-n--9801-6271-fullPair 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc3 1))) (let ((act-27 ((Binary-Core-n--9801-6272-fullRW 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-13) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc4 1))) (let ((act-28 ((Binary-Core-n--9801-6273-fullPrim 'erased arg-1 e-18 e-17 e-16 e-15 e-14 e-13 e-12 e-11 e-10 e-9 e-8 e-7 e-6 e-5 e-4 e-3 e-2 e-1 arg-2 arg-2 e-14) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-23 (vector-ref sc5 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc5 1))) (let ((act-29 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (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-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (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-5319 arg-5320)))) arg-2 e-15) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc6 1))) (let ((act-30 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (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-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (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-5319 arg-5320)))) arg-2 e-17) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 arg-1)) (let ((e-27 (vector-ref sc8 1))) (((e-27 arg-2) e-18) eta-0))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc8 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-4 e-5 e-19 e-20 e-8 e-9 e-10 e-11 e-21 e-22 e-23 e-24 e-16 e-25 e-26)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--9378-5826-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-5317) (lambda (arg-5318) (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-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (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-5319 arg-5320)))))) (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-5317) (lambda (arg-5318) (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-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (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-5319 arg-5320)))))) (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-5317) (lambda (arg-5318) (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-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (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-5319 arg-5320)))))) (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-5317) (lambda (arg-5318) (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-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (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-5319 arg-5320)))))) (define Binary-Core-__Impl_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-5319 arg-5320)))))) (define Binary-Core-__Impl_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-5319 arg-5320)))))) -(define Binary-Core-writeToTTC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-initBinary ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Binary-Core-getSaveDefs (NameMap-Data-keys 'erased (let ((sc3 e-6)) (let ((e-28 (vector-ref sc3 6))) e-28))) (vector 0 ) e-6) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Context-Core-log arg-2 "ttc.write" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Writing " (Strings-Types-Prelude-C-43C-43 arg-5 (Strings-Types-Prelude-C-43C-43 " with hash " (Show-Prelude-show_Show__Int (let ((sc4 e-6)) (let ((e-15 (vector-ref sc4 16))) e-15)))))))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Binary-Core-writeTTCFile 'erased arg-1 arg-2 e-5 (vector 0 (Binary-Core-ttcVersion) (let ((sc5 e-6)) (let ((e-15 (vector-ref sc5 16))) e-15)) (let ((sc5 e-6)) (let ((e-16 (vector-ref sc5 17))) e-16)) e-8 (NameMap-Data-keys 'erased (let ((sc5 e-6)) (let ((e-22 (vector-ref sc5 23))) e-22))) (let ((sc5 e-6)) (let ((e-11 (vector-ref sc5 12))) e-11)) (let ((sc5 e-6)) (let ((e-10 (vector-ref sc5 11))) e-10)) (let ((sc5 e-6)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 e-7)) (let ((e-13 (vector-ref sc5 7))) e-13)) (let ((sc5 e-6)) (let ((e-2 (vector-ref sc5 3))) e-2)) (let ((sc5 e-6)) (let ((e-3 (vector-ref sc5 4))) e-3)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-4 (vector-ref sc5 5))) e-4)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-13 (vector-ref sc5 6))) e-13)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-12 (vector-ref sc5 7))) e-12)) (NameMap-Data-toList 'erased (let ((sc5 e-6)) (let ((e-14 (vector-ref sc5 15))) e-14))) (let ((sc5 e-6)) (let ((e-19 (vector-ref sc5 20))) e-19)) (let ((sc5 e-6)) (let ((e-13 (vector-ref sc5 14))) e-13)) arg-4) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (let ((act-30 (unbox e-5))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 ((Binary-Utils-writeToFile arg-5 e-11) ext-0))) (vector 1 act-31))))))))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-12 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 arg-5 (Strings-Types-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))) ext-0)))))))))))))))))))))))))))))))))))))))) +(define Binary-Core-writeToTTC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-initBinary ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Binary-Core-getSaveDefs (NameMap-Data-keys 'erased (let ((sc3 e-6)) (let ((e-28 (vector-ref sc3 6))) e-28))) (vector 0 ) e-6) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Writing " (Strings-Types-Prelude-C-43C-43 arg-5 (Strings-Types-Prelude-C-43C-43 " with hash " (Show-Prelude-show_Show__Int (let ((sc4 e-6)) (let ((e-15 (vector-ref sc4 16))) e-15))))))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Binary-Core-writeTTCFile 'erased arg-1 arg-2 e-5 (vector 0 (Binary-Core-ttcVersion) (let ((sc5 e-6)) (let ((e-15 (vector-ref sc5 16))) e-15)) (let ((sc5 e-6)) (let ((e-16 (vector-ref sc5 17))) e-16)) e-8 (NameMap-Data-keys 'erased (let ((sc5 e-6)) (let ((e-22 (vector-ref sc5 23))) e-22))) (let ((sc5 e-6)) (let ((e-11 (vector-ref sc5 12))) e-11)) (let ((sc5 e-6)) (let ((e-10 (vector-ref sc5 11))) e-10)) (let ((sc5 e-6)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 e-7)) (let ((e-13 (vector-ref sc5 7))) e-13)) (let ((sc5 e-6)) (let ((e-2 (vector-ref sc5 3))) e-2)) (let ((sc5 e-6)) (let ((e-3 (vector-ref sc5 4))) e-3)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-4 (vector-ref sc5 5))) e-4)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-13 (vector-ref sc5 6))) e-13)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-12 (vector-ref sc5 7))) e-12)) (NameMap-Data-toList 'erased (let ((sc5 e-6)) (let ((e-14 (vector-ref sc5 15))) e-14))) (let ((sc5 e-6)) (let ((e-19 (vector-ref sc5 20))) e-19)) (let ((sc5 e-6)) (let ((e-13 (vector-ref sc5 14))) e-13)) arg-4) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (let ((act-30 (unbox e-5))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 ((Binary-Utils-writeToFile arg-5 e-11) ext-0))) (vector 1 act-31))))))))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-12 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 arg-5 (Strings-Types-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))) ext-0)))))))))))))))))))))))))))))))))))))))) (define Binary-Core-writeTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-5319 arg-5320)))) arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Binary-Utils-toBuf_TTC__String arg-3 "TT2") ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__Int arg-3 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 1))) e-1)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__Int arg-3 (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 2))) e-2)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__String arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2178 arg-2180 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2178 arg-2180 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2181 eta-1))))) arg-2180 eta-0)))) arg-3 (let ((sc4 e-5)) (let ((e-3 (vector-ref sc4 3))) e-3)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Binary arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Binary arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-2181 eta-1))))) arg-2180 eta-0)))) arg-3 (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 4))) e-4)) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-3 (let ((sc6 e-5)) (let ((e-24 (vector-ref sc6 5))) e-24)) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2180 eta-0)))) arg-3 (let ((sc7 e-5)) (let ((e-24 (vector-ref sc7 6))) e-24)) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-32 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Bool arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-3 (let ((sc8 e-5)) (let ((e-24 (vector-ref sc8 7))) e-24)) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__String arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2178 arg-2180 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Bool arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__String arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2183 eta-1)))) arg-2181 arg-2182 eta-0)))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__String arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-1)))) arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__String arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2178 arg-2181 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__String arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2178 arg-2181 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-3)))) arg-2177 arg-2179 eta-2)))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2183 eta-3)))) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-3 (let ((sc9 e-5)) (let ((e-24 (vector-ref sc9 8))) e-24)) ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-34 (Binary-Utils-toBuf_TTC__Int arg-3 (let ((sc10 e-5)) (let ((e-24 (vector-ref sc10 9))) e-24)) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) arg-3 (let ((sc11 e-5)) (let ((e-24 (vector-ref sc11 10))) e-24)) ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-36 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2180 eta-0)))) arg-3 (let ((sc12 e-5)) (let ((e-24 (vector-ref sc12 11))) e-24)) ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((act-37 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2180 eta-0)))) arg-3 (let ((sc13 e-5)) (let ((e-24 (vector-ref sc13 12))) e-24))) ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((act-38 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2180 eta-0)))) arg-3 (let ((sc14 e-5)) (let ((e-24 (vector-ref sc14 13))) e-24))) ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((act-39 (TTC-Core-toBuf_TTC__PrimNames arg-3 (let ((sc15 e-5)) (let ((e-24 (vector-ref sc15 14))) e-24)) ext-0))) (let ((sc15 act-39)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((act-40 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__String arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2178 arg-2180 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-3 (let ((sc16 e-5)) (let ((e-24 (vector-ref sc16 15))) e-24)) ext-0))) (let ((sc16 act-40)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((act-41 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__CG arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CG arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1))))) arg-2180 eta-0)))) arg-3 (let ((sc17 e-5)) (let ((e-24 (vector-ref sc17 16))) e-24)) ext-0))) (let ((sc17 act-41)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((act-42 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Transform arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Transform arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-2181 eta-1))))) arg-2180 eta-0)))) arg-3 (let ((sc18 e-5)) (let ((e-24 (vector-ref sc18 17))) e-24)) ext-0))) (let ((sc18 act-42)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((sc19 (Builtin-snd 'erased 'erased arg-1))) (let ((e-1 (vector-ref sc19 1))) (((e-1 arg-3) (let ((sc20 e-5)) (let ((e-24 (vector-ref sc20 18))) e-24))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define TTCFile-Binary-Core-version (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (define TTCFile-Binary-Core-userHoles (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5)))) -(define Binary-Core-updateTransforms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Transform arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Transform arg-5319 arg-5320)))) e-7 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (Binary-Core-n--11920-8177-addT e-6 e-7 e-3 arg-0 e-5 e-8 eta-0))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((Binary-Core-updateTransforms arg-0 e-3) eta-0)))))))))))))))) +(define Binary-Core-updateTransforms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Transform arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Transform arg-5319 arg-5320)))) e-7 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (Binary-Core-n--11742-8173-addT e-6 e-7 e-3 arg-0 e-5 e-8 eta-0))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((Binary-Core-updateTransforms arg-0 e-3) eta-0)))))))))))))))) (define Binary-Core-updateRewrite (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 e-29 e-30 (Types-Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-1 e-31) e-32 e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Binary-Core-updatePrims (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-35 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-35 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-1 e-32) e-33 e-34) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))) (vector 1 act-25))))))))) (define Binary-Core-updatePrimNames (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (Types-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) (Types-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) (Types-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)))))))) @@ -3884,13 +3809,13 @@ (define Binary-Core-updateNameDirectives (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-30 (vector-ref sc3 3))) (let ((e-29 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-28 (vector-ref sc3 6))) (let ((e-27 (vector-ref sc3 7))) (let ((e-26 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (vector 0 e-0 e-1 e-30 e-29 e-4 e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 (NameMap-Data-insert 'erased e-6 e-7 e-14) e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((Binary-Core-updateNameDirectives arg-0 e-3) eta-0))))))))))))))))))))) (define Binary-Core-updateCGDirectives (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((cgsC-39 (List-Data-nub 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Options-Core-C-61C-61_Eq__CG arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Options-Core-C-47C-61_Eq__CG arg-4 arg-5)))) (vector 0 (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (Options-Core-C-61C-61_Eq__CG arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (Options-Core-C-47C-61_Eq__CG arg-6 arg-7)))) (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) arg-4 arg-5)))) (List-Types-Prelude-C-43C-43 'erased arg-1 (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 cgsC-39 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-25)))))))))) (define TTCFile-Binary-Core-typeHints (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 7))) e-7)))) -(define Binary-Core-ttcVersion (lambda () 40)) +(define Binary-Core-ttcVersion (lambda () 39)) (define TTCFile-Binary-Core-transforms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-17 (vector-ref sc0 17))) e-17)))) (define TTCFile-Binary-Core-rewritenames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-13 (vector-ref sc0 13))) e-13)))) (define Binary-Core-readTTCFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-5 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((sc2 (EqOrd-Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc2 0) (Binary-Utils-corrupt 'erased (Strings-Types-Prelude-C-43C-43 "TTC header in " (Strings-Types-Prelude-C-43C-43 arg-3 (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__String e-5)))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Binary-Utils-fromBuf_TTC__Int arg-5 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Binary-Core-checkTTCVersion arg-3 e-8 (Binary-Core-ttcVersion)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Binary-Utils-fromBuf_TTC__Int arg-5 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__String arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2178 arg-2180 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2178 arg-2180 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2177 arg-2179 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2181 eta-1))))) arg-2180 eta-0)))) arg-5 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Binary arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Binary arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-2181 eta-1))))) arg-2180 eta-0)))) arg-5 ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-5 ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2180 eta-0)))) arg-5 ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Bool arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-5 ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-35 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__String arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2178 arg-2180 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Bool arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__String arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2183 eta-1)))) arg-2181 arg-2182 eta-0)))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__String arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-1)))) arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__String arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2178 arg-2181 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__String arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2178 arg-2181 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-3)))) arg-2177 arg-2179 eta-2)))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2183 eta-3)))) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-5 ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-36 (Binary-Utils-fromBuf_TTC__Int arg-5 ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-37 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) arg-5 ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-38 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-1)))) arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2180 eta-0)))) arg-5 ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-39 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2180 eta-0)))) arg-5 ext-0))) (let ((sc15 act-39)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-40 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2180 eta-0)))) arg-5 ext-0))) (let ((sc16 act-40)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-21 (vector-ref sc16 1))) (let ((act-41 (TTC-Core-fromBuf_TTC__PrimNames arg-5 ext-0))) (let ((sc17 act-41)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-22 (vector-ref sc17 1))) (let ((act-42 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__String arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2178 arg-2180 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2182 eta-2)))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-5 ext-0))) (let ((sc18 act-42)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (vector 0 e-2))) (else (let ((e-23 (vector-ref sc18 1))) (let ((act-43 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__CG arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CG arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1))))) arg-2180 eta-0)))) arg-5 ext-0))) (let ((sc19 act-43)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (vector 0 e-2))) (else (let ((e-24 (vector-ref sc19 1))) (let ((act-44 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Transform arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Transform arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-2181 eta-1))))) arg-2180 eta-0)))) arg-5 ext-0))) (let ((sc20 act-44)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (vector 0 e-2))) (else (let ((e-25 (vector-ref sc20 1))) (let ((act-45 (let ((sc21 arg-1)) (let ((e-2 (vector-ref sc21 2))) ((e-2 arg-5) ext-0))))) (let ((sc21 act-45)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (vector 0 e-2))) (else (let ((e-26 (vector-ref sc21 1))) (vector 1 (vector 0 e-8 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25 e-26))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define Binary-Core-readImportHashes (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-0 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-26 (Binary-Core-getImportHashes arg-0 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 e-7))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 0 )))) ext-0)))))))) (else (vector 1 (vector 0 )))))))))))) (define Binary-Core-readIFaceHash (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-0 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-26 (Binary-Core-getHash arg-0 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 e-7))))))) (lambda (err) (lambda (eta-0) (vector 1 0))) ext-0)))))))) (else (vector 1 0))))))))))) -(define Binary-Core-readFromTTC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Core-case--readFromTTC-8481 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13)))) (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-14 arg-15)))) (vector 0 (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-14 arg-15)))) (vector 0 (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15)))) arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13)))) (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-14 arg-15)))) (vector 0 (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-14 arg-15)))) (vector 0 (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15)))) arg-12 arg-13)))) arg-10 arg-11)))) (vector 0 arg-8 (vector 0 arg-6 arg-9)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0)))))))) +(define Binary-Core-readFromTTC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Core-case--readFromTTC-8477 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13)))) (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-14 arg-15)))) (vector 0 (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-14 arg-15)))) (vector 0 (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15)))) arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13)))) (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-14 arg-15)))) (vector 0 (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-14 arg-15)))) (vector 0 (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-61C-61_Eq__String arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (EqOrd-Prelude-C-47C-61_Eq__String arg-16 arg-17)))) arg-14 arg-15)))) arg-12 arg-13)))) arg-10 arg-11)))) (vector 0 arg-8 (vector 0 arg-6 arg-9)) (Types-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)))) @@ -3909,35 +3834,35 @@ (define Binary-Core-checkTTCVersion (lambda (arg-0 arg-1 arg-2) (let ((sc0 (EqOrd-Prelude-C-47C-61_Eq__Int arg-1 arg-2))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 0 arg-0 arg-1 arg-2)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define TTCFile-Binary-Core-cgdirectives (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-16 (vector-ref sc0 16))) e-16)))) (define TTCFile-Binary-Core-autoHints (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) e-6)))) -(define Binary-Core-addTypeHint (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-0 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-getFullName arg-0 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (Context-Core-logC arg-0 "ttc.read" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (vector 1 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name e-8))))) eta-0))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (Context-Core-addHintFor arg-0 arg-1 e-2 e-6 e-7 0 eta-0)))))))))))))) -(define Binary-Core-addGlobalDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupContextEntry e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (p) (lambda (eta-1) (let ((act-26 ((Context-Core-decode (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Builtin-fst 'erased 'erased p) 1 (Builtin-snd 'erased 'erased p)) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-7)))))))))) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Binary-Core-case--addGlobalDef-7630 e-2 e-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Binary-Core-n--11252-7539-completeDef e-2 e-3 arg-2 arg-1 arg-0 e-7)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (as) (lambda (eta-1) (Context-Core-addContextAlias arg-0 (Name-Core-asName arg-1 as e-2) e-2 eta-1)))) arg-2) eta-0)))))))))))))))))))))))))) +(define Binary-Core-addTypeHint (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-0 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-getFullName arg-0 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (vector 1 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name e-8))))) eta-0))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (Context-Core-addHintFor arg-0 arg-1 e-2 e-6 e-7 0 eta-0)))))))))))))) +(define Binary-Core-addGlobalDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupContextEntry e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (p) (lambda (eta-1) (let ((act-26 ((Context-Core-decode (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Builtin-fst 'erased 'erased p) 1 (Builtin-snd 'erased 'erased p)) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-7)))))))))) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Binary-Core-case--addGlobalDef-7628 e-2 e-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Binary-Core-n--11076-7537-completeDef e-2 e-3 arg-2 arg-1 arg-0 e-7)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (as) (lambda (eta-1) (Context-Core-addContextAlias arg-0 (Name-Core-asName arg-1 as e-2) e-2 eta-1)))) arg-2) eta-0)))))))))))))))))))))))))) (define Binary-Core-addAutoHint (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (let ((e-28 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-27 (vector-ref sc3 6))) (let ((e-26 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (let ((e-21 (vector-ref sc3 22))) (let ((e-22 (vector-ref sc3 23))) (let ((e-23 (vector-ref sc3 24))) (let ((e-24 (vector-ref sc3 25))) (let ((e-25 (vector-ref sc3 26))) (vector 0 e-0 e-1 e-29 e-28 e-4 e-27 e-26 e-7 (NameMap-Data-insert 'erased e-6 e-3 e-8) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))))))))))))))))) -(define UnifyState-Core-case--caseC-32blockC-32inC-32dumpConstraints-7780 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logC-39 arg-3 arg-7 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHoleC-39 arg-4 arg-3 arg-7 eta-1 eta-2))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-8)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))) -(define UnifyState-Core-case--caseC-32blockC-32inC-32dumpConstraints-7749 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) (else (let ((sc1 arg-5)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) -(define UnifyState-Core-case--dumpConstraints-7719 (lambda (arg-0 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 ((hs (List-Types-Prelude-C-43C-43 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) (IntMap-Data-toList 'erased (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) (else (let ((sc2 arg-5)) (let ((e-2 (vector-ref sc2 3))) e-2))))))))) (let ((sc1 hs)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logC-39 arg-3 arg-7 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHoleC-39 arg-4 arg-3 arg-7 eta-1 eta-2))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) hs)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHoleC-39-7393 (lambda (arg-0 arg-1 arg-2 arg-3 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHoleC-39-7331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) " (ImplBind)") (else (Strings-Types-Prelude-C-43C-43 "" (UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHoleC-39-7393 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (let ((sc1 arg-7)) (let ((e-14 (vector-ref sc1 15))) e-14))))))))) -(define UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHoleC-39-7174 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-2 (vector 8 arg-0)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-8 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (Context-Core-logC-39 arg-2 arg-1 (lambda () (Strings-Types-Prelude-C-43C-43 "!" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Types-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-9))))) eta-0)))))))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-4 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (Context-Core-logC-39 arg-2 arg-1 (lambda () (Strings-Types-Prelude-C-43C-43 "\u0009 = " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-8) "\u000a\u0009when"))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-n--12352-6777-dumpConstraint arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (vector 1 (vector 0 )))))))))))))))))) ((7) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-logC-39 arg-2 arg-1 (lambda () (Strings-Types-Prelude-C-43C-43 "?" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 arg-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHoleC-39-7331 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7 e-8 e-3 e-5 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0)))))))) eta-0)))))))))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-logC-39 arg-2 arg-1 (lambda () (Strings-Types-Prelude-C-43C-43 "Search " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-0) (Strings-Types-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))) eta-0))))))))))))) ((1) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) (vector 1 (FC-Core-emptyFC) (vector 1 ) (vector 8 arg-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-logC-39 arg-2 (Log-Options-Core-withVerbosity (+ 1 (+ 1 (+ 1 (+ 1 0)))) arg-1) (lambda () (Strings-Types-Prelude-C-43C-43 "Solved: " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-0) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Types-Prelude-C-43C-43 " = " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))))) eta-0))))))))))))) ((10) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-logC-39 arg-2 (Log-Options-Core-withVerbosity (+ 1 (+ 1 (+ 1 (+ 1 0)))) arg-1) (lambda () (Strings-Types-Prelude-C-43C-43 "Bound: " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-0) (Strings-Types-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))))) eta-0)))))))) ((11) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-logC-39 arg-2 (Log-Options-Core-withVerbosity (+ 1 (+ 1 (+ 1 (+ 1 0)))) arg-1) (lambda () (Strings-Types-Prelude-C-43C-43 "Delayed elaborator : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--caseC-32blockC-32inC-32dumpHoleC-39-7133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHoleC-39-7174 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--dumpHoleC-39-7087 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 arg-0) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (let ((bind-0 (vector 1 e-2))) ((UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHoleC-39-7174 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--caseC-32blockC-32inC-32dumpHoleC-39C-44dumpConstraint-6957 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--dumpHoleC-39C-44dumpConstraint-6799 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Context-Core-logC-39 arg-2 arg-1 (lambda () "\u0009Resolved") eta-0))) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-9 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise e-3 arg-6 e-7 e-8 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normalise e-3 arg-6 e-7 e-9 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-12 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (Context-Core-logC-39 arg-2 arg-1 (lambda () (Strings-Types-Prelude-C-43C-43 "\u0009 " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Types-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-13))))) eta-0))))))))))))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-8 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-9 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (Context-Core-logC-39 arg-2 (Log-Options-Core-withVerbosity (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) arg-1) (lambda () (Strings-Types-Prelude-C-43C-43 "\u0009 from " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Types-Prelude-C-43C-43 " =?= " (Strings-Types-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-logC-39 arg-2 arg-1 (lambda () (Strings-Types-Prelude-C-43C-43 "\u0009\u0009" (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " =?= " (Show-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--checkUserHoles-6730 (lambda (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-6404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-6278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-6206 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc1 arg-13)) (let ((e-16 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((e-12 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((e-10 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-16 (IntMap-Data-empty 'erased) e-14 e-13 e-12 e-11 e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (vector 0 e-7))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-0 e-1 e-4 e-8 e-9) eta-0)))))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 e-10)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((1) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc3 arg-13)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-5 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-18 (vector-ref sc3 8))) (let ((e-15 (vector-ref sc3 9))) (let ((e-12 (vector-ref sc3 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-18 e-15 e-12)))))))))))))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-6172 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc2 arg-13)) (let ((e-17 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (let ((e-13 (vector-ref sc2 5))) (let ((e-12 (vector-ref sc2 6))) (let ((e-11 (vector-ref sc2 7))) (let ((e-10 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-17 (IntMap-Data-empty 'erased) e-15 e-14 e-13 e-12 e-11 e-10 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-0 e-7 e-4 e-9 e-10) eta-0)))))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (let ((e-16 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc4 arg-13)) (let ((e-0 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-5 (vector-ref sc4 6))) (let ((e-6 (vector-ref sc4 7))) (let ((e-18 (vector-ref sc4 8))) (let ((e-15 (vector-ref sc4 9))) (let ((e-12 (vector-ref sc4 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-18 e-15 e-12)))))))))))))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-6071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-1) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--caseC-32blockC-32inC-32checkValidHole-6029 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-3) eta-0))) (else (vector 1 (vector 0 ))))))))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-6172 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-7 e-4 e-3 e-6 (IntMap-Data-lookup 'erased e-7 (let ((sc3 e-6)) (let ((e-14 (vector-ref sc3 5))) e-14)))) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 8 (Num-Prelude-negate_Neg__Int 1)) (let ((sc1 arg-7)) (let ((e-2 (vector-ref sc1 3))) e-2))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--11429-5968-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 8 (Num-Prelude-negate_Neg__Int 1)) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 3))) e-2))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--11429-5968-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-5) eta-0)))))))))))) -(define UnifyState-Core-case--checkValidHole-6010 (lambda (arg-0 arg-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--caseC-32blockC-32inC-32checkValidHole-6029 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--checkDelayedHoles-5916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 31 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define UnifyState-Core-case--addDelayedHoleName-5890 (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--handleUnify-5824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-1 e-5))))))) -(define UnifyState-Core-case--tryUnify-5774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-1))))) -(define UnifyState-Core-case--tryErrorUnify-5722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc1 arg-8)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25))))))))))))))))))))))))))))) -(define UnifyState-Core-case--newMetaLets-5260 (lambda (arg-0 arg-1 arg-2 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--newMetaLets-5097 (lambda (arg-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--mkConstantAppArgs-4381 (lambda (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 (TT-Core-isLet 'erased arg-3)) (List-Types-Prelude-length 'erased arg-4)) arg-8)) (else arg-8))))) +(define UnifyState-Core-case--caseC-32blockC-32inC-32dumpConstraints-7813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-6)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))) +(define UnifyState-Core-case--caseC-32blockC-32inC-32dumpConstraints-7790 (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--dumpConstraints-7764 (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-Types-Prelude-C-43C-43 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1))) (IntMap-Data-toList 'erased (let ((sc1 arg-0)) (cond ((equal? sc1 0) (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) (else (let ((sc2 arg-4)) (let ((e-2 (vector-ref sc2 3))) e-2))))))))) (let ((sc1 hs)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-dumpHole arg-3 arg-2 arg-1 eta-1 eta-2))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) hs)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHole-7435 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) " (Invertible)") (else ""))))) +(define UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHole-7373 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) " (ImplBind)") (else (Strings-Types-Prelude-C-43C-43 "" (UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHole-7435 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (let ((sc1 arg-7)) (let ((e-14 (vector-ref sc1 15))) e-14))))))))) +(define UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHole-7216 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-2 (vector 8 arg-0)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-8 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Types-Prelude-C-43C-43 "!" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Types-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-9))))) eta-0)))))))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-4 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Types-Prelude-C-43C-43 "\u0009 = " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-8) "\u000a\u0009when"))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-n--12212-6814-dumpConstraint arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (vector 1 (vector 0 )))))))))))))))))) ((7) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Types-Prelude-C-43C-43 "?" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 arg-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHole-7373 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7 e-8 e-3 e-5 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0)))))))) eta-0)))))))))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Types-Prelude-C-43C-43 "Search " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-0) (Strings-Types-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))) eta-0))))))))))))) ((1) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) (vector 1 (FC-Core-emptyFC) (vector 1 ) (vector 8 arg-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Types-Prelude-C-43C-43 "Solved: " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-0) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Types-Prelude-C-43C-43 " = " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6))))))) eta-0))))))))))))) ((10) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Types-Prelude-C-43C-43 "Bound: " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-0) (Strings-Types-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))))) eta-0)))))))) ((11) (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) (lambda () (Strings-Types-Prelude-C-43C-43 "Delayed elaborator : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--caseC-32blockC-32inC-32dumpHole-7175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHole-7216 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--dumpHole-7129 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 arg-0) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc3 1))) (let ((bind-0 (vector 1 e-2))) ((UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dumpHole-7216 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--caseC-32blockC-32inC-32dumpHoleC-44dumpConstraint-6994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--dumpHoleC-44dumpConstraint-6836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Context-Core-log arg-2 arg-1 (lambda () "\u0009Resolved") eta-0))) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-9 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normalise e-3 arg-6 e-7 e-8 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normalise e-3 arg-6 e-7 e-9 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-12 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Types-Prelude-C-43C-43 "\u0009 " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Types-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-13))))) eta-0))))))))))))))))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-8 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-9 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "\u0009 from " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-3 e-11) (Strings-Types-Prelude-C-43C-43 " =?= " (Strings-Types-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-Types-Prelude-C-43C-43 "\u0009\u0009" (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " =?= " (Show-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--checkUserHoles-6768 (lambda (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-6444 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-6318 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-6246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc1 arg-13)) (let ((e-16 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((e-12 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((e-10 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-16 (IntMap-Data-empty 'erased) e-14 e-13 e-12 e-11 e-10 e-7 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (vector 0 e-7))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-0 e-1 e-4 e-8 e-9) eta-0)))))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 e-10)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((1) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc3 arg-13)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-5 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-18 (vector-ref sc3 8))) (let ((e-15 (vector-ref sc3 9))) (let ((e-12 (vector-ref sc3 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-18 e-15 e-12)))))))))))))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-6212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc2 arg-13)) (let ((e-17 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (let ((e-13 (vector-ref sc2 5))) (let ((e-12 (vector-ref sc2 6))) (let ((e-11 (vector-ref sc2 7))) (let ((e-10 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-17 (IntMap-Data-empty 'erased) e-15 e-14 e-13 e-12 e-11 e-10 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-0 e-7 e-4 e-9 e-10) eta-0)))))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((1) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((1) (let ((e-16 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-3 (let ((sc4 arg-13)) (let ((e-0 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-5 (vector-ref sc4 6))) (let ((e-6 (vector-ref sc4 7))) (let ((e-18 (vector-ref sc4 8))) (let ((e-15 (vector-ref sc4 9))) (let ((e-12 (vector-ref sc4 10))) (vector 0 e-0 (IntMap-Data-empty 'erased) e-2 e-3 e-4 e-5 e-6 e-18 e-15 e-12)))))))))))))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 2 e-7 e-8 e-9 e-6 e-12) eta-0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-6111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-1) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--caseC-32blockC-32inC-32checkValidHole-6069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-1 (vector 0 ) e-3) eta-0))) (else (vector 1 (vector 0 ))))))))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((UnifyState-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkValidHole-6212 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-7 e-4 e-3 e-6 (IntMap-Data-lookup 'erased e-7 (let ((sc3 e-6)) (let ((e-14 (vector-ref sc3 5))) e-14)))) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 8 (Num-Prelude-negate_Neg__Int 1)) (let ((sc1 arg-7)) (let ((e-2 (vector-ref sc1 3))) e-2))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--11291-6008-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-4 eta-1)) (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 8 (Num-Prelude-negate_Neg__Int 1)) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 3))) e-2))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--11291-6008-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-5) eta-0)))))))))))) +(define UnifyState-Core-case--checkValidHole-6050 (lambda (arg-0 arg-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--caseC-32blockC-32inC-32checkValidHole-6069 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--checkDelayedHoles-5956 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 31 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-case--addDelayedHoleName-5930 (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--handleUnify-5864 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-1 e-5))))))) +(define UnifyState-Core-case--tryUnify-5814 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-1))))) +(define UnifyState-Core-case--tryErrorUnify-5762 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc1 arg-8)) (let ((e-27 (vector-ref sc1 25))) e-27)) e-25))))))))))))))))))))))))))))) +(define UnifyState-Core-case--newMetaLets-5310 (lambda (arg-0 arg-1 arg-2 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--newMetaLets-5151 (lambda (arg-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--mkConstantAppArgs-4399 (lambda (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--9575-4337-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased arg-3)) (List-Types-Prelude-length 'erased arg-4)) arg-8)) (else arg-8))))) (define UnifyState-Core-case--addDot-4281 (lambda (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--addConstraint-4227 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-insert 'erased arg-4 arg-0 e-4) e-5 e-6 (b+ arg-4 1 63) e-8 e-9))))))))))))) (define UnifyState-Core-case--deleteConstraint-4182 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 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)))))))))))))) @@ -3954,13 +3879,14 @@ (define UnifyState-Core-case--genMVName-3586 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) (define UnifyState-Core-case--genName-3520 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) (define UnifyState-Core-case--resetNextVar-3473 (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--12148-6575-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--10997-5554-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--10909-5461-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--10793-5335-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--10511-5075-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--12352-6777-dumpConstraint (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((UnifyState-Core-case--dumpHoleC-39C-44dumpConstraint-6799 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--11429-5968-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-Types-Prelude-C-43C-43 "Hole cannot depend on an unbound implicit " (Name-Core-show_Show__Name e-0))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define UnifyState-Core-n--12010-6615-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--9575-4337-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--10861-5596-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--10777-5507-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--10665-5385-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--10387-5129-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--12212-6814-dumpConstraint (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((UnifyState-Core-case--dumpHoleC-44dumpConstraint-6836 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--11291-6008-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-Types-Prelude-C-43C-43 "Hole cannot depend on an unbound implicit " (Name-Core-show_Show__Name e-0))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define UnifyState-Core-tryUnify (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (UnifyState-Core-tryErrorUnify 'erased arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))) (else (arg-4 ext-0))))))))))) (define UnifyState-Core-tryErrorUnify (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-branch arg-1 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-26 (arg-3 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-commit arg-1 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 1 e-7)))))))))))) (lambda (err) (lambda (eta-0) (let ((act-26 (let ((act-26 (set-box! arg-2 e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (set-box! arg-1 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-29 (vector-ref sc4 6))) (let ((e-28 (vector-ref sc4 7))) (let ((e-27 (vector-ref sc4 8))) (let ((e-26 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc5 e-8)) (let ((e-31 (vector-ref sc5 25))) e-31)) e-25)))))))))))))))))))))))))))))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 err))))))))))))))))) ext-0))))))))))))) (define UnifyState-Core-saveHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 (IntMap-Data-empty 'erased) e-3 e-4 e-10 e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)))))))))))))) @@ -3971,13 +3897,13 @@ (define UnifyState-Core-removeGuess (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 (IntMap-Data-delete 'erased arg-1 e-1) e-2 e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) (define UState-UnifyState-Core-nextName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6)))) (define UState-UnifyState-Core-nextConstraint (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7)))) -(define UnifyState-Core-newSearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-7 arg-9))) (let ((hole (Context-Core-newDef arg-3 arg-8 arg-4 (vector 0 ) hty (vector 2 ) (vector 8 arg-4 arg-5 arg-6)))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-1 "unify.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Adding new search " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-3) (Strings-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name arg-8)))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-logTermNF arg-0 arg-1 "unify.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "New search type") arg-7 arg-9) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-addDef arg-1 arg-8 hole eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-addGuessName arg-2 arg-3 arg-8 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-7 (vector 2 arg-3 arg-8 e-7 (UnifyState-Core-n--10909-5461-envArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))) -(define UnifyState-Core-newMetaLets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((hty (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7)) (else (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7)))))) (let ((hole (UnifyState-Core-case--newMetaLets-5260 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hty (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) arg-8)))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-1 "unify.meta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Adding new meta " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 arg-6 (vector 0 arg-3 arg-4)))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-1 "unify.meta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New meta type " (Name-Core-show_Show__Name arg-6))) hty eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-addDef arg-1 arg-6 hole eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (UnifyState-Core-addHoleName arg-2 arg-3 arg-6 e-8 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-8 (vector 2 arg-3 arg-6 e-8 (UnifyState-Core-n--10511-5075-envArgs arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))))))) +(define UnifyState-Core-newSearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-7 arg-9))) (let ((hole (Context-Core-newDef arg-3 arg-8 arg-4 (vector 0 ) hty (vector 2 ) (vector 8 arg-4 arg-5 arg-6)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Adding new search " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-3) (Strings-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name arg-8))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "New search type") arg-7 arg-9 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-addDef arg-1 arg-8 hole eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-addGuessName arg-2 arg-3 arg-8 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-7 (vector 2 arg-3 arg-8 e-7 (UnifyState-Core-n--10777-5507-envArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))) +(define UnifyState-Core-newMetaLets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((hty (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7)) (else (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7)))))) (let ((hole (UnifyState-Core-case--newMetaLets-5310 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hty (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) arg-8)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Adding new meta " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 arg-6 (vector 0 arg-3 arg-4))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New meta type " (Name-Core-show_Show__Name arg-6))) hty eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-addDef arg-1 arg-6 hole eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (UnifyState-Core-addHoleName arg-2 arg-3 arg-6 e-8 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-8 (vector 2 arg-3 arg-6 e-8 (UnifyState-Core-n--10387-5129-envArgs arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))))))))))) (define UnifyState-Core-newMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (UnifyState-Core-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 1))) -(define UnifyState-Core-newDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7))) (let ((hole (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) (vector 11 )))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-6 hole eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-log arg-2 "unify.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Added delayed elaborator " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x))))) (vector 0 arg-6 e-5))))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (UnifyState-Core-addHoleName arg-1 arg-3 arg-6 e-5 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-5 (vector 2 arg-3 arg-6 e-5 (UnifyState-Core-n--10997-5554-envArgs arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))) -(define UnifyState-Core-newConstant (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((def (UnifyState-Core-mkConstant arg-0 arg-3 arg-5 arg-6))) (let ((defty (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-2 arg-1 "postpone" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((guess (Context-Core-newDef arg-3 e-5 arg-4 (vector 0 ) defty (vector 2 ) (vector 9 def (Env-Core-length 'erased 'erased arg-5) arg-8)))) (let ((act-25 ((Context-Core-log arg-2 "unify.constant" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Adding new constant " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 e-5 (vector 0 arg-3 arg-4)))))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-2 "unify.constant" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New constant type " (Name-Core-show_Show__Name e-5))) defty eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-addDef arg-2 e-5 guess eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (UnifyState-Core-addGuessName arg-1 arg-3 e-5 e-8 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-3 e-5 e-8 (UnifyState-Core-n--10793-5335-envArgs arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))))))))) -(define UnifyState-Core-mkConstantAppArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rec (UnifyState-Core-mkConstantAppArgs 'erased e-3 arg-2 arg-3 e-9 (List-Types-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 )))))) (UnifyState-Core-case--mkConstantAppArgs-4381 e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased rec (Basics-Prelude-C-124C-124 arg-2 (lambda () (Basics-Prelude-not (TT-Core-isLet '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 arg-1 (TT-Core-multiplicity 'erased e-8) (vector 1 ) ty) arg-3))))))))))))) +(define UnifyState-Core-newDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((hty (Env-Core-abstractEnvType arg-0 arg-3 arg-5 arg-7))) (let ((hole (Context-Core-newDef arg-3 arg-6 arg-4 (vector 0 ) hty (vector 2 ) (vector 11 )))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-6 hole eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Added delayed elaborator " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x))))) (vector 0 arg-6 e-5)))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (UnifyState-Core-addHoleName arg-1 arg-3 arg-6 e-5 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-5 (vector 2 arg-3 arg-6 e-5 (UnifyState-Core-n--10861-5596-envArgs arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))))))))))))))))))))) +(define UnifyState-Core-newConstant (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((def (UnifyState-Core-mkConstant arg-0 arg-3 arg-5 arg-6))) (let ((defty (Env-Core-abstractFullEnvType arg-0 arg-3 arg-5 arg-7))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-2 arg-1 "postpone" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((guess (Context-Core-newDef arg-3 e-5 arg-4 (vector 0 ) defty (vector 2 ) (vector 9 def (Env-Core-length 'erased 'erased arg-5) arg-8)))) (let ((act-25 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Adding new constant " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x))))) (vector 0 e-5 (vector 0 arg-3 arg-4))))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New constant type " (Name-Core-show_Show__Name e-5))) defty eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-addDef arg-2 e-5 guess eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (UnifyState-Core-addGuessName arg-1 arg-3 e-5 e-8 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-3 e-5 e-8 (UnifyState-Core-n--10665-5385-envArgs arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))))))))))))))))))))))))))))))) +(define UnifyState-Core-mkConstantAppArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rec (UnifyState-Core-mkConstantAppArgs 'erased e-3 arg-2 arg-3 e-9 (List-Types-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 )))))) (UnifyState-Core-case--mkConstantAppArgs-4399 e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased rec (Basics-Prelude-C-124C-124 arg-2 (lambda () (Basics-Prelude-not (UnifyState-Core-n--9575-4337-isLet e-2 e-3 e-9 e-8 arg-5 arg-3 arg-2 'erased 'erased e-8)))))))))))))))) +(define UnifyState-Core-mkConstant (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((ty (TT-Core-binderType 'erased e-8))) (UnifyState-Core-mkConstant e-3 arg-1 e-9 (vector 3 arg-1 e-2 (vector 0 (TT-Core-multiplicity 'erased e-8) (vector 1 ) ty) arg-3))))))))))))) (define UnifyState-Core-isCurrentHole (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Types-Prelude-maybe 'erased 'erased (lambda () 1) (lambda () (lambda (eta-0) 0)) (IntMap-Data-lookup 'erased arg-1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))))) (define UnifyState-Core-initUState (lambda () (vector 0 (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (IntMap-Data-empty 'erased) (vector 0 ) 0 0 (vector 0 ) 1))) (define UState-UnifyState-Core-holes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) @@ -3991,17 +3917,17 @@ (define UnifyState-Core-genName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-inCurrentNS arg-0 (vector 2 arg-2 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 e-7))))))))))))))))) (define UnifyState-Core-genMVName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (UnifyState-Core-genName arg-0 arg-1 e-0 eta-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (UnifyState-Core-genName arg-0 arg-1 e-1 eta-0))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-inCurrentNS arg-0 (vector 2 (Name-Core-show_Show__Name arg-2) (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 e-7))))))))))))))))))))) (define UnifyState-Core-genCaseName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Context-Core-inCurrentNS arg-0 (vector 6 arg-2 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))) ext-0)))))))))))) -(define UnifyState-Core-dumpHoleC-39 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((UnifyState-Core-case--dumpHoleC-39-7087 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Log-Options-Core-keepLog arg-2 (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-13 (vector-ref sc2 6))) e-13)))) ext-0))))))))))))) -(define UnifyState-Core-dumpConstraints (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((lvl ((Log-Options-Core-mkLogLevel arg-2) arg-3))) ((UnifyState-Core-case--dumpConstraints-7719 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 lvl (Log-Options-Core-keepLog lvl (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-13 (vector-ref sc2 6))) e-13)))) ext-0)))))))))))))) +(define UnifyState-Core-dumpHole (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((UnifyState-Core-case--dumpHole-7129 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Types-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-13 (vector-ref sc2 6))) e-13)) arg-2)) ext-0))))))))))))) +(define UnifyState-Core-dumpConstraints (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((UnifyState-Core-case--dumpConstraints-7764 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Types-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-13 (vector-ref sc2 6))) e-13)) arg-2)) ext-0))))))))))))) (define UState-UnifyState-Core-dotConstraints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) (define UnifyState-Core-deleteConstraint (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-delete 'erased arg-1 e-4) e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) (define UState-UnifyState-Core-delayedHoles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define UState-UnifyState-Core-delayedElab (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8)))) (define UState-UnifyState-Core-currentHoles (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define UState-UnifyState-Core-constraints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) -(define UnifyState-Core-checkValidHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-lookupCtxtExact (vector 8 e-2) (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) ((UnifyState-Core-case--caseC-32blockC-32inC-32checkValidHole-6029 e-2 e-6 e-7 arg-1 arg-0 e-5 e-8 e-1 _-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))) -(define UnifyState-Core-checkUserHoles (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (UnifyState-Core-getGuesses arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((gs (IntMap-Data-toList 'erased e-5))) (let ((act-25 ((Context-Core-log arg-1 "unify.unsolved" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Unsolved guesses " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__Int d x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__Int d-0 x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-1) (lambda (x-1) (FC-Core-showPrec_Show__FC d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0))))) d x)))) gs)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-checkValidHole arg-1 arg-0 eta-0)) gs) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-getCurrentHoles arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((hs (IntMap-Data-toList 'erased e-8))) (let ((hsC-39 (UnifyState-Core-case--checkUserHoles-6730 arg-2 arg-1 arg-0 e-5 gs e-6 e-7 e-8 hs ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Name-Core-isUserName eta-0))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) hs))))) (let ((act-28 (let ((sc4 (Basics-Prelude-C-38C-38 arg-2 (lambda () (Basics-Prelude-not (List-Data-isNil 'erased hsC-39)))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 31 (Types-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--12148-6575-nameEq arg-2 arg-1 arg-0 'erased 'erased eta-0 eta-1))) hs))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-addDelayedHoleName arg-0 eta-0)) hsC-39) ext-0)))))))))))))))))))))))))))))) -(define UnifyState-Core-checkDelayedHoles (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((hs (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))))) ((UnifyState-Core-case--checkDelayedHoles-5916 arg-1 arg-0 e-5 hs (Basics-Prelude-not (List-Data-isNil 'erased hs))) ext-0))))))))) +(define UnifyState-Core-checkValidHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-lookupCtxtExact (vector 8 e-2) (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) ((UnifyState-Core-case--caseC-32blockC-32inC-32checkValidHole-6069 e-2 e-6 e-7 arg-1 arg-0 e-5 e-8 e-1 _-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))) +(define UnifyState-Core-checkUserHoles (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (UnifyState-Core-getGuesses arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((gs (IntMap-Data-toList 'erased e-5))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Unsolved guesses " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__Int d x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__Int d-0 x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (FC-Core-show_Show__FC x-1)) (lambda (d-1) (lambda (x-1) (FC-Core-showPrec_Show__FC d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0))))) d x)))) gs))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-checkValidHole arg-1 arg-0 eta-0)) gs) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-getCurrentHoles arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((hs (IntMap-Data-toList 'erased e-8))) (let ((hsC-39 (UnifyState-Core-case--checkUserHoles-6768 arg-2 arg-1 arg-0 e-5 gs e-6 e-7 e-8 hs ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Name-Core-isUserName eta-0))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased eta-0))) hs))))) (let ((act-28 (let ((sc4 (Basics-Prelude-C-38C-38 arg-2 (lambda () (Basics-Prelude-not (List-Data-isNil 'erased hsC-39)))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 31 (Types-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--12010-6615-nameEq arg-2 arg-1 arg-0 'erased 'erased eta-0 eta-1))) hs))) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-addDelayedHoleName arg-0 eta-0)) hsC-39) ext-0)))))))))))))))))))))))))))))) +(define UnifyState-Core-checkDelayedHoles (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((hs (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))))) ((UnifyState-Core-case--checkDelayedHoles-5956 arg-1 arg-0 e-5 hs (Basics-Prelude-not (List-Data-isNil 'erased hs))) ext-0))))))))) (define UnifyState-Core-applyToFull (lambda (arg-0 arg-1 arg-2 arg-3) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 0 arg-1 arg-3 (vector 0 ))))) (TT-Core-apply 'erased arg-1 arg-2 args)))) (define UnifyState-Core-applyTo (lambda (arg-0 arg-1 arg-2 arg-3) (let ((args (List-Data-reverse 'erased (UnifyState-Core-mkConstantAppArgs 'erased arg-0 1 arg-1 arg-3 (vector 0 ))))) (TT-Core-apply 'erased arg-1 arg-2 args)))) (define UnifyState-Core-addHoleName (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 (IntMap-Data-insert 'erased arg-3 (vector 0 arg-1 arg-2) e-0) e-1 (IntMap-Data-insert 'erased arg-3 (vector 0 arg-1 arg-2) e-2) e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) @@ -4009,146 +3935,146 @@ (define UnifyState-Core-addDot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-4 (vector 0 arg-6 (vector 0 arg-0 arg-2 1 (vector 0 ) arg-3 arg-5 arg-7))) e-10) e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))) (define UnifyState-Core-addDelayedHoleName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-11 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-12 (IntMap-Data-insert 'erased e-2 e-3 e-11) e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25))))))))))))) (define UnifyState-Core-addConstraint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((cid (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7)))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 (IntMap-Data-insert 'erased cid arg-2 e-4) e-10 e-6 (b+ cid 1 63) e-8 e-9)))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 cid))))))))))))) -(define ProcessDecls-TTImp-case--caseC-32blockC-32inC-32processTTImpFile-11675 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-2 eta-0)))))))) -(define ProcessDecls-TTImp-case--processTTImpFile-11613 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-3 (lambda () "Elaboration") (lambda (eta-1) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (let ((act-24 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-3 arg-2 arg-1 (vector 0 ) (vector 0 ) e-2 eta-2))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (UnifyState-Core-checkDelayedHoles arg-1 arg-3 eta-2))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 0)) (else (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-2))))))))))))))) (lambda (err) (lambda (eta-2) (let ((act-24 (let ((act-24 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-3) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-3)))))) (lambda (a) (lambda (arg-155) (lambda (eta-3) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-3) (let ((act-17 (arg-156 eta-3))) (let ((act-16 (arg-158 eta-3))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-3) (let ((act-24 (arg-317 eta-3))) ((arg-318 act-24) eta-3))))))) (lambda (a) (lambda (arg-320) (lambda (eta-3) (let ((act-51 (arg-320 eta-3))) (act-51 eta-3)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))) err) eta-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 1))))))) eta-1)) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-5)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))) -(define ProcessDecls-TTImp-case--caseC-32blockC-32inC-32checkTotalityOK-11366 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (ProcessDecls-TTImp-n--10565-11211-checkCovering arg-0 arg-1 arg-8 (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (ProcessDecls-TTImp-n--10565-11212-checkTotality arg-0 arg-1 arg-8 eta-0))))))) -(define ProcessDecls-TTImp-case--checkTotalityOK-11324 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getDefaultTotalityOption arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-5) (ProcessDecls-TTImp-n--10565-11213-findSetTotal arg-0 arg-1 (let ((sc2 e-1)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((tot (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((fc (let ((sc2 e-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 ((Context-Core-log arg-1 "totality" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Types-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((sc3 treq)) (case (vector-ref sc3 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10565-11211-checkCovering arg-0 arg-1 fc (let ((sc4 tot)) (let ((e-2 (vector-ref sc4 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10565-11212-checkTotality arg-0 arg-1 fc eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDecls-TTImp-case--checkTotalityOKC-44checkTotality-11254 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda () (lambda (eta-0) (vector 1 (vector 1 (vector 12 arg-2 arg-0 e-0)))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))))))) -(define ProcessDecls-TTImp-case--process-11122 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 arg-11 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define ProcessDecls-TTImp-n--10565-11213-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--10565-11213-findSetTotal arg-0 arg-1 e-3))))))))))) -(define ProcessDecls-TTImp-n--10565-11212-checkTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Termination-Core-checkTotal arg-1 arg-2 arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getTotality arg-1 arg-2 arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessDecls-TTImp-n--10565-11211-checkCovering arg-0 arg-1 arg-2 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Types-Prelude-maybe 'erased 'erased (ProcessDecls-TTImp-case--checkTotalityOKC-44checkTotality-11254 arg-0 arg-1 arg-2 e-5 e-6 e-7 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 1 eta-0))))) e-7) ext-0)))))))))))))))))) -(define ProcessDecls-TTImp-n--10565-11211-checkCovering (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 11 arg-2 arg-0 arg-3))))))))) -(define ProcessDecls-TTImp-n--10878-11499-bindNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-10 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-8 e-9 e-5)))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10878-11498-bindDataNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) -(define ProcessDecls-TTImp-n--10878-11498-bindDataNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDecls-TTImp-n--10878-11497-bindConNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8)))))))))))))))) -(define ProcessDecls-TTImp-n--10878-11497-bindConNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5)))))))))))))) -(define ProcessDecls-TTImp-processTTImpFile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-logTime 'erased arg-0 (lambda () "Parsing") (lambda (eta-0) (let ((act-24 (Source-Parser-parseFile 'erased arg-3 (vector 7 1 (Parser-TTImp-prog arg-3) (lambda () (lambda (decls) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-11745) (vector 0 decls)))))) eta-0))) (vector 1 act-24))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Context-Core-logTime 'erased arg-0 (lambda () "Elaboration") (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) (vector 0 ) e-2 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (UnifyState-Core-checkDelayedHoles arg-2 arg-0 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (vector 1 0)) (else (let ((e-3 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-1))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 (let ((act-25 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-25 (arg-317 eta-2))) ((arg-318 act-25) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))) err) eta-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 1))))))) eta-0)) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-25 (arg-317 eta-0))) ((arg-318 act-25) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-6)) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))))))) -(define ProcessDecls-TTImp-processTTImpDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10878-11499-bindNames arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 d) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) arg-4 arg-5 e-5) eta-0)))))))) arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))) +(define ProcessDecls-TTImp-case--caseC-32blockC-32inC-32processTTImpFile-11670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-2 eta-0)))))))) +(define ProcessDecls-TTImp-case--processTTImpFile-11608 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-3 (lambda () "Elaboration") (lambda (eta-1) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (let ((act-24 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-3 arg-2 arg-1 (vector 0 ) (vector 0 ) e-2 eta-2))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (UnifyState-Core-checkDelayedHoles arg-1 arg-3 eta-2))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 0)) (else (let ((e-3 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-2))))))))))))))) (lambda (err) (lambda (eta-2) (let ((act-24 (let ((act-24 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-3) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-3)))))) (lambda (a) (lambda (arg-112) (lambda (eta-3) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-3) (let ((act-17 (arg-113 eta-3))) (let ((act-16 (arg-115 eta-3))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-3) (let ((act-24 (arg-274 eta-3))) ((arg-275 act-24) eta-3))))))) (lambda (a) (lambda (arg-277) (lambda (eta-3) (let ((act-51 (arg-277 eta-3))) (act-51 eta-3)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))) err) eta-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 1))))))) eta-1)) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-5)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))) +(define ProcessDecls-TTImp-case--caseC-32blockC-32inC-32checkTotalityOK-11361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (ProcessDecls-TTImp-n--10378-11208-checkCovering arg-0 arg-1 arg-8 (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (ProcessDecls-TTImp-n--10378-11209-checkTotality arg-0 arg-1 arg-8 eta-0))))))) +(define ProcessDecls-TTImp-case--checkTotalityOK-11321 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getDefaultTotalityOption arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-5) (ProcessDecls-TTImp-n--10378-11210-findSetTotal arg-0 arg-1 (let ((sc2 e-1)) (let ((e-11 (vector-ref sc2 12))) e-11)))))) (let ((tot (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((fc (let ((sc2 e-1)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Types-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((sc3 treq)) (case (vector-ref sc3 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10378-11208-checkCovering arg-0 arg-1 fc (let ((sc4 tot)) (let ((e-2 (vector-ref sc4 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10378-11209-checkTotality arg-0 arg-1 fc eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDecls-TTImp-case--checkTotalityOKC-44checkTotality-11251 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda () (lambda (eta-0) (vector 1 (vector 1 (vector 12 arg-2 arg-0 e-0)))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))))))) +(define ProcessDecls-TTImp-case--process-11124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 arg-11 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define ProcessDecls-TTImp-n--10378-11210-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--10378-11210-findSetTotal arg-0 arg-1 e-3))))))))))) +(define ProcessDecls-TTImp-n--10378-11209-checkTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Termination-Core-checkTotal arg-1 arg-2 arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getTotality arg-1 arg-2 arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessDecls-TTImp-n--10378-11208-checkCovering arg-0 arg-1 arg-2 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Types-Prelude-maybe 'erased 'erased (ProcessDecls-TTImp-case--checkTotalityOKC-44checkTotality-11251 arg-0 arg-1 arg-2 e-5 e-6 e-7 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 1 eta-0))))) e-7) ext-0)))))))))))))))))) +(define ProcessDecls-TTImp-n--10378-11208-checkCovering (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 11 arg-2 arg-0 arg-3))))))))) +(define ProcessDecls-TTImp-n--10689-11494-bindNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-10 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-8 e-9 e-5)))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10689-11493-bindDataNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) +(define ProcessDecls-TTImp-n--10689-11493-bindDataNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDecls-TTImp-n--10689-11492-bindConNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8)))))))))))))))) +(define ProcessDecls-TTImp-n--10689-11492-bindConNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5)))))))))))))) +(define ProcessDecls-TTImp-processTTImpFile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-logTime 'erased arg-0 (lambda () "Parsing") (lambda (eta-0) (let ((act-24 (Source-Parser-parseFile 'erased arg-3 (vector 7 1 (Parser-TTImp-prog arg-3) (lambda () (lambda (decls) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-11740) (vector 0 decls)))))) eta-0))) (vector 1 act-24))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Context-Core-logTime 'erased arg-0 (lambda () "Elaboration") (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-25 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) (vector 0 ) e-2 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (UnifyState-Core-checkDelayedHoles arg-2 arg-0 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (vector 1 0)) (else (let ((e-3 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-3 eta-1))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-25 (let ((act-25 ((IO-Prelude-printLn 'erased 'erased (vector 0 (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-25 (arg-274 eta-2))) ((arg-275 act-25) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x))))) err) eta-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 1))))))) eta-0)) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-25 (arg-274 eta-0))) ((arg-275 act-25) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-6)) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))))))) +(define ProcessDecls-TTImp-processTTImpDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-0) (let ((act-24 ((ProcessDecls-TTImp-n--10689-11494-bindNames arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 d) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) arg-4 arg-5 e-5) eta-0)))))))) arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))) (define ProcessDecls-TTImp-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) arg-4 arg-5 eta-0)) arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))) (define Check-Elab-TTImp-processDecl (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3) (ProcessDecls-TTImp-process arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3))) -(define ProcessDecls-TTImp-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (ProcessType-TTImp-processType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-1 e-2 e-3 e-4))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (ProcessData-TTImp-processData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 e-7))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (ProcessDef-TTImp-processDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-8 e-9 e-10 eta-0)))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (ProcessParams-TTImp-processParams arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 e-11 e-12 e-13))))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (ProcessRecord-TTImp-processRecord arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-15 e-16 e-17))))) ((5) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((cns (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-25 (Context-Core-extendNS arg-1 (List-Data-reverse 'erased e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (set-box! arg-1 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-32 (vector-ref sc5 6))) (let ((e-31 (vector-ref sc5 7))) (let ((e-30 (vector-ref sc5 8))) (let ((e-29 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-28 (vector-ref sc5 19))) (let ((e-27 (vector-ref sc5 20))) (let ((e-26 (vector-ref sc5 21))) (let ((e-21 (vector-ref sc5 22))) (let ((e-22 (vector-ref sc5 23))) (let ((e-23 (vector-ref sc5 24))) (let ((e-24 (vector-ref sc5 25))) (let ((e-25 (vector-ref sc5 26))) (vector 0 e-0 e-1 cns e-3 e-4 e-32 e-31 e-30 e-29 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-28 e-27 e-26 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (ProcessTransform-TTImp-processTransform arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-21 e-22 e-23 e-24 eta-0))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (ProcessRunElab-TTImp-processRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25 e-26 eta-0))))) ((8) (let ((e-27 (vector-ref sc0 1))) (((e-27 arg-0) arg-5) arg-6))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addLogLevel arg-1 (Basics-Prelude-uncurry 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Log-Options-Core-unsafeMkLogLevel eta-1 eta-2))) e-28) eta-0)))))))) +(define ProcessDecls-TTImp-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (ProcessType-TTImp-processType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-1 e-2 e-3 e-4))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (ProcessData-TTImp-processData arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 e-7))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (ProcessDef-TTImp-processDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-8 e-9 e-10 eta-0)))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (ProcessParams-TTImp-processParams arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 e-11 e-12 e-13))))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (ProcessRecord-TTImp-processRecord arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-15 e-16 e-17))))) ((5) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((cns (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-25 (Context-Core-extendNS arg-1 (List-Data-reverse 'erased e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (set-box! arg-1 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-32 (vector-ref sc5 6))) (let ((e-31 (vector-ref sc5 7))) (let ((e-30 (vector-ref sc5 8))) (let ((e-29 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-28 (vector-ref sc5 19))) (let ((e-27 (vector-ref sc5 20))) (let ((e-26 (vector-ref sc5 21))) (let ((e-21 (vector-ref sc5 22))) (let ((e-22 (vector-ref sc5 23))) (let ((e-23 (vector-ref sc5 24))) (let ((e-24 (vector-ref sc5 25))) (let ((e-25 (vector-ref sc5 26))) (vector 0 e-0 e-1 cns e-3 e-4 e-32 e-31 e-30 e-29 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-28 e-27 e-26 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (ProcessTransform-TTImp-processTransform arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-21 e-22 e-23 e-24 eta-0))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (ProcessRunElab-TTImp-processRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25 e-26 eta-0))))) ((8) (let ((e-27 (vector-ref sc0 1))) (((e-27 arg-0) arg-5) arg-6))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setLogLevel arg-1 e-28 eta-0)))))))) (define ProcessDecls-TTImp-getTotalityErrors (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDecls-TTImp-checkTotalityOK arg-0 eta-0)) (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-26 (vector-ref sc1 6))) e-26)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6)))))))))))))) -(define ProcessDecls-TTImp-checkTotalityOK (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((6) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-getDefaultTotalityOption arg-0 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--10565-11213-findSetTotal arg-1 arg-0 (let ((sc5 e-2)) (let ((e-11 (vector-ref sc5 12))) e-11)))))) (let ((tot (let ((sc5 e-2)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((fc (let ((sc5 e-2)) (let ((e-26 (vector-ref sc5 1))) e-26)))) (let ((act-27 ((Context-Core-log arg-0 "totality" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Types-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq))))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((sc6 treq)) (case (vector-ref sc6 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10565-11211-checkCovering arg-1 arg-0 fc (let ((sc7 tot)) (let ((e-3 (vector-ref sc7 2))) e-3))) eta-0)) (else (ProcessDecls-TTImp-n--10565-11212-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getDefaultTotalityOption arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--10565-11213-findSetTotal arg-1 arg-0 (let ((sc4 e-1)) (let ((e-11 (vector-ref sc4 12))) e-11)))))) (let ((tot (let ((sc4 e-1)) (let ((e-10 (vector-ref sc4 11))) e-10)))) (let ((fc (let ((sc4 e-1)) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((act-27 ((Context-Core-log arg-0 "totality" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Types-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((sc5 treq)) (case (vector-ref sc5 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10565-11211-checkCovering arg-1 arg-0 fc (let ((sc6 tot)) (let ((e-2 (vector-ref sc6 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10565-11212-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) -(define ProcessType-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processType-13038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--caseC-32blockC-32inC-32processType-12794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-13))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-23) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessType-TTImp-findInferrable e-6 e-7) eta-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-13 (vector 8 arg-17) (let ((_-0 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processType-13038 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (let ((sc5 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-25 arg-26)))) (vector 1 ) arg-10)))) (cond ((equal? sc5 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 ((Context-Core-log arg-13 "declare.type" (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Setting options for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3)))))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 8 arg-17) eta-1)) arg-3) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 8 arg-17) arg-8 arg-20 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 8 arg-17) arg-8 arg-20 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20))) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((Context-Core-log arg-13 "declare.type" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20)))))))) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((sc13 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc13 0) (let ((act-36 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-14 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-20 eta-0)))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessType-TTImp-case--processType-12696 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-10 (lambda (eta-1) (vector 56 arg-6 arg-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-7 arg-13 arg-12 arg-11 arg-17 (vector 0 ) (vector 1 (vector 0 ) arg-10) arg-9 arg-8 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-0) (Normalise-Core-gType 'erased arg-6) eta-1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-logTermNF (vector 0 ) arg-13 "declare.type" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) (vector 0 ) (Env-Core-abstractFullEnvType arg-7 arg-2 arg-8 e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessType-TTImp-initDef arg-7 arg-13 arg-12 arg-11 arg-14 arg-8 e-5 arg-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((fullty (Env-Core-abstractFullEnvType arg-7 arg-2 arg-8 e-5))) (let ((act-27 (Utils-Elab-TTImp-findErased arg-13 fullty eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 ))) (let ((sc5 e-8)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (let ((act-28 (unbox arg-13))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-clearDefs e-9 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-9 (vector 0 ) fullty) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) ((ProcessType-TTImp-findInferrable e-10 e-11) eta-0)))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (Context-Core-addDef arg-13 (vector 8 arg-17) (let ((_-1 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processType-13038 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (let ((sc10 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-20) (lambda (arg-21) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-20 arg-21)))) (vector 1 ) arg-10)))) (cond ((equal? sc10 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 ((Context-Core-log arg-13 "declare.type" (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Setting options for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Types-Prelude-C-43C-43 ": " (Show-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-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 8 arg-17) eta-1)) arg-3) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 8 arg-17) arg-8 e-5 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-36 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 8 arg-17) arg-8 e-5 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-37 ((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-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-38 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 ((Context-Core-log arg-13 "declare.type" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-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-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((sc18 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc18 0) (let ((act-40 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-14 eta-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-5 eta-0)))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))) -(define ProcessType-TTImp-case--caseC-32blockC-32inC-32findInferrableC-44findInf-12447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-5))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 arg-5)))))))) -(define ProcessType-TTImp-case--findInferrableC-44findInf-12410 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--caseC-32blockC-32inC-32findInferrableC-44findInf-12447 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-61C-61_Eq__Nat arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-47C-61_Eq__Nat arg-7 arg-8)))) e-2 arg-5)))))))) -(define ProcessType-TTImp-case--getFnString-12248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0))))))) -(define ProcessType-TTImp-case--caseC-32blockC-32inC-32processFnOpt-12154 (lambda (arg-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--processFnOpt-12080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessType-TTImp-n--9082-11143-getNamePos arg-0 arg-1 arg-2 arg-3 0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessType-TTImp-n--9082-11139-collectDDeps arg-0 arg-1 arg-2 arg-3 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((ProcessType-TTImp-n--9082-11142-collectSpec arg-0 arg-1 arg-2 arg-3 (vector 0 ) e-7 e-6 e-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-addDef arg-3 arg-1 (let ((sc5 e-1)) (let ((e-0 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-23 (vector-ref sc5 7))) (let ((e-22 (vector-ref sc5 8))) (let ((e-21 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (vector 0 e-0 e-25 e-2 e-3 e-4 e-8 e-23 e-22 e-21 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define ProcessType-TTImp-case--processFnOptC-44collectSpec-11888 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--9082-11141-getDeps arg-0 arg-1 arg-2 arg-3 0 arg-7 (NameMap-Data-empty 'erased)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((rs (List-Data-filter 'erased (lambda (x) (Basics-Prelude-C-124C-124 (Builtin-snd 'erased 'erased x) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-18) (lambda (arg-19) (Name-Core-C-61C-61_Eq__Name arg-18 arg-19))) (lambda (arg-18) (lambda (arg-19) (Name-Core-C-47C-61_Eq__Name arg-18 arg-19)))) (Builtin-fst 'erased 'erased x) arg-12))))) (NameMap-Data-toList 'erased e-5)))) (let ((accC-39 (ProcessType-TTImp-n--9082-11138-insertDeps arg-0 arg-1 arg-2 arg-3 arg-13 arg-11 (vector 1 arg-9 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) rs))))) ((ProcessType-TTImp-n--9082-11142-collectSpec arg-0 arg-1 arg-2 arg-3 accC-39 arg-12 arg-11 arg-16) eta-0)))))))))) (else (ProcessType-TTImp-n--9082-11142-collectSpec arg-0 arg-1 arg-2 arg-3 arg-13 arg-12 arg-11 arg-16)))))) -(define ProcessType-TTImp-case--processFnOptC-44getDeps-11776 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--9082-11140-getDepsArgs arg-0 arg-1 arg-2 arg-3 0 e-5 arg-9) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-n--9082-11140-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 e-5) eta-0))))))))))))))))) -(define ProcessType-TTImp-case--processFnOptC-44getDeps-11700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (vector 1 e-4))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessType-TTImp-case--caseC-32blockC-32inC-32processFnOptC-44getDepsC-44splitPs-11594 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--processFnOptC-44getDepsC-44splitPs-11553 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--caseC-32blockC-32inC-32processFnOptC-44getDepsC-44splitPs-11594 arg-0 arg-1 arg-2 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (Types-Prelude-C-61C-61_Eq__Nat arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (Types-Prelude-C-47C-61_Eq__Nat arg-16 arg-17)))) arg-14 arg-13))))))) -(define ProcessType-TTImp-case--processFnOptC-44collectDDeps-11287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (ProcessType-TTImp-n--9082-11139-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-13)) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-12 (vector 0 ) arg-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((deps (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "_") e-5)))) (let ((act-25 ((ProcessType-TTImp-n--9082-11139-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-6 deps))))))))))))))))))) -(define ProcessType-TTImp-case--caseC-32blockC-32inC-32processFnOptC-44insertDeps-11202 (lambda (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--9082-11138-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (ProcessType-TTImp-n--9082-11138-insertDeps arg-0 arg-1 arg-2 arg-3 (vector 1 arg-8 arg-7) arg-6 arg-5)))))) -(define ProcessType-TTImp-case--processFnOptC-44insertDeps-11159 (lambda (arg-0 arg-1 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--9082-11138-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--caseC-32blockC-32inC-32processFnOptC-44insertDeps-11202 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__Nat arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__Nat arg-9 arg-10)))) e-2 arg-7)))))))) +(define ProcessDecls-TTImp-checkTotalityOK (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((6) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-getDefaultTotalityOption arg-0 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--10378-11210-findSetTotal arg-1 arg-0 (let ((sc5 e-2)) (let ((e-11 (vector-ref sc5 12))) e-11)))))) (let ((tot (let ((sc5 e-2)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((fc (let ((sc5 e-2)) (let ((e-26 (vector-ref sc5 1))) e-26)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Types-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((sc6 treq)) (case (vector-ref sc6 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10378-11208-checkCovering arg-1 arg-0 fc (let ((sc7 tot)) (let ((e-3 (vector-ref sc7 2))) e-3))) eta-0)) (else (ProcessDecls-TTImp-n--10378-11209-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getDefaultTotalityOption arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--10378-11210-findSetTotal arg-1 arg-0 (let ((sc4 e-1)) (let ((e-11 (vector-ref sc4 12))) e-11)))))) (let ((tot (let ((sc4 e-1)) (let ((e-10 (vector-ref sc4 11))) e-10)))) (let ((fc (let ((sc4 e-1)) (let ((e-0 (vector-ref sc4 1))) e-0)))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Types-Prelude-C-43C-43 " must be: " (TT-Core-show_Show__TotalReq treq)))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((sc5 treq)) (case (vector-ref sc5 0) ((2) (vector 1 (vector 0 ))) ((1) ((ProcessDecls-TTImp-n--10378-11208-checkCovering arg-1 arg-0 fc (let ((sc6 tot)) (let ((e-2 (vector-ref sc6 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10378-11209-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) +(define ProcessType-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processType-13010 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (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--caseC-32blockC-32inC-32processType-12770 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-13))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-23) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessType-TTImp-findInferrable e-6 e-7) eta-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-13 (vector 8 arg-17) (let ((_-0 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processType-13010 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (let ((sc5 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-25 arg-26)))) (vector 1 ) arg-10)))) (cond ((equal? sc5 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Setting options for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__FnOpt x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__FnOpt d x)))) arg-3))))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 8 arg-17) eta-1)) arg-3) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 8 arg-17) arg-8 arg-20 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 8 arg-17) arg-8 arg-20 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20))) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased arg-20))))))) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((sc13 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc13 0) (let ((act-36 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-14 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-20 eta-0)))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessType-TTImp-case--processType-12674 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-10 (lambda (eta-1) (vector 56 arg-6 arg-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-7 arg-13 arg-12 arg-11 arg-17 (vector 0 ) (vector 1 (vector 0 ) arg-10) arg-9 arg-8 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-0) (Normalise-Core-gType 'erased arg-6) eta-1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) (vector 0 ) (Env-Core-abstractFullEnvType arg-7 arg-2 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessType-TTImp-initDef arg-7 arg-13 arg-12 arg-11 arg-14 arg-8 e-5 arg-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((fullty (Env-Core-abstractFullEnvType arg-7 arg-2 arg-8 e-5))) (let ((act-27 (Utils-Elab-TTImp-findErased arg-13 fullty eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 ))) (let ((sc5 e-8)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (let ((act-28 (unbox arg-13))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-clearDefs e-9 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-9 (vector 0 ) fullty) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) ((ProcessType-TTImp-findInferrable e-10 e-11) eta-0)))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (Context-Core-addDef arg-13 (vector 8 arg-17) (let ((_-1 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processType-13010 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (let ((sc10 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-20) (lambda (arg-21) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-20 arg-21)))) (vector 1 ) arg-10)))) (cond ((equal? sc10 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Setting options for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Types-Prelude-C-43C-43 ": " (Show-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-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-13 arg-6 (vector 8 arg-17) eta-1)) arg-3) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 8 arg-17) arg-8 e-5 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-36 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 8 arg-17) arg-8 e-5 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-37 ((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-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-38 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-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-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((sc18 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc18 0) (let ((act-40 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-14 eta-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-5 eta-0)))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))) +(define ProcessType-TTImp-case--caseC-32blockC-32inC-32findInferrableC-44findInf-12431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-5))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 arg-5)))))))) +(define ProcessType-TTImp-case--findInferrableC-44findInf-12394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--caseC-32blockC-32inC-32findInferrableC-44findInf-12431 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-61C-61_Eq__Nat arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-47C-61_Eq__Nat arg-7 arg-8)))) e-2 arg-5)))))))) +(define ProcessType-TTImp-case--getFnString-12232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "%foreign calling convention must evaluate to a String") eta-0))))))) +(define ProcessType-TTImp-case--caseC-32blockC-32inC-32processFnOpt-12138 (lambda (arg-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--processFnOpt-12064 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessType-TTImp-n--8887-11143-getNamePos arg-0 arg-1 arg-2 arg-3 0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessType-TTImp-n--8887-11139-collectDDeps arg-0 arg-1 arg-2 arg-3 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((ProcessType-TTImp-n--8887-11142-collectSpec arg-0 arg-1 arg-2 arg-3 (vector 0 ) e-7 e-6 e-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-addDef arg-3 arg-1 (let ((sc5 e-1)) (let ((e-0 (vector-ref sc5 1))) (let ((e-25 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-23 (vector-ref sc5 7))) (let ((e-22 (vector-ref sc5 8))) (let ((e-21 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (vector 0 e-0 e-25 e-2 e-3 e-4 e-8 e-23 e-22 e-21 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) +(define ProcessType-TTImp-case--processFnOptC-44collectSpec-11878 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8887-11141-getDeps arg-0 arg-1 arg-2 arg-3 0 arg-6 (NameMap-Data-empty 'erased)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((rs (List-Data-filter 'erased (lambda (x) (Basics-Prelude-C-124C-124 (Builtin-snd 'erased 'erased x) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-17) (lambda (arg-18) (Name-Core-C-61C-61_Eq__Name arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (Name-Core-C-47C-61_Eq__Name arg-17 arg-18)))) (Builtin-fst 'erased 'erased x) arg-11))))) (NameMap-Data-toList 'erased e-5)))) (let ((accC-39 (ProcessType-TTImp-n--8887-11138-insertDeps arg-0 arg-1 arg-2 arg-3 arg-12 arg-10 (vector 1 arg-8 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) rs))))) ((ProcessType-TTImp-n--8887-11142-collectSpec arg-0 arg-1 arg-2 arg-3 accC-39 arg-11 arg-10 arg-15) eta-0)))))))))) (else (ProcessType-TTImp-n--8887-11142-collectSpec arg-0 arg-1 arg-2 arg-3 arg-12 arg-11 arg-10 arg-15)))))) +(define ProcessType-TTImp-case--processFnOptC-44getDeps-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) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--8887-11140-getDepsArgs arg-0 arg-1 arg-2 arg-3 0 e-5 arg-9) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-n--8887-11140-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 e-5) eta-0))))))))))))))))) +(define ProcessType-TTImp-case--processFnOptC-44getDeps-11692 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (vector 1 e-4))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessType-TTImp-case--caseC-32blockC-32inC-32processFnOptC-44getDepsC-44splitPs-11586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--processFnOptC-44getDepsC-44splitPs-11545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ProcessType-TTImp-case--caseC-32blockC-32inC-32processFnOptC-44getDepsC-44splitPs-11586 arg-0 arg-1 arg-2 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-16) (lambda (arg-17) (Types-Prelude-C-61C-61_Eq__Nat arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (Types-Prelude-C-47C-61_Eq__Nat arg-16 arg-17)))) arg-14 arg-13))))))) +(define ProcessType-TTImp-case--processFnOptC-44collectDDeps-11285 (lambda (arg-0 arg-1 arg-2 arg-3 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--8887-11139-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-12)) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-11 (vector 0 ) arg-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((deps (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "_") e-5)))) (let ((act-25 ((ProcessType-TTImp-n--8887-11139-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-6 deps))))))))))))))))))) +(define ProcessType-TTImp-case--caseC-32blockC-32inC-32processFnOptC-44insertDeps-11202 (lambda (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--8887-11138-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (ProcessType-TTImp-n--8887-11138-insertDeps arg-0 arg-1 arg-2 arg-3 (vector 1 arg-8 arg-7) arg-6 arg-5)))))) +(define ProcessType-TTImp-case--processFnOptC-44insertDeps-11159 (lambda (arg-0 arg-1 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--8887-11138-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--caseC-32blockC-32inC-32processFnOptC-44insertDeps-11202 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__Nat arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__Nat arg-9 arg-10)))) e-2 arg-7)))))))) (define ProcessType-TTImp-case--processFnOpt-11077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-getRetTy arg-4 e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-addHintFor arg-3 arg-2 e-5 arg-1 arg-0 1 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0))))))) -(define ProcessType-TTImp-n--9182-11528-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--processFnOptC-44getDepsC-44splitPs-11553 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--9182-11528-splitPs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-11) arg-12 e-3))))))))) -(define ProcessType-TTImp-n--9082-11138-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--processFnOptC-44insertDeps-11159 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-7) (lambda (arg-8) (Name-Core-C-61C-61_Eq__Name arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Name-Core-C-47C-61_Eq__Name arg-7 arg-8)))) e-2 arg-5))))))))) -(define ProcessType-TTImp-n--9082-11143-getNamePos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) ((ProcessType-TTImp-n--9082-11143-getNamePos arg-0 arg-1 arg-2 arg-3 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-4) e-10) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-2 arg-4) e-10))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessType-TTImp-n--9082-11140-getDepsArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--9082-11141-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-2 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--9082-11140-getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0)))))))))))))) -(define ProcessType-TTImp-n--9082-11141-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-29 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--9082-11141-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-29 arg-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-n--9082-11141-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-5) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--9082-11141-getDeps arg-0 arg-1 arg-2 arg-3 1 (TT-Core-binderType 'erased e-3) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessType-TTImp-n--9082-11141-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-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((sc2 e-31)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-8) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((ProcessType-TTImp-n--9082-11140-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-9 arg-6) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (NameMap-Data-insert 'erased e-32 arg-4 e-9))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))) ((2) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-n--9082-11140-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 arg-6) eta-0)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-lookupDefExact e-17 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((6) (let ((e-4 (vector-ref sc4 3))) (vector 1 e-4)))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-case--processFnOptC-44getDeps-11776 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--9182-11528-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--9082-11141-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-24 arg-6)))(else (lambda (eta-0) (vector 1 arg-6))))))) -(define ProcessType-TTImp-n--10528-12384-findInfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--10528-12384-findInfs arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--10528-12383-findInf arg-0 arg-1 e-5 arg-3 e-2) eta-0)))))))))))))) -(define ProcessType-TTImp-n--10528-12383-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--findInferrableC-44findInf-12410 arg-0 arg-1 e-1 e-22 arg-3 arg-2 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Name-Core-C-61C-61_Eq__Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Name-Core-C-47C-61_Eq__Name arg-5 arg-6)))) e-22 arg-3)))(else (lambda (eta-0) (vector 1 arg-2))))))(else (lambda (eta-0) (vector 1 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-2))))))))) ((2) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 eta-1)) e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) ((ProcessType-TTImp-n--10528-12384-findInfs arg-0 arg-1 arg-2 arg-3 e-10) eta-0))))))))) ((3) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 eta-1)) e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--10528-12384-findInfs arg-0 arg-1 arg-2 arg-3 e-5) eta-0))))))))) ((5) (let ((e-19 (vector-ref sc0 3))) (ProcessType-TTImp-n--10528-12383-findInf arg-0 arg-1 arg-2 arg-3 e-19)))(else (lambda (eta-0) (vector 1 arg-2))))))) -(define ProcessType-TTImp-n--10528-12385-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-9 (vector-ref sc1 4))) (let ((argn (vector 2 "inf" arg-3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) argn))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((ProcessType-TTImp-n--10528-12383-findInf arg-0 arg-1 arg-5 arg-4 e-9) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 ((ProcessType-TTImp-n--10528-12385-fi arg-0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2) (b+ 1 arg-3 63) (vector 1 (vector 0 argn arg-2) arg-4) e-10 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (vector 1 e-11))))))))))))))))))))(else (ProcessType-TTImp-n--10528-12383-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))))(else (ProcessType-TTImp-n--10528-12383-findInf arg-0 arg-1 arg-5 arg-4 arg-6)))))) -(define ProcessType-TTImp-n--9082-11142-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))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) ((ProcessType-TTImp-case--processFnOptC-44collectSpec-11888 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-9 e-4 e-2 e-1 arg-6 arg-5 arg-4 e-5 e-10 e-11 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) e-2 arg-0)) eta-0))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) -(define ProcessType-TTImp-n--9082-11139-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))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) ((ProcessType-TTImp-case--processFnOptC-44collectDDeps-11287 arg-0 arg-1 arg-2 arg-3 e-6 e-7 e-8 e-9 e-4 e-2 e-1 e-5 e-10 e-11 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Name-Core-C-61C-61_Eq__Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Name-Core-C-47C-61_Eq__Name arg-5 arg-6)))) e-2 arg-0)) eta-0))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessType-TTImp-processType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-log arg-1 "declare.type" (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name e-5)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-log arg-1 "declare.type" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking type decl " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-2)))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Context-Core-lookupCtxtExact (vector 8 e-8) (let ((sc6 e-9)) (let ((e-33 (vector-ref sc6 1))) e-33))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((act-30 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 56 arg-7 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-8 (vector 0 ) (vector 1 (vector 0 ) arg-4) arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-2) (Normalise-Core-gType 'erased arg-7) eta-1))) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((Normalise-Core-logTermNF (vector 0 ) arg-1 "declare.type" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name e-5))) (vector 0 ) (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11)) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 ((ProcessType-TTImp-initDef arg-0 arg-1 arg-2 arg-3 e-5 arg-6 e-11 arg-10) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc10 1))) (let ((fullty (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11))) (let ((act-33 (Utils-Elab-TTImp-findErased arg-1 fullty eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((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-34 (let ((act-34 (unbox arg-1))) (vector 1 act-34)))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-15 (vector-ref sc13 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc13 1))) (let ((act-35 (Context-Core-clearDefs e-15 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc14 1))) (let ((act-36 (let ((act-36 ((Normalise-Core-nf (vector 0 ) e-15 (vector 0 ) fullty) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc15 1))) ((ProcessType-TTImp-findInferrable e-16 e-17) eta-0)))))))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc15 1))) (let ((act-37 (Context-Core-addDef arg-1 (vector 8 e-8) (let ((_-1 (vector 0 e-4 e-3))) (ProcessType-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processType-13038 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-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((act-38 (let ((sc17 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-12 arg-13)))) (vector 1 ) arg-4)))) (cond ((equal? sc17 0) (Context-Core-setLinearCheck arg-1 e-8 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 ((Context-Core-log arg-1 "declare.type" (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Setting options for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 ": " (Show-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-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-1 arg-7 (vector 8 e-8) eta-1)) arg-10) eta-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (let ((act-41 (Metadata-Core-addTyDecl arg-0 arg-1 arg-2 arg-7 (vector 8 e-8) arg-6 e-11 eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-22 (vector-ref sc20 1))) (vector 0 e-22))) (else (let ((act-42 (Metadata-Core-addNameType arg-0 arg-1 arg-2 arg-7 (vector 8 e-8) arg-6 e-11 eta-0))) (let ((sc21 act-42)) (case (vector-ref sc21 0) ((0) (let ((e-23 (vector-ref sc21 1))) (vector 0 e-23))) (else (let ((act-43 ((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-43)) (case (vector-ref sc22 0) ((0) (let ((e-24 (vector-ref sc22 1))) (vector 0 e-24))) (else (let ((act-44 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc23 act-44)) (case (vector-ref sc23 0) ((0) (let ((e-25 (vector-ref sc23 1))) (vector 0 e-25))) (else (let ((act-45 ((Context-Core-log arg-1 "declare.type" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-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-45)) (case (vector-ref sc24 0) ((0) (let ((e-26 (vector-ref sc24 1))) (vector 0 e-26))) (else (let ((sc25 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc25 0) (let ((act-46 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-5 eta-0))) (let ((sc26 act-46)) (case (vector-ref sc26 0) ((0) (let ((e-27 (vector-ref sc26 1))) (vector 0 e-27))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-11 eta-0)))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-0))))))))))))))))))))))))))))))))))))))))) -(define ProcessType-TTImp-processFnOpt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((1) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 3 ) eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 1))) e-27)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-getRetTy e-5 e-7) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Context-Core-addHintFor arg-0 arg-1 e-7 arg-2 e-0 1 eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0))))))))))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addGlobalHint arg-0 arg-2 e-1 eta-0)))) ((4) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((5) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((6) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 1 ) eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 4 e-3) eta-0)))) ((8) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 6 ) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((ProcessType-TTImp-n--9082-11143-getNamePos e-4 arg-2 arg-1 arg-0 0 e-7) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((ProcessType-TTImp-n--9082-11139-collectDDeps e-4 arg-2 arg-1 arg-0 e-7) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((ProcessType-TTImp-n--9082-11142-collectSpec e-4 arg-2 arg-1 arg-0 (vector 0 ) e-9 e-8 e-7) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (Context-Core-addDef arg-0 arg-2 (let ((sc8 e-1)) (let ((e-0 (vector-ref sc8 1))) (let ((e-28 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-27 (vector-ref sc8 5))) (let ((e-25 (vector-ref sc8 7))) (let ((e-24 (vector-ref sc8 8))) (let ((e-23 (vector-ref sc8 9))) (let ((e-22 (vector-ref sc8 10))) (let ((e-21 (vector-ref sc8 11))) (let ((e-11 (vector-ref sc8 12))) (let ((e-12 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-28 e-2 e-3 e-27 e-10 e-25 e-24 e-23 e-22 e-21 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0))))))))))))))))))))) +(define ProcessType-TTImp-n--8987-11520-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--processFnOptC-44getDepsC-44splitPs-11545 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--8987-11520-splitPs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-11) arg-12 e-3))))))))) +(define ProcessType-TTImp-n--8887-11138-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--processFnOptC-44insertDeps-11159 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-7) (lambda (arg-8) (Name-Core-C-61C-61_Eq__Name arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Name-Core-C-47C-61_Eq__Name arg-7 arg-8)))) e-2 arg-5))))))))) +(define ProcessType-TTImp-n--8887-11143-getNamePos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) ((ProcessType-TTImp-n--8887-11143-getNamePos arg-0 arg-1 arg-2 arg-3 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-4) e-9) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-2 arg-4) e-9))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessType-TTImp-n--8887-11140-getDepsArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8887-11141-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-2 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--8887-11140-getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0)))))))))))))) +(define ProcessType-TTImp-n--8887-11141-getDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-28 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8887-11141-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-28 arg-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8887-11141-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-5) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--8887-11141-getDeps arg-0 arg-1 arg-2 arg-3 1 (TT-Core-binderType 'erased e-3) arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessType-TTImp-n--8887-11141-getDeps arg-0 arg-1 arg-2 arg-3 1 e-7 arg-6) eta-0)))))))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-8) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((ProcessType-TTImp-n--8887-11140-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-9 arg-6) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (NameMap-Data-insert 'erased e-31 arg-4 e-9))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))) ((2) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-n--8887-11140-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 arg-6) eta-0)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-lookupDefExact e-17 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((6) (let ((e-4 (vector-ref sc4 3))) (vector 1 e-4)))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-case--processFnOptC-44getDeps-11768 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--8987-11520-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--8887-11141-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-24 arg-6)))(else (lambda (eta-0) (vector 1 arg-6))))))) +(define ProcessType-TTImp-n--10315-12368-findInfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessType-TTImp-n--10315-12368-findInfs arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--10315-12367-findInf arg-0 arg-1 e-5 arg-3 e-2) eta-0)))))))))))))) +(define ProcessType-TTImp-n--10315-12367-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--findInferrableC-44findInf-12394 arg-0 arg-1 e-1 e-22 arg-3 arg-2 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Name-Core-C-61C-61_Eq__Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Name-Core-C-47C-61_Eq__Name arg-5 arg-6)))) e-22 arg-3)))(else (lambda (eta-0) (vector 1 arg-2))))))(else (lambda (eta-0) (vector 1 arg-2))))))))(else (lambda (eta-0) (vector 1 arg-2))))))))) ((2) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 eta-1)) e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) ((ProcessType-TTImp-n--10315-12368-findInfs arg-0 arg-1 arg-2 arg-3 e-10) eta-0))))))))) ((3) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 eta-1)) e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--10315-12368-findInfs arg-0 arg-1 arg-2 arg-3 e-5) eta-0))))))))) ((5) (let ((e-19 (vector-ref sc0 3))) (ProcessType-TTImp-n--10315-12367-findInf arg-0 arg-1 arg-2 arg-3 e-19)))(else (lambda (eta-0) (vector 1 arg-2))))))) +(define ProcessType-TTImp-n--10315-12369-fi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (let ((argn (vector 2 "inf" arg-3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) argn))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((ProcessType-TTImp-n--10315-12367-findInf arg-0 arg-1 arg-5 arg-4 e-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 ((ProcessType-TTImp-n--10315-12369-fi arg-0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2) (b+ 1 arg-3 63) (vector 1 (vector 0 argn arg-2) arg-4) e-9 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 e-10))))))))))))))))))))(else (ProcessType-TTImp-n--10315-12367-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))))(else (ProcessType-TTImp-n--10315-12367-findInf arg-0 arg-1 arg-5 arg-4 arg-6)))))) +(define ProcessType-TTImp-n--8887-11142-collectSpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((ProcessType-TTImp-case--processFnOptC-44collectSpec-11878 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) +(define ProcessType-TTImp-n--8887-11139-collectDDeps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-1 (vector 0 ) e-2))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((ProcessType-TTImp-case--processFnOptC-44collectDDeps-11285 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Name-Core-C-61C-61_Eq__Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Name-Core-C-47C-61_Eq__Name arg-5 arg-6)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessType-TTImp-processType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking type decl " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-2))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Context-Core-lookupCtxtExact (vector 8 e-8) (let ((sc6 e-9)) (let ((e-33 (vector-ref sc6 1))) e-33))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((act-30 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 56 arg-7 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-8 (vector 0 ) (vector 1 (vector 0 ) arg-4) arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-2) (Normalise-Core-gType 'erased arg-7) eta-1))) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name e-5))) (vector 0 ) (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 ((ProcessType-TTImp-initDef arg-0 arg-1 arg-2 arg-3 e-5 arg-6 e-11 arg-10) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc10 1))) (let ((fullty (Env-Core-abstractFullEnvType arg-0 e-0 arg-6 e-11))) (let ((act-33 (Utils-Elab-TTImp-findErased arg-1 fullty eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((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-34 (let ((act-34 (unbox arg-1))) (vector 1 act-34)))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-15 (vector-ref sc13 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc13 1))) (let ((act-35 (Context-Core-clearDefs e-15 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc14 1))) (let ((act-36 (let ((act-36 ((Normalise-Core-nf (vector 0 ) e-15 (vector 0 ) fullty) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc15 1))) ((ProcessType-TTImp-findInferrable e-16 e-17) eta-0)))))))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc15 1))) (let ((act-37 (Context-Core-addDef arg-1 (vector 8 e-8) (let ((_-1 (vector 0 e-4 e-3))) (ProcessType-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processType-13010 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-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((act-38 (let ((sc17 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-12 arg-13)))) (vector 1 ) arg-4)))) (cond ((equal? sc17 0) (Context-Core-setLinearCheck arg-1 e-8 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((act-39 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Setting options for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 ": " (Show-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-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (let ((act-40 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-processFnOpt arg-1 arg-7 (vector 8 e-8) eta-1)) arg-10) eta-0))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (vector 0 e-21))) (else (let ((act-41 (Metadata-Core-addTyDecl arg-0 arg-1 arg-2 arg-7 (vector 8 e-8) arg-6 e-11 eta-0))) (let ((sc20 act-41)) (case (vector-ref sc20 0) ((0) (let ((e-22 (vector-ref sc20 1))) (vector 0 e-22))) (else (let ((act-42 (Metadata-Core-addNameType arg-0 arg-1 arg-2 arg-7 (vector 8 e-8) arg-6 e-11 eta-0))) (let ((sc21 act-42)) (case (vector-ref sc21 0) ((0) (let ((e-23 (vector-ref sc21 1))) (vector 0 e-23))) (else (let ((act-43 ((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-43)) (case (vector-ref sc22 0) ((0) (let ((e-24 (vector-ref sc22 1))) (vector 0 e-24))) (else (let ((act-44 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc23 act-44)) (case (vector-ref sc23 0) ((0) (let ((e-25 (vector-ref sc23 1))) (vector 0 e-25))) (else (let ((act-45 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-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-45)) (case (vector-ref sc24 0) ((0) (let ((e-26 (vector-ref sc24 1))) (vector 0 e-26))) (else (let ((sc25 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc25 0) (let ((act-46 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-5 eta-0))) (let ((sc26 act-46)) (case (vector-ref sc26 0) ((0) (let ((e-27 (vector-ref sc26 1))) (vector 0 e-27))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-11 eta-0)))))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-7 e-5) eta-0))))))))))))))))))))))))))))))))))))))))) +(define ProcessType-TTImp-processFnOpt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((1) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 3 ) eta-0))) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 1))) e-27)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-getRetTy e-5 e-7) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Context-Core-addHintFor arg-0 arg-1 e-7 arg-2 e-0 1 eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0))))))))))))))))) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addGlobalHint arg-0 arg-2 e-1 eta-0)))) ((4) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((5) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 0 ) eta-0))) ((6) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 1 ) eta-0))) ((7) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 4 e-3) eta-0)))) ((8) (lambda (eta-0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 6 ) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((ProcessType-TTImp-n--8887-11143-getNamePos e-4 arg-2 arg-1 arg-0 0 e-7) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 ((ProcessType-TTImp-n--8887-11139-collectDDeps e-4 arg-2 arg-1 arg-0 e-7) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((ProcessType-TTImp-n--8887-11142-collectSpec e-4 arg-2 arg-1 arg-0 (vector 0 ) e-9 e-8 e-7) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (Context-Core-addDef arg-0 arg-2 (let ((sc8 e-1)) (let ((e-0 (vector-ref sc8 1))) (let ((e-28 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-27 (vector-ref sc8 5))) (let ((e-25 (vector-ref sc8 7))) (let ((e-24 (vector-ref sc8 8))) (let ((e-23 (vector-ref sc8 9))) (let ((e-22 (vector-ref sc8 10))) (let ((e-21 (vector-ref sc8 11))) (let ((e-11 (vector-ref sc8 12))) (let ((e-12 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-28 e-2 e-3 e-27 e-10 e-25 e-24 e-23 e-22 e-21 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) eta-0))))))))))))))))))))) (define ProcessType-TTImp-initDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-addUserHole arg-1 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-getArity arg-0 e-5 arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 2 e-6)))))))))))))) ((5) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-getArity arg-0 e-5 arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessType-TTImp-getFnString arg-1 arg-2 arg-3 eta-1)) e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 3 e-6 e-7))))))))))))))))))))(else (ProcessType-TTImp-initDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))) (define ProcessType-TTImp-getRetTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessType-TTImp-getRetTy arg-0 e-5) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-1) "Can only add hints for concrete return types") eta-0))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-7))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-1) "Can only add hints for concrete return types") eta-0))))))) (define ProcessType-TTImp-getFnString (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((27) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-2))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[foreign]")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((fc (TTImp-TTImp-getFC arg-3))) (let ((gstr (Normalise-Core-gnf (vector 0 ) (vector 0 ) (vector 9 fc (vector 16 ))))) (let ((act-25 (Elab-TTImp-checkTerm (vector 0 ) arg-0 arg-1 arg-2 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-3 gstr eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-nf (vector 0 ) e-7 (vector 0 ) e-6) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((8) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((6) (let ((e-4 (vector-ref sc6 1))) (vector 1 e-4)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[foreign]")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fc (TTImp-TTImp-getFC arg-3))) (let ((gstr (Normalise-Core-gnf (vector 0 ) (vector 0 ) (vector 9 fc (vector 16 ))))) (let ((act-25 (Elab-TTImp-checkTerm (vector 0 ) arg-0 arg-1 arg-2 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-3 gstr eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Normalise-Core-nf (vector 0 ) e-7 (vector 0 ) e-6) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((8) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((6) (let ((e-3 (vector-ref sc5 1))) (vector 1 e-3)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 fc "%foreign calling convention must evaluate to a String") eta-0)))))))))))))))))))))))))))))))) -(define ProcessType-TTImp-findInferrable (lambda (arg-0 arg-1) (ProcessType-TTImp-n--10528-12385-fi arg-1 arg-0 0 0 (vector 0 ) (vector 0 ) arg-1))) -(define Elab-TTImp-case--checkTermSub-13485 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-branch arg-13 eta-0)))(else (lambda (eta-0) (let ((act-24 (unbox arg-13))) (vector 1 act-24)))))))) -(define Elab-TTImp-case--checkTermSub-13360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((27) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-13 arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (set-box! arg-11 arg-15))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (set-box! arg-12 arg-16))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 ((Elab-TTImp-n--13551-13257-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-0 e-1 e-2 e-3 arg-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) ((Elab-TTImp-elabTermSub arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-8 (vector 1 arg-2)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-17 eta-0))))))) -(define Elab-TTImp-case--elabTermSub-13175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--caseC-32blockC-32inC-32elabTermSub-13095 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--caseC-32blockC-32inC-32elabTermSub-13015 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32elabTermSub-12824 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40) (let ((sc0 arg-40)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-checkUserHoles arg-11 arg-13 (Basics-Prelude-C-124C-124 arg-16 (lambda () arg-15)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LinearCheck-Core-linearCheck arg-1 arg-13 arg-11 (TTImp-TTImp-getFC arg-3) arg-24 1 arg-6 arg-39 eta-0))))))) (else (lambda (eta-0) (vector 1 arg-39))))))) -(define Elab-TTImp-case--caseC-32blockC-32inC-32elabTermSub-12552 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (let ((sc1 (Basics-Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-39))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((sc1 (Basics-Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-39)))))))(else (Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32elabTermSub-12824 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 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 (Basics-Prelude-not arg-14))))))) -(define Elab-TTImp-case--caseC-32blockC-32inC-32elabTermSub-12328 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 arg-40))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) arg-40))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-dumpConstraints arg-11 arg-13 "elab" (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 arg-40 arg-26)))))))))))) -(define Elab-TTImp-case--caseC-32blockC-32inC-32elabTermSub-12169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 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--caseC-32blockC-32inC-32elabTermSub-11818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--elabTermSub-11759 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((solvemode (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-13 arg-11 solvemode (vector 0 ) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-1 arg-13 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-11))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-13 arg-12 arg-11 arg-23 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Types-Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8))) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-11))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-11 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 arg-19 e-9)))))))))))))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-11))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (set-box! arg-11 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-16 (vector-ref sc6 3))) (let ((e-15 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-14 (vector-ref sc6 6))) (let ((e-13 (vector-ref sc6 7))) (let ((e-12 (vector-ref sc6 8))) (let ((e-10 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 arg-19 e-10)))))))))))))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 2 ) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 (Basics-Prelude-not arg-14))) (cond ((equal? sc8 0) (let ((act-31 ((Context-Core-log arg-13 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints")) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 1 ) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 3 ) eta-0)))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (UnifyState-Core-dumpConstraints arg-11 arg-13 "elab" (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (let ((act-33 (unbox arg-13))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (let ((sc11 arg-15)) (cond ((equal? sc11 0) (Normalise-Core-normaliseHoles arg-1 e-14 arg-6 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles arg-1 e-14 arg-6 e-2 eta-0)))))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc12 arg-9)) (case (vector-ref sc12 0) ((1) (let ((act-35 (let ((sc13 (Basics-Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (vector 1 e-15)))))) ((3) (let ((act-35 (let ((sc13 (Basics-Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (vector 1 e-15))))))(else ((Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32elabTermSub-12824 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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 (Basics-Prelude-not arg-14)) eta-0))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (Elab-TTImp-normaliseHoleTypes arg-13 arg-11 eta-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 (let ((sc14 (Basics-Prelude-not arg-14))) (cond ((equal? sc14 0) (let ((act-37 (UnifyState-Core-getHoles arg-11 eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc15 1))) (UnifyState-Core-restoreHoles arg-11 (Elab-TTImp-n--11503-11499-addHoles arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (IntMap-Data-empty 'erased) e-18 (IntMap-Data-toList 'erased arg-17)) eta-0))))))) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-38 (let ((act-38 (unbox arg-23))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-39 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (let ((sc16 e-19)) (let ((e-21 (vector-ref sc16 12))) e-21)))) eta-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((sc17 arg-9)) (case (vector-ref sc17 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 e-16))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-16))) (let ((act-40 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc18 1))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-21))))))))))))(else (let ((act-40 (UnifyState-Core-dumpConstraints arg-11 arg-13 "elab" (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-16 e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Elab-TTImp-case--elabTermSub-11682 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (UnifyState-Core-saveHoles arg-11 eta-0))) (else (lambda (eta-0) (vector 1 (IntMap-Data-empty 'erased)))))))) -(define Elab-TTImp-case--elabTermSubC-44addHoles-11514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (Elab-TTImp-n--11503-11499-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--11503-11499-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--addHoleToSave-11450 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((ms (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-1)))) (lambda (eta-0) (let ((act-24 (Context-Core-addToSave arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) ms) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Elab-TTImp-case--caseC-32blockC-32inC-32normaliseHoleTypesC-44normaliseH-11358 (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--11280-11275-updateType arg-0 arg-1 arg-3 arg-2 arg-4 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Elab-TTImp-case--normaliseHoleTypesC-44normaliseH-11345 (lambda (arg-0 arg-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--caseC-32blockC-32inC-32normaliseHoleTypesC-44normaliseH-11358 arg-0 arg-1 arg-2 arg-3 e-1 bind-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Elab-TTImp-case--normaliseHoleTypesC-44updateType-11323 (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--getRigNeeded-11258 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define Elab-TTImp-case--doPLetRenames-11190 (lambda (arg-0 arg-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) 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--doPLetRenames-11126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (SubstEnv-TT-Core-subst arg-0 arg-5 (vector 10 arg-8 1) (Elab-TTImp-doPLetRenames (vector 1 arg-5 arg-0) arg-10 arg-9 arg-6))) (else (vector 3 arg-8 arg-5 arg-7 (Elab-TTImp-doPLetRenames (vector 1 arg-5 arg-0) arg-10 arg-9 arg-6))))))) -(define Elab-TTImp-case--findPLetRenames-11025 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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) (vector 1 (vector 0 arg-12 (vector 0 arg-8 arg-9)) (Elab-TTImp-findPLetRenames (vector 1 arg-9 arg-0) arg-10)))(else (Elab-TTImp-findPLetRenames (vector 1 arg-9 arg-0) arg-10)))))) -(define Elab-TTImp-n--11280-11275-updateType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 3))) e-2)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-addDef arg-1 (vector 8 arg-3) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-21 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))) -(define Elab-TTImp-n--11280-11276-normaliseH (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-1))) ((Elab-TTImp-case--caseC-32blockC-32inC-32normaliseHoleTypesC-44normaliseH-11358 arg-0 arg-1 arg-3 arg-2 e-1 bind-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) -(define Elab-TTImp-n--13551-13256-bindImpsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-18))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-n--13551-13256-bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-3 arg-18) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-15 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) (vector 31 arg-15 0) e-5))))))))))))))))) -(define Elab-TTImp-n--13551-13257-bindImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((15) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-n--13551-13256-bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-0 e-1 e-5))))))))))))(else (Elab-TTImp-n--13551-13256-bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18)))))) -(define Elab-TTImp-n--11503-11499-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--elabTermSubC-44addHoles-11514 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-6 e-7 e-3 arg-15 arg-14 (IntMap-Data-lookup 'erased e-6 arg-15)))))))))))) -(define Elab-TTImp-normaliseHoleTypes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((hs (IntMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Elab-TTImp-n--11280-11276-normaliseH arg-1 arg-0 e-6 eta-0 eta-1))) hs) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))) -(define Elab-TTImp-getRigNeeded (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((1) (let ((e-0 (vector-ref sc0 1))) (Elab-TTImp-case--getRigNeeded-11258 e-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) e-0))))(else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (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 ((e-9 (vector-ref sc1 4))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (Elab-TTImp-case--findPLetRenames-11025 arg-0 e-6 'erased e-12 e-13 e-14 'erased e-9 e-7 e-2 e-4 e-1 (TT-Core-nameAt 'erased arg-0 e-14 '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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-14 arg-15)))) (vector 1 ) arg-7))) (let ((inPE (Types-Prelude-elem 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-14 arg-15)))) (vector 2 ) arg-7))) (let ((inTrans (Types-Prelude-elem 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-14 arg-15)))) (vector 3 ) arg-7))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-case--elabTermSub-11682 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 (Basics-Prelude-not incase)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((olddelayed (let ((sc2 e-6)) (let ((e-8 (vector-ref sc2 9))) e-8)))) (let ((act-26 (let ((act-26 (set-box! arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-10 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-11 e-10 e-7 (vector 0 ) e-9)))))))))))))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-getNextEntry arg-2 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEStateSub 'erased arg-0 arg-5 arg-10 arg-11) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((rigc (Elab-TTImp-getRigNeeded arg-6))) (let ((act-30 ((Check-Elab-TTImp-check arg-1 arg-2 arg-3 arg-4 e-10 rigc (Check-Elab-TTImp-initElabInfo arg-6) arg-8 arg-9 arg-12 arg-13) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((solvemode (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (let ((act-31 (Unify-Core-solveConstraints arg-2 arg-4 solvemode (vector 0 ) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-logTerm arg-1 arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") e-2 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (let ((act-33 (unbox arg-4))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-2 arg-3 arg-4 e-10 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Types-Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16))) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-34 (let ((act-34 (unbox arg-4))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((act-35 (set-box! arg-4 (let ((sc12 e-15)) (let ((e-0 (vector-ref sc12 1))) (let ((e-1 (vector-ref sc12 2))) (let ((e-22 (vector-ref sc12 3))) (let ((e-21 (vector-ref sc12 4))) (let ((e-4 (vector-ref sc12 5))) (let ((e-20 (vector-ref sc12 6))) (let ((e-19 (vector-ref sc12 7))) (let ((e-18 (vector-ref sc12 8))) (let ((e-16 (vector-ref sc12 10))) (vector 0 e-0 e-1 e-22 e-21 e-4 e-20 e-19 e-18 olddelayed e-16)))))))))))))) (vector 1 act-35)))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((act-35 (unbox arg-4))) (vector 1 act-35)))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (let ((act-36 (set-box! arg-4 (let ((sc13 e-16)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-23 (vector-ref sc13 3))) (let ((e-22 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-21 (vector-ref sc13 6))) (let ((e-20 (vector-ref sc13 7))) (let ((e-19 (vector-ref sc13 8))) (let ((e-17 (vector-ref sc13 10))) (vector 0 e-0 e-1 e-23 e-22 e-4 e-21 e-20 e-19 olddelayed e-17)))))))))))))) (vector 1 act-36)))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 2 ) eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-38 (let ((sc15 (Basics-Prelude-not incase))) (cond ((equal? sc15 0) (let ((act-38 ((Context-Core-log arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints")) eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 1 ) eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 3 ) eta-0)))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-39 (UnifyState-Core-dumpConstraints arg-4 arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 eta-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((act-40 (unbox arg-2))) (vector 1 act-40)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-41 (let ((sc18 inPE)) (cond ((equal? sc18 0) (Normalise-Core-normaliseHoles arg-1 e-21 arg-9 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles arg-1 e-21 arg-9 e-2 eta-0)))))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc19 arg-6)) (case (vector-ref sc19 0) ((1) (let ((act-42 (let ((sc20 (Basics-Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (vector 1 e-22)))))) ((3) (let ((act-42 (let ((sc20 (Basics-Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (vector 1 e-22))))))(else ((Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32elabTermSub-12824 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 (Basics-Prelude-not incase)) eta-0))))))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-43 (Elab-TTImp-normaliseHoleTypes arg-2 arg-4 eta-0))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((act-44 (let ((sc21 (Basics-Prelude-not incase))) (cond ((equal? sc21 0) (let ((act-44 (UnifyState-Core-getHoles arg-4 eta-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-25 (vector-ref sc22 1))) (UnifyState-Core-restoreHoles arg-4 (Elab-TTImp-n--11503-11499-addHoles arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (IntMap-Data-empty 'erased) e-25 (IntMap-Data-toList 'erased e-5)) eta-0))))))) (else (vector 1 (vector 0 ))))))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 (let ((act-45 (unbox e-10))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-26 (vector-ref sc22 1))) (let ((act-46 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-2 eta-1 eta-2))) (NameMap-Data-keys 'erased (let ((sc23 e-26)) (let ((e-28 (vector-ref sc23 12))) e-28)))) eta-0))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (let ((sc24 arg-6)) (case (vector-ref sc24 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 e-23))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-23))) (let ((act-47 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc25 act-47)) (case (vector-ref sc25 0) ((0) (let ((e-4 (vector-ref sc25 1))) (vector 0 e-4))) (else (let ((e-28 (vector-ref sc25 1))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-9 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-28))))))))))))(else (let ((act-47 (UnifyState-Core-dumpConstraints arg-4 arg-2 "elab" (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-23 e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessType-TTImp-findInferrable (lambda (arg-0 arg-1) (ProcessType-TTImp-n--10315-12369-fi arg-1 arg-0 0 0 (vector 0 ) (vector 0 ) arg-1))) +(define Elab-TTImp-case--checkTermSub-13467 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Context-Core-branch arg-13 eta-0)))(else (lambda (eta-0) (let ((act-24 (unbox arg-13))) (vector 1 act-24)))))))) +(define Elab-TTImp-case--checkTermSub-13342 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((27) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-13 arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (set-box! arg-11 arg-15))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (set-box! arg-12 arg-16))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 ((Elab-TTImp-n--13346-13239-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-0 e-1 e-2 e-3 arg-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) ((Elab-TTImp-elabTermSub arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-8 (vector 1 arg-2)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-17 eta-0))))))) +(define Elab-TTImp-case--elabTermSub-13157 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--caseC-32blockC-32inC-32elabTermSub-13077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--caseC-32blockC-32inC-32elabTermSub-12997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32elabTermSub-12806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40) (let ((sc0 arg-40)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-checkUserHoles arg-11 arg-13 (Basics-Prelude-C-124C-124 arg-16 (lambda () arg-15)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (LinearCheck-Core-linearCheck arg-1 arg-13 arg-11 (TTImp-TTImp-getFC arg-3) arg-24 1 arg-6 arg-39 eta-0))))))) (else (lambda (eta-0) (vector 1 arg-39))))))) +(define Elab-TTImp-case--caseC-32blockC-32inC-32elabTermSub-12534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (let ((sc1 (Basics-Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-39))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((sc1 (Basics-Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-39)))))))(else (Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32elabTermSub-12806 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 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 (Basics-Prelude-not arg-14))))))) +(define Elab-TTImp-case--caseC-32blockC-32inC-32elabTermSub-12312 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 arg-40))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) arg-40))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 0 arg-40 arg-26)))))))))))) +(define Elab-TTImp-case--caseC-32blockC-32inC-32elabTermSub-12153 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 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--caseC-32blockC-32inC-32elabTermSub-11808 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--elabTermSub-11749 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((solvemode (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-13 arg-11 solvemode (vector 0 ) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-1 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-11))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-13 arg-12 arg-11 arg-23 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Types-Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8))) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-11))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-11 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 arg-19 e-9)))))))))))))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-11))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (set-box! arg-11 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-16 (vector-ref sc6 3))) (let ((e-15 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-14 (vector-ref sc6 6))) (let ((e-13 (vector-ref sc6 7))) (let ((e-12 (vector-ref sc6 8))) (let ((e-10 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 arg-19 e-10)))))))))))))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 2 ) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((sc8 (Basics-Prelude-not arg-14))) (cond ((equal? sc8 0) (let ((act-31 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 1 ) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 3 ) eta-0)))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (let ((act-33 (unbox arg-13))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (let ((sc11 arg-15)) (cond ((equal? sc11 0) (Normalise-Core-normaliseHoles arg-1 e-14 arg-6 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles arg-1 e-14 arg-6 e-2 eta-0)))))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc12 arg-9)) (case (vector-ref sc12 0) ((1) (let ((act-35 (let ((sc13 (Basics-Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (vector 1 e-15)))))) ((3) (let ((act-35 (let ((sc13 (Basics-Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (vector 1 e-15))))))(else ((Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32elabTermSub-12806 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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 (Basics-Prelude-not arg-14)) eta-0))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (Elab-TTImp-normaliseHoleTypes arg-13 arg-11 eta-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 (let ((sc14 (Basics-Prelude-not arg-14))) (cond ((equal? sc14 0) (let ((act-37 (UnifyState-Core-getHoles arg-11 eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc15 1))) (UnifyState-Core-restoreHoles arg-11 (Elab-TTImp-n--11306-11489-addHoles arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (IntMap-Data-empty 'erased) e-18 (IntMap-Data-toList 'erased arg-17)) eta-0))))))) (else (vector 1 (vector 0 ))))))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-38 (let ((act-38 (unbox arg-23))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-39 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (let ((sc16 e-19)) (let ((e-21 (vector-ref sc16 12))) e-21)))) eta-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((sc17 arg-9)) (case (vector-ref sc17 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 e-16))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-16))) (let ((act-40 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc18 1))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-21))))))))))))(else (let ((act-40 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-16 e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Elab-TTImp-case--elabTermSub-11672 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (UnifyState-Core-saveHoles arg-11 eta-0))) (else (lambda (eta-0) (vector 1 (IntMap-Data-empty 'erased)))))))) +(define Elab-TTImp-case--elabTermSubC-44addHoles-11504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (Elab-TTImp-n--11306-11489-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--11306-11489-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--addHoleToSave-11440 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((ms (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-1)))) (lambda (eta-0) (let ((act-24 (Context-Core-addToSave arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) ms) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Elab-TTImp-case--caseC-32blockC-32inC-32normaliseHoleTypesC-44normaliseH-11348 (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--11083-11265-updateType arg-0 arg-1 arg-3 arg-2 arg-4 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Elab-TTImp-case--normaliseHoleTypesC-44normaliseH-11335 (lambda (arg-0 arg-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--caseC-32blockC-32inC-32normaliseHoleTypesC-44normaliseH-11348 arg-0 arg-1 arg-2 arg-3 e-1 bind-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Elab-TTImp-case--normaliseHoleTypesC-44updateType-11313 (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--getRigNeeded-11248 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define Elab-TTImp-case--doPLetRenames-11180 (lambda (arg-0 arg-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) 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--doPLetRenames-11120 (lambda (arg-0 arg-1 arg-2 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--findPLetRenames-11025 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--11083-11265-updateType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 3))) e-2)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-addDef arg-1 (vector 8 arg-3) (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-21 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))) +(define Elab-TTImp-n--11083-11266-normaliseH (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-3) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-1))) ((Elab-TTImp-case--caseC-32blockC-32inC-32normaliseHoleTypesC-44normaliseH-11348 arg-0 arg-1 arg-3 arg-2 e-1 bind-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) +(define Elab-TTImp-n--13346-13238-bindImpsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-18))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-n--13346-13238-bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-3 arg-18) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-15 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) (vector 31 arg-15 0) e-5))))))))))))))))) +(define Elab-TTImp-n--13346-13239-bindImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((15) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-n--13346-13238-bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-0 e-1 e-5))))))))))))(else (Elab-TTImp-n--13346-13238-bindImpsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18)))))) +(define Elab-TTImp-n--11306-11489-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--elabTermSubC-44addHoles-11504 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-6 e-7 e-3 arg-15 arg-14 (IntMap-Data-lookup 'erased e-6 arg-15)))))))))))) +(define Elab-TTImp-normaliseHoleTypes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((hs (IntMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Elab-TTImp-n--11083-11266-normaliseH arg-1 arg-0 e-6 eta-0 eta-1))) hs) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))) +(define Elab-TTImp-getRigNeeded (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((1) (let ((e-0 (vector-ref sc0 1))) (Elab-TTImp-case--getRigNeeded-11248 e-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) e-0))))(else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (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--findPLetRenames-11025 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-14 arg-15)))) (vector 1 ) arg-7))) (let ((inPE (Types-Prelude-elem 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-14 arg-15)))) (vector 2 ) arg-7))) (let ((inTrans (Types-Prelude-elem 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-14 arg-15)))) (vector 3 ) arg-7))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-case--elabTermSub-11672 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 (Basics-Prelude-not incase)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((olddelayed (let ((sc2 e-6)) (let ((e-8 (vector-ref sc2 9))) e-8)))) (let ((act-26 (let ((act-26 (set-box! arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-10 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-11 e-10 e-7 (vector 0 ) e-9)))))))))))))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-getNextEntry arg-2 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEStateSub 'erased arg-0 arg-5 arg-10 arg-11) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((rigc (Elab-TTImp-getRigNeeded arg-6))) (let ((act-30 ((Check-Elab-TTImp-check arg-1 arg-2 arg-3 arg-4 e-10 rigc (Check-Elab-TTImp-initElabInfo arg-6) arg-8 arg-9 arg-12 arg-13) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((solvemode (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) (let ((act-31 (Unify-Core-solveConstraints arg-2 arg-4 solvemode (vector 0 ) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-logTerm arg-1 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Looking for delayed in ") e-2 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (let ((act-33 (unbox arg-4))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-1 arg-2 arg-3 arg-4 e-10 (List-Data-sortBy 'erased (lambda (x) (lambda (y) (Types-Prelude-compare_Ord__Nat (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16))) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-34 (let ((act-34 (unbox arg-4))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((act-35 (set-box! arg-4 (let ((sc12 e-15)) (let ((e-0 (vector-ref sc12 1))) (let ((e-1 (vector-ref sc12 2))) (let ((e-22 (vector-ref sc12 3))) (let ((e-21 (vector-ref sc12 4))) (let ((e-4 (vector-ref sc12 5))) (let ((e-20 (vector-ref sc12 6))) (let ((e-19 (vector-ref sc12 7))) (let ((e-18 (vector-ref sc12 8))) (let ((e-16 (vector-ref sc12 10))) (vector 0 e-0 e-1 e-22 e-21 e-4 e-20 e-19 e-18 olddelayed e-16)))))))))))))) (vector 1 act-35)))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((act-35 (unbox arg-4))) (vector 1 act-35)))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (let ((act-36 (set-box! arg-4 (let ((sc13 e-16)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-23 (vector-ref sc13 3))) (let ((e-22 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-21 (vector-ref sc13 6))) (let ((e-20 (vector-ref sc13 7))) (let ((e-19 (vector-ref sc13 8))) (let ((e-17 (vector-ref sc13 10))) (vector 0 e-0 e-1 e-23 e-22 e-4 e-21 e-20 e-19 olddelayed e-17)))))))))))))) (vector 1 act-36)))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 2 ) eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-38 (let ((sc15 (Basics-Prelude-not incase))) (cond ((equal? sc15 0) (let ((act-38 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 1 ) eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 3 ) eta-0)))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-39 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 eta-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((act-40 (unbox arg-2))) (vector 1 act-40)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-41 (let ((sc18 inPE)) (cond ((equal? sc18 0) (Normalise-Core-normaliseHoles arg-1 e-21 arg-9 e-2 eta-0)) (else (Normalise-Core-normaliseArgHoles arg-1 e-21 arg-9 e-2 eta-0)))))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc19 arg-6)) (case (vector-ref sc19 0) ((1) (let ((act-42 (let ((sc20 (Basics-Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (vector 1 e-22)))))) ((3) (let ((act-42 (let ((sc20 (Basics-Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (vector 1 e-22))))))(else ((Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32elabTermSub-12806 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 (Basics-Prelude-not incase)) eta-0))))))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-43 (Elab-TTImp-normaliseHoleTypes arg-2 arg-4 eta-0))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((act-44 (let ((sc21 (Basics-Prelude-not incase))) (cond ((equal? sc21 0) (let ((act-44 (UnifyState-Core-getHoles arg-4 eta-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-25 (vector-ref sc22 1))) (UnifyState-Core-restoreHoles arg-4 (Elab-TTImp-n--11306-11489-addHoles arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (IntMap-Data-empty 'erased) e-25 (IntMap-Data-toList 'erased e-5)) eta-0))))))) (else (vector 1 (vector 0 ))))))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 (let ((act-45 (unbox e-10))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-26 (vector-ref sc22 1))) (let ((act-46 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Elab-TTImp-addHoleToSave arg-2 eta-1 eta-2))) (NameMap-Data-keys 'erased (let ((sc23 e-26)) (let ((e-28 (vector-ref sc23 12))) e-28)))) eta-0))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (let ((sc24 arg-6)) (case (vector-ref sc24 0) ((1) (let ((vs (Elab-TTImp-findPLetRenames arg-1 e-23))) (let ((ret (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-23))) (let ((act-47 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc25 act-47)) (case (vector-ref sc25 0) ((0) (let ((e-4 (vector-ref sc25 1))) (vector 0 e-4))) (else (let ((e-28 (vector-ref sc25 1))) (vector 1 (vector 0 ret (Normalise-Core-gnf arg-1 arg-9 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-28))))))))))))(else (let ((act-47 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-23 e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define Elab-TTImp-elabTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Elab-TTImp-elabTermSub arg-0 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-8 (vector 0 ) arg-9 arg-10))) -(define Elab-TTImp-doPLetRenames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((b (vector 4 e-6 e-7 e-8 e-9))) (Elab-TTImp-case--doPLetRenames-11126 arg-0 e-6 e-7 e-9 e-8 e-2 e-4 b e-1 arg-2 arg-1 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-2 arg-2))))))))(else (Elab-TTImp-case--doPLetRenames-11190 arg-0 e-2 e-4 e-3 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-2 arg-1))))))))))(else arg-3))))) -(define Elab-TTImp-checkTermSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (Context-Core-branch arg-2 ext-0))(else (let ((act-24 (unbox arg-2))) (vector 1 act-24))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (Elab-TTImp-elabTermSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 1 arg-13)) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((27) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-27 (let ((act-27 (set-box! arg-2 e-5))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (set-box! arg-4 e-6))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-3 e-7))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((Elab-TTImp-n--13551-13257-bindImps arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-0 e-1 e-2 e-3 arg-12) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) ((Elab-TTImp-elabTermSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-11 (vector 1 arg-13)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased err eta-0)))))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Builtin-fst 'erased 'erased e-8)))))))))))))))))))))))) +(define Elab-TTImp-doPLetRenames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((b (vector 4 e-6 e-7 e-8))) (Elab-TTImp-case--doPLetRenames-11120 arg-0 e-6 e-8 e-7 e-2 e-4 b e-1 arg-2 arg-1 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-2 arg-2)))))))(else (Elab-TTImp-case--doPLetRenames-11180 arg-0 e-2 e-4 e-3 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-2 arg-1))))))))))(else arg-3))))) +(define Elab-TTImp-checkTermSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (Context-Core-branch arg-2 ext-0))(else (let ((act-24 (unbox arg-2))) (vector 1 act-24))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (Elab-TTImp-elabTermSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 1 arg-13)) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((27) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-27 (let ((act-27 (set-box! arg-2 e-5))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (set-box! arg-4 e-6))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-3 e-7))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((Elab-TTImp-n--13346-13239-bindImps arg-0 arg-1 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-0 e-1 e-2 e-3 arg-12) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) ((Elab-TTImp-elabTermSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-11 (vector 1 arg-13)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased err eta-0)))))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Builtin-fst 'erased 'erased e-8)))))))))))))))))))))))) (define Elab-TTImp-checkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (Elab-TTImp-checkTermSub arg-0 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-8 (vector 0 ) arg-9 arg-10 ext-0))) (define Elab-TTImp-addHoleToSave (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupTyExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((ms (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-1)))) (let ((act-26 (Context-Core-addToSave arg-0 arg-1 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addToSave arg-0 eta-0 eta-1))) ms) ext-0)))))))) (else (vector 1 (vector 0 ))))))))))))))))) -(define Term-Elab-TTImp-case--check-11573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (Check-Elab-TTImp-checkImp arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-13 arg-1))(else (lambda (eta-0) (let ((act-24 ((Term-Elab-TTImp-insertImpLam 'erased arg-10 arg-8 arg-3 arg-13 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Check-Elab-TTImp-checkImp arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 e-5 arg-1) eta-0)))))))))))) -(define Term-Elab-TTImp-case--checkTerm-11474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--checkTerm-11415 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--caseC-32blockC-32inC-32checkTermC-44resolveNames-11198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc2 eta-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (StringMap-Data-insert 'erased arg-16 e-2 e-5))))))) (Term-Elab-TTImp-n--14541-11087-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0))))))) -(define Term-Elab-TTImp-case--checkTermC-44resolveNames-11101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-Types-Prelude-C-43C-43 "non-UN in \"with\" LHS: " (Name-Core-show_Show__Name arg-13))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName arg-13 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0)) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc5 eta-1)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (vector 1 (StringMap-Data-insert 'erased e-2 e-4 e-7))))))) (Term-Elab-TTImp-n--14541-11087-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))))))) -(define Term-Elab-TTImp-case--checkTerm-10877 (lambda (arg-0 arg-1 arg-2 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--checkTerm-10366 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "arg" eta-0))) ((0) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "impArg" eta-0))) ((2) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "conArg" eta-0))) (else (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "defArg" eta-0))))))) -(define Term-Elab-TTImp-case--insertImpLamC-44bindLam-10268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-5 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) eta-0)))))))))))) -(define Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8)))))))) ((8) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8)))))))) -(define Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-13 arg-10 (vector 3 (vector 31 arg-13 1)) (vector 1 arg-15) (vector 31 arg-13 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9751 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-12 arg-9 (vector 2 ) (vector 1 arg-14) (vector 31 arg-12 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-12 arg-9 (vector 0 ) (vector 1 arg-14) (vector 31 arg-12 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Term-Elab-TTImp-n--14541-11087-resolveNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (StringMap-Data-empty 'erased)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Term-Elab-TTImp-case--checkTermC-44resolveNames-11101 arg-0 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--13662-9517-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-16 (vector-ref sc0 3))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((2) (let ((e-32 (vector-ref sc3 3))) (let ((sc4 e-32)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 1 arg-7))))(else (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-7 (vector-ref sc5 2))) (let ((e-8 (vector-ref sc5 3))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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-7 (vector-ref sc4 2))) (let ((e-8 (vector-ref sc4 3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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-38 (vector-ref sc2 3))) (let ((sc3 e-38)) (case (vector-ref sc3 0) ((2) (let ((e-43 (vector-ref sc3 3))) (let ((sc4 e-43)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-7))))(else (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-7 (vector-ref sc5 2))) (let ((e-8 (vector-ref sc5 3))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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-7 (vector-ref sc4 2))) (let ((e-8 (vector-ref sc4 3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))) ((3) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-49 (vector-ref sc2 3))) (let ((sc3 e-49)) (case (vector-ref sc3 0) ((2) (let ((e-54 (vector-ref sc3 3))) (let ((sc4 e-54)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 1 arg-7))))(else (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-7 (vector-ref sc5 2))) (let ((e-8 (vector-ref sc5 3))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (case (vector-ref sc9 0) ((1) (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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-7 (vector-ref sc4 2))) (let ((e-8 (vector-ref sc4 3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((sc8 e-10)) (case (vector-ref sc8 0) ((1) (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-11))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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--insertImpLamC-44bindLamTm-9942 '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--13662-9518-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-16 (vector-ref sc0 3))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-25 (vector-ref sc2 3))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((2) (let ((e-30 (vector-ref sc3 3))) (let ((sc4 e-30)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 arg-6)))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-7 (vector-ref sc5 2))) (let ((e-8 (vector-ref sc5 3))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-10) (vector 31 e-1 1) e-12))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-7 (vector-ref sc4 2))) (let ((e-8 (vector-ref sc4 3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-10) (vector 31 e-1 1) e-12))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-10) (vector 31 e-1 1) e-12))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-36 (vector-ref sc2 3))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((2) (let ((e-41 (vector-ref sc3 3))) (let ((sc4 e-41)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (vector 1 arg-6)))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-7 (vector-ref sc5 2))) (let ((e-8 (vector-ref sc5 3))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-10) (vector 31 e-1 1) e-12))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-7 (vector-ref sc4 2))) (let ((e-8 (vector-ref sc4 3))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-10) (vector 31 e-1 1) e-12))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-10) (vector 31 e-1 1) e-12))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-10) (vector 31 e-1 1) e-12))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 2 e-1 e-7 (vector 0 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 2 e-1 e-7 (vector 2 ) (vector 1 e-10) (vector 31 e-1 1) e-12)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((Term-Elab-TTImp-n--13662-9518-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 2 e-1 e-7 (vector 3 (vector 31 e-1 1)) (vector 1 e-10) (vector 31 e-1 1) e-12))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))) -(define Term-Elab-TTImp-n--13662-9519-bindLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Term-Elab-TTImp-n--13662-9517-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-6 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (let ((act-26 ((Normalise-Core-getNF 'erased arg-5 arg-7) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Term-Elab-TTImp-n--13662-9518-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--13662-9519-bindLam 'erased e-1 arg-4 arg-3 arg-2 arg-1 arg-4 e-1 eta-0))))(else (lambda (eta-0) (vector 1 arg-4))))))) -(define Term-Elab-TTImp-checkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 (vector 0 e-0 e-1) (vector 0 ) (vector 0 ) arg-10)))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (UnifyState-Core-genVarName arg-1 arg-3 "arg" eta-0)) ((0) (UnifyState-Core-genVarName arg-1 arg-3 "impArg" eta-0)) ((2) (UnifyState-Core-genVarName arg-1 arg-3 "conArg" eta-0)) (else (UnifyState-Core-genVarName arg-1 arg-3 "defArg" eta-0)))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) ((Binders-Elab-TTImp-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-8 e-6 e-7 arg-10) eta-0)))))))) (else (let ((e-99 (vector-ref sc1 1))) (let ((sc2 e-99)) (case (vector-ref sc2 0) ((1) (let ((e-100 (vector-ref sc2 1))) (let ((sc3 e-100)) (cond ((equal? sc3 "_") (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 e-3 e-4 (vector 0 ) e-6 e-7) arg-10))(else (Binders-Elab-TTImp-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-99 e-6 e-7 arg-10))))))(else (Binders-Elab-TTImp-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-99 e-6 e-7 arg-10))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((1) (let ((e-102 (vector-ref sc1 1))) (Binders-Elab-TTImp-checkLambda arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-9 e-10 e-102 e-12 e-13 arg-10))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Binders-Elab-TTImp-checkLambda arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-9 e-10 e-5 e-12 e-13 arg-10) eta-0))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (Binders-Elab-TTImp-checkLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-15 e-16 e-17 e-18 e-19 arg-10)))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (lambda (eta-0) (Case-Elab-TTImp-checkCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-20 e-21 e-22 e-23 arg-10 eta-0))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (Local-Elab-TTImp-checkLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24 e-25 e-26 arg-10 eta-0)))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((e-31 (vector-ref sc0 5))) (lambda (eta-0) (Local-Elab-TTImp-checkCaseLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-27 e-28 e-29 e-30 e-31 arg-10 eta-0)))))))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (Record-Elab-TTImp-checkUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-32 e-33 e-34 arg-10 eta-0)))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-35 e-36 (vector 1 e-37 (vector 0 )) (vector 0 ) arg-10))))) ((10) (let ((e-38 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-38 "with application not implemented yet") eta-0)))) ((9) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((e-44 (vector-ref sc0 4))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-41 e-42 (vector 0 ) (vector 1 (vector 0 e-43 e-44) (vector 0 )) arg-10)))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-105 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "search" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-105) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 8 (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2))) arg-8 e-6 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 e-8 e-105))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "searchTy" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-45 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 e-45) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "search" eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 8 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-8 e-8 e-7 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-8 e-7))))))))))))))))))))))))))))))))))) ((12) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-checkAlternative arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-47 e-48 e-49 arg-10))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-checkRewrite arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-50 e-51 e-52 arg-10))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-54 arg-10))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (ImplicitBind-Elab-TTImp-checkBindHere arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-55 e-56 e-57 arg-10 eta-0)))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-checkBindVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-58 e-59 arg-10)))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (As-Elab-TTImp-checkAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-60 e-61 e-62 e-63 arg-10)))))) ((18) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Dot-Elab-TTImp-checkDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-64 e-65 e-66 arg-10))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelayed arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-67 e-68 e-69 arg-10 eta-0)))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelay arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-70 e-71 arg-10 eta-0))))) ((21) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkForce arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-72 e-73 arg-10 eta-0))))) ((22) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuote arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-74 e-75 arg-10 eta-0))))) ((23) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-76 e-77 arg-10 eta-0))))) ((24) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-78 e-79 arg-10 eta-0))))) ((25) (let ((e-80 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-80 "Can't escape outside a quoted term") eta-0)))) ((26) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (RunElab-Elab-TTImp-checkRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-82 e-83 arg-10 eta-0))))) ((27) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Term-Elab-TTImp-case--checkTerm-10877 arg-1 e-85 e-84 arg-0 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (Prim-Elab-TTImp-checkPrim 'erased e-84 e-85))))) ((28) (let ((e-86 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 e-86 (vector 11 e-86) (Normalise-Core-gType 'erased e-86) arg-10))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (Hole-Elab-TTImp-checkHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-87 e-88 arg-10)))) ((30) (let ((e-90 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 3))) (lambda (eta-0) (Context-Core-withLogLevel 'erased arg-1 e-90 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-91 arg-10) eta-0))))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-108 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "_" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-108) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-5 e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((sc5 (Basics-Prelude-C-38C-38 e-93 (lambda () (let ((sc6 arg-6)) (let ((e-3 (vector-ref sc6 4))) e-3)))))) (cond ((equal? sc5 0) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-108) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-5 arg-5 (vector 1 ) arg-8 e-7 e-9 e-8)))) (vector 1 act-29))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-7 e-108)))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "implicit_type" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 e-92) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "_" eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-7 e-6 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((sc6 (Basics-Prelude-C-38C-38 e-93 (lambda () (let ((sc7 arg-6)) (let ((e-3 (vector-ref sc7 4))) e-3)))))) (cond ((equal? sc6 0) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-7 arg-5 (vector 1 ) arg-8 e-8 e-6 e-9)))) (vector 1 act-29)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-8 (Normalise-Core-gnf arg-0 arg-8 e-6)))))))))))))))))))))))))))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Term-Elab-TTImp-n--14541-11087-resolveNames arg-0 e-96 e-95 e-94 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-94 e-95) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-4 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-15 (vector-ref sc3 5))) (let ((e-14 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 11))) (let ((e-12 (vector-ref sc3 12))) (vector 0 e-1 e-2 e-3 e-4 e-15 e-14 e-7 e-8 e-9 e-10 e-11 e-12 (StringMap-Data-mergeLeft 'erased e-6 (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 13))) e-16)))))))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-96 arg-10) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((sc6 e-9)) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-18 (vector-ref sc6 5))) (let ((e-17 (vector-ref sc6 6))) (let ((e-16 (vector-ref sc6 7))) (let ((e-15 (vector-ref sc6 8))) (let ((e-14 (vector-ref sc6 9))) (let ((e-10 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 11))) (let ((e-12 (vector-ref sc6 12))) (vector 0 e-1 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 e-10 e-11 e-12 (let ((sc7 e-5)) (let ((e-19 (vector-ref sc7 13))) e-19))))))))))))))))))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))))))))))))))))))))))))))))) +(define Term-Elab-TTImp-case--check-11501 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (Check-Elab-TTImp-checkImp arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-13 arg-1))(else (lambda (eta-0) (let ((act-24 ((Term-Elab-TTImp-insertImpLam 'erased arg-10 arg-8 arg-3 arg-13 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Check-Elab-TTImp-checkImp arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 e-5 arg-1) eta-0)))))))))))) +(define Term-Elab-TTImp-case--checkTerm-11402 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--checkTerm-11343 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--caseC-32blockC-32inC-32checkTermC-44resolveNames-11126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc2 eta-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (StringMap-Data-insert 'erased arg-16 e-2 e-5))))))) (Term-Elab-TTImp-n--14306-11015-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-18)) eta-0))))))) +(define Term-Elab-TTImp-case--checkTermC-44resolveNames-11029 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-Types-Prelude-C-43C-43 "non-UN in \"with\" LHS: " (Name-Core-show_Show__Name arg-13))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName arg-13 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-15 arg-13) eta-0)) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc5 eta-1)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (vector 1 (StringMap-Data-insert 'erased e-2 e-4 e-7))))))) (Term-Elab-TTImp-n--14306-11015-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))))))) +(define Term-Elab-TTImp-case--checkTerm-10779 (lambda (arg-0 arg-1 arg-2 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--checkTerm-10268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "arg" eta-0))) ((0) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "impArg" eta-0))) ((2) (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "conArg" eta-0))) (else (lambda (eta-0) (UnifyState-Core-genVarName arg-14 arg-12 "defArg" eta-0))))))) +(define Term-Elab-TTImp-case--insertImpLamC-44bindLam-10170 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-5 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) eta-0)))))))))))) +(define Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8)))))))) ((8) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-8)))))))) +(define Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-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 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-12 arg-9 (vector 3 (vector 31 arg-12 1)) (vector 1 arg-14) (vector 31 arg-12 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9671 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 2 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 arg-8 (vector 0 ) (vector 1 arg-13) (vector 31 arg-11 1) e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Term-Elab-TTImp-n--14306-11015-resolveNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (StringMap-Data-empty 'erased)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Term-Elab-TTImp-case--checkTermC-44resolveNames-11029 arg-0 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--13463-9451-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-15 (vector-ref sc0 3))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-26 (vector-ref sc2 3))) (let ((sc3 e-26)) (case (vector-ref sc3 0) ((2) (let ((e-30 (vector-ref sc3 2))) (let ((sc4 e-30)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 1 arg-7))))(else (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 '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-36 (vector-ref sc2 3))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((2) (let ((e-40 (vector-ref sc3 2))) (let ((sc4 e-40)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-7))))(else (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))) ((3) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-46 (vector-ref sc2 3))) (let ((sc3 e-46)) (case (vector-ref sc3 0) ((2) (let ((e-50 (vector-ref sc3 2))) (let ((sc4 e-50)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 1 arg-7))))(else (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (let ((e-10 (vector-ref sc9 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((e-10 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8)))))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-8 arg-7 (TT-Core-getFn 'erased arg-8))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 ))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-5) (vector 31 e-1 1) e-10))))) (else (vector 1 (vector 0 )))))))))))))))))(else (Term-Elab-TTImp-case--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 '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--insertImpLamC-44bindLamTm-9852 '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--13463-9452-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-15 (vector-ref sc0 3))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-24 (vector-ref sc2 3))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((2) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 arg-6)))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-34 (vector-ref sc2 3))) (let ((sc3 e-34)) (case (vector-ref sc3 0) ((2) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 e-38)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (vector 1 arg-6)))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 31 e-1 1) e-11)))))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 (vector 1 e-1 (vector 0 ) e-9))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((Term-Elab-TTImp-n--13463-9452-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 2 e-1 e-6 (vector 3 (vector 31 e-1 1)) (vector 1 e-9) (vector 31 e-1 1) e-11))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))) +(define Term-Elab-TTImp-n--13463-9453-bindLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Term-Elab-TTImp-n--13463-9451-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-6 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (let ((act-26 ((Normalise-Core-getNF 'erased arg-5 arg-7) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Term-Elab-TTImp-n--13463-9452-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--13463-9453-bindLam 'erased e-1 arg-4 arg-3 arg-2 arg-1 arg-4 e-1 eta-0))))(else (lambda (eta-0) (vector 1 arg-4))))))) +(define Term-Elab-TTImp-checkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 (vector 0 e-0 e-1) (vector 0 ) (vector 0 ) arg-10)))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (UnifyState-Core-genVarName arg-1 arg-3 "arg" eta-0)) ((0) (UnifyState-Core-genVarName arg-1 arg-3 "impArg" eta-0)) ((2) (UnifyState-Core-genVarName arg-1 arg-3 "conArg" eta-0)) (else (UnifyState-Core-genVarName arg-1 arg-3 "defArg" eta-0)))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) ((Binders-Elab-TTImp-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-8 e-6 e-7 arg-10) eta-0)))))))) (else (let ((e-99 (vector-ref sc1 1))) (let ((sc2 e-99)) (case (vector-ref sc2 0) ((1) (let ((e-100 (vector-ref sc2 1))) (let ((sc3 e-100)) (cond ((equal? sc3 "_") (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-2 e-3 e-4 (vector 0 ) e-6 e-7) arg-10))(else (Binders-Elab-TTImp-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-99 e-6 e-7 arg-10))))))(else (Binders-Elab-TTImp-checkPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-3 e-4 e-99 e-6 e-7 arg-10))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((1) (let ((e-102 (vector-ref sc1 1))) (Binders-Elab-TTImp-checkLambda arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-9 e-10 e-102 e-12 e-13 arg-10))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Binders-Elab-TTImp-checkLambda arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8 e-9 e-10 e-5 e-12 e-13 arg-10) eta-0))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (Binders-Elab-TTImp-checkLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14 e-15 e-16 e-17 e-18 e-19 arg-10)))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (lambda (eta-0) (Case-Elab-TTImp-checkCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-20 e-21 e-22 e-23 arg-10 eta-0))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (Local-Elab-TTImp-checkLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24 e-25 e-26 arg-10 eta-0)))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((e-31 (vector-ref sc0 5))) (lambda (eta-0) (Local-Elab-TTImp-checkCaseLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-27 e-28 e-29 e-30 e-31 arg-10 eta-0)))))))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (Record-Elab-TTImp-checkUpdate arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-32 e-33 e-34 arg-10 eta-0)))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-35 e-36 (vector 1 e-37 (vector 0 )) (vector 0 ) arg-10))))) ((10) (let ((e-38 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-38 "with application not implemented yet") eta-0)))) ((9) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((e-44 (vector-ref sc0 4))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-41 e-42 (vector 0 ) (vector 1 (vector 0 e-43 e-44) (vector 0 )) arg-10)))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-105 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "search" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-105) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 8 (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2))) arg-8 e-6 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 e-8 e-105))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "searchTy" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-45 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 e-45) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "search" eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Check-Elab-TTImp-searchVar arg-0 arg-1 arg-3 e-45 arg-5 e-46 (vector 8 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-8 e-8 e-7 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-8 e-7))))))))))))))))))))))))))))))))))) ((12) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-checkAlternative arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-47 e-48 e-49 arg-10))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-checkRewrite arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-50 e-51 e-52 arg-10))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-54 arg-10))) ((15) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (lambda (eta-0) (ImplicitBind-Elab-TTImp-checkBindHere arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-55 e-56 e-57 arg-10 eta-0)))))) ((16) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-checkBindVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-58 e-59 arg-10)))) ((17) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 3))) (let ((e-63 (vector-ref sc0 4))) (As-Elab-TTImp-checkAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-60 e-61 e-62 e-63 arg-10)))))) ((18) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Dot-Elab-TTImp-checkDot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-64 e-65 e-66 arg-10))))) ((19) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelayed arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-67 e-68 e-69 arg-10 eta-0)))))) ((20) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkDelay arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-70 e-71 arg-10 eta-0))))) ((21) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (Lazy-Elab-TTImp-checkForce arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-72 e-73 arg-10 eta-0))))) ((22) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuote arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-74 e-75 arg-10 eta-0))))) ((23) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-76 e-77 arg-10 eta-0))))) ((24) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (Quote-Elab-TTImp-checkQuoteDecl arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-78 e-79 arg-10 eta-0))))) ((25) (let ((e-80 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-80 "Can't escape outside a quoted term") eta-0)))) ((26) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (lambda (eta-0) (RunElab-Elab-TTImp-checkRunElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-82 e-83 arg-10 eta-0))))) ((27) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (Term-Elab-TTImp-case--checkTerm-10779 arg-1 e-85 e-84 arg-0 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (Prim-Elab-TTImp-checkPrim 'erased e-84 e-85))))) ((28) (let ((e-86 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 e-86 (vector 11 e-86) (Normalise-Core-gType 'erased e-86) arg-10))) ((29) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (Hole-Elab-TTImp-checkHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-87 e-88 arg-10)))) ((30) (let ((e-90 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Context-Core-getSession arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((lvl (let ((sc2 e-5)) (let ((e-12 (vector-ref sc2 6))) e-12)))) (let ((act-25 (Context-Core-setLogLevel arg-1 e-90 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-91 arg-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-setLogLevel arg-1 lvl eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))))))))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-108 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "_" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-108) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-5 e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((sc5 (Basics-Prelude-C-38C-38 e-93 (lambda () (let ((sc6 arg-6)) (let ((e-3 (vector-ref sc6 4))) e-3)))))) (cond ((equal? sc5 0) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-108) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-5 arg-5 (vector 1 ) arg-8 e-7 e-9 e-8)))) (vector 1 act-29))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-7 e-108)))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "implicit_type" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 e-92) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "_" eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-92 arg-5 arg-8 e-7 e-6 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((sc6 (Basics-Prelude-C-38C-38 e-93 (lambda () (let ((sc7 arg-6)) (let ((e-3 (vector-ref sc7 4))) e-3)))))) (cond ((equal? sc6 0) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-29 (set-box! arg-4 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-7 arg-5 (vector 1 ) arg-8 e-8 e-6 e-9)))) (vector 1 act-29)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 (vector 0 e-8 (Normalise-Core-gnf arg-0 arg-8 e-6)))))))))))))))))))))))))))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Term-Elab-TTImp-n--14306-11015-resolveNames arg-0 e-96 e-95 e-94 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-94 e-95) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-4 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-15 (vector-ref sc3 5))) (let ((e-14 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 11))) (let ((e-12 (vector-ref sc3 12))) (vector 0 e-1 e-2 e-3 e-4 e-15 e-14 e-7 e-8 e-9 e-10 e-11 e-12 (StringMap-Data-mergeLeft 'erased e-6 (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 13))) e-16)))))))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-96 arg-10) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-4))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((sc6 e-9)) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-18 (vector-ref sc6 5))) (let ((e-17 (vector-ref sc6 6))) (let ((e-16 (vector-ref sc6 7))) (let ((e-15 (vector-ref sc6 8))) (let ((e-14 (vector-ref sc6 9))) (let ((e-10 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 11))) (let ((e-12 (vector-ref sc6 12))) (vector 0 e-1 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 e-10 e-11 e-12 (let ((sc7 e-5)) (let ((e-19 (vector-ref sc7 13))) e-19))))))))))))))))))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))))))))))))))))))))))))))))) (define Check-Elab-TTImp-checkImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (Term-Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))) -(define Check-Elab-TTImp-check (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((14) (let ((e-1 (vector-ref sc0 2))) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-10))) ((3) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((5) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((7) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-4 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-7 arg-8 arg-9 (vector 0 ) arg-9 arg-10) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Term-Elab-TTImp-case--check-11573 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0)))))))))))))))))))))) -(define Reflect-TTImp-case--reify-15085 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "IClaim") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__FnOpt vars arg-3197 arg-3198)))) arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-TTImp-reify_Reify__ImpTy arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IData") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__ImpData arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 1 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IDef") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3197 arg-3198)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 2 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IParameters") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-44 (vector-ref sc4 1))) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (case (vector-ref sc5 0) ((1) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((sc6 e-48)) (case (vector-ref sc6 0) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 e-51)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-44) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-47) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-50) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3197 arg-3198)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 3 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IRecord") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-54 (vector-ref sc4 1))) (let ((e-55 (vector-ref sc4 2))) (let ((sc5 e-55)) (case (vector-ref sc5 0) ((1) (let ((e-57 (vector-ref sc5 1))) (let ((e-58 (vector-ref sc5 2))) (let ((sc6 e-58)) (case (vector-ref sc6 0) ((1) (let ((e-60 (vector-ref sc6 1))) (let ((e-61 (vector-ref sc6 2))) (let ((sc7 e-61)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-54) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-57) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-60) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__ImpRecord arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 4 e-7 (vector 0 ) e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "INamespace") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-64 (vector-ref sc4 1))) (let ((e-65 (vector-ref sc4 2))) (let ((sc5 e-65)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-64) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-67) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-70) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3197 arg-3198)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ITransform") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (case (vector-ref sc5 0) ((1) (let ((e-77 (vector-ref sc5 1))) (let ((e-78 (vector-ref sc5 2))) (let ((sc6 e-78)) (case (vector-ref sc6 0) ((1) (let ((e-80 (vector-ref sc6 1))) (let ((e-81 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-83 (vector-ref sc7 1))) (let ((e-84 (vector-ref sc7 2))) (let ((sc8 e-84)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-74) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-77) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-80) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-83) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 6 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ILog") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-87 (vector-ref sc4 1))) (let ((e-88 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-87) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-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-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__String eta-4 eta-5 eta-6)))) eta-1 eta-2 eta-3)))) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Nat eta-1 eta-2 eta-3))))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 9 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))) -(define Reflect-TTImp-case--reify-14760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "PatClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (vector 1 (vector 0 e-7 e-10 e-13)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "WithClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-22)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((1) (let ((e-27 (vector-ref sc7 1))) (let ((e-28 (vector-ref sc7 2))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3197 arg-3198)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 1 e-7 e-8 e-9 (vector 0 ) e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "ImpossibleClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((sc5 e-32)) (case (vector-ref sc5 0) ((1) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((sc6 e-35)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-31) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 2 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))) -(define Reflect-TTImp-case--reify-14544 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkRecord") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-reify_Reify__RigCount eta-7 eta-8 eta-9)))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198)))) eta-10 eta-11 eta-12)))) (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198))))) eta-7 eta-8 eta-9))))) eta-4 eta-5 eta-6))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__IField vars arg-3197 arg-3198)))) arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))) -(define Reflect-TTImp-case--reify-14353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkIField") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198)))) arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))) -(define Reflect-TTImp-case--reify-14077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkData") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__DataOpt vars arg-3197 arg-3198)))) arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpTy vars arg-3197 arg-3198)))) arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))) ((equal? sc3 "MkLater") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 1 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))) -(define Reflect-TTImp-case--reify-13822 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "SearchBy") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))) ((equal? sc3 "NoHints") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "UniqueSearch") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "External") (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc3 "NoNewtype") (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))) -(define Reflect-TTImp-case--reify-13667 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkTy") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (vector 1 (vector 0 e-7 e-10 e-13)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))) -(define Reflect-TTImp-case--reify-13181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Inline") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "TCInline") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "Hint") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "GlobalHint") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "ExternFn") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "ForeignFn") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Invertible") (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc3 "Totality") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__TotalReq arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Macro") (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc3 "SpecArgs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 9 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))) -(define Reflect-TTImp-case--reify-12994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "FirstSuccess") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "Unique") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "UniqueDefault") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))) -(define Reflect-TTImp-case--reify-12786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "ISetField") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))) ((equal? sc3 "ISetFieldApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 1 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))) -(define Reflect-TTImp-case--reify-10319 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "IVar") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPi") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-22)) (case (vector-ref sc7 0) ((1) (let ((e-24 (vector-ref sc7 1))) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((1) (let ((e-27 (vector-ref sc8 1))) (let ((e-28 (vector-ref sc8 2))) (let ((sc9 e-28)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 1 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILam") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((e-44 (vector-ref sc7 2))) (let ((sc8 e-44)) (case (vector-ref sc8 0) ((1) (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (let ((sc9 e-47)) (case (vector-ref sc9 0) ((1) (let ((e-49 (vector-ref sc9 1))) (let ((e-50 (vector-ref sc9 2))) (let ((sc10 e-50)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-43) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-46) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-evalClosure arg-0 arg-7 e-49) eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 2 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILet") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((sc5 e-54)) (case (vector-ref sc5 0) ((1) (let ((e-56 (vector-ref sc5 1))) (let ((e-57 (vector-ref sc5 2))) (let ((sc6 e-57)) (case (vector-ref sc6 0) ((1) (let ((e-59 (vector-ref sc6 1))) (let ((e-60 (vector-ref sc6 2))) (let ((sc7 e-60)) (case (vector-ref sc7 0) ((1) (let ((e-62 (vector-ref sc7 1))) (let ((e-63 (vector-ref sc7 2))) (let ((sc8 e-63)) (case (vector-ref sc8 0) ((1) (let ((e-65 (vector-ref sc8 1))) (let ((e-66 (vector-ref sc8 2))) (let ((sc9 e-66)) (case (vector-ref sc9 0) ((1) (let ((e-68 (vector-ref sc9 1))) (let ((e-69 (vector-ref sc9 2))) (let ((sc10 e-69)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-53) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-56) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-59) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-62) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-65) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-evalClosure arg-0 arg-7 e-68) eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 3 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ICase") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-72 (vector-ref sc4 1))) (let ((e-73 (vector-ref sc4 2))) (let ((sc5 e-73)) (case (vector-ref sc5 0) ((1) (let ((e-75 (vector-ref sc5 1))) (let ((e-76 (vector-ref sc5 2))) (let ((sc6 e-76)) (case (vector-ref sc6 0) ((1) (let ((e-78 (vector-ref sc6 1))) (let ((e-79 (vector-ref sc6 2))) (let ((sc7 e-79)) (case (vector-ref sc7 0) ((1) (let ((e-81 (vector-ref sc7 1))) (let ((e-82 (vector-ref sc7 2))) (let ((sc8 e-82)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-72) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-75) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-78) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-81) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3197 arg-3198)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 4 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILocal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-85 (vector-ref sc4 1))) (let ((e-86 (vector-ref sc4 2))) (let ((sc5 e-86)) (case (vector-ref sc5 0) ((1) (let ((e-88 (vector-ref sc5 1))) (let ((e-89 (vector-ref sc5 2))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-91 (vector-ref sc6 1))) (let ((e-92 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-85) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-88) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3197 arg-3198)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-91) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUpdate") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-95 (vector-ref sc4 1))) (let ((e-96 (vector-ref sc4 2))) (let ((sc5 e-96)) (case (vector-ref sc5 0) ((1) (let ((e-98 (vector-ref sc5 1))) (let ((e-99 (vector-ref sc5 2))) (let ((sc6 e-99)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-102)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-95) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-98) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__IFieldUpdate vars arg-3197 arg-3198)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-101) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 7 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-105 (vector-ref sc4 1))) (let ((e-106 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((1) (let ((e-108 (vector-ref sc5 1))) (let ((e-109 (vector-ref sc5 2))) (let ((sc6 e-109)) (case (vector-ref sc6 0) ((1) (let ((e-111 (vector-ref sc6 1))) (let ((e-112 (vector-ref sc6 2))) (let ((sc7 e-112)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-105) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-108) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-111) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 8 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IImplicitApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-116)) (case (vector-ref sc5 0) ((1) (let ((e-118 (vector-ref sc5 1))) (let ((e-119 (vector-ref sc5 2))) (let ((sc6 e-119)) (case (vector-ref sc6 0) ((1) (let ((e-121 (vector-ref sc6 1))) (let ((e-122 (vector-ref sc6 2))) (let ((sc7 e-122)) (case (vector-ref sc7 0) ((1) (let ((e-124 (vector-ref sc7 1))) (let ((e-125 (vector-ref sc7 2))) (let ((sc8 e-125)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-115) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-118) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-121) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-124) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 9 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (case (vector-ref sc5 0) ((1) (let ((e-131 (vector-ref sc5 1))) (let ((e-132 (vector-ref sc5 2))) (let ((sc6 e-132)) (case (vector-ref sc6 0) ((1) (let ((e-134 (vector-ref sc6 1))) (let ((e-135 (vector-ref sc6 2))) (let ((sc7 e-135)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-128) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-131) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-134) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 10 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ISearch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-139)) (case (vector-ref sc5 0) ((1) (let ((e-141 (vector-ref sc5 1))) (let ((e-142 (vector-ref sc5 2))) (let ((sc6 e-142)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-138) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-141) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAlternative") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-145 (vector-ref sc4 1))) (let ((e-146 (vector-ref sc4 2))) (let ((sc5 e-146)) (case (vector-ref sc5 0) ((1) (let ((e-148 (vector-ref sc5 1))) (let ((e-149 (vector-ref sc5 2))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((1) (let ((e-151 (vector-ref sc6 1))) (let ((e-152 (vector-ref sc6 2))) (let ((sc7 e-152)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-145) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-148) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__AltType arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-151) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 12 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IRewrite") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-155 (vector-ref sc4 1))) (let ((e-156 (vector-ref sc4 2))) (let ((sc5 e-156)) (case (vector-ref sc5 0) ((1) (let ((e-158 (vector-ref sc5 1))) (let ((e-159 (vector-ref sc5 2))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((1) (let ((e-161 (vector-ref sc6 1))) (let ((e-162 (vector-ref sc6 2))) (let ((sc7 e-162)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-155) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-158) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-161) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindHere") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-165 (vector-ref sc4 1))) (let ((e-166 (vector-ref sc4 2))) (let ((sc5 e-166)) (case (vector-ref sc5 0) ((1) (let ((e-168 (vector-ref sc5 1))) (let ((e-169 (vector-ref sc5 2))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((1) (let ((e-171 (vector-ref sc6 1))) (let ((e-172 (vector-ref sc6 2))) (let ((sc7 e-172)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-165) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-168) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__BindMode arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-171) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 15 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindVar") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-175 (vector-ref sc4 1))) (let ((e-176 (vector-ref sc4 2))) (let ((sc5 e-176)) (case (vector-ref sc5 0) ((1) (let ((e-178 (vector-ref sc5 1))) (let ((e-179 (vector-ref sc5 2))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-175) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-178) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (case (vector-ref sc5 0) ((1) (let ((e-185 (vector-ref sc5 1))) (let ((e-186 (vector-ref sc5 2))) (let ((sc6 e-186)) (case (vector-ref sc6 0) ((1) (let ((e-188 (vector-ref sc6 1))) (let ((e-189 (vector-ref sc6 2))) (let ((sc7 e-189)) (case (vector-ref sc7 0) ((1) (let ((e-191 (vector-ref sc7 1))) (let ((e-192 (vector-ref sc7 2))) (let ((sc8 e-192)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-182) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-185) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__UseSide arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-188) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-191) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 17 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IMustUnify") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-195 (vector-ref sc4 1))) (let ((e-196 (vector-ref sc4 2))) (let ((sc5 e-196)) (case (vector-ref sc5 0) ((1) (let ((e-198 (vector-ref sc5 1))) (let ((e-199 (vector-ref sc5 2))) (let ((sc6 e-199)) (case (vector-ref sc6 0) ((1) (let ((e-201 (vector-ref sc6 1))) (let ((e-202 (vector-ref sc6 2))) (let ((sc7 e-202)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-195) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-198) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__DotReason arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-201) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 18 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelayed") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-205 (vector-ref sc4 1))) (let ((e-206 (vector-ref sc4 2))) (let ((sc5 e-206)) (case (vector-ref sc5 0) ((1) (let ((e-208 (vector-ref sc5 1))) (let ((e-209 (vector-ref sc5 2))) (let ((sc6 e-209)) (case (vector-ref sc6 0) ((1) (let ((e-211 (vector-ref sc6 1))) (let ((e-212 (vector-ref sc6 2))) (let ((sc7 e-212)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-205) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-208) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__LazyReason arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-211) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 19 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelay") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-215 (vector-ref sc4 1))) (let ((e-216 (vector-ref sc4 2))) (let ((sc5 e-216)) (case (vector-ref sc5 0) ((1) (let ((e-218 (vector-ref sc5 1))) (let ((e-219 (vector-ref sc5 2))) (let ((sc6 e-219)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-215) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-218) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 20 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IForce") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-222 (vector-ref sc4 1))) (let ((e-223 (vector-ref sc4 2))) (let ((sc5 e-223)) (case (vector-ref sc5 0) ((1) (let ((e-225 (vector-ref sc5 1))) (let ((e-226 (vector-ref sc5 2))) (let ((sc6 e-226)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-222) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-225) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 21 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-229 (vector-ref sc4 1))) (let ((e-230 (vector-ref sc4 2))) (let ((sc5 e-230)) (case (vector-ref sc5 0) ((1) (let ((e-232 (vector-ref sc5 1))) (let ((e-233 (vector-ref sc5 2))) (let ((sc6 e-233)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-229) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-232) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 22 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteName") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-236 (vector-ref sc4 1))) (let ((e-237 (vector-ref sc4 2))) (let ((sc5 e-237)) (case (vector-ref sc5 0) ((1) (let ((e-239 (vector-ref sc5 1))) (let ((e-240 (vector-ref sc5 2))) (let ((sc6 e-240)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-236) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-239) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 23 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteDecl") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-243 (vector-ref sc4 1))) (let ((e-244 (vector-ref sc4 2))) (let ((sc5 e-244)) (case (vector-ref sc5 0) ((1) (let ((e-246 (vector-ref sc5 1))) (let ((e-247 (vector-ref sc5 2))) (let ((sc6 e-247)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-243) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-246) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3197 arg-3198)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 24 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUnquote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-250 (vector-ref sc4 1))) (let ((e-251 (vector-ref sc4 2))) (let ((sc5 e-251)) (case (vector-ref sc5 0) ((1) (let ((e-253 (vector-ref sc5 1))) (let ((e-254 (vector-ref sc5 2))) (let ((sc6 e-254)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-250) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-253) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 25 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPrimVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-257 (vector-ref sc4 1))) (let ((e-258 (vector-ref sc4 2))) (let ((sc5 e-258)) (case (vector-ref sc5 0) ((1) (let ((e-260 (vector-ref sc5 1))) (let ((e-261 (vector-ref sc5 2))) (let ((sc6 e-261)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-257) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-260) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Constant arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 27 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-264 (vector-ref sc4 1))) (let ((e-265 (vector-ref sc4 2))) (let ((sc5 e-265)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-264) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 28 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IHole") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-268 (vector-ref sc4 1))) (let ((e-269 (vector-ref sc4 2))) (let ((sc5 e-269)) (case (vector-ref sc5 0) ((1) (let ((e-271 (vector-ref sc5 1))) (let ((e-272 (vector-ref sc5 2))) (let ((sc6 e-272)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-268) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-271) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 29 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "Implicit") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-275 (vector-ref sc4 1))) (let ((e-276 (vector-ref sc4 2))) (let ((sc5 e-276)) (case (vector-ref sc5 0) ((1) (let ((e-278 (vector-ref sc5 1))) (let ((e-279 (vector-ref sc5 2))) (let ((sc6 e-279)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-275) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-278) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 31 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithUnambigNames") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-282 (vector-ref sc4 1))) (let ((e-283 (vector-ref sc4 2))) (let ((sc5 e-283)) (case (vector-ref sc5 0) ((1) (let ((e-285 (vector-ref sc5 1))) (let ((e-286 (vector-ref sc5 2))) (let ((sc6 e-286)) (case (vector-ref sc6 0) ((1) (let ((e-288 (vector-ref sc6 1))) (let ((e-289 (vector-ref sc6 2))) (let ((sc7 e-289)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-282) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-285) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-288) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 32 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))) -(define Reflect-TTImp-case--reify-9980 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "NonLinearVar") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "VarApplied") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "NotConstructor") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "ErasedArg") (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc3 "UserDotted") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "UnknownDot") (lambda (eta-0) (vector 1 (vector 5 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0))))))) -(define Reflect-TTImp-case--reify-9797 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "UseLeft") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "UseRight") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0))))))) -(define Reflect-TTImp-case--reify-9545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "PI") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))) ((equal? sc3 "PATTERN") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "NONE") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))) -(define Reflect-TTImp-reify_Reify__UseSide (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-9797 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "UseSide" eta-0))))))) -(define Reflect-TTImp-reify_Reify__RawImp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-10319 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "TTImp" eta-0))))))) -(define Reflect-TTImp-reify_Reify__ImpTy (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-13667 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "ITy" eta-0))))))) -(define Reflect-TTImp-reify_Reify__ImpRecord (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-14544 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Record" eta-0))))))) -(define Reflect-TTImp-reify_Reify__ImpDecl (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-15085 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Decl" eta-0))))))) -(define Reflect-TTImp-reify_Reify__ImpData (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-14077 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Data" eta-0))))))) -(define Reflect-TTImp-reify_Reify__ImpClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-14760 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Clause" eta-0))))))) -(define Reflect-TTImp-reify_Reify__IFieldUpdate (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-12786 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IFieldUpdate" eta-0))))))) -(define Reflect-TTImp-reify_Reify__IField (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-14353 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IField" eta-0))))))) -(define Reflect-TTImp-reify_Reify__FnOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-13181 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FnOpt" eta-0))))))) -(define Reflect-TTImp-reify_Reify__DotReason (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-9980 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DotReason" eta-0))))))) -(define Reflect-TTImp-reify_Reify__DataOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-13822 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DataOpt" eta-0))))))) -(define Reflect-TTImp-reify_Reify__BindMode (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-9545 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "BindMode" eta-0))))))) -(define Reflect-TTImp-reify_Reify__AltType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-12994 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "AltType" eta-0))))))) +(define Check-Elab-TTImp-check (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((14) (let ((e-1 (vector-ref sc0 2))) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-10))) ((3) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((5) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10)) ((7) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-4 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-7 arg-8 arg-9 (vector 0 ) arg-9 arg-10) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Term-Elab-TTImp-case--check-11501 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0)))))))))))))))))))))) +(define Reflect-TTImp-case--reify-15019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "IClaim") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__FnOpt vars arg-3197 arg-3198)))) arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-TTImp-reify_Reify__ImpTy arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IData") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__ImpData arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 1 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IDef") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3197 arg-3198)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 2 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IParameters") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-44 (vector-ref sc4 1))) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (case (vector-ref sc5 0) ((1) (let ((e-47 (vector-ref sc5 1))) (let ((e-48 (vector-ref sc5 2))) (let ((sc6 e-48)) (case (vector-ref sc6 0) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 e-51)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-44) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-47) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-50) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3197 arg-3198)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 3 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "IRecord") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-54 (vector-ref sc4 1))) (let ((e-55 (vector-ref sc4 2))) (let ((sc5 e-55)) (case (vector-ref sc5 0) ((1) (let ((e-57 (vector-ref sc5 1))) (let ((e-58 (vector-ref sc5 2))) (let ((sc6 e-58)) (case (vector-ref sc6 0) ((1) (let ((e-60 (vector-ref sc6 1))) (let ((e-61 (vector-ref sc6 2))) (let ((sc7 e-61)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-54) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-57) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Visibility arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-60) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__ImpRecord arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 4 e-7 (vector 0 ) e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "INamespace") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-64 (vector-ref sc4 1))) (let ((e-65 (vector-ref sc4 2))) (let ((sc5 e-65)) (case (vector-ref sc5 0) ((1) (let ((e-67 (vector-ref sc5 1))) (let ((e-68 (vector-ref sc5 2))) (let ((sc6 e-68)) (case (vector-ref sc6 0) ((1) (let ((e-70 (vector-ref sc6 1))) (let ((e-71 (vector-ref sc6 2))) (let ((sc7 e-71)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-64) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-67) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-70) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3197 arg-3198)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ITransform") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-74 (vector-ref sc4 1))) (let ((e-75 (vector-ref sc4 2))) (let ((sc5 e-75)) (case (vector-ref sc5 0) ((1) (let ((e-77 (vector-ref sc5 1))) (let ((e-78 (vector-ref sc5 2))) (let ((sc6 e-78)) (case (vector-ref sc6 0) ((1) (let ((e-80 (vector-ref sc6 1))) (let ((e-81 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-83 (vector-ref sc7 1))) (let ((e-84 (vector-ref sc7 2))) (let ((sc8 e-84)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-74) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-77) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-80) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-83) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 6 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))) ((equal? sc3 "ILog") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-87 (vector-ref sc4 1))) (let ((e-88 (vector-ref sc4 2))) (let ((sc5 e-88)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-87) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 9 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Decl" eta-0))))))) +(define Reflect-TTImp-case--reify-14694 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "PatClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (vector 1 (vector 0 e-7 e-10 e-13)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "WithClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-22)) (case (vector-ref sc6 0) ((1) (let ((e-24 (vector-ref sc6 1))) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((1) (let ((e-27 (vector-ref sc7 1))) (let ((e-28 (vector-ref sc7 2))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3197 arg-3198)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 1 e-7 e-8 e-9 (vector 0 ) e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))) ((equal? sc3 "ImpossibleClause") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((sc5 e-32)) (case (vector-ref sc5 0) ((1) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((sc6 e-35)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-31) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 2 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Clause" eta-0))))))) +(define Reflect-TTImp-case--reify-14478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkRecord") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__Name eta-4 eta-5 eta-6)))) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-reify_Reify__RigCount eta-7 eta-8 eta-9)))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (Reflect-Core-reify_Reify__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198)))) eta-10 eta-11 eta-12)))) (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198))))) eta-7 eta-8 eta-9))))) eta-4 eta-5 eta-6))))) eta-1 eta-2 eta-3)))) arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__IField vars arg-3197 arg-3198)))) arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Record" eta-0))))))) +(define Reflect-TTImp-case--reify-14287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkIField") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198)))) arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IField" eta-0))))))) +(define Reflect-TTImp-case--reify-14011 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkData") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((1) (let ((e-17 (vector-ref sc7 1))) (let ((e-18 (vector-ref sc7 2))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-0)))))))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-17) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__DataOpt vars arg-3197 arg-3198)))) arg-0 arg-7 e-16) eta-0)))))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpTy vars arg-3197 arg-3198)))) arg-0 arg-7 e-19) eta-0)))))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (vector 1 (vector 0 e-7 e-10 e-13 e-16 e-19)))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))) ((equal? sc3 "MkLater") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((1) (let ((e-27 (vector-ref sc5 1))) (let ((e-28 (vector-ref sc5 2))) (let ((sc6 e-28)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 1 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "Data" eta-0))))))) +(define Reflect-TTImp-case--reify-13756 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "SearchBy") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))) ((equal? sc3 "NoHints") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "UniqueSearch") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "External") (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc3 "NoNewtype") (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DataOpt" eta-0))))))) +(define Reflect-TTImp-case--reify-13601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "MkTy") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((1) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-14) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-13) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (vector 1 (vector 0 e-7 e-10 e-13)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "ITy" eta-0))))))) +(define Reflect-TTImp-case--reify-13115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "Inline") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "TCInline") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "Hint") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "GlobalHint") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-12) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 3 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "ExternFn") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "ForeignFn") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-16) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 5 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Invertible") (lambda (eta-0) (vector 1 (vector 6 )))) ((equal? sc3 "Totality") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-20) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__TotalReq arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 7 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))) ((equal? sc3 "Macro") (lambda (eta-0) (vector 1 (vector 8 )))) ((equal? sc3 "SpecArgs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-24 (vector-ref sc4 1))) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 9 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "FnOpt" eta-0))))))) +(define Reflect-TTImp-case--reify-12928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "FirstSuccess") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "Unique") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "UniqueDefault") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 2 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "AltType" eta-0))))))) +(define Reflect-TTImp-case--reify-12720 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "ISetField") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))) ((equal? sc3 "ISetFieldApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__String eta-1 eta-2 eta-3)))) arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 1 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "IFieldUpdate" eta-0))))))) +(define Reflect-TTImp-case--reify-10253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "IVar") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-11) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-10) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (vector 1 (vector 0 e-7 e-10))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPi") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((1) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((sc6 e-19)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-22)) (case (vector-ref sc7 0) ((1) (let ((e-24 (vector-ref sc7 1))) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((1) (let ((e-27 (vector-ref sc8 1))) (let ((e-28 (vector-ref sc8 2))) (let ((sc9 e-28)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-15) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-18) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-21) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-24) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-27) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-evalClosure arg-0 arg-7 e-30) eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 1 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILam") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((e-44 (vector-ref sc7 2))) (let ((sc8 e-44)) (case (vector-ref sc8 0) ((1) (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (let ((sc9 e-47)) (case (vector-ref sc9 0) ((1) (let ((e-49 (vector-ref sc9 1))) (let ((e-50 (vector-ref sc9 2))) (let ((sc10 e-50)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-34) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-37) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-40) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-43) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-46) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-evalClosure arg-0 arg-7 e-49) eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 2 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILet") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((sc5 e-54)) (case (vector-ref sc5 0) ((1) (let ((e-56 (vector-ref sc5 1))) (let ((e-57 (vector-ref sc5 2))) (let ((sc6 e-57)) (case (vector-ref sc6 0) ((1) (let ((e-59 (vector-ref sc6 1))) (let ((e-60 (vector-ref sc6 2))) (let ((sc7 e-60)) (case (vector-ref sc7 0) ((1) (let ((e-62 (vector-ref sc7 1))) (let ((e-63 (vector-ref sc7 2))) (let ((sc8 e-63)) (case (vector-ref sc8 0) ((1) (let ((e-65 (vector-ref sc8 1))) (let ((e-66 (vector-ref sc8 2))) (let ((sc9 e-66)) (case (vector-ref sc9 0) ((1) (let ((e-68 (vector-ref sc9 1))) (let ((e-69 (vector-ref sc9 2))) (let ((sc10 e-69)) (case (vector-ref sc10 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-53) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-56) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-8) eta-0)))))))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-59) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-62) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-10 (vector-ref sc14 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc14 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-7 e-65) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-11) eta-0)))))))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-11 (vector-ref sc15 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc15 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-evalClosure arg-0 arg-7 e-68) eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-12) eta-0)))))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-12 (vector-ref sc16 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc16 1))) (vector 1 (vector 3 e-7 e-8 e-9 e-10 e-11 e-12))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ICase") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-72 (vector-ref sc4 1))) (let ((e-73 (vector-ref sc4 2))) (let ((sc5 e-73)) (case (vector-ref sc5 0) ((1) (let ((e-75 (vector-ref sc5 1))) (let ((e-76 (vector-ref sc5 2))) (let ((sc6 e-76)) (case (vector-ref sc6 0) ((1) (let ((e-78 (vector-ref sc6 1))) (let ((e-79 (vector-ref sc6 2))) (let ((sc7 e-79)) (case (vector-ref sc7 0) ((1) (let ((e-81 (vector-ref sc7 1))) (let ((e-82 (vector-ref sc7 2))) (let ((sc8 e-82)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-72) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-75) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-78) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-81) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3197 arg-3198)))) arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 4 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ILocal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-85 (vector-ref sc4 1))) (let ((e-86 (vector-ref sc4 2))) (let ((sc5 e-86)) (case (vector-ref sc5 0) ((1) (let ((e-88 (vector-ref sc5 1))) (let ((e-89 (vector-ref sc5 2))) (let ((sc6 e-89)) (case (vector-ref sc6 0) ((1) (let ((e-91 (vector-ref sc6 1))) (let ((e-92 (vector-ref sc6 2))) (let ((sc7 e-92)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-85) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-88) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3197 arg-3198)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-91) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUpdate") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-95 (vector-ref sc4 1))) (let ((e-96 (vector-ref sc4 2))) (let ((sc5 e-96)) (case (vector-ref sc5 0) ((1) (let ((e-98 (vector-ref sc5 1))) (let ((e-99 (vector-ref sc5 2))) (let ((sc6 e-99)) (case (vector-ref sc6 0) ((1) (let ((e-101 (vector-ref sc6 1))) (let ((e-102 (vector-ref sc6 2))) (let ((sc7 e-102)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-95) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-98) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__IFieldUpdate vars arg-3197 arg-3198)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-101) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 7 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-105 (vector-ref sc4 1))) (let ((e-106 (vector-ref sc4 2))) (let ((sc5 e-106)) (case (vector-ref sc5 0) ((1) (let ((e-108 (vector-ref sc5 1))) (let ((e-109 (vector-ref sc5 2))) (let ((sc6 e-109)) (case (vector-ref sc6 0) ((1) (let ((e-111 (vector-ref sc6 1))) (let ((e-112 (vector-ref sc6 2))) (let ((sc7 e-112)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-105) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-108) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-111) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 8 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IImplicitApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-115 (vector-ref sc4 1))) (let ((e-116 (vector-ref sc4 2))) (let ((sc5 e-116)) (case (vector-ref sc5 0) ((1) (let ((e-118 (vector-ref sc5 1))) (let ((e-119 (vector-ref sc5 2))) (let ((sc6 e-119)) (case (vector-ref sc6 0) ((1) (let ((e-121 (vector-ref sc6 1))) (let ((e-122 (vector-ref sc6 2))) (let ((sc7 e-122)) (case (vector-ref sc7 0) ((1) (let ((e-124 (vector-ref sc7 1))) (let ((e-125 (vector-ref sc7 2))) (let ((sc8 e-125)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-115) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-118) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-121) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-124) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 9 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithApp") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-128 (vector-ref sc4 1))) (let ((e-129 (vector-ref sc4 2))) (let ((sc5 e-129)) (case (vector-ref sc5 0) ((1) (let ((e-131 (vector-ref sc5 1))) (let ((e-132 (vector-ref sc5 2))) (let ((sc6 e-132)) (case (vector-ref sc6 0) ((1) (let ((e-134 (vector-ref sc6 1))) (let ((e-135 (vector-ref sc6 2))) (let ((sc7 e-135)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-128) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-131) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-134) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 10 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "ISearch") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-138 (vector-ref sc4 1))) (let ((e-139 (vector-ref sc4 2))) (let ((sc5 e-139)) (case (vector-ref sc5 0) ((1) (let ((e-141 (vector-ref sc5 1))) (let ((e-142 (vector-ref sc5 2))) (let ((sc6 e-142)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-138) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-141) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Nat arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAlternative") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-145 (vector-ref sc4 1))) (let ((e-146 (vector-ref sc4 2))) (let ((sc5 e-146)) (case (vector-ref sc5 0) ((1) (let ((e-148 (vector-ref sc5 1))) (let ((e-149 (vector-ref sc5 2))) (let ((sc6 e-149)) (case (vector-ref sc6 0) ((1) (let ((e-151 (vector-ref sc6 1))) (let ((e-152 (vector-ref sc6 2))) (let ((sc7 e-152)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-145) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-148) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__AltType arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-151) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__RawImp vars arg-3197 arg-3198)))) arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 12 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IRewrite") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-155 (vector-ref sc4 1))) (let ((e-156 (vector-ref sc4 2))) (let ((sc5 e-156)) (case (vector-ref sc5 0) ((1) (let ((e-158 (vector-ref sc5 1))) (let ((e-159 (vector-ref sc5 2))) (let ((sc6 e-159)) (case (vector-ref sc6 0) ((1) (let ((e-161 (vector-ref sc6 1))) (let ((e-162 (vector-ref sc6 2))) (let ((sc7 e-162)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-155) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-158) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-161) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 13 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindHere") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-165 (vector-ref sc4 1))) (let ((e-166 (vector-ref sc4 2))) (let ((sc5 e-166)) (case (vector-ref sc5 0) ((1) (let ((e-168 (vector-ref sc5 1))) (let ((e-169 (vector-ref sc5 2))) (let ((sc6 e-169)) (case (vector-ref sc6 0) ((1) (let ((e-171 (vector-ref sc6 1))) (let ((e-172 (vector-ref sc6 2))) (let ((sc7 e-172)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-165) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-168) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__BindMode arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-171) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 15 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IBindVar") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-175 (vector-ref sc4 1))) (let ((e-176 (vector-ref sc4 2))) (let ((sc5 e-176)) (case (vector-ref sc5 0) ((1) (let ((e-178 (vector-ref sc5 1))) (let ((e-179 (vector-ref sc5 2))) (let ((sc6 e-179)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-175) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-178) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IAs") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-182 (vector-ref sc4 1))) (let ((e-183 (vector-ref sc4 2))) (let ((sc5 e-183)) (case (vector-ref sc5 0) ((1) (let ((e-185 (vector-ref sc5 1))) (let ((e-186 (vector-ref sc5 2))) (let ((sc6 e-186)) (case (vector-ref sc6 0) ((1) (let ((e-188 (vector-ref sc6 1))) (let ((e-189 (vector-ref sc6 2))) (let ((sc7 e-189)) (case (vector-ref sc7 0) ((1) (let ((e-191 (vector-ref sc7 1))) (let ((e-192 (vector-ref sc7 2))) (let ((sc8 e-192)) (case (vector-ref sc8 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-182) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-185) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__UseSide arg-0 arg-7 e-8) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-188) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-9) eta-0)))))))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc11 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-7 e-191) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-10) eta-0)))))))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-10 (vector-ref sc12 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc12 1))) (vector 1 (vector 17 e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IMustUnify") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-195 (vector-ref sc4 1))) (let ((e-196 (vector-ref sc4 2))) (let ((sc5 e-196)) (case (vector-ref sc5 0) ((1) (let ((e-198 (vector-ref sc5 1))) (let ((e-199 (vector-ref sc5 2))) (let ((sc6 e-199)) (case (vector-ref sc6 0) ((1) (let ((e-201 (vector-ref sc6 1))) (let ((e-202 (vector-ref sc6 2))) (let ((sc7 e-202)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-195) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-198) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-TTImp-reify_Reify__DotReason arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-201) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 18 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelayed") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-205 (vector-ref sc4 1))) (let ((e-206 (vector-ref sc4 2))) (let ((sc5 e-206)) (case (vector-ref sc5 0) ((1) (let ((e-208 (vector-ref sc5 1))) (let ((e-209 (vector-ref sc5 2))) (let ((sc6 e-209)) (case (vector-ref sc6 0) ((1) (let ((e-211 (vector-ref sc6 1))) (let ((e-212 (vector-ref sc6 2))) (let ((sc7 e-212)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-205) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-208) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__LazyReason arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-211) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 19 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IDelay") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-215 (vector-ref sc4 1))) (let ((e-216 (vector-ref sc4 2))) (let ((sc5 e-216)) (case (vector-ref sc5 0) ((1) (let ((e-218 (vector-ref sc5 1))) (let ((e-219 (vector-ref sc5 2))) (let ((sc6 e-219)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-215) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-218) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 20 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IForce") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-222 (vector-ref sc4 1))) (let ((e-223 (vector-ref sc4 2))) (let ((sc5 e-223)) (case (vector-ref sc5 0) ((1) (let ((e-225 (vector-ref sc5 1))) (let ((e-226 (vector-ref sc5 2))) (let ((sc6 e-226)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-222) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-225) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 21 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-229 (vector-ref sc4 1))) (let ((e-230 (vector-ref sc4 2))) (let ((sc5 e-230)) (case (vector-ref sc5 0) ((1) (let ((e-232 (vector-ref sc5 1))) (let ((e-233 (vector-ref sc5 2))) (let ((sc6 e-233)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-229) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-232) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 22 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteName") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-236 (vector-ref sc4 1))) (let ((e-237 (vector-ref sc4 2))) (let ((sc5 e-237)) (case (vector-ref sc5 0) ((1) (let ((e-239 (vector-ref sc5 1))) (let ((e-240 (vector-ref sc5 2))) (let ((sc6 e-240)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-236) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-239) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Name arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 23 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IQuoteDecl") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-243 (vector-ref sc4 1))) (let ((e-244 (vector-ref sc4 2))) (let ((sc5 e-244)) (case (vector-ref sc5 0) ((1) (let ((e-246 (vector-ref sc5 1))) (let ((e-247 (vector-ref sc5 2))) (let ((sc6 e-247)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-243) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-246) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3197) (lambda (arg-3198) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3197 arg-3198)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 24 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IUnquote") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-250 (vector-ref sc4 1))) (let ((e-251 (vector-ref sc4 2))) (let ((sc5 e-251)) (case (vector-ref sc5 0) ((1) (let ((e-253 (vector-ref sc5 1))) (let ((e-254 (vector-ref sc5 2))) (let ((sc6 e-254)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-250) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-253) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 25 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IPrimVal") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-257 (vector-ref sc4 1))) (let ((e-258 (vector-ref sc4 2))) (let ((sc5 e-258)) (case (vector-ref sc5 0) ((1) (let ((e-260 (vector-ref sc5 1))) (let ((e-261 (vector-ref sc5 2))) (let ((sc6 e-261)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-257) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-260) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Constant arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 27 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IType") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-264 (vector-ref sc4 1))) (let ((e-265 (vector-ref sc4 2))) (let ((sc5 e-265)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-264) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 28 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IHole") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-268 (vector-ref sc4 1))) (let ((e-269 (vector-ref sc4 2))) (let ((sc5 e-269)) (case (vector-ref sc5 0) ((1) (let ((e-271 (vector-ref sc5 1))) (let ((e-272 (vector-ref sc5 2))) (let ((sc6 e-272)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-268) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-271) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 29 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "Implicit") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-275 (vector-ref sc4 1))) (let ((e-276 (vector-ref sc4 2))) (let ((sc5 e-276)) (case (vector-ref sc5 0) ((1) (let ((e-278 (vector-ref sc5 1))) (let ((e-279 (vector-ref sc5 2))) (let ((sc6 e-279)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-275) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-278) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__Bool arg-0 arg-7 e-8) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 31 e-7 e-8))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))) ((equal? sc3 "IWithUnambigNames") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-282 (vector-ref sc4 1))) (let ((e-283 (vector-ref sc4 2))) (let ((sc5 e-283)) (case (vector-ref sc5 0) ((1) (let ((e-285 (vector-ref sc5 1))) (let ((e-286 (vector-ref sc5 2))) (let ((sc6 e-286)) (case (vector-ref sc6 0) ((1) (let ((e-288 (vector-ref sc6 1))) (let ((e-289 (vector-ref sc6 2))) (let ((sc7 e-289)) (case (vector-ref sc7 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-282) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) ((Reflect-Core-reify_Reify__FC arg-0 arg-7 e-7) eta-0)))))))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-285) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-Core-reify_Reify__Name eta-1 eta-2 eta-3)))) arg-0 arg-7 e-8) eta-0)))))))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-288) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-7 e-9) eta-0)))))))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (vector 1 (vector 32 e-7 e-8 e-9)))))))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "TTImp" eta-0))))))) +(define Reflect-TTImp-case--reify-9914 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "NonLinearVar") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "VarApplied") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "NotConstructor") (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc3 "ErasedArg") (lambda (eta-0) (vector 1 (vector 3 )))) ((equal? sc3 "UserDotted") (lambda (eta-0) (vector 1 (vector 4 )))) ((equal? sc3 "UnknownDot") (lambda (eta-0) (vector 1 (vector 5 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "DotReason" eta-0))))))) +(define Reflect-TTImp-case--reify-9731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "UseLeft") (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc3 "UseRight") (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "UseSide" eta-0))))))) +(define Reflect-TTImp-case--reify-9479 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 "PI") (let ((sc4 e-3)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-8) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__RigCount arg-0 arg-7 e-7) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 e-7)))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))) ((equal? sc3 "PATTERN") (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc3 "NONE") (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0)))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-6 "BindMode" eta-0))))))) +(define Reflect-TTImp-reify_Reify__UseSide (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-9731 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "UseSide" eta-0))))))) +(define Reflect-TTImp-reify_Reify__RawImp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-10253 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "TTImp" eta-0))))))) +(define Reflect-TTImp-reify_Reify__ImpTy (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-13601 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "ITy" eta-0))))))) +(define Reflect-TTImp-reify_Reify__ImpRecord (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-14478 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Record" eta-0))))))) +(define Reflect-TTImp-reify_Reify__ImpDecl (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-15019 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Decl" eta-0))))))) +(define Reflect-TTImp-reify_Reify__ImpData (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-14011 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Data" eta-0))))))) +(define Reflect-TTImp-reify_Reify__ImpClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-14694 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "Clause" eta-0))))))) +(define Reflect-TTImp-reify_Reify__IFieldUpdate (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-12720 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IFieldUpdate" eta-0))))))) +(define Reflect-TTImp-reify_Reify__IField (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-14287 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "IField" eta-0))))))) +(define Reflect-TTImp-reify_Reify__FnOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-13115 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "FnOpt" eta-0))))))) +(define Reflect-TTImp-reify_Reify__DotReason (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-9914 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DotReason" eta-0))))))) +(define Reflect-TTImp-reify_Reify__DataOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-13756 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "DataOpt" eta-0))))))) +(define Reflect-TTImp-reify_Reify__BindMode (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-9479 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "BindMode" eta-0))))))) +(define Reflect-TTImp-reify_Reify__AltType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((val (vector 2 e-1 e-2 e-3 e-4 e-5))) ((Reflect-TTImp-case--reify-12928 arg-0 e-1 e-3 e-4 e-5 e-2 val arg-1 e-6 (vector 0 e-6 e-5)) eta-0))))))))))))))(else (lambda (eta-0) (Reflect-Core-cantReify 'erased 'erased arg-2 "AltType" eta-0))))))) (define Reflect-TTImp-reflect_Reflect__UseSide (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UseLeft") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "UseRight") eta-0))))))) (define Reflect-TTImp-reflect_Reflect__RawImp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((1) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (let ((e-14 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-12) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-13) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc5 1))) (let ((act-29 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc6 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPi") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-15 (vector 1 e-16 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))))))))) ((2) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (let ((e-19 (vector-ref sc0 5))) (let ((e-20 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-18) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-19) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-20) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILam") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-23) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-24) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-25) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-26) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILet") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) eta-0))))))))))))))))))))))))))))))))))))))) ((4) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-28) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-29) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-30) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ICase") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((5) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-32) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-33) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILocal") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((6) (let ((e-38 (vector-ref sc0 5))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-38))) ((7) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__IFieldUpdate vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-41) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IUpdate") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((8) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-42) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-43) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-44) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((9) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-46) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-47) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-48) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IImplicitApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((10) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-49) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-50) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-51) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IWithApp") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((11) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-52) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Nat arg-0 arg-1 arg-2 arg-3 arg-4 e-53) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISearch") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((12) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-56 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-54) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__AltType arg-0 arg-1 arg-2 arg-3 arg-4 e-55) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-56) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAlternative") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((13) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (let ((e-59 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-57) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-58) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-59) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRewrite") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((14) (let ((e-61 (vector-ref sc0 2))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-61))) ((15) (let ((e-62 (vector-ref sc0 1))) (let ((e-63 (vector-ref sc0 2))) (let ((e-64 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-62) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__BindMode arg-0 arg-1 arg-2 arg-3 arg-4 e-63) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-64) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindHere") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((16) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-65) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-66 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IBindVar") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((17) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (let ((e-69 (vector-ref sc0 3))) (let ((e-70 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-67) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__UseSide arg-0 arg-1 arg-2 arg-3 arg-4 e-68) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-69) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-70) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IAs") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((18) (let ((e-71 (vector-ref sc0 1))) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-71) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__DotReason arg-0 arg-1 arg-2 arg-3 arg-4 e-72) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-73) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IMustUnify") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((19) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (let ((e-76 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__LazyReason arg-0 arg-1 arg-2 arg-3 arg-4 e-75) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-76) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelayed") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((20) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-78) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDelay") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((21) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-79) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-80) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IForce") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((22) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-81) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-82) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuote") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((23) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-83) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-84) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteName") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((24) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-85) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-86) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IQuoteDecl") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((25) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((sc1 e-88)) (case (vector-ref sc1 0) ((0) (let ((e-100 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 e-87 (vector 0 ) e-100)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect an unquote: escapes should be lifted out") eta-0)))))))) ((26) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't reflect a %runelab") eta-0))) ((27) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-91) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Constant arg-0 arg-1 arg-2 arg-3 arg-4 e-92) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IPrimVal") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((28) (let ((e-93 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-93) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IType") (vector 1 e-5 (vector 0 )) eta-0))))))))) ((29) (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-94) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Reflect-Core-reflect_Reflect__String arg-0 arg-1 arg-2 arg-3 arg-4 e-95 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IHole") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) ((30) (let ((e-98 (vector-ref sc0 3))) (Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-98)))(else (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (lambda (eta-0) (vector 1 (vector 10 arg-1 1))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((31) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((31) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Bool arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Implicit") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithUnambigNames") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))))))))))))) (define Reflect-TTImp-reflect_Reflect__ImpTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkTy") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))))) (define Reflect-TTImp-reflect_Reflect__ImpRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__RigCount eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-19) (lambda (eta-20) (lambda (eta-21) (lambda (eta-22) (lambda (eta-23) (lambda (eta-24) (Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) eta-19 eta-20 eta-21 eta-22 eta-23 eta-24))))))) (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3218 arg-3219 onLHS arg-3220 arg-3222)))))))) eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__IField vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))))) -(define Reflect-TTImp-reflect_Reflect__ImpDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__FnOpt vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__ImpTy arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IClaim") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__ImpData arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IData") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) eta-0))))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDef") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3218 arg-3219 onLHS arg-3220 arg-3222)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-13) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IParameters") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__ImpRecord arg-0 arg-1 arg-2 arg-3 arg-4 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "INamespace") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-23) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-24) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ITransform") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a %runElab") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-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-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (Reflect-Core-reflect_Reflect__String eta-7 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Nat eta-1 eta-2 eta-3 eta-4 eta-5 eta-6)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILog") (vector 1 e-5 (vector 0 )) eta-0))))))))))))) +(define Reflect-TTImp-reflect_Reflect__ImpDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__RigCount arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__FnOpt vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-TTImp-reflect_Reflect__ImpTy arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IClaim") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__ImpData arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IData") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) eta-0))))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-10) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IDef") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3218 arg-3219 onLHS arg-3220 arg-3222)))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-13) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IParameters") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Visibility arg-0 arg-1 arg-2 arg-3 arg-4 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__ImpRecord arg-0 arg-1 arg-2 arg-3 arg-4 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "IRecord") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "INamespace") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-23) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-24) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ITransform") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))) eta-0))))))))))))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a %runElab") eta-0))) ((8) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't reflect a pragma") eta-0))) (else (let ((e-28 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__Nat arg-0 arg-1 arg-2 arg-3 arg-4 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ILog") (vector 1 e-5 (vector 0 )) eta-0))))))))))))) (define Reflect-TTImp-reflect_Reflect__ImpData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__DataOpt vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__ImpTy vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkData") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 1 e-9 (vector 0 )))))) eta-0))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "MkLater") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 )))) eta-0))))))))))))))))))))))))) (define Reflect-TTImp-reflect_Reflect__ImpClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "PatClause") (vector 1 e-5 (vector 1 e-6 (vector 1 e-7 (vector 0 )))) eta-0))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (vars) (lambda (arg-3218) (lambda (arg-3219) (lambda (onLHS) (lambda (arg-3220) (lambda (arg-3222) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3218 arg-3219 onLHS arg-3220 arg-3222))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "WithClause") (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 1 e-11 (vector 0 ))))) eta-0))))))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__FC arg-0 arg-1 arg-2 arg-3 arg-4 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ImpossibleClause") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))))))) (define Reflect-TTImp-reflect_Reflect__IFieldUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISetField") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__String eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Reflect-Core-appCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "ISetFieldApp") (vector 1 e-5 (vector 1 e-6 (vector 0 ))) eta-0))))))))))))))))))) @@ -4258,72 +4184,72 @@ (define Reflect-Core-builtin (lambda (arg-0) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 arg-0)))) (define Reflect-Core-basics (lambda (arg-0) (vector 0 (vector 1 "Basics" (vector 1 "Prelude" (vector 0 ))) (vector 1 arg-0)))) (define Reflect-Core-appCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Reflect-Core-getCon arg-0 arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (TT-Core-apply 'erased arg-1 e-5 arg-4)) ext-0)))))))) -(define RunElab-Elab-TTImp-case--checkRunElab-4436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-4 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-11 arg-10 arg-9 arg-3 arg-5 arg-4 e-6 (vector 1 (Normalise-Core-gnf arg-0 arg-4 arg-12))) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-11))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-clearDefs e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-4 e-6 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-4 arg-12))))))))))))))))))))))))))))))))) -(define RunElab-Elab-TTImp-case--elabScript-4204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 "Reflection") (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (cond ((equal? sc4 "Language") (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (RunElab-Elab-TTImp-n--11355-2782-elabCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-9 arg-1)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))) -(define RunElab-Elab-TTImp-case--elabScriptC-44elabCon-4031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2781-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0))))))) -(define RunElab-Elab-TTImp-case--elabScriptC-44elabCon-3895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3641) (TT-Core-weaken_Weaken__Term n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (TT-Core-weakenNs_Weaken__Term vars ns arg-3645))))) arg-0 e-4 'erased arg-7))) (let ((bty (TT-Core-binderType 'erased binder))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 bty eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (RunElab-Elab-TTImp-n--11355-2781-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0))))))) -(define RunElab-Elab-TTImp-case--elabScriptC-44elabCon-3628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (RunElab-Elab-TTImp-n--11355-2781-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0)))))))))))) -(define RunElab-Elab-TTImp-case--elabScriptC-44elabCon-3448 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "x" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-16) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-10 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((lamsc (TT-Core-refToLocal 'erased e-5 e-2 e-11))) (let ((act-27 ((RunElab-Elab-TTImp-n--11379-3408-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-8) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-9 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((envC-39 (vector 1 (vector 0 e-6 e-7 e-12 e-13) arg-7))) (let ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-16 envC-39 lamsc) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-14 (vector 0 )) eta-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) arg-17 envC-39 e-14 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) ((Normalise-Core-nf arg-0 arg-17 arg-7 (vector 3 e-1 e-2 (vector 0 e-6 e-7 e-12 e-13) e-15)) eta-0))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))) -(define RunElab-Elab-TTImp-case--elabScriptC-44elabCon-3289 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nf arg-0 e-5 arg-7 e-2) eta-0))))))))))) -(define RunElab-Elab-TTImp-case--elabScriptC-44elabCon-2910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 arg-18 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-17) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-5)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-10 arg-6) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-17 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-17 eta-0))))))) -(define RunElab-Elab-TTImp-n--11379-3798-unelabType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders (vector 0 ) arg-12 (vector 0 ) e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 e-5))))))))))))))) -(define RunElab-Elab-TTImp-n--11355-2781-scriptRet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (((((((arg-14 arg-0) arg-9) e-5) 1) arg-7) arg-15) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-7 e-6) ext-0))))))))))))) -(define RunElab-Elab-TTImp-n--11379-3408-quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't add default lambda") eta-0))))))) -(define RunElab-Elab-TTImp-n--12980-4322-mkExpected (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 e-5))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "scriptTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Check-Elab-TTImp-metaVar arg-0 arg-11 arg-9 arg-3 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-3) eta-0)))))))))))) -(define RunElab-Elab-TTImp-n--11355-2780-failWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-9 arg-7 e-7) ext-0)))))))))))))))))) -(define RunElab-Elab-TTImp-n--11355-2782-elabCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (cond ((equal? sc0 "Pure") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) ((Normalise-Core-evalClosure arg-0 e-6 e-4) eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Bind") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-17 (vector-ref sc4 1))) (let ((e-18 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-14) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-5 arg-6) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-17) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-7 e-5 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-19 (vector-ref sc10 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc10 1))) (let ((act-27 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-19)) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-20 (vector-ref sc11 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc11 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-20 arg-6) eta-0))))))))))))(else (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Fail") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((1) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-24) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 "Error during reflection: " e-6)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "LogMsg") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((1) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((sc4 e-35)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-28) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-31) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (let ((act-26 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-6) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (Context-Core-logC arg-12 e-7 e-8 (lambda (eta-1) (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-13 e-34) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc9 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-9) eta-1))))))) eta-0))))))))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11355-2781-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0)))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "LogTerm") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((sc2 e-39)) (case (vector-ref sc2 0) ((1) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((1) (let ((e-44 (vector-ref sc3 1))) (let ((e-45 (vector-ref sc3 2))) (let ((sc4 e-45)) (case (vector-ref sc4 0) ((1) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((sc5 e-48)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-38) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-41) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (let ((act-26 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-6) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (Context-Core-logC arg-12 e-7 e-8 (lambda (eta-1) (let ((act-28 ((Normalise-Core-evalClosure arg-0 arg-13 e-44) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-29 ((Normalise-Core-evalClosure arg-0 arg-13 e-47) eta-1))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-30 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-9) eta-1))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc12 1))) (let ((act-31 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-10) eta-1))) (let ((sc13 act-31)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc13 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 e-11 (Strings-Types-Prelude-C-43C-43 ": " (TTImp-TTImp-show_Show__RawImp e-12))))))))))))))))))))))))) eta-0))))))))))))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11355-2781-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0)))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Check") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-51 (vector-ref sc1 1))) (let ((e-52 (vector-ref sc1 2))) (let ((sc2 e-52)) (case (vector-ref sc2 0) ((1) (let ((e-54 (vector-ref sc2 1))) (let ((e-55 (vector-ref sc2 2))) (let ((sc3 e-55)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-51) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-54) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 ((Context-Core-resolveName arg-12 (vector 1 "[elaborator script]")) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEState arg-0 e-7 arg-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-28 (let ((act-28 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-6) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-12 arg-11 arg-10 e-8 0 (Check-Elab-TTImp-check arg-0 arg-12 arg-11 arg-10 e-8 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (Check-Elab-TTImp-initElabInfo (vector 2 )) arg-8 arg-7 e-9 (vector 1 (Normalise-Core-glueBack arg-0 arg-13 arg-7 e-5))) eta-0)))))))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (let ((e-2 (vector-ref sc9 1))) (let ((act-29 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc10 1))) ((Normalise-Core-nf arg-0 e-10 arg-7 e-2) eta-0)))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Quote") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 2))) (let ((sc2 e-59)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (let ((e-62 (vector-ref sc2 2))) (let ((sc3 e-62)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-61) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-12))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-clearDefs e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-7 e-5 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-28 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-8 eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (RunElab-Elab-TTImp-n--11355-2781-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-9 eta-0))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Lambda") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-65 (vector-ref sc1 1))) (let ((e-66 (vector-ref sc1 2))) (let ((sc2 e-66)) (case (vector-ref sc2 0) ((1) (let ((e-68 (vector-ref sc2 1))) (let ((e-69 (vector-ref sc2 2))) (let ((sc3 e-69)) (case (vector-ref sc3 0) ((1) (let ((e-71 (vector-ref sc3 1))) (let ((e-72 (vector-ref sc3 2))) (let ((sc4 e-72)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-71) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((e-8 (vector-ref sc8 3))) (let ((e-9 (vector-ref sc8 4))) (let ((act-26 (UnifyState-Core-genVarName arg-12 arg-10 "x" eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-27 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) e-11))) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-12 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((lamsc (TT-Core-refToLocal 'erased e-11 e-2 e-13))) (let ((act-29 ((RunElab-Elab-TTImp-n--11379-3408-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-68 e-65 e-71 arg-13 e-8) eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-9 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-15 (vector-ref sc13 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc13 1))) (let ((envC-39 (vector 1 (vector 0 e-10 e-7 e-14 e-15) arg-7))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-13 envC-39 lamsc) eta-0))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc14 1))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-16 (vector 0 )) eta-0)))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc14 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) e-5 envC-39 e-16 eta-0))) (let ((sc15 act-32)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc15 1))) ((Normalise-Core-nf arg-0 e-5 arg-7 (vector 3 e-1 e-2 (vector 0 e-10 e-7 e-14 e-15) e-17)) eta-0)))))))))))))))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Goal") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-5 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (RunElab-Elab-TTImp-n--11355-2781-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 0 )) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0)))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "LocalVars") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2781-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 eta-0)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GenSym") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-77 (vector-ref sc1 1))) (let ((e-78 (vector-ref sc1 2))) (let ((sc2 e-78)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-77) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (UnifyState-Core-genVarName arg-12 arg-10 e-6 eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (RunElab-Elab-TTImp-n--11355-2781-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "InCurrentNS") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-81 (vector-ref sc1 1))) (let ((e-82 (vector-ref sc1 2))) (let ((sc2 e-82)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-81) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((Context-Core-inCurrentNS arg-12 e-6) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (RunElab-Elab-TTImp-n--11355-2781-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GetType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-85 (vector-ref sc1 1))) (let ((e-86 (vector-ref sc1 2))) (let ((sc2 e-86)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-85) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (Context-Core-lookupTyName e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (RunElab-Elab-TTImp-n--11379-3798-unelabType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-85 arg-13 eta-1)) e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (RunElab-Elab-TTImp-n--11355-2781-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__Name eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-TTImp-reflect_Reflect__RawImp eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-7 eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GetLocalType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-89 (vector-ref sc1 1))) (let ((e-90 (vector-ref sc1 2))) (let ((sc2 e-90)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-89) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((RunElab-Elab-TTImp-case--elabScriptC-44elabCon-3895 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-89 arg-13 e-5 e-6 (Env-Core-defined arg-0 e-6 arg-7)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GetCons") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-93 (vector-ref sc1 1))) (let ((e-94 (vector-ref sc1 2))) (let ((sc2 e-94)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-93) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-lookupDefExact e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((sc7 e-1)) (case (vector-ref sc7 0) ((6) (let ((e-8 (vector-ref sc7 7))) (RunElab-Elab-TTImp-n--11355-2781-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0)))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Declare") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-97 (vector-ref sc1 1))) (let ((e-98 (vector-ref sc1 2))) (let ((sc2 e-98)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-97) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-TTImp-reify_Reify__ImpDecl eta-1 eta-2 eta-3)))) arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-12 arg-11 arg-10 (vector 0 ) (vector 0 ) (vector 0 ) eta-1)) e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11355-2781-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0)))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))) -(define RunElab-Elab-TTImp-elabScript (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-0)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-10)) (cond ((equal? sc5 "Reflection") (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 "Language") (let ((sc8 e-11)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) ((RunElab-Elab-TTImp-n--11355-2782-elabCon arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 e-13 e-5) eta-0)))(else (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11355-2780-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 arg-7 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-4 arg-6 e-7) eta-0)))))))))))))))))))))) -(define RunElab-Elab-TTImp-checkRunElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((RunElab-Elab-TTImp-n--12980-4322-mkExpected arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((sc2 (Basics-Prelude-not (Context-Core-isExtension (vector 0 ) e-6)))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "%language ElabReflection not enabled") ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((n (vector 0 (vector 1 "Reflection" (vector 1 "Language" (vector 0 ))) (vector 1 "Elab")))) (let ((act-27 (Reflect-Core-appCon arg-0 arg-9 e-6 n (vector 1 e-5 (vector 0 )) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-2 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-10 arg-8 e-2) ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-1 arg-2 arg-3 arg-9 arg-7 arg-8 e-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-5))) ext-0)))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-clearDefs e-12 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-13 arg-8 e-11 ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-14 (Normalise-Core-gnf arg-0 arg-8 e-5))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Delayed-Elab-TTImp-case--runDelays-5741 (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--runDelays-5697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--runDelays-5645 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-Types-Prelude-C-43C-43 'erased e-8 arg-9) e-9)))))))))))))) -(define Delayed-Elab-TTImp-case--caseC-32blockC-32inC-32retryDelayedC-39-5377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryDelayedC-39-5247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--caseC-32blockC-32inC-32retryDelayedC-39-5209 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Delayed-Elab-TTImp-recoverable arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryDelayedC-39-5247 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 (Basics-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--retryDelayedC-39-4980 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((11) (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-11 arg-10 arg-9 arg-8 (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Context-Core-getFullName arg-11 (vector 8 arg-2)) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Context-Core-log arg-11 "elab.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat (let ((sc4 e-5)) (let ((e-10 (vector-ref sc4 10))) e-10))) (Strings-Types-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-6))))) eta-1)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-12 (vector-ref sc5 6))) (let ((e-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-13 e-2 e-3 e-4 e-12 e-11 e-10 (vector 0 ) e-9)))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (arg-3 eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (unbox arg-9))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((dsC-39 (List-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 9))) e-12))) arg-5))) (let ((act-30 (Context-Core-updateDef arg-11 (vector 8 arg-2) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-9) (vector 1 0 e-9) (vector 0 )))) eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-31 (Context-Core-logTerm (vector 0 ) arg-11 "elab.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Resolved delayed hole " (Show-Prelude-show_Show__Int arg-2))) e-9 eta-1))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-32 ((Normalise-Core-logTermNF (vector 0 ) arg-11 "elab.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Resolved delayed hole NF " (Show-Prelude-show_Show__Int arg-2))) (vector 0 ) e-9) eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-33 (UnifyState-Core-removeHole arg-9 arg-2 eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-11 (vector 8 arg-2)) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Context-Core-log arg-11 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-7) (Strings-Types-Prelude-C-43C-43 ":Error in " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error err))))))) eta-1)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 11 )))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Delayed-Elab-TTImp-recoverable arg-11 err) eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryDelayedC-39-5247 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 (Basics-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--contra-4667 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) -(define Delayed-Elab-TTImp-case--contra-4585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7))))))) -(define Delayed-Elab-TTImp-case--mismatchNF-4415 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) -(define Delayed-Elab-TTImp-case--mismatchNF-4333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8))))))) -(define Delayed-Elab-TTImp-case--caseC-32blockC-32inC-32delayElab-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) (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--delayElab-4104 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-10 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Postponing elaborator " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " for"))) arg-4 arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-8 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-10 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-10 e-7 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-13))))))))))))))))))))) -(define Delayed-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32delayOnFailure-3917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--caseC-32blockC-32inC-32delayOnFailure-3790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-11 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Postponing elaborator " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Context-Core-log arg-11 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-14 (vector-ref sc4 3))) (let ((e-13 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-12 (vector-ref sc4 6))) (let ((e-11 (vector-ref sc4 7))) (let ((e-10 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-11 e-10 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-8) e-9))))))))))))))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-4))))))))))))))))))))))))) -(define Delayed-Elab-TTImp-case--delayOnFailure-3727 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "delayed" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-getTerm 'erased arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((UnifyState-Core-newDelayed arg-0 arg-9 arg-11 arg-7 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Normalise-Core-logGlueNF arg-0 arg-11 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Postponing elaborator " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 ((Context-Core-log arg-11 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13)))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-9))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (set-box! arg-9 (let ((sc7 e-9)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-16 (vector-ref sc7 3))) (let ((e-15 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-14 (vector-ref sc7 6))) (let ((e-13 (vector-ref sc7 7))) (let ((e-12 (vector-ref sc7 8))) (let ((e-11 (vector-ref sc7 9))) (let ((e-10 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-11) e-10))))))))))))))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-4)))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0))))))) -(define Delayed-Elab-TTImp-case--deeper-3661 (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 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-5) e-11 e-12 e-13)))))))))))))))) -(define Delayed-Elab-TTImp-case--deeper-3619 (lambda (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--mkClosedElab-3519 (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--9459-3489-newBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-3))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-5 arg-0 bC-39 e-2) (Normalise-Core-gErased 'erased arg-5))))))))) +(define RunElab-Elab-TTImp-case--checkRunElab-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 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-4 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-11 arg-10 arg-9 arg-3 arg-5 arg-4 e-6 (vector 1 (Normalise-Core-gnf arg-0 arg-4 arg-12))) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-11))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-clearDefs e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-4 e-6 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-4 arg-12))))))))))))))))))))))))))))))))) +(define RunElab-Elab-TTImp-case--elabScript-4176 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 "Reflection") (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (cond ((equal? sc4 "Language") (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (RunElab-Elab-TTImp-n--11156-2788-elabCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-9 arg-1)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))) +(define RunElab-Elab-TTImp-case--elabScriptC-44elabCon-4003 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2787-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a type")) eta-0))))))) +(define RunElab-Elab-TTImp-case--elabScriptC-44elabCon-3867 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3584) (TT-Core-weaken_Weaken__Term n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (TT-Core-weakenNs_Weaken__Term vars ns arg-3588))))) arg-0 e-4 'erased arg-7))) (let ((bty (TT-Core-binderType 'erased binder))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 bty eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (RunElab-Elab-TTImp-n--11156-2787-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-16) " is not a local variable")) eta-0))))))) +(define RunElab-Elab-TTImp-case--elabScriptC-44elabCon-3600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (RunElab-Elab-TTImp-n--11156-2787-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0)))))))))))) +(define RunElab-Elab-TTImp-case--elabScriptC-44elabCon-3420 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "x" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-16) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-9 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((lamsc (TT-Core-refToLocal 'erased e-5 e-2 e-10))) (let ((act-27 ((RunElab-Elab-TTImp-n--11180-3380-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-7) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((envC-39 (vector 1 (vector 0 e-6 e-11 e-12) arg-7))) (let ((act-29 (let ((act-29 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-16 envC-39 lamsc) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-13 (vector 0 )) eta-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) arg-17 envC-39 e-13 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) ((Normalise-Core-nf arg-0 arg-17 arg-7 (vector 3 e-1 e-2 (vector 0 e-6 e-11 e-12) e-14)) eta-0)))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))) +(define RunElab-Elab-TTImp-case--elabScriptC-44elabCon-3261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nf arg-0 e-5 arg-7 e-2) eta-0))))))))))) +(define RunElab-Elab-TTImp-case--elabScriptC-44elabCon-2916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-7 arg-18 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-17) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-5)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-9 arg-6) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-17 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-17 eta-0))))))) +(define RunElab-Elab-TTImp-n--11180-3770-unelabType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabUniqueBinders (vector 0 ) arg-12 (vector 0 ) e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 e-5))))))))))))))) +(define RunElab-Elab-TTImp-n--11156-2787-scriptRet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (((((((arg-14 arg-0) arg-9) e-5) 1) arg-7) arg-15) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-7 e-6) ext-0))))))))))))) +(define RunElab-Elab-TTImp-n--11180-3380-quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't add default lambda") eta-0))))))) +(define RunElab-Elab-TTImp-n--12747-4294-mkExpected (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 e-5))))))))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "scriptTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Check-Elab-TTImp-metaVar arg-0 arg-11 arg-9 arg-3 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-3) eta-0)))))))))))) +(define RunElab-Elab-TTImp-n--11156-2786-failWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 (vector 2 arg-5 arg-4 arg-3 arg-2 arg-1) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-9 arg-7 e-7) ext-0)))))))))))))))))) +(define RunElab-Elab-TTImp-n--11156-2788-elabCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-14)) (cond ((equal? sc0 "Pure") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) ((Normalise-Core-evalClosure arg-0 e-6 e-4) eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Bind") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-17 (vector-ref sc4 1))) (let ((e-18 (vector-ref sc4 2))) (let ((sc5 e-18)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-14) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-5 arg-6) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-17) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-7 e-5 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-27 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 e-16)) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-19 (vector-ref sc11 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc11 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 e-19 arg-6) eta-0))))))))))))(else (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Fail") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((1) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-24) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 "Error during reflection: " e-6)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "LogMsg") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((1) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-28) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-31) eta-1))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))))))) eta-0)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11156-2787-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "LogTerm") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((sc2 e-36)) (case (vector-ref sc2 0) ((1) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((sc3 e-39)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (let ((sc4 e-42)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-35) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Nat arg-0 arg-13 e-5) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (Context-Core-logC arg-12 e-6 (lambda (eta-1) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-13 e-38) eta-1))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-13 e-41) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (let ((act-28 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-7) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-29 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-8) eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc10 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 e-9 (Strings-Types-Prelude-C-43C-43 ": " (TTImp-TTImp-show_Show__RawImp e-10))))))))))))))))))))))))) eta-0)))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11156-2787-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Check") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (let ((sc2 e-46)) (case (vector-ref sc2 0) ((1) (let ((e-48 (vector-ref sc2 1))) (let ((e-49 (vector-ref sc2 2))) (let ((sc3 e-49)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-45) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-48) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 ((Context-Core-resolveName arg-12 (vector 1 "[elaborator script]")) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (Check-Elab-TTImp-initEState arg-0 e-7 arg-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-28 (let ((act-28 ((Reflect-TTImp-reify_Reify__RawImp arg-0 arg-13 e-6) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-12 arg-11 arg-10 e-8 0 (Check-Elab-TTImp-check arg-0 arg-12 arg-11 arg-10 e-8 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (Check-Elab-TTImp-initElabInfo (vector 2 )) arg-8 arg-7 e-9 (vector 1 (Normalise-Core-glueBack arg-0 arg-13 arg-7 e-5))) eta-0)))))))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (let ((sc9 e-9)) (let ((e-2 (vector-ref sc9 1))) (let ((act-29 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc10 1))) ((Normalise-Core-nf arg-0 e-10 arg-7 e-2) eta-0)))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Quote") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-53 (vector-ref sc1 2))) (let ((sc2 e-53)) (case (vector-ref sc2 0) ((1) (let ((e-55 (vector-ref sc2 1))) (let ((e-56 (vector-ref sc2 2))) (let ((sc3 e-56)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-55) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-12))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-clearDefs e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-7 e-5 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-28 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-8 eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc8 1))) (RunElab-Elab-TTImp-n--11156-2787-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-9 eta-0))))))))))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Lambda") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((sc2 e-60)) (case (vector-ref sc2 0) ((1) (let ((e-62 (vector-ref sc2 1))) (let ((e-63 (vector-ref sc2 2))) (let ((sc3 e-63)) (case (vector-ref sc3 0) ((1) (let ((e-65 (vector-ref sc3 1))) (let ((e-66 (vector-ref sc3 2))) (let ((sc4 e-66)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-13 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-13 e-65) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (let ((e-7 (vector-ref sc8 2))) (let ((e-8 (vector-ref sc8 3))) (let ((act-26 (UnifyState-Core-genVarName arg-12 arg-10 "x" eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-27 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-withAll) arg-7 (vector 1 e-1 (vector 0 ) e-10))) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-11 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc11 1))) (let ((lamsc (TT-Core-refToLocal 'erased e-10 e-2 e-12))) (let ((act-29 ((RunElab-Elab-TTImp-n--11180-3380-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-62 e-59 e-65 arg-13 e-7) eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 e-8 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-14 (vector-ref sc13 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc13 1))) (let ((envC-39 (vector 1 (vector 0 e-9 e-13 e-14) arg-7))) (let ((act-31 (let ((act-31 ((Normalise-Core-nf (vector 1 e-2 arg-0) arg-13 envC-39 lamsc) eta-0))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) ((RunElab-Elab-TTImp-elabScript (vector 1 e-2 arg-0) arg-12 arg-11 arg-10 arg-9 (TTImp-TTImp-weaken_Weaken__NestedNames e-2 arg-0 arg-8) envC-39 e-15 (vector 0 )) eta-0)))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-15 (vector-ref sc14 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF (vector 1 e-2 arg-0) e-5 envC-39 e-15 eta-0))) (let ((sc15 act-32)) (case (vector-ref sc15 0) ((0) (let ((e-16 (vector-ref sc15 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc15 1))) ((Normalise-Core-nf arg-0 e-5 arg-7 (vector 3 e-1 e-2 (vector 0 e-9 e-13 e-14) e-16)) eta-0))))))))))))))))))))))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Not a lambda") eta-0))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Goal") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Unelab-TTImp-unelabUniqueBinders arg-0 arg-12 arg-7 e-5 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (RunElab-Elab-TTImp-n--11156-2787-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-TTImp-reflect_Reflect__RawImp eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) (vector 1 e-6) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-TTImp-reflect_Reflect__RawImp eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 arg-9 arg-13 1 arg-7 (vector 0 )) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-13 arg-7 e-5) eta-0)))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "LocalVars") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2787-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) arg-0 eta-0)))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GenSym") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((sc2 e-72)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-71) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__String arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (UnifyState-Core-genVarName arg-12 arg-10 e-6 eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (RunElab-Elab-TTImp-n--11156-2787-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "InCurrentNS") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 e-76)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-75) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((Context-Core-inCurrentNS arg-12 e-6) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (RunElab-Elab-TTImp-n--11156-2787-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__Name eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-6 eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GetType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-79 (vector-ref sc1 1))) (let ((e-80 (vector-ref sc1 2))) (let ((sc2 e-80)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-79) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (Context-Core-lookupTyName e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (RunElab-Elab-TTImp-n--11180-3770-unelabType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-79 arg-13 eta-1)) e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (RunElab-Elab-TTImp-n--11156-2787-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-Core-reflect_Reflect__Name eta-13 eta-14 eta-15 eta-16 eta-17 eta-18))))))) (lambda (eta-13) (lambda (eta-14) (lambda (eta-15) (lambda (eta-16) (lambda (eta-17) (lambda (eta-18) (Reflect-TTImp-reflect_Reflect__RawImp eta-13 eta-14 eta-15 eta-16 eta-17 eta-18)))))))) eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-7 eta-0))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GetLocalType") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-83 (vector-ref sc1 1))) (let ((e-84 (vector-ref sc1 2))) (let ((sc2 e-84)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-83) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((RunElab-Elab-TTImp-case--elabScriptC-44elabCon-3867 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-83 arg-13 e-5 e-6 (Env-Core-defined arg-0 e-6 arg-7)) eta-0)))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "GetCons") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-87 (vector-ref sc1 1))) (let ((e-88 (vector-ref sc1 2))) (let ((sc2 e-88)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-87) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Reflect-Core-reify_Reify__Name arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-lookupDefExact e-6 (let ((sc5 arg-13)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((sc7 e-1)) (case (vector-ref sc7 0) ((6) (let ((e-8 (vector-ref sc7 7))) (RunElab-Elab-TTImp-n--11156-2787-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (Reflect-Core-reflect_Reflect__Name eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-1 eta-2 eta-3 eta-4 eta-5 eta-6))))))) e-8 eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " is not a type")) eta-0)))))))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0)))))) ((equal? sc0 "Declare") (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-91 (vector-ref sc1 1))) (let ((e-92 (vector-ref sc1 2))) (let ((sc2 e-92)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-13 e-91) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Reflect-TTImp-reify_Reify__ImpDecl eta-1 eta-2 eta-3)))) arg-0 arg-13 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-12 arg-11 arg-10 (vector 0 ) (vector 0 ) (vector 0 ) eta-1)) e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (RunElab-Elab-TTImp-n--11156-2787-scriptRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 eta-1 eta-2 eta-3 eta-4 eta-5 eta-6 eta-7)))))))) (vector 0 ) eta-0)))))))))))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))(else (lambda (eta-0) (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased arg-13 eta-0))))))) +(define RunElab-Elab-TTImp-elabScript (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-0)) (case (vector-ref sc4 0) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-10)) (cond ((equal? sc5 "Reflection") (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 "Language") (let ((sc8 e-11)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((1) (let ((e-13 (vector-ref sc9 1))) ((RunElab-Elab-TTImp-n--11156-2788-elabCon arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 e-13 e-5) eta-0)))(else (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))(else (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))(else (RunElab-Elab-TTImp-n--11156-2786-failWith arg-0 e-5 e-4 e-3 e-2 e-1 arg-8 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-6 eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 arg-7 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 46 arg-0 arg-4 arg-6 e-7) eta-0)))))))))))))))))))))) +(define RunElab-Elab-TTImp-checkRunElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((RunElab-Elab-TTImp-n--12747-4294-mkExpected arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((sc2 (Basics-Prelude-not (Context-Core-isExtension (vector 0 ) e-6)))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "%language ElabReflection not enabled") ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((n (vector 0 (vector 1 "Reflection" (vector 1 "Language" (vector 0 ))) (vector 1 "Elab")))) (let ((act-27 (Reflect-Core-appCon arg-0 arg-9 e-6 n (vector 1 e-5 (vector 0 )) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-2 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-10 arg-8 e-2) ext-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-1 arg-2 arg-3 arg-9 arg-7 arg-8 e-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-5))) ext-0)))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-clearDefs e-12 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-13 arg-8 e-11 ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-14 (Normalise-Core-gnf arg-0 arg-8 e-5))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Delayed-Elab-TTImp-case--runDelays-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))) (let ((e-4 (vector-ref sc0 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--runDelays-5676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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--runDelays-5624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (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-Types-Prelude-C-43C-43 'erased e-8 arg-9) e-9)))))))))))))) +(define Delayed-Elab-TTImp-case--caseC-32blockC-32inC-32retryDelayedC-39-5358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryDelayedC-39-5228 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--caseC-32blockC-32inC-32retryDelayedC-39-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) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Delayed-Elab-TTImp-recoverable arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryDelayedC-39-5228 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 (Basics-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--retryDelayedC-39-4969 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((11) (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-11 arg-10 arg-9 arg-8 (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Context-Core-getFullName arg-11 (vector 8 arg-2)) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat (let ((sc4 e-5)) (let ((e-10 (vector-ref sc4 10))) e-10))) (Strings-Types-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-6)))) eta-1)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc5 e-7)) (let ((e-0 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-12 (vector-ref sc5 6))) (let ((e-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-13 e-2 e-3 e-4 e-12 e-11 e-10 (vector 0 ) e-9)))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (arg-3 eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (unbox arg-9))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((dsC-39 (List-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 9))) e-12))) arg-5))) (let ((act-30 (Context-Core-updateDef arg-11 (vector 8 arg-2) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-9) (vector 1 0 e-9) (vector 0 )))) eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-31 (Context-Core-logTerm (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Resolved delayed hole " (Show-Prelude-show_Show__Int arg-2))) e-9 eta-1))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-32 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Resolved delayed hole NF " (Show-Prelude-show_Show__Int arg-2))) (vector 0 ) e-9 eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-33 (UnifyState-Core-removeHole arg-9 arg-2 eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-11 (vector 8 arg-2)) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-7) (Strings-Types-Prelude-C-43C-43 ":Error in " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error err)))))) eta-1)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 11 )))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Delayed-Elab-TTImp-recoverable arg-11 err) eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryDelayedC-39-5228 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 (Basics-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--contra-4656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) +(define Delayed-Elab-TTImp-case--contra-4574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7))))))) +(define Delayed-Elab-TTImp-case--mismatchNF-4404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) +(define Delayed-Elab-TTImp-case--mismatchNF-4322 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (Delayed-Elab-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8))))))) +(define Delayed-Elab-TTImp-case--caseC-32blockC-32inC-32delayElab-4187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--delayElab-4095 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Postponing elaborator " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " for"))) arg-4 arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-8 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-10 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 e-10 e-7 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-6 arg-4 arg-1))) e-8) e-9))))))))))))))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-13))))))))))))))))))))) +(define Delayed-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32delayOnFailure-3908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--caseC-32blockC-32inC-32delayOnFailure-3785 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Postponing elaborator " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (set-box! arg-9 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-14 (vector-ref sc4 3))) (let ((e-13 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-12 (vector-ref sc4 6))) (let ((e-11 (vector-ref sc4 7))) (let ((e-10 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-11 e-10 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-8) e-9))))))))))))))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-4))))))))))))))))))))))))) +(define Delayed-Elab-TTImp-case--delayOnFailure-3722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-11 arg-9 "delayed" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-getTerm 'erased arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((UnifyState-Core-newDelayed arg-0 arg-9 arg-11 arg-7 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (Normalise-Core-logGlueNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Postponing elaborator " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-7) " for"))))) arg-5 arg-4 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Due to error " (Core-Core-show_Show__Error arg-13))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-9))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (set-box! arg-9 (let ((sc7 e-9)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-16 (vector-ref sc7 3))) (let ((e-15 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-14 (vector-ref sc7 6))) (let ((e-13 (vector-ref sc7 7))) (let ((e-12 (vector-ref sc7 8))) (let ((e-11 (vector-ref sc7 9))) (let ((e-10 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 e-13 e-12 (vector 1 (vector 0 arg-2 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-7 arg-5 (lambda (eta-1) (Delayed-Elab-TTImp-deeper 'erased 'erased arg-8 (arg-1 0) eta-1))))) e-11) e-10))))))))))))))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-4)))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0))))))) +(define Delayed-Elab-TTImp-case--deeper-3656 (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 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-5) e-11 e-12 e-13)))))))))))))))) +(define Delayed-Elab-TTImp-case--deeper-3614 (lambda (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--mkClosedElab-3514 (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--9270-3489-newBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-3))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-5 arg-0 bC-39 e-2) (Normalise-Core-gErased 'erased arg-5))))))))) (define Delayed-Elab-TTImp-case--mkClosedElab-3467 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))) -(define Delayed-Elab-TTImp-n--9459-3489-newBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) arg-6)(else (vector 0 (TT-Core-binderLoc 'erased arg-6) (TT-Core-multiplicity 'erased arg-6) (vector 1 ) (TT-Core-binderType 'erased arg-6))))))) -(define Delayed-Elab-TTImp-n--10084-4028-mkExpected (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-10 arg-8 "delayTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-10 arg-8 arg-6 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-4 e-6)))))))))))))))))) -(define Delayed-Elab-TTImp-n--11701-5500-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))) (EqOrd-Prelude-C-60C-61_Ord__Integer e-2 arg-3))))) +(define Delayed-Elab-TTImp-n--9270-3489-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--9889-4019-mkExpected (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-10 arg-8 "delayTy" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-10 arg-8 arg-6 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-4 e-6)))))))))))))))))) +(define Delayed-Elab-TTImp-n--11496-5481-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))) (EqOrd-Prelude-C-60C-61_Ord__Integer e-2 arg-3))))) (define Delayed-Elab-TTImp-show_Show__RetryError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "RecoverableErrors") (else "AllErrors"))))) (define Delayed-Elab-TTImp-showPrec_Show__RetryError (lambda (arg-0 arg-1) (Delayed-Elab-TTImp-show_Show__RetryError arg-1))) (define Delayed-Elab-TTImp-__Impl_Show_RetryError (lambda () (vector 0 (lambda (x) (Delayed-Elab-TTImp-show_Show__RetryError x)) (lambda (d) (lambda (x) (Delayed-Elab-TTImp-showPrec_Show__RetryError d x)))))) -(define Delayed-Elab-TTImp-runDelays (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((olddelayed (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 9))) e-8)))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 e-6 e-7 (vector 0 ) e-9)))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Context-Core-log arg-2 "elab.delay" (+ 1 (+ 1 0)) (lambda () "Rerunning delayed in elaborator")) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Check-Elab-TTImp-handle 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (lambda (eta-0) (let ((act-29 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) (vector 0 ) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Delayed-Elab-TTImp-n--11701-5500-hasPri 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased eta-1)) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 9))) e-11))))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) (lambda (err) (lambda (eta-0) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-14 (vector-ref sc5 6))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-13 e-12 olddelayed e-10)))))))))))))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-0))))))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 (set-box! arg-4 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-2 (vector-ref sc7 3))) (let ((e-3 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-16 (vector-ref sc7 6))) (let ((e-15 (vector-ref sc7 7))) (let ((e-14 (vector-ref sc7 8))) (let ((e-13 (vector-ref sc7 9))) (let ((e-12 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 e-15 e-14 (List-Types-Prelude-C-43C-43 'erased e-13 olddelayed) e-12))))))))))))))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))))))))))))))))))))))))) -(define Delayed-Elab-TTImp-retryDelayedC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 8 e-10) (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((d (vector 0 e-6 (vector 0 e-10 e-11)))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((11) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-26 (let ((act-26 (unbox arg-4))) (vector 1 act-26)))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 ((Context-Core-getFullName arg-1 (vector 8 e-10)) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) ((Context-Core-log arg-1 "elab.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat (let ((sc9 e-9)) (let ((e-16 (vector-ref sc9 10))) e-16))) (Strings-Types-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-12))))) eta-1)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 (let ((act-29 (set-box! arg-3 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((e-20 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-18 (vector-ref sc10 6))) (let ((e-17 (vector-ref sc10 7))) (let ((e-16 (vector-ref sc10 8))) (let ((e-14 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-20 e-19 e-4 e-18 e-17 e-16 (vector 0 ) e-14)))))))))))))) (vector 1 act-29)))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-30 (e-11 eta-1))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((dsC-39 (List-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc13 e-16)) (let ((e-18 (vector-ref sc13 9))) e-18))) e-3))) (let ((act-32 (Context-Core-updateDef arg-1 (vector 8 e-10) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-15) (vector 1 0 e-15) (vector 0 )))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-logTerm (vector 0 ) arg-1 "elab.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Resolved delayed hole " (Show-Prelude-show_Show__Int e-10))) e-15 eta-1))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-34 ((Normalise-Core-logTermNF (vector 0 ) arg-1 "elab.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Resolved delayed hole NF " (Show-Prelude-show_Show__Int e-10))) (vector 0 ) e-15) eta-1))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-35 (UnifyState-Core-removeHole arg-3 e-10 eta-1))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-1 (vector 8 e-10)) eta-1))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) ((Context-Core-log arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-5) (Strings-Types-Prelude-C-43C-43 ":Error in " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Types-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error err))))))) eta-1)))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((_-0 (vector 1 (vector 11 )))) (let ((sc8 arg-5)) (case (vector-ref sc8 0) ((0) (let ((act-27 ((Delayed-Elab-TTImp-recoverable arg-1 err) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryDelayedC-39-5247 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 (Basics-Prelude-not e-12)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))))))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))))))))))))))))))))))))))))) +(define Delayed-Elab-TTImp-runDelays (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((olddelayed (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 9))) e-8)))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 e-6 e-7 (vector 0 ) e-9)))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-log arg-2 (+ 1 (+ 1 0)) (lambda () "Rerunning delayed in elaborator") ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Check-Elab-TTImp-handle 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (lambda (eta-0) (let ((act-29 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) (vector 0 ) (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (eta-1) (Delayed-Elab-TTImp-n--11496-5481-hasPri 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased eta-1)) (let ((sc5 e-8)) (let ((e-11 (vector-ref sc5 9))) e-11))))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))) (lambda (err) (lambda (eta-0) (let ((act-29 (let ((act-29 (set-box! arg-4 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-14 (vector-ref sc5 6))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-13 e-12 olddelayed e-10)))))))))))))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-0))))))) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 (set-box! arg-4 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-2 (vector-ref sc7 3))) (let ((e-3 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-16 (vector-ref sc7 6))) (let ((e-15 (vector-ref sc7 7))) (let ((e-14 (vector-ref sc7 8))) (let ((e-13 (vector-ref sc7 9))) (let ((e-12 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-16 e-15 e-14 (List-Types-Prelude-C-43C-43 'erased e-13 olddelayed) e-12))))))))))))))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 e-7)))))))))))))))))))))))))))))))))))))))) +(define Delayed-Elab-TTImp-retryDelayedC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 8 e-10) (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((d (vector 0 e-6 (vector 0 e-10 e-11)))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((11) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-26 (let ((act-26 (unbox arg-4))) (vector 1 act-26)))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 ((Context-Core-getFullName arg-1 (vector 8 e-10)) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat (let ((sc9 e-9)) (let ((e-16 (vector-ref sc9 10))) e-16))) (Strings-Types-Prelude-C-43C-43 ": Retrying delayed hole " (Name-Core-show_Show__Name e-12)))) eta-1)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 (let ((act-29 (set-box! arg-3 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((e-20 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-18 (vector-ref sc10 6))) (let ((e-17 (vector-ref sc10 7))) (let ((e-16 (vector-ref sc10 8))) (let ((e-14 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-20 e-19 e-4 e-18 e-17 e-16 (vector 0 ) e-14)))))))))))))) (vector 1 act-29)))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-30 (e-11 eta-1))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((dsC-39 (List-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (let ((sc13 e-16)) (let ((e-18 (vector-ref sc13 9))) e-18))) e-3))) (let ((act-32 (Context-Core-updateDef arg-1 (vector 8 e-10) (lambda (eta-2) (vector 1 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-15) (vector 1 0 e-15) (vector 0 )))) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Resolved delayed hole " (Show-Prelude-show_Show__Int e-10))) e-15 eta-1))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-34 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Resolved delayed hole NF " (Show-Prelude-show_Show__Int e-10))) (vector 0 ) e-15 eta-1))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-35 (UnifyState-Core-removeHole arg-3 e-10 eta-1))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 dsC-39) eta-1))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-1 (vector 8 e-10)) eta-1))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Delayed-Elab-TTImp-show_Show__RetryError arg-5) (Strings-Types-Prelude-C-43C-43 ":Error in " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Types-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error err)))))) eta-1)))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((_-0 (vector 1 (vector 11 )))) (let ((sc8 arg-5)) (case (vector-ref sc8 0) ((0) (let ((act-27 ((Delayed-Elab-TTImp-recoverable arg-1 err) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryDelayedC-39-5228 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 (Basics-Prelude-not e-12)) eta-1)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))))))(else ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))))))))))))))))))))))))))))) (define Delayed-Elab-TTImp-retryDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) (vector 0 ) arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Delayed-Elab-TTImp-retryDelayedC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 ) (vector 0 ) e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))) (define Delayed-Elab-TTImp-recoverable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-0 e-5 e-2 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf e-0 e-5 e-2 e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Delayed-Elab-TTImp-contra e-0 e-5 e-6 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Basics-Prelude-not e-8)))))))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-5 e-10 e-7 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf e-5 e-10 e-7 e-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc3 1))) (let ((act-27 ((Delayed-Elab-TTImp-contra e-5 e-10 e-11 e-12) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc4 1))) (vector 1 (Basics-Prelude-not e-13)))))))))))))))))))))))))))) ((7) (lambda (eta-0) (vector 1 1))) ((14) (lambda (eta-0) (vector 1 1))) ((56) (let ((e-18 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-18))) ((57) (let ((e-21 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-21))) ((58) (let ((e-24 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-24))) ((59) (let ((e-27 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-27))) ((5) (let ((e-33 (vector-ref sc0 6))) (Delayed-Elab-TTImp-recoverable arg-0 e-33)))(else (lambda (eta-0) (vector 1 0))))))) -(define Delayed-Elab-TTImp-mkClosedElab (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (lambda (eta-0) (let ((act-24 (arg-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Delayed-Elab-TTImp-mkClosedElab e-3 arg-1 e-9 (lambda (eta-0) (let ((act-24 (arg-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-6 (vector-ref sc3 1))) (let ((bC-39 (Delayed-Elab-TTImp-n--9459-3489-newBinder e-2 e-3 e-9 e-8 arg-3 arg-1 e-8))) (vector 1 (vector 0 (vector 3 arg-1 e-2 bC-39 e-6) (Normalise-Core-gErased 'erased arg-1))))))))))))))))))))))) -(define Delayed-Elab-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--mismatchNF-4333 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--mismatchNF-4415 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (EqOrd-Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Delayed-Elab-TTImp-mkClosedElab (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (lambda (eta-0) (let ((act-24 (arg-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Delayed-Elab-TTImp-mkClosedElab e-3 arg-1 e-9 (lambda (eta-0) (let ((act-24 (arg-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-6 (vector-ref sc3 1))) (let ((bC-39 (Delayed-Elab-TTImp-n--9270-3489-newBinder e-2 e-3 e-9 e-8 arg-3 arg-1 e-8))) (vector 1 (vector 0 (vector 3 arg-1 e-2 bC-39 e-6) (Normalise-Core-gErased 'erased arg-1))))))))))))))))))))))) +(define Delayed-Elab-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--mismatchNF-4322 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--mismatchNF-4404 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (EqOrd-Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) (define Delayed-Elab-TTImp-mismatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((Delayed-Elab-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))))) -(define Delayed-Elab-TTImp-delayOnFailure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (arg-11 1) (lambda (err) (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Delayed-Elab-TTImp-case--delayOnFailure-3727 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 err e-6 (arg-9 err)) eta-0)))))))) ext-0)))))))) -(define Delayed-Elab-TTImp-delayElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "delayed" ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Delayed-Elab-TTImp-n--10084-4028-mkExpected arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-8) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-getTerm 'erased e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) ((UnifyState-Core-newDelayed arg-0 arg-3 arg-1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 e-6 e-8) ext-0)))))))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-1 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Postponing elaborator " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " for"))) arg-7 e-7 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-3))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (set-box! arg-3 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-17 (vector-ref sc7 3))) (let ((e-16 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-15 (vector-ref sc7 6))) (let ((e-14 (vector-ref sc7 7))) (let ((e-13 (vector-ref sc7 8))) (let ((e-12 (vector-ref sc7 9))) (let ((e-11 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-17 e-16 e-4 e-15 e-14 e-13 (vector 1 (vector 0 arg-9 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-5 arg-7 arg-10))) e-12) e-11))))))))))))))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 e-7))))))))))))))))))))))))))))))))))))))) +(define Delayed-Elab-TTImp-delayOnFailure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (arg-11 1) (lambda (err) (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Delayed-Elab-TTImp-case--delayOnFailure-3722 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 err e-6 (arg-9 err)) eta-0)))))))) ext-0)))))))) +(define Delayed-Elab-TTImp-delayElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "delayed" ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Delayed-Elab-TTImp-n--9889-4019-mkExpected arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-8) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-getTerm 'erased e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) ((UnifyState-Core-newDelayed arg-0 arg-3 arg-1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 e-6 e-8) ext-0)))))))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Postponing elaborator " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) " for"))) arg-7 e-7 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-3))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (set-box! arg-3 (let ((sc7 e-10)) (let ((e-0 (vector-ref sc7 1))) (let ((e-1 (vector-ref sc7 2))) (let ((e-17 (vector-ref sc7 3))) (let ((e-16 (vector-ref sc7 4))) (let ((e-4 (vector-ref sc7 5))) (let ((e-15 (vector-ref sc7 6))) (let ((e-14 (vector-ref sc7 7))) (let ((e-13 (vector-ref sc7 8))) (let ((e-12 (vector-ref sc7 9))) (let ((e-11 (vector-ref sc7 10))) (vector 0 e-0 e-1 e-17 e-16 e-4 e-15 e-14 e-13 (vector 1 (vector 0 arg-9 (vector 0 e-2 (Delayed-Elab-TTImp-mkClosedElab arg-0 arg-5 arg-7 arg-10))) e-12) e-11))))))))))))))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 e-7))))))))))))))))))))))))))))))))))))))) (define Delayed-Elab-TTImp-deeper (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((d (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 10))) e-10)))) (let ((act-25 (let ((act-25 (set-box! arg-2 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 9))) (let ((e-11 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 12))) (let ((e-13 (vector-ref sc1 13))) (vector 0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 e-8 e-9 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) d) e-11 e-12 e-13))))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (arg-3 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-2))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (set-box! arg-2 (let ((sc4 e-8)) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-17 (vector-ref sc4 5))) (let ((e-16 (vector-ref sc4 6))) (let ((e-15 (vector-ref sc4 7))) (let ((e-14 (vector-ref sc4 8))) (let ((e-9 (vector-ref sc4 9))) (let ((e-11 (vector-ref sc4 11))) (let ((e-12 (vector-ref sc4 12))) (let ((e-13 (vector-ref sc4 13))) (vector 0 e-1 e-2 e-3 e-4 e-17 e-16 e-15 e-14 e-9 d e-11 e-12 e-13))))))))))))))))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))))))))))))))))))))) -(define Delayed-Elab-TTImp-contra (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--contra-4585 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-17))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--contra-4667 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (EqOrd-Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Delayed-Elab-TTImp-contra (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--contra-4574 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-17))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (Delayed-Elab-TTImp-case--contra-4656 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (EqOrd-Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) (define Delayed-Elab-TTImp-ambiguous (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((18) 0) ((17) 0) ((20) 0) ((56) (let ((e-11 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-11))) ((57) (let ((e-14 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-14))) ((58) (let ((e-17 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-17))) ((59) (let ((e-20 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-20))) ((5) (let ((e-26 (vector-ref sc0 6))) (Delayed-Elab-TTImp-ambiguous e-26)))(else 1))))) -(define Check-Elab-TTImp-case--caseC-32blockC-32inC-32checkExpP-7281 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-18 arg-2)))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1)))))))))))))) -(define Check-Elab-TTImp-case--caseC-32blockC-32inC-32checkExpP-7022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved") arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 arg-3 arg-2)))))))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Force") arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logGlue arg-0 arg-11 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got") arg-5 arg-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Normalise-Core-logGlue arg-0 arg-11 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Exp") arg-5 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-11 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Delay") arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1)))))))))))))))))) -(define Check-Elab-TTImp-case--checkExpP-6991 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (Check-Elab-TTImp-case--caseC-32blockC-32inC-32checkExpP-7022 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (let ((sc1 arg-12)) (let ((e-3 (vector-ref sc1 4))) e-3))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Not solved") arg-3 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-11))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-clearDefs e-6 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((UnifyState-Core-newConstant arg-0 arg-10 arg-11 arg-4 arg-8 arg-5 arg-3 e-8 arg-13) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (UnifyState-Core-dumpConstraints arg-10 arg-11 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) 1 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--caseC-32blockC-32inC-32checkExpP-7281 arg-0 arg-1 arg-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--caseC-32blockC-32inC-32convertWithLazy-6844 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) 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-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)))))) -(define Check-Elab-TTImp-case--caseC-32blockC-32inC-32convertWithLazy-6712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-0)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 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-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-0)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)))))) -(define Check-Elab-TTImp-case--convertWithLazy-6664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 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-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-10 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-10 arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) 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-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))))))) -(define Check-Elab-TTImp-case--convertWithLazy-6492 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--exactlyOneC-39-6268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-6 e-16))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 (set-box! arg-5 e-17))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-26 (let ((act-26 (set-box! arg-8 e-12))) (vector 1 act-26)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-27 (Context-Core-commit arg-8 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 e-8))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (Check-Elab-TTImp-n--12573-5967-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--exactlyOneC-39C-44altError-6191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--caseC-32blockC-32inC-32exactlyOneC-39C-44getRight-6055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12)))))))(else (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12))))))))(else (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12))))))) -(define Check-Elab-TTImp-case--exactlyOneC-39C-44getRight-5978 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--caseC-32blockC-32inC-32exactlyOneC-39C-44getRight-6055 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) (Types-Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12)))))))(else (Check-Elab-TTImp-case--caseC-32blockC-32inC-32exactlyOneC-39C-44getRight-6055 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) (Types-Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12))))))))(else (Check-Elab-TTImp-case--caseC-32blockC-32inC-32exactlyOneC-39C-44getRight-6055 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) (Types-Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12))))))) -(define Check-Elab-TTImp-case--successful-5701 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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) (Types-Prelude-fromInteger_Num__Nat 0)) (else (List-Types-Prelude-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-17)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))) +(define Check-Elab-TTImp-case--caseC-32blockC-32inC-32checkExpP-7259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-18 arg-2)))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1)))))))))))))) +(define Check-Elab-TTImp-case--caseC-32blockC-32inC-32checkExpP-7014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved") arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 arg-3 arg-2)))))))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Force") arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got") arg-5 arg-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Exp") arg-5 arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Delay") arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1)))))))))))))))))) +(define Check-Elab-TTImp-case--checkExpP-6983 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--caseC-32blockC-32inC-32checkExpP-7014 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (let ((sc1 arg-12)) (let ((e-3 (vector-ref sc1 4))) e-3))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Not solved") arg-3 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-11))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-clearDefs e-6 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((UnifyState-Core-newConstant arg-0 arg-10 arg-11 arg-4 arg-8 arg-5 arg-3 e-8 arg-13) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (UnifyState-Core-dumpConstraints arg-10 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) 1 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--caseC-32blockC-32inC-32checkExpP-7259 arg-0 arg-1 arg-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--caseC-32blockC-32inC-32convertWithLazy-6836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) 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-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)))))) +(define Check-Elab-TTImp-case--caseC-32blockC-32inC-32convertWithLazy-6704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-0)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 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-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-0)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17)))))) +(define Check-Elab-TTImp-case--convertWithLazy-6656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 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-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-10 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-10 arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 arg-13)) (cond ((equal? sc3 0) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) 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-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0)))))))))))))))))))) +(define Check-Elab-TTImp-case--convertWithLazy-6488 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--exactlyOneC-39-6264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-6 e-16))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 (set-box! arg-5 e-17))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-26 (let ((act-26 (set-box! arg-8 e-12))) (vector 1 act-26)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-27 (Context-Core-commit arg-8 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (vector 1 e-8))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (Check-Elab-TTImp-n--12380-5963-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--exactlyOneC-39C-44altError-6187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--caseC-32blockC-32inC-32exactlyOneC-39C-44getRight-6051 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12)))))))(else (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12))))))))(else (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-12))))))) +(define Check-Elab-TTImp-case--exactlyOneC-39C-44getRight-5974 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--caseC-32blockC-32inC-32exactlyOneC-39C-44getRight-6051 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) (Types-Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12)))))))(else (Check-Elab-TTImp-case--caseC-32blockC-32inC-32exactlyOneC-39C-44getRight-6051 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) (Types-Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12))))))))(else (Check-Elab-TTImp-case--caseC-32blockC-32inC-32exactlyOneC-39C-44getRight-6051 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) (Types-Prelude-C-61C-61_Eq__Nat (Builtin-fst 'erased 'erased x) 0)) arg-12))))))) +(define Check-Elab-TTImp-case--successful-5699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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) (Types-Prelude-fromInteger_Num__Nat 0)) (else (List-Types-Prelude-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-17)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))) (define Check-Elab-TTImp-case--successful-5505 (lambda (arg-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) (Types-Prelude-fromInteger_Num__Nat 0)) (else (List-Types-Prelude-length 'erased (IntMap-Data-toList 'erased (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))) (define Check-Elab-TTImp-case--handle-5423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-2 e-5))))))) (define Check-Elab-TTImp-case--try-5353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else arg-2))))) @@ -4338,20 +4264,20 @@ (define Check-Elab-TTImp-case--clearToBind-4627 (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) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Name-Core-C-61C-61_Eq__Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Name-Core-C-47C-61_Eq__Name arg-5 arg-6)))) (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--strengthenedEStateC-44strTms-4239 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((1) (let ((e-17 (vector-ref sc5 1))) (let ((sc6 e-15)) (case (vector-ref sc6 0) ((1) (let ((e-19 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 1 arg-0 arg-11 e-5 e-11 e-17 e-19))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-8) eta-0))))))) (define Check-Elab-TTImp-case--strengthenedEStateC-44strTms-4090 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-13 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 arg-0 arg-10 e-5 e-11 e-13))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 28 (vector 1 arg-1 arg-0) arg-3 arg-2 arg-6 arg-7) eta-0))))))) -(define Check-Elab-TTImp-case--strengthenedEStateC-44removeArg-3995 (lambda (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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10296-3854-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (fC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) fC-39 argsC-39))))))))))) +(define Check-Elab-TTImp-case--strengthenedEStateC-44removeArg-3995 (lambda (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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10107-3854-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (fC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) fC-39 argsC-39))))))))))) (define Check-Elab-TTImp-case--saveHole-3670 (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--10141-3695-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--10296-3856-strTms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (let ((sc2 e-4)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-8 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((Check-Elab-TTImp-case--strengthenedEStateC-44strTms-4090 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--10296-3855-removeArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-9) (TT-Core-shrinkTerm 'erased 'erased e-10 (vector 1 (vector 0 )))))) eta-0))))))))))))))))))) (else (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((e-13 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (let ((sc2 e-9)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-12 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-14 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--strengthenedEStateC-44strTms-4239 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--10296-3854-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) (Types-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--10296-3854-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3))(else (let ((e-10 (- e-8 1))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10296-3854-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 e-6 e-7 e-10) argsC-39))))))))))))(else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (aC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10296-3854-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 aC-39 argsC-39)))))))))))))))) -(define Check-Elab-TTImp-n--10296-3855-removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Check-Elab-TTImp-case--strengthenedEStateC-44removeArg-3995 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--9498-3112-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--9498-3112-insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7)))))))))))) -(define Check-Elab-TTImp-n--12573-5963-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--exactlyOneC-39C-44getRight-5978 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--12573-5964-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--12573-5965-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--10296-3857-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--10296-3852-dropSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Badly formed weakened environment") eta-0))))))) -(define Check-Elab-TTImp-n--12573-5966-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))) (Types-Prelude-maybe 'erased 'erased (lambda () (Check-Elab-TTImp-n--12573-5966-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--12573-5965-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--12573-5967-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--exactlyOneC-39C-44altError-6191 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--12573-5966-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--12573-5964-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-n--9952-3695-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--10107-3856-strTms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (let ((sc2 e-4)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-8 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((Check-Elab-TTImp-case--strengthenedEStateC-44strTms-4090 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--10107-3855-removeArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-9) (TT-Core-shrinkTerm 'erased 'erased e-10 (vector 1 (vector 0 )))))) eta-0))))))))))))))))))) (else (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((e-13 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (let ((sc2 e-9)) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-12 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-14 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--strengthenedEStateC-44strTms-4239 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--10107-3854-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) (Types-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--10107-3854-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3))(else (let ((e-10 (- e-8 1))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10107-3854-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 (vector 0 e-6 e-7 e-10) argsC-39))))))))))))(else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-2 (vector 1 (vector 0 ))) (lambda (aC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Check-Elab-TTImp-n--10107-3854-removeArgVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3) (lambda (argsC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 aC-39 argsC-39)))))))))))))))) +(define Check-Elab-TTImp-n--10107-3855-removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Check-Elab-TTImp-case--strengthenedEStateC-44removeArg-3995 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--9309-3112-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--9309-3112-insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7)))))))))))) +(define Check-Elab-TTImp-n--12380-5959-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--exactlyOneC-39C-44getRight-5974 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--12380-5960-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--12380-5961-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--10107-3857-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--10107-3852-dropSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-3))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Badly formed weakened environment") eta-0))))))) +(define Check-Elab-TTImp-n--12380-5962-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))) (Types-Prelude-maybe 'erased 'erased (lambda () (Check-Elab-TTImp-n--12380-5962-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--12380-5961-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--12380-5963-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--exactlyOneC-39C-44altError-6187 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--12380-5962-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--12380-5960-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-Types-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))) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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-Types-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))) @@ -4359,15 +4285,15 @@ (define Check-Elab-TTImp-__Impl_Eq_ElabOpt (lambda () (vector 0 (lambda (arg-2) (lambda (arg-3) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-4 arg-5)))))) (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) (Basics-Prelude-not (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-0 arg-1)))) -(define Check-Elab-TTImp-weakenedEState (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (vector 0 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) e-1)) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10141-3695-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-14 (vector-ref sc1 5))) e-14))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10141-3695-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)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) (let ((sc1 e-5)) (let ((e-11 (vector-ref sc1 11))) e-11))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 12))) e-12)) (let ((sc1 e-5)) (let ((e-13 (vector-ref sc1 13))) e-13))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6))))))))))))) +(define Check-Elab-TTImp-weakenedEState (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Check.EST" ) (vector 0 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) e-1)) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--9952-3695-wknTms arg-0 arg-1 arg-2 'erased eta-0)) (let ((sc1 e-5)) (let ((e-14 (vector-ref sc1 5))) e-14))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--9952-3695-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)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-0 arg-1 eta-0)) (let ((sc1 e-5)) (let ((e-11 (vector-ref sc1 11))) e-11))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 12))) e-12)) (let ((sc1 e-5)) (let ((e-13 (vector-ref sc1 13))) e-13))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6))))))))))))) (define Check-Elab-TTImp-updateEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-1 (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 2))) e-2)) arg-2 arg-3 (let ((sc0 arg-5)) (let ((e-5 (vector-ref sc0 5))) e-5)) (let ((sc0 arg-5)) (let ((e-6 (vector-ref sc0 6))) e-6)) arg-4 (let ((sc0 arg-5)) (let ((e-8 (vector-ref sc0 8))) e-8)) (let ((sc0 arg-5)) (let ((e-9 (vector-ref sc0 9))) e-9)) (let ((sc0 arg-5)) (let ((e-10 (vector-ref sc0 10))) e-10)) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 11))) e-11)) (let ((sc0 arg-5)) (let ((e-12 (vector-ref sc0 12))) e-12)) (let ((sc0 arg-5)) (let ((e-13 (vector-ref sc0 13))) e-13))))) (define EState-Check-Elab-TTImp-unambiguousNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-13 (vector-ref sc0 13))) e-13)))) (define Check-Elab-TTImp-tryError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-branch arg-2 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-28 (arg-6 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Context-Core-commit arg-2 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 1 e-9)))))))))))) (lambda (err) (lambda (eta-0) (let ((act-28 (let ((act-28 (set-box! arg-4 e-5))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (set-box! arg-5 e-6))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (set-box! arg-3 e-7))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-2))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (let ((act-32 (set-box! arg-2 (let ((sc8 e-8)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-33 (vector-ref sc8 6))) (let ((e-32 (vector-ref sc8 7))) (let ((e-31 (vector-ref sc8 8))) (let ((e-30 (vector-ref sc8 9))) (let ((e-29 (vector-ref sc8 10))) (let ((e-28 (vector-ref sc8 11))) (let ((e-27 (vector-ref sc8 12))) (let ((e-26 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (let ((e-21 (vector-ref sc8 22))) (let ((e-22 (vector-ref sc8 23))) (let ((e-23 (vector-ref sc8 24))) (let ((e-25 (vector-ref sc8 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 (let ((sc9 e-12)) (let ((e-35 (vector-ref sc9 25))) e-35)) e-25)))))))))))))))))))))))))))))) (vector 1 act-32)))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 (vector 0 err))))))))))))))))))))))))) ext-0))))))))))))))))))))))) (define Check-Elab-TTImp-try (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Check-Elab-TTImp-tryError 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))) (else (arg-7 ext-0))))))))))) (define EState-Check-Elab-TTImp-toBind (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) e-6)))) -(define Check-Elab-TTImp-successful (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((ncons (let ((sc3 arg-6)) (cond ((equal? sc3 0) (Types-Prelude-fromInteger_Num__Nat 0)) (else (List-Types-Prelude-length 'erased (IntMap-Data-toList 'erased (let ((sc4 e-5)) (let ((e-1 (vector-ref sc4 2))) e-1))))))))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Context-Core-branch arg-2 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-28 (Context-Core-logC arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-28 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-3 eta-4)))) e-6) eta-2))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Running " (Name-Core-show_Show__Name e-11))))))))) eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (e-7 eta-1))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((nconsC-39 (let ((sc9 arg-6)) (cond ((equal? sc9 0) (Types-Prelude-fromInteger_Num__Nat 0)) (else (List-Types-Prelude-length 'erased (IntMap-Data-toList 'erased (let ((sc10 e-13)) (let ((e-1 (vector-ref sc10 2))) e-1))))))))) (let ((act-31 (let ((act-31 (unbox arg-5))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 (let ((act-32 (unbox arg-3))) (vector 1 act-32)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-2))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-34 (let ((act-34 (set-box! arg-4 e-5))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 (let ((act-35 (set-box! arg-5 e-8))) (vector 1 act-35)))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-36 (let ((act-36 (set-box! arg-3 e-9))) (vector 1 act-36)))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (set-box! arg-2 e-10))) (vector 1 act-37)))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-38 (Context-Core-logC arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-38 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-3 eta-4)))) e-6) eta-2))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc16 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Success " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-21) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat nconsC-39) (Strings-Types-Prelude-C-43C-43 " - " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat ncons) ")"))))))))))))) eta-1))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc17 1))) (vector 1 (vector 1 (vector 1 (vector 0 (Types-Prelude-minus nconsC-39 ncons) (vector 0 e-12 (vector 0 e-16 (vector 0 e-13 e-14))))) e-22))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-28 (let ((act-28 (set-box! arg-4 e-5))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-5 e-8))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-3 e-9))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 (set-box! arg-2 e-10))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 ((Normalise-Core-normaliseErr arg-2 err) eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (vector 1 (vector 1 (vector 0 (vector 0 e-6 e-16)) e-15)))))))))))))))))))))))))))))) eta-0))))))))))))))))))))))))))))))))) +(define Check-Elab-TTImp-successful (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((ncons (let ((sc3 arg-6)) (cond ((equal? sc3 0) (Types-Prelude-fromInteger_Num__Nat 0)) (else (List-Types-Prelude-length 'erased (IntMap-Data-toList 'erased (let ((sc4 e-5)) (let ((e-1 (vector-ref sc4 2))) e-1))))))))) (let ((act-25 (let ((act-25 (unbox arg-5))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-3))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Context-Core-branch arg-2 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-28 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-28 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-3 eta-4)))) e-6) eta-2))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Running " (Name-Core-show_Show__Name e-11))))))))) eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (e-7 eta-1))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((nconsC-39 (let ((sc9 arg-6)) (cond ((equal? sc9 0) (Types-Prelude-fromInteger_Num__Nat 0)) (else (List-Types-Prelude-length 'erased (IntMap-Data-toList 'erased (let ((sc10 e-13)) (let ((e-1 (vector-ref sc10 2))) e-1))))))))) (let ((act-31 (let ((act-31 (unbox arg-5))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 (let ((act-32 (unbox arg-3))) (vector 1 act-32)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-2))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-34 (let ((act-34 (set-box! arg-4 e-5))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-35 (let ((act-35 (set-box! arg-5 e-8))) (vector 1 act-35)))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-36 (let ((act-36 (set-box! arg-3 e-9))) (vector 1 act-36)))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (set-box! arg-2 e-10))) (vector 1 act-37)))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-38 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-38 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (vector 1 (vector 1 "__")))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-3 eta-4)))) e-6) eta-2))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc16 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Success " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-21) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat nconsC-39) (Strings-Types-Prelude-C-43C-43 " - " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat ncons) ")"))))))))))))) eta-1))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-39 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc17 1))) (vector 1 (vector 1 (vector 1 (vector 0 (Types-Prelude-minus nconsC-39 ncons) (vector 0 e-12 (vector 0 e-16 (vector 0 e-13 e-14))))) e-22))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-28 (let ((act-28 (set-box! arg-4 e-5))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-5 e-8))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-3 e-9))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 (set-box! arg-2 e-10))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 ((Normalise-Core-normaliseErr arg-2 err) eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (vector 1 (vector 1 (vector 0 (vector 0 e-6 e-16)) e-15)))))))))))))))))))))))))))))) eta-0))))))))))))))))))))))))))))))))) (define EState-Check-Elab-TTImp-subEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)))) -(define Check-Elab-TTImp-strengthenedEState (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Check-Elab-TTImp-n--10296-3852-dropSub arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased 'erased (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10296-3856-strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((sc3 e-5)) (let ((e-16 (vector-ref sc3 5))) e-16))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10296-3856-strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 6))) e-16))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (let ((sc5 e-5)) (let ((e-1 (vector-ref sc5 1))) e-1)) (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2)) (let ((sc5 e-5)) (let ((e-3 (vector-ref sc5 3))) e-3)) e-7 e-8 e-9 (let ((sc5 e-5)) (let ((e-16 (vector-ref sc5 7))) e-16)) (let ((sc5 e-5)) (let ((e-15 (vector-ref sc5 8))) e-15)) (let ((sc5 e-5)) (let ((e-14 (vector-ref sc5 9))) e-14)) (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 10))) e-10)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10296-3857-dropTop arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased eta-0)) (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 11))) e-11))) (let ((sc5 e-5)) (let ((e-12 (vector-ref sc5 12))) e-12)) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13))))))))))))))))))))))))))))))) +(define Check-Elab-TTImp-strengthenedEState (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Check-Elab-TTImp-n--10107-3852-dropSub arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased 'erased 'erased (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10107-3856-strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((sc3 e-5)) (let ((e-16 (vector-ref sc3 5))) e-16))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10107-3856-strTms arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 e-6 eta-0)) (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 6))) e-16))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (let ((sc5 e-5)) (let ((e-1 (vector-ref sc5 1))) e-1)) (let ((sc5 e-5)) (let ((e-2 (vector-ref sc5 2))) e-2)) (let ((sc5 e-5)) (let ((e-3 (vector-ref sc5 3))) e-3)) e-7 e-8 e-9 (let ((sc5 e-5)) (let ((e-16 (vector-ref sc5 7))) e-16)) (let ((sc5 e-5)) (let ((e-15 (vector-ref sc5 8))) e-15)) (let ((sc5 e-5)) (let ((e-14 (vector-ref sc5 9))) e-14)) (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 10))) e-10)) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--10107-3857-dropTop arg-1 arg-0 arg-5 arg-4 arg-3 arg-2 'erased eta-0)) (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 11))) e-11))) (let ((sc5 e-5)) (let ((e-12 (vector-ref sc5 12))) e-12)) (let ((sc5 e-5)) (let ((e-13 (vector-ref sc5 13))) e-13))))))))))))))))))))))))))))))) (define Check-Elab-TTImp-searchVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((UnifyState-Core-newSearch arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3)))))))))) (define EState-Check-Elab-TTImp-saveHoles (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-12 (vector-ref sc0 12))) e-12)))) (define Check-Elab-TTImp-saveHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 9))) (let ((e-10 (vector-ref sc1 10))) (let ((e-11 (vector-ref sc1 11))) (let ((e-12 (vector-ref sc1 12))) (let ((e-13 (vector-ref sc1 13))) (vector 0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 e-8 e-9 e-10 e-11 (NameMap-Data-insert 'erased arg-2 (vector 0 ) e-12) e-13)))))))))))))))))) (vector 1 act-25))))))))) @@ -4387,197 +4313,197 @@ (define ElabInfo-Check-Elab-TTImp-implicitMode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Check-Elab-TTImp-implBindVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) (Context-Core-holeInit 0)) 0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3)))))))))) (define Check-Elab-TTImp-handle (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Check-Elab-TTImp-tryError 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((arg-7 e-6) ext-0)))))))))))) -(define Check-Elab-TTImp-exactlyOneC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) e-6)(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) ((Check-Elab-TTImp-case--exactlyOneC-39-6268 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 (Check-Elab-TTImp-n--12573-5963-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-7)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Check-Elab-TTImp-case--exactlyOneC-39-6268 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12573-5963-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Check-Elab-TTImp-case--exactlyOneC-39-6268 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12573-5963-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0)))))))))))) +(define Check-Elab-TTImp-exactlyOneC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) e-6)(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) ((Check-Elab-TTImp-case--exactlyOneC-39-6264 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 (Check-Elab-TTImp-n--12380-5959-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-7)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Check-Elab-TTImp-case--exactlyOneC-39-6264 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12380-5959-getRight arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Check-Elab-TTImp-case--exactlyOneC-39-6264 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12380-5959-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--convertWithLazy-6492 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-isLazyActive arg-1 eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lazy (Basics-Prelude-C-38C-38 e-5 (lambda () arg-4)))) (let ((act-25 (Normalise-Core-logGlueNF arg-0 arg-1 "elab.unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Unifying " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Bool arg-4) (Strings-Types-Prelude-C-43C-43 " " (Check-Elab-TTImp-show_Show__ElabMode (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))) arg-8 arg-9 eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-logGlueNF arg-0 arg-1 "elab.unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-10 eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Check-Elab-TTImp-case--convertWithLazy-6664 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 (Basics-Prelude-C-38C-38 (Normalise-Core-isFromTerm 'erased arg-9) (lambda () (Normalise-Core-isFromTerm 'erased arg-10)))) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((sc4 (let ((sc5 e-8)) (let ((e-1 (vector-ref sc5 2))) e-1)))) (cond ((equal? sc4 0) (Unify-Core-solveConstraints arg-1 arg-2 umode (vector 0 ) eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-8))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased arg-9) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased arg-10) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (Unify-Core-solveConstraints arg-1 arg-2 umode (vector 0 ) eta-2)) (lambda (err-0) (lambda (eta-2) (vector 1 (vector 0 )))) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Normalise-Core-normaliseErr arg-1 (vector 5 arg-0 arg-6 arg-8 e-6 e-7 err)) eta-1))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-10 eta-1)))))))))))))))))))))))))))))) eta-0))))) +(define Check-Elab-TTImp-convertWithLazy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((umode (Check-Elab-TTImp-case--convertWithLazy-6488 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Context-Core-isLazyActive arg-1 eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lazy (Basics-Prelude-C-38C-38 e-5 (lambda () arg-4)))) (let ((act-25 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Unifying " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Bool arg-4) (Strings-Types-Prelude-C-43C-43 " " (Check-Elab-TTImp-show_Show__ElabMode (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))))) arg-8 arg-9 eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-10 eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Check-Elab-TTImp-case--convertWithLazy-6656 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 (Basics-Prelude-C-38C-38 (Normalise-Core-isFromTerm 'erased arg-9) (lambda () (Normalise-Core-isFromTerm 'erased arg-10)))) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((sc4 (let ((sc5 e-8)) (let ((e-1 (vector-ref sc5 2))) e-1)))) (cond ((equal? sc4 0) (Unify-Core-solveConstraints arg-1 arg-2 umode (vector 0 ) eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 e-8))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased arg-9) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased arg-10) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-2) (Unify-Core-solveConstraints arg-1 arg-2 umode (vector 0 ) eta-2)) (lambda (err-0) (lambda (eta-2) (vector 1 (vector 0 )))) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Normalise-Core-normaliseErr arg-1 (vector 5 arg-0 arg-6 arg-8 e-6 e-7 err)) eta-1))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-10 eta-1)))))))))))))))))))))))))))))) eta-0))))) (define Check-Elab-TTImp-convertP (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 1 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5))) (define Check-Elab-TTImp-convert (lambda (arg-0 arg-1 arg-2 arg-3 ext-0 ext-1 ext-2 ext-3 ext-4) (Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 1 1 ext-0 ext-1 ext-2 ext-3 ext-4))) (define Check-Elab-TTImp-clearToBind (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-1 (Check-Elab-TTImp-case--clearToBind-4627 'erased arg-2 arg-1 e-5 (Check-Elab-TTImp-clearBindIfUnsolved 'erased e-5))))) (vector 1 act-25))))))))) (define Check-Elab-TTImp-clearBindIfUnsolved (lambda (arg-0 arg-1) (vector 0 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5)) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) e-6)) (vector 0 ) (let ((sc0 arg-1)) (let ((e-8 (vector-ref sc0 8))) e-8)) (let ((sc0 arg-1)) (let ((e-9 (vector-ref sc0 9))) e-9)) (let ((sc0 arg-1)) (let ((e-10 (vector-ref sc0 10))) e-10)) (let ((sc0 arg-1)) (let ((e-11 (vector-ref sc0 11))) e-11)) (let ((sc0 arg-1)) (let ((e-12 (vector-ref sc0 12))) e-12)) (let ((sc0 arg-1)) (let ((e-13 (vector-ref sc0 13))) e-13))))) -(define Check-Elab-TTImp-checkExpP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-8 arg-6 arg-7 arg-10 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Check-Elab-TTImp-case--checkExpP-6991 arg-0 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-9 arg-10)))))))) +(define Check-Elab-TTImp-checkExpP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convertWithLazy arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-8 arg-6 arg-7 arg-10 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Check-Elab-TTImp-case--checkExpP-6983 arg-0 e-1 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-9 arg-10)))))))) (define Check-Elab-TTImp-checkExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0 ext-1 ext-2 ext-3 ext-4) (Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc0 arg-5)) (let ((e-4 (vector-ref sc0 5))) e-4)) arg-5 ext-0 ext-1 ext-2 ext-3 ext-4))) (define EState-Check-Elab-TTImp-boundNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5)))) (define ElabInfo-Check-Elab-TTImp-bindingVars (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Check-Elab-TTImp-bindingType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 5))) e-4)) (else (let ((e-9 (vector-ref sc0 5))) e-9)))))) (define Check-Elab-TTImp-bindingTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 4))) e-3)) (else (let ((e-8 (vector-ref sc0 4))) e-8)))))) (define Check-Elab-TTImp-bindingRig (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) e-1)) (else (let ((e-6 (vector-ref sc0 2))) e-6)))))) -(define Check-Elab-TTImp-bindingMetas (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 5))) (TT-Core-getMetas 'erased e-4))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (Check-Elab-TTImp-n--9498-3112-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--9309-3112-insertAll e-5 e-10 e-9 e-8 e-7 e-6 (NameMap-Data-toList 'erased (TT-Core-getMetas 'erased e-9)) (TT-Core-getMetas 'erased e-10))))))))))))) (define EState-Check-Elab-TTImp-bindIfUnsolved (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 7))) e-7)))) (define Check-Elab-TTImp-argVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (UnifyState-Core-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) (Context-Core-holeInit 1)) 1 0))) (define Check-Elab-TTImp-anyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "No elaborators provided") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) e-7)(else (lambda (eta-0) (Check-Elab-TTImp-try 'erased arg-0 arg-1 arg-2 arg-3 arg-4 e-7 (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0)))))))))))))) (define ElabInfo-Check-Elab-TTImp-ambigTries (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) (define EState-Check-Elab-TTImp-allPatVars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-9 (vector-ref sc0 9))) e-9)))) (define Check-Elab-TTImp-addBindIfUnsolved (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 2))) e-2)) (let ((sc0 arg-7)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 arg-7)) (let ((e-4 (vector-ref sc0 4))) e-4)) (let ((sc0 arg-7)) (let ((e-5 (vector-ref sc0 5))) e-5)) (let ((sc0 arg-7)) (let ((e-6 (vector-ref sc0 6))) e-6)) (vector 1 (vector 0 arg-1 (vector 0 arg-2 (vector 0 arg-0 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 (vector 0 arg-6 (let ((sc0 arg-7)) (let ((e-4 (vector-ref sc0 4))) e-4))))))))) (let ((sc0 arg-7)) (let ((e-7 (vector-ref sc0 7))) e-7))) (let ((sc0 arg-7)) (let ((e-8 (vector-ref sc0 8))) e-8)) (let ((sc0 arg-7)) (let ((e-9 (vector-ref sc0 9))) e-9)) (let ((sc0 arg-7)) (let ((e-10 (vector-ref sc0 10))) e-10)) (let ((sc0 arg-7)) (let ((e-11 (vector-ref sc0 11))) e-11)) (let ((sc0 arg-7)) (let ((e-12 (vector-ref sc0 12))) e-12)) (let ((sc0 arg-7)) (let ((e-13 (vector-ref sc0 13))) e-13))))) -(define Unify-Core-case--checkDots-26539 (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--caseC-32blockC-32inC-32checkDotsC-44checkConstraint-26446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkDotsC-44checkConstraint-26308 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--caseC-32blockC-32inC-32checkDotsC-44checkConstraint-26215 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-logTermNF (vector 0 ) arg-0 "unify.constraint" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-11 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-7 e-8) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))) -(define Unify-Core-case--checkDotsC-44checkConstraint-26168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((54) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-3 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 1))) e-27)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-logTermNF (vector 0 ) arg-0 "unify.constraint" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-1 (let ((sc5 arg-13)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-14 e-13 e-2 e-3 e-4 (vector 0 ) e-11 e-10 e-8 e-9)))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-6 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-5 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-9 e-10) eta-0))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-1 (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkDotsC-44checkConstraint-26013 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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) ((7) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32checkDotsC-44checkConstraint-25964 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-21) eta-0))))))) -(define Unify-Core-case--checkDotsC-44checkConstraint-25867 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (let ((act-24 (Unify-Core-n--23818-25741-getHoleName arg-0 arg-1 (vector 2 arg-10 arg-3 e-2 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) arg-2 arg-0 arg-1) (Unify-Core-inMatch)) arg-10) arg-7) arg-6) arg-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 1))) (lambda () (lambda (n) (lambda (eta-1) (let ((act-27 (Context-Core-lookupDefExact n (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((7) (vector 1 1))(else (vector 1 0)))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 n) eta-1)))))))))))) e-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc5 e-6)) (let ((e-9 (vector-ref sc5 3))) e-9))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 (Basics-Prelude-C-124C-124 (Basics-Prelude-not (List-Data-isNil 'erased (let ((sc7 e-6)) (let ((e-0 (vector-ref sc7 1))) e-0)))) (lambda () (Basics-Prelude-C-124C-124 e-8 (lambda () e-9)))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) -(define Unify-Core-case--checkDotsC-44getHoleName-25765 (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 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 e-5)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32checkArgsSame-25680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))) -(define Unify-Core-case--checkArgsSame-25648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 e-10 arg-1) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-checkArgsSame arg-3 arg-2 arg-1) eta-0)))))))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))) -(define Unify-Core-case--caseC-32blockC-32inC-32checkArgsSameC-44anySame-25558 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))) -(define Unify-Core-case--checkArgsSameC-44anySame-25513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-7 (vector 0 ) arg-6 e-10 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5) eta-0)))))))))))(else (Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))(else (Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))(else (Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))) -(define Unify-Core-case--giveUpConstraintsC-44constraintToHole-25386 (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 8 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0))) ((9) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 8 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-25224 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-25114 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-25021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((gdef (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Resolved " (Name-Core-show_Show__Name arg-2))) arg-12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-addDef arg-6 (vector 8 arg-0) gdef eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (UnifyState-Core-removeGuess arg-5 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (let ((sc4 arg-15)) (let ((e-1 (vector-ref sc4 2))) e-1))))))))))))))))))(else (let ((gdef (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-6 (vector 8 arg-0) gdef eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24955 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24898 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24737 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay (constrained)") arg-12 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12))))))))))))))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-15) (vector 1 0 arg-15) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24491 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay") arg-12 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12))))))))))))))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24491 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (let ((sc1 arg-14)) (let ((e-3 (vector-ref sc1 4))) e-3))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((gdef (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-21 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Resolved " (Name-Core-show_Show__Name arg-2))) e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-addDef arg-6 (vector 8 arg-0) gdef eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (UnifyState-Core-removeGuess arg-5 arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (let ((sc5 arg-14)) (let ((e-1 (vector-ref sc5 2))) e-1)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24737 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (let ((sc0 arg-14)) (let ((e-3 (vector-ref sc0 4))) e-3))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((gdef (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-21 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 e-5 arg-11 arg-15) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Context-Core-addDef arg-6 (vector 8 arg-0) gdef eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1))))))))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24355 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 arg-13) (vector 1 0 arg-13) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24193 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Normalise-Core-normaliseErr arg-6 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24064 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((30) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Failed (det " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) ")"))))) (let ((sc1 arg-8)) (let ((e-24 (vector-ref sc1 3))) e-24)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((act-25 (Unify-Core-setInvertible arg-6 arg-1 (vector 8 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-logTermNF (vector 0 ) arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Search failed at " (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-12) (Strings-Types-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 3))) e-2))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 arg-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))(else (vector 1 1)))))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32retryGuess-23983 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-6 arg-5 (lambda (eta-1) (let ((act-24 (Unify-Core-search (vector 0 ) arg-6 arg-5 arg-1 e-0 (Unify-Core-C-61C-61_Eq__SolveMode arg-3 (vector 1 )) e-1 e-2 (let ((sc1 arg-8)) (let ((e-21 (vector-ref sc1 3))) e-21)) (vector 0 ) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((gdef (let ((sc2 arg-8)) (let ((e-24 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((e-22 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-21 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-24 e-23 e-22 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 ((Normalise-Core-logTermNF (vector 0 ) arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Solved " (Name-Core-show_Show__Name arg-2))) (vector 0 ) e-5) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-addDef arg-6 (vector 8 arg-0) gdef eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (UnifyState-Core-removeGuess arg-5 arg-0 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))))))))))) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((30) (let ((e-6 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-1) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Failed (det " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) ")"))))) (let ((sc2 arg-8)) (let ((e-27 (vector-ref sc2 3))) e-27)) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((act-25 (Unify-Core-setInvertible arg-6 arg-1 (vector 8 e-3) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (vector 1 1)))))))))))))(else (lambda (eta-1) (let ((act-24 ((Normalise-Core-logTermNF (vector 0 ) arg-6 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Search failed at " (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-0) (Strings-Types-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (let ((sc1 arg-8)) (let ((e-21 (vector-ref sc1 3))) e-21))) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 err) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-1)))))))(else (vector 1 1))))))))))))) eta-0)))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((umode (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 (Unify-Core-retry arg-6 arg-5 umode e-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24416 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-7 e-4 e-3 umode e-6 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))(else (let ((umode (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 umode eta-1 eta-2))) e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-25021 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 e-3 umode e-6 csAll (let ((sc3 csAll)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0)))))))))))))))(else (let ((umode (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 umode eta-1 eta-2))) e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-25021 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 e-3 umode e-6 csAll (let ((sc2 csAll)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-case--retryGuess-23943 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Unify-Core-case--caseC-32blockC-32inC-32retryGuess-23983 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--caseC-32blockC-32inC-32retry-23817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-deleteConstraint arg-3 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-10)))))))(else (lambda (eta-0) (vector 1 arg-10))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retry-23647 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retry-23529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Success " (Unify-Core-show_Show__AddLazy (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-3)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (UnifyState-Core-deleteConstraint arg-3 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 arg-16)))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Constraints " (Unify-Core-show_Show__AddLazy (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 4))) e-3)))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-16))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32retry-23418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 ((Normalise-Core-logTermNF arg-5 arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Retrying " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-1) (Strings-Types-Prelude-C-43C-43 " " (Unify-Core-show_Show__UnifyMode (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) arg-8 arg-7) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-logTermNF arg-5 arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-6) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-log arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (let ((sc3 arg-10)) (cond ((equal? sc3 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)"))))) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Unify-Core-ifThenElse 'erased arg-10 (lambda () ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-2)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 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-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-2)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-2))))))))))) arg-5 arg-0 arg-3) (Unify-Core-lower arg-2)) arg-11) arg-8) arg-7) arg-6))) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retry-23529 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6 e-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-1)))))))))))))))))))))) (lambda (err) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 5 arg-5 arg-11 arg-8 arg-7 arg-6 err) eta-1))) eta-0))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-1) (Strings-Types-Prelude-C-43C-43 " still blocked on " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-9))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-logTermNF arg-5 arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") arg-8 arg-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-logTermNF arg-5 arg-0 "unify.retry" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") arg-8 arg-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-constrain arg-1)))))))))))))))))))) -(define Unify-Core-case--retry-23360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (Unify-Core-success)))) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (let ((e-7 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-9 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (Unify-Core-n--20896-23155-definedN arg-0 arg-1 arg-2 arg-3 eta-1)) e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) ((Unify-Core-case--caseC-32blockC-32inC-32retry-23418 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 (Basics-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 () (Basics-Prelude-C-124C-124 e-10 (lambda () (List-Data-isNil 'erased e-6)))))) eta-0))))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-8535) (lambda (arg-8536) (lambda (arg-8538) (lambda (eta-1) (Normalise-Core-quote_Quote__Term vars arg-8535 arg-8536 arg-8538 eta-1)))))) (lambda (vars) (lambda (arg-8540) (lambda (arg-8542) (lambda (arg-8543) (lambda (arg-8545) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Term vars arg-8540 arg-8542 arg-8543 arg-8545 eta-1))))))))) e-10 arg-0 arg-3 arg-2 e-11 e-12 e-13 e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--caseC-32blockC-32inC-32retry-23817 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--caseC-32blockC-32inC-32retryC-44definedN-23203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((7) (lambda (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-14 (vector-ref sc1 15))) e-14))))) ((8) (lambda (eta-0) (vector 1 1))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) -(define Unify-Core-case--retryC-44definedN-23180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--caseC-32blockC-32inC-32retryC-44definedN-23203 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32setInvertible-23086 (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--setInvertible-23042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-0 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 0 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) -(define Unify-Core-case--unifyD-22943 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-8 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-8 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) -(define Unify-Core-case--unifyWithLazyD-22699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-1 "unify.equal" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Types-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-3)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) -(define Unify-Core-case--unifyD-22581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-1 "unify.equal" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Types-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-3)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) -(define Unify-Core-case--unifyWithLazyD-22400 (lambda (arg-0 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--caseC-32blockC-32inC-32unifyWithLazyD-22347 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-6)))))))) -(define Unify-Core-case--unifyWithLazyD-22275 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-1 arg-2 0 arg-9 arg-10 "Postponing in lazy" arg-8 arg-7 arg-4 eta-0))) (else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-10)) arg-9) arg-8) arg-5) arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-6)))))))))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32unifyD-22084 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-18 arg-12 arg-11 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nf arg-0 arg-15 arg-12 (vector 3 arg-9 arg-8 (vector 0 arg-6 arg-5 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 e-5) (vector 0 arg-9 (vector 0 ) 0)))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-12 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-14)) arg-13) arg-12) e-5) arg-10) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-14) arg-13 arg-12 arg-11 arg-10)))))) -(define Unify-Core-case--unifyD-21979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-14) arg-13 arg-12 arg-11 arg-10)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-12 arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-12 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-12 arg-11 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((Normalise-Core-nf arg-0 arg-15 arg-12 (vector 3 arg-9 arg-8 (vector 0 arg-6 arg-5 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 e-7) (vector 0 arg-9 (vector 0 ) 0)))) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-12 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-14)) arg-13) arg-12) e-7) arg-10) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-14) arg-13 arg-12 arg-11 arg-10) eta-0)))))))))))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32unifyD-21790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-18 arg-12 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nf arg-0 arg-15 arg-12 (vector 3 arg-10 arg-9 (vector 0 arg-7 arg-6 (vector 1 ) e-1) (vector 4 arg-10 (TT-Core-weaken_Weaken__Term arg-9 arg-0 e-5) (vector 0 arg-10 (vector 0 ) 0)))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-12 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) arg-14) arg-13) arg-12) arg-11) e-5) eta-0)))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-14 arg-13 arg-12 arg-11 arg-3)))))) -(define Unify-Core-case--unifyD-21685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-14) arg-13 arg-12 arg-11 arg-3)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-12 arg-11 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-12 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-12 arg-3 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((Normalise-Core-nf arg-0 arg-15 arg-12 (vector 3 arg-10 arg-9 (vector 0 arg-7 arg-6 (vector 1 ) e-1) (vector 4 arg-10 (TT-Core-weaken_Weaken__Term arg-9 arg-0 e-7) (vector 0 arg-10 (vector 0 ) 0)))) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-12 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) arg-14) arg-13) arg-12) arg-11) e-7) eta-0))))))))))))(else ((Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-14 arg-13 arg-12 arg-11 arg-3) eta-0)))))))))))))))))))) -(define Unify-Core-case--getEtaType-21409 (lambda (arg-0 arg-1 arg-2 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-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-10 arg-4 e-9 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (vector 1 (vector 1 e-11))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--getEtaType-21325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (TT-Core-shrinkTerm 'erased 'erased e-1 (vector 1 (vector 0 ))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--unifyNoEta-21174 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Unify-Core-unifyApp arg-9 arg-8 arg-0 0 arg-7 arg-6 arg-5 arg-3 arg-2 arg-1 arg-4)) (else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-9 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unify if Eq due to something with app")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (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--unifyNoEta-20971 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-8535) (lambda (arg-8536) (lambda (arg-8538) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-8535 arg-8536 arg-8538 eta-1)))))) (lambda (vars) (lambda (arg-8540) (lambda (arg-8542) (lambda (arg-8543) (lambda (arg-8545) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-8540 arg-8542 arg-8543 arg-8545 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--unifyNoEta-20866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-8535) (lambda (arg-8536) (lambda (arg-8538) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-8535 arg-8536 arg-8538 eta-1)))))) (lambda (vars) (lambda (arg-8540) (lambda (arg-8542) (lambda (arg-8543) (lambda (arg-8545) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-8540 arg-8542 arg-8543 arg-8545 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--unifyBothBinders-20533 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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) (Unify-Core-convertError 'erased arg-0 arg-19 arg-16 arg-15 (vector 0 arg-14 arg-13 (vector 0 arg-4 arg-3 arg-2 arg-1) arg-12) (vector 0 arg-11 arg-10 (vector 0 arg-8 arg-7 arg-6 arg-5) arg-9) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-20 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-15 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-19 arg-18) (Unify-Core-lower arg-17)) arg-16) arg-15) arg-1) arg-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (UnifyState-Core-genVarName arg-19 arg-18 "x" eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((envC-39 (vector 1 (vector 0 arg-4 arg-3 (vector 1 ) e-6) arg-15))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-15 arg-1 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-15 arg-5 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-15 (vector 1 arg-16 (vector 0 ) e-8))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (((arg-9 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-15 (vector 1 arg-16 (vector 0 ) e-8))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-15 e-11 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-15 e-12 eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) (vector 1 arg-13 arg-0) arg-19 arg-18) (Unify-Core-lower (Unify-Core-lam arg-17))) arg-16) envC-39) (TT-Core-refsToLocals 'erased (vector 1 arg-13 (vector 0 )) (vector 1 arg-13 e-8 (vector 0 )) e-13)) (TT-Core-refsToLocals 'erased (vector 1 arg-13 (vector 0 )) (vector 1 arg-13 e-8 (vector 0 )) e-14)) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (vector 1 (Unify-Core-union e-7 e-15)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32unifyBothBinders-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 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-15 (vector 1 arg-16 (vector 0 ) arg-25))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-9 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-15 (vector 1 arg-16 (vector 0 ) arg-25))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-21 arg-15 e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 arg-21 arg-15 e-6 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) (vector 1 arg-13 arg-0) arg-19 arg-18) (Unify-Core-lower arg-17)) arg-16) arg-26) (TT-Core-refsToLocals 'erased (vector 1 arg-13 (vector 0 )) (vector 1 arg-13 arg-25 (vector 0 )) e-7)) (TT-Core-refsToLocals 'erased (vector 1 arg-13 (vector 0 )) (vector 1 arg-13 arg-25 (vector 0 )) e-8)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-21 arg-15 arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 arg-21 arg-15 arg-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((UnifyState-Core-newConstant arg-0 arg-18 arg-19 arg-16 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-15 (vector 3 arg-14 arg-13 (vector 0 arg-8 arg-7 (vector 1 ) e-5) (vector 0 arg-14 (vector 0 ) 0)) (vector 3 arg-14 arg-13 (vector 2 arg-8 arg-7 (vector 1 ) e-5) (TT-Core-weaken_Weaken__Term arg-13 arg-0 e-6)) arg-27) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-15 (vector 1 arg-16 (vector 0 ) arg-25))) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (((arg-9 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-15 (vector 4 arg-16 e-7 (vector 1 arg-16 (vector 0 ) arg-25)))) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-21 arg-15 e-8 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 arg-21 arg-15 e-9 eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) (vector 1 arg-13 arg-0) arg-19 arg-18) (Unify-Core-lower arg-17)) arg-16) arg-26) (TT-Core-refsToLocals 'erased (vector 1 arg-13 (vector 0 )) (vector 1 arg-13 arg-25 (vector 0 )) e-10)) (TT-Core-refsToLocals 'erased (vector 1 arg-13 (vector 0 )) (vector 1 arg-13 arg-25 (vector 0 )) e-11)) eta-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (Unify-Core-union arg-24 e-12)))))))))))))))))))))))))))))))))))))))))))))))) -(define Unify-Core-case--unifyBothBinders-20045 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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) (Unify-Core-convertError 'erased arg-0 arg-19 arg-16 arg-15 (vector 0 arg-14 arg-13 (vector 2 arg-4 arg-3 arg-2 arg-1) arg-12) (vector 0 arg-11 arg-10 (vector 2 arg-8 arg-7 arg-6 arg-5) arg-9) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-20 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-15 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logC arg-19 "unify.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-15 arg-5 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Unifying arg types " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-6) (Strings-Types-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-19 arg-18) (Unify-Core-lower arg-17)) arg-16) arg-15) arg-1) arg-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (UnifyState-Core-genVarName arg-19 arg-18 "x" eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((envC-39 (vector 1 (vector 2 arg-8 arg-7 (vector 1 ) e-6) arg-15))) ((Unify-Core-case--caseC-32blockC-32inC-32unifyBothBinders-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 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--unifyBothApps-19851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-17 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-17))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 eta-2))) arg-6) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 eta-2))) arg-1) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Matching args " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-7))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-8535) (lambda (arg-8536) (lambda (arg-8538) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-8535 arg-8536 arg-8538 eta-1)))))) (lambda (vars) (lambda (arg-8540) (lambda (arg-8542) (lambda (arg-8543) (lambda (arg-8545) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-8540 arg-8542 arg-8543 arg-8545 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--unifyBothApps-19752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-0)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-8535) (lambda (arg-8536) (lambda (arg-8538) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-8535 arg-8536 arg-8538 eta-0)))))) (lambda (vars) (lambda (arg-8540) (lambda (arg-8542) (lambda (arg-8543) (lambda (arg-8545) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-8540 arg-8542 arg-8543 arg-8545 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--unifyBothApps-19672 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--caseC-32blockC-32inC-32unifyBothApps-19552 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--unifyBothApps-19443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-0)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-8535) (lambda (arg-8536) (lambda (arg-8538) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-8535 arg-8536 arg-8538 eta-0)))))) (lambda (vars) (lambda (arg-8540) (lambda (arg-8542) (lambda (arg-8543) (lambda (arg-8545) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-8540 arg-8542 arg-8543 arg-8545 eta-0))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 (List-Types-Prelude-C-43C-43 'erased arg-1 arg-9) (List-Types-Prelude-C-43C-43 'erased arg-4 arg-7))) (else (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12914-19292-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Unify-Core-n--12914-19292-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((xbigger (Basics-Prelude-C-124C-124 (Types-Prelude-C-62_Ord__Nat e-5 e-6) (lambda () (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__Nat e-5 e-6) (lambda () (Types-Prelude-C-60C-61_Ord__Nat (List-Types-Prelude-length 'erased arg-9) (List-Types-Prelude-length 'erased arg-7)))))))) ((Unify-Core-case--caseC-32blockC-32inC-32unifyBothApps-19552 arg-0 arg-1 arg-2 arg-3 arg-4 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 (Basics-Prelude-C-38C-38 (Basics-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 () (Basics-Prelude-not (Unify-Core-n--12914-19291-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--unifyBothAppsC-44localsIn-19328 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12914-19292-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (+ 1 e-5)))))))))(else (Unify-Core-n--12914-19292-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--12914-19292-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--unifyBothApps-19150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-0)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-8535) (lambda (arg-8536) (lambda (arg-8538) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-8535 arg-8536 arg-8538 eta-0)))))) (lambda (vars) (lambda (arg-8540) (lambda (arg-8542) (lambda (arg-8543) (lambda (arg-8545) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-8540 arg-8542 arg-8543 arg-8545 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--unifyBothApps-19051 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) (vector 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 )) eta-0))))))) -(define Unify-Core-case--unifyApp-18978 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 0 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1)))))) -(define Unify-Core-case--unifyApp-18902 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 1 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1)))))) -(define Unify-Core-case--unifyApp-18688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing var" arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) (vector 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 )))))))) -(define Unify-Core-case--unifyApp-18593 (lambda (arg-0 arg-1 arg-2 arg-3 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-18251 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-18118 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-1 arg-1 eta-0)))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise arg-0 arg-13 arg-7 arg-26 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-18251 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-18058 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-18118 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-14 arg-7 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Unify-Core-occursCheck arg-0 arg-12 arg-8 arg-7 arg-9 arg-5 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-18118 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--caseC-32blockC-32inC-32unifyHole-17939 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17986 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17703 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--caseC-32blockC-32inC-32unifyHole-17614 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17655 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--unifyHole-17569 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-4) (let ((sc1 arg-13)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bind-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17655 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 bind-0 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else ((Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-4) (let ((sc3 arg-13)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17986 arg-0 arg-1 arg-2 arg-3 arg-4 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--caseC-32blockC-32inC-32solveHole-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 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Types-Prelude-length 'erased arg-8) e-1 arg-6 arg-4 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-solvedHole arg-9))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0))))))) -(define Unify-Core-case--solveHole-17298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-9) (let ((sc1 arg-16)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Types-Prelude-length 'erased arg-8) e-1 arg-6 arg-4 arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-solvedHole arg-9)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0))))))))))))))) -(define Unify-Core-case--postponePatVar-17196 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-11 arg-10 1 arg-9 arg-7 arg-8 "Not in pattern fragment" arg-6 arg-12 arg-1)))))) -(define Unify-Core-case--caseC-32blockC-32inC-32unifyHoleApp-17027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (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--unifyHoleApp-16985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (Basics-Prelude-C-124C-124 (Unify-Core-n--12893-16959-isPatName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-3) (lambda () (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (let ((sc1 inv)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-16522 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-13 "unify.invertible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-20) arg-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-log arg-13 "unify.invertible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Constraints " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) (arg-2 (List-Data-reverse 'erased arg-23))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Unify-Core-union e-6 e-8)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-13 "unify.invertible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-22) arg-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-log arg-13 "unify.invertible" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Constraints " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (arg-2 (List-Data-reverse 'erased arg-23))) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Unify-Core-union e-6 e-8)))))))))))))))))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-16458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-16522 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Basics-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--caseC-32blockC-32inC-32unifyInvertible-16409 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-16458 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--unifyInvertible-16339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-getArgTypes 'erased arg-14 e-5 (List-Types-Prelude-C-43C-43 'erased arg-5 arg-4)) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-1) (let ((act-25 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased ty)) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unify-Core-getArgTypes 'erased arg-14 e-6 arg-1) eta-1))))))))) arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Unify-Core-headsConvert arg-0 arg-13 arg-12 arg-10 arg-9 arg-8 e-5 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((bind-0 0)) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-16458 arg-0 arg-1 arg-2 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-Types-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) eta-0))))))) -(define Unify-Core-case--headsConvert-16207 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-7 "unify.head" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying head") arg-3 e-5 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-7 "unify.head" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () ".........with") arg-3 e-8 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-7 arg-6) arg-5) arg-4) arg-3) e-5) e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (List-Data-isNil 'erased (let ((sc6 e-11)) (let ((e-0 (vector-ref sc6 1))) e-0))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-case--getArgTypes-16107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 arg-5 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32unifyIfEq-16021 (lambda (arg-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-Types-Prelude-C-43C-43 "Postponing unifyIfEq " (Show-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--unifyIfEq-15976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (let ((sc1 arg-6)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Types-Prelude-C-43C-43 "Postponing unifyIfEq " (Show-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--isDefInvertible-15795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 (vector 8 arg-0)) eta-0))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32solveIfUndefined-15652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Types-Prelude-length 'erased arg-1) e-1 arg-14 arg-5 arg-17 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32solveIfUndefined-15567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-2) (let ((sc1 arg-9)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Types-Prelude-length 'erased arg-1) e-1 arg-14 arg-5 e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0)))))))))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32solveIfUndefined-15496 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32solveIfUndefined-15567 arg-0 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--solveIfUndefined-15458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-patternEnvTm arg-8 arg-7 arg-0 arg-6 arg-1 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 1 1)) (else (let ((e-4 (vector-ref sc3 1))) (let ((sc4 e-4)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((sc5 e-6)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((bind-0 (vector 1 (vector 0 e-7 (vector 0 e-9 e-10))))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32solveIfUndefined-15567 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-7 e-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10)) eta-0))))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-case--instantiate-15371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-23 (vector 0 ) (vector 1 0 arg-21) (vector 1 0 arg-21) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) -(define Unify-Core-case--instantiate-15276 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 3 arg-0 arg-11 arg-9 (vector 3 e-0 e-1) arg-3) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--instantiateC-44mkDef-15010 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) d x-0)))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-1)))) d-0 x-0)))) d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-15 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-15 d x))))) (vector 0 (Unify-Core-getIVars 'erased 'erased arg-18) arg-17))))) eta-0))))))) -(define Unify-Core-case--instantiateC-44mkDef-14876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (vector 3 arg-23 arg-17 arg-22 arg-27)))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32instantiateC-44updateIVarsC-44updateIVarsB-14345 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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) (vector 2 arg-26 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-28 arg-29)) (else (vector 2 arg-26 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-28 arg-29)))))) -(define Unify-Core-case--instantiateC-44updateIVarsC-44updateIVarsB-14269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-27 arg-23) (lambda (tC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (Unify-Core-case--caseC-32blockC-32inC-32instantiateC-44updateIVarsC-44updateIVarsB-14345 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 tC-39 (Basics-Prelude-C-124C-124 (Unify-Core-inLam arg-10) (lambda () (Unify-Core-n--10274-13556-precise arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13)))))))) (else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-27 arg-23) (lambda (bind-0) (vector 1 (vector 2 arg-26 arg-25 arg-28 bind-0))))))))) -(define Unify-Core-case--instantiateC-44updateIVars-14032 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (vector 1 (vector 0 arg-20 arg-19 arg-22)))) -(define Unify-Core-case--caseC-32blockC-32inC-32instantiateC-44updateIVar-13930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (vector 1 (+ 1 arg-24)))) -(define Unify-Core-case--instantiateC-44updateIVar-13810 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (vector 1 0)) (else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13558-updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-22 'erased 'erased arg-21 'erased) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) -(define Unify-Core-case--instantiateC-44updateIVar-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 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (vector 1 (+ 1 arg-21)))) -(define Unify-Core-case--instantiateC-44precise-13563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((7) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 2))) e-2))))(else 1))))) -(define Unify-Core-case--caseC-32blockC-32inC-32occursCheck-13313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--9709-13028-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 4 arg-0 arg-5 arg-4 arg-2 arg-10) eta-1)) arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10)))))))) -(define Unify-Core-case--occursCheck-13246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 arg-1))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-normalise arg-0 e-5 arg-4 arg-1 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Unify-Core-getMetaNames 'erased arg-6 e-6) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Unify-Core-case--caseC-32blockC-32inC-32occursCheck-13313 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-6 e-7 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Name-Core-C-61C-61_Eq__Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Name-Core-C-47C-61_Eq__Name arg-9 arg-10)))) arg-2 e-7)) eta-0)))))))))))))))))))))) -(define Unify-Core-case--occursCheckC-44failOnStrongRigid-13107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9709-13028-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--9709-13028-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--occursCheckC-44failOnStrongRigid-13046 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) arg-11) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32patternEnvTm-12983 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--9496-12844-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7 e-3) e-3)))))))))) -(define Unify-Core-case--patternEnvTm-12942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (Unify-Core-case--caseC-32blockC-32inC-32patternEnvTm-12983 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--patternEnvTmC-44updateVars-12869 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--9496-12844-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--9496-12844-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)))))))) -(define Unify-Core-case--getVarsTm-12771 (lambda (arg-0 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 (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVarsTm 'erased (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39))))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32patternEnv-12712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--9167-12558-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-8 e-3) e-3)))))))))) -(define Unify-Core-case--patternEnv-12667 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (Unify-Core-case--caseC-32blockC-32inC-32patternEnv-12712 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--patternEnvC-44updateVars-12583 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--9167-12558-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--9167-12558-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32toSubVars-12511 (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--toSubVars-12495 (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--caseC-32blockC-32inC-32toSubVars-12511 arg-0 arg-1 arg-2 e-2 e-3 (Unify-Core-n--9053-12461-anyFirst arg-0 arg-1 arg-2 arg-2))))))) -(define Unify-Core-case--getVars-12366 (lambda (arg-0 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 (Types-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) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39))))))))) -(define Unify-Core-case--postponeS-12209 (lambda (arg-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--postpone-12118 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((xmetas (TT-Core-getMetas 'erased arg-15))) (Unify-Core-chaseMetas arg-9 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas arg-16)) (NameMap-Data-empty 'erased)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-case--postponeC-44undefinedN-11802 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (vector 1 0))) ((8) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-case--postponeC-44checkDefined-11706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-13) eta-0))))))) -(define Unify-Core-case--caseC-32blockC-32inC-32chaseMetas-11606 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 2))) (let ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) (Unify-Core-chaseMetas arg-3 (List-Types-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--chaseMetas-11564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-chaseMetas arg-3 arg-1 arg-2))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 3))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) ((Unify-Core-chaseMetas arg-3 (List-Types-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--convertErrorS-11514 (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--lower-11038 (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--lam-11027 (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--9496-12844-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--patternEnvTmC-44updateVars-12869 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--9167-12558-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--patternEnvC-44updateVars-12583 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--10298-14128-updateIVarsPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-4) (lambda (tC-39) (vector 1 (vector 3 tC-39)))))))))) -(define Unify-Core-n--10298-14129-updateIVarsB (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10298-14128-updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-3) (lambda (pC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-4) (lambda (bind-0) (vector 1 (vector 0 e-1 e-2 pC-39 bind-0))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-8) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-9) (lambda (bind-1) (vector 1 (vector 1 e-6 e-7 bind-0 bind-1))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10298-14128-updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-13) (lambda (pC-39) (Unify-Core-case--instantiateC-44updateIVarsC-44updateIVarsB-14269 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-14 e-13 e-12 e-11 arg-23 pC-39 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-25) (lambda (arg-26) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-25 arg-26))))) 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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10298-14128-updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-18) (lambda (pC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-19) (lambda (bind-0) (vector 1 (vector 3 e-16 e-17 pC-39 bind-0))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-23) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-24) (lambda (bind-1) (vector 1 (vector 4 e-21 e-22 bind-0 bind-1))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-28) (lambda (bind-0) (vector 1 (vector 5 e-26 e-27 bind-0)))))))))))) -(define Unify-Core-n--10274-13559-updateIVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13558-updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-4 'erased 'erased arg-16 'erased) (lambda (_-0) (vector 1 (vector 0 e-2 e-3 _-0)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Types-Prelude-pure_Applicative__Maybe 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-156 arg-158)))))) (lambda (eta-0) (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 eta-0)) e-14) (lambda (bind-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 bind-0))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10298-14129-updateIVarsB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 e-17 e-19 e-18 e-16 arg-14 arg-16 arg-14 arg-15 arg-16 e-18) (lambda (bC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-17 arg-14) (vector 1 e-17 arg-15) (vector 1 (vector 1 0) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased e-17 arg-15 arg-16)) e-19) (lambda (scC-39) (vector 1 (vector 3 e-16 e-17 bC-39 scC-39))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-22) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-23) (lambda (bind-1) (vector 1 (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-27) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-28) (lambda (bind-1) (vector 1 (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-32) (lambda (bind-0) (vector 1 (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-36) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-37) (lambda (bind-1) (vector 1 (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-41) (lambda (bind-0) (vector 1 (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 1 (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 1 (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (vector 1 (vector 11 e-49)))))))) -(define Unify-Core-n--10274-13558-updateIVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10274-13558-updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-15 'erased 'erased e-4 'erased) (lambda (_-0) (vector 1 (+ 1 _-0))))) ((1) (let ((e-7 (vector-ref sc1 1))) (Unify-Core-case--instantiateC-44updateIVar-13810 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased 'erased 'erased 'erased e-7 'erased e-4 arg-15 'erased (Types-Prelude-C-61C-61_Eq__Nat arg-15 e-7))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Unify-Core-n--8220-11685-undefinedN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-10 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((7) (vector 1 0)) ((8) (vector 1 0)) ((9) (vector 1 0))(else (vector 1 1))))))(else (vector 1 1)))))))))))))))) -(define Unify-Core-n--12901-17264-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))) (EqOrd-Prelude-C-61C-61_Eq__Int e-6 arg-9)))(else 1)))))(else 1))))) -(define Unify-Core-n--12914-19291-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--10274-13556-precise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (Unify-Core-case--instantiateC-44precise-13563 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (let ((sc0 arg-5)) (let ((e-17 (vector-ref sc0 18))) e-17))))) -(define Unify-Core-n--10274-13560-mkDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((3) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (let ((e-18 (vector-ref sc1 4))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((2) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10274-13560-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-16 arg-14) arg-15 e-13 (vector 1 (vector 1 e-12) arg-17) arg-18 e-18) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 3 e-15 e-16 (vector 0 e-20 e-21 (vector 1 ) (vector 10 e-15 1)) e-5)))))))))))(else (let ((sc2 arg-19)) (case (vector-ref sc2 0) ((3) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((e-5 (vector-ref sc2 4))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (let ((e-10 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10274-13560-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((b (vector 1 e-7 e-8 e-9 e-10))) ((Unify-Core-case--instantiateC-44mkDef-14876 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-3 e-5 e-9 e-10 e-8 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0)))))))))))))(else (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--instantiateC-44mkDef-15010 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--instantiateC-44mkDef-15010 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))))))(else (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((3) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10274-13560-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((b (vector 1 e-7 e-8 e-9 e-10))) ((Unify-Core-case--instantiateC-44mkDef-14876 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-3 e-5 e-9 e-10 e-8 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0)))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--instantiateC-44mkDef-15010 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--instantiateC-44mkDef-15010 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))))(else (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10274-13560-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((b (vector 1 e-7 e-8 e-9 e-10))) ((Unify-Core-case--instantiateC-44mkDef-14876 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-3 e-5 e-9 e-10 e-8 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0)))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--instantiateC-44mkDef-15010 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (Unify-Core-case--instantiateC-44mkDef-15010 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10274-13559-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))) -(define Unify-Core-n--12914-19292-localsIn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-15))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 e-5 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Unify-Core-n--12914-19292-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (+ 1 e-10))))))))(else ((Unify-Core-n--12914-19292-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--12914-19292-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--10274-13557-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--10274-13557-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--12893-16959-isPatName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) -(define Unify-Core-n--12926-21265-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--8922-12352-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))) (Basics-Prelude-C-124C-124 (EqOrd-Prelude-C-61C-61_Eq__Integer arg-8 e-2) (lambda () (Unify-Core-n--8922-12352-inArgs arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))))))))) -(define Unify-Core-n--23818-25741-getHoleName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-2) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((2) (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 1 e-9))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))) -(define Unify-Core-n--9709-13028-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--occursCheckC-44failOnStrongRigid-13046 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 (Basics-Prelude-C-38C-38 arg-7 (lambda () (Name-Core-C-61C-61_Eq__Name e-2 arg-2)))))))))(else (Unify-Core-case--occursCheckC-44failOnStrongRigid-13107 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--20896-23155-definedN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (let ((sc3 e-5)) (let ((e-30 (vector-ref sc3 1))) e-30))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((n (vector 0 e-0 (vector 2 e-2 e-3)))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-4))) ((Unify-Core-case--caseC-32blockC-32inC-32retryC-44definedN-23203 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-3 n e-5 e-4 _-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))))))))(else (lambda (eta-0) (vector 1 0))))))))(else (lambda (eta-0) (vector 1 0))))))) -(define Unify-Core-n--23385-25354-constraintToHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 8 e-2) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((8) (Context-Core-updateDef arg-1 (vector 8 e-2) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0)) ((9) (Context-Core-updateDef arg-1 (vector 8 e-2) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))) -(define Unify-Core-n--8220-11684-checkDefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-6 (let ((sc2 arg-10)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 e-6) eta-0))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-n--23818-25742-checkConstraint (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 5))) (let ((e-13 (vector-ref sc2 6))) (let ((e-14 (vector-ref sc2 7))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-logTermNF e-8 arg-0 "unify.constraint" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Dot") e-12 e-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 ((Normalise-Core-logTermNF e-8 arg-0 "unify.constraint" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " =") e-12 e-13) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc5 1))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc6 1))) (let ((act-28 ((Context-Core-getPosition e-2 (let ((sc7 e-17)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc7 1))) (let ((sc8 e-18)) (let ((e-19 (vector-ref sc8 1))) (let ((act-29 (Unify-Core-n--23818-25741-getHoleName arg-0 arg-1 (vector 2 e-9 e-2 e-19 (vector 0 )) eta-1))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-20 (vector-ref sc9 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc9 1))) (let ((act-30 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-2)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-2))))))))))) e-8 arg-0 arg-1) (Unify-Core-inMatch)) e-9) e-12) e-13) e-14) eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-21 (vector-ref sc10 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc10 1))) (let ((act-31 (let ((act-31 (unbox arg-0))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-22 (vector-ref sc11 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc11 1))) (let ((act-32 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 1))) (lambda () (lambda (n) (lambda (eta-2) (let ((act-32 (Context-Core-lookupDefExact n (let ((sc12 e-22)) (let ((e-0 (vector-ref sc12 1))) e-0)) eta-2))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-23 (vector-ref sc12 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc12 1))) (let ((sc13 e-23)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((sc14 e-1)) (case (vector-ref sc14 0) ((7) (vector 1 1))(else (vector 1 0)))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 n) eta-2)))))))))))) e-20) eta-1))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-23 (vector-ref sc12 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc12 1))) (let ((act-33 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc13 e-21)) (let ((e-25 (vector-ref sc13 3))) e-25))) eta-1))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-24 (vector-ref sc13 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc13 1))) (let ((sc14 (Basics-Prelude-C-124C-124 (Basics-Prelude-not (List-Data-isNil 'erased (let ((sc15 e-21)) (let ((e-0 (vector-ref sc15 1))) e-0)))) (lambda () (Basics-Prelude-C-124C-124 e-23 (lambda () e-24)))))) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-1)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc6 err)) (case (vector-ref sc6 0) ((54) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc7 1))) (let ((act-28 (Context-Core-lookupTyExact e-2 (let ((sc8 e-17)) (let ((e-41 (vector-ref sc8 1))) e-41)) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc8 1))) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((act-29 ((Normalise-Core-logTermNF (vector 0 ) arg-0 "unify.constraint" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1) eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-1 (let ((sc11 e-16)) (let ((e-28 (vector-ref sc11 1))) (let ((e-27 (vector-ref sc11 2))) (let ((e-26 (vector-ref sc11 3))) (let ((e-25 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-23 (vector-ref sc11 7))) (let ((e-22 (vector-ref sc11 8))) (let ((e-21 (vector-ref sc11 9))) (let ((e-20 (vector-ref sc11 10))) (vector 0 e-28 e-27 e-26 e-25 e-4 (vector 0 ) e-23 e-22 e-21 e-20)))))))))))))) (vector 1 act-30)))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-31 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-13 eta-1))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-32 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-14 eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc13 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 e-8 e-9 e-12 e-6 e-21 e-22) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))(else (lambda (eta-1) (let ((act-27 (let ((act-27 (set-box! arg-1 (let ((sc6 e-16)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (let ((e-22 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-20 (vector-ref sc6 7))) (let ((e-19 (vector-ref sc6 8))) (let ((e-18 (vector-ref sc6 9))) (let ((e-17 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-23 e-22 e-4 (vector 0 ) e-20 e-19 e-18 e-17)))))))))))))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-n--23513-25485-anySame (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 8 e-2) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-26 (Normalise-Core-convert_Convert__Term (vector 0 ) e-5 (vector 0 ) arg-4 e-11 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (vector 1 0)) (else ((Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))(else ((Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))(else ((Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))(else ((Unify-Core-n--23513-25485-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))))))))))))))))) -(define Unify-Core-n--9053-12461-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--9053-12461-anyFirst arg-0 arg-1 arg-2 e-3))))))))))) -(define Unify-Core-n--23337-25311-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))) (EqOrd-Prelude-C-62C-61_Ord__Int e-2 arg-2))))) +(define Unify-Core-case--checkDots-26371 (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--caseC-32blockC-32inC-32checkDotsC-44checkConstraint-26278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkDotsC-44checkConstraint-26140 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--caseC-32blockC-32inC-32checkDotsC-44checkConstraint-26049 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-11 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-7 e-8) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))) +(define Unify-Core-case--checkDotsC-44checkConstraint-26002 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((54) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-3 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 1))) e-27)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-1 (let ((sc5 arg-13)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-11 (vector-ref sc5 7))) (let ((e-10 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-14 e-13 e-2 e-3 e-4 (vector 0 ) e-11 e-10 e-8 e-9)))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-6 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-5 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 arg-2 arg-10 arg-7 arg-4 e-9 e-10) eta-0))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-3) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-1 (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkDotsC-44checkConstraint-25847 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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) ((7) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32checkDotsC-44checkConstraint-25798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-21) eta-0))))))) +(define Unify-Core-case--checkDotsC-44checkConstraint-25701 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (let ((act-24 (Unify-Core-n--23456-25579-getHoleName arg-0 arg-1 (vector 2 arg-10 arg-3 e-2 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) arg-2 arg-0 arg-1) (Unify-Core-inMatch)) arg-10) arg-7) arg-6) arg-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 1))) (lambda () (lambda (n) (lambda (eta-1) (let ((act-27 (Context-Core-lookupDefExact n (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((7) (vector 1 1))(else (vector 1 0)))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 n) eta-1)))))))))))) e-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc5 e-6)) (let ((e-9 (vector-ref sc5 3))) e-9))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 (Basics-Prelude-C-124C-124 (Basics-Prelude-not (List-Data-isNil 'erased (let ((sc7 e-6)) (let ((e-0 (vector-ref sc7 1))) e-0)))) (lambda () (Basics-Prelude-C-124C-124 e-8 (lambda () e-9)))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) +(define Unify-Core-case--checkDotsC-44getHoleName-25603 (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 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 1 e-5)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32checkArgsSame-25518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))) +(define Unify-Core-case--checkArgsSame-25486 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 e-10 arg-1) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-checkArgsSame arg-3 arg-2 arg-1) eta-0)))))))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))(else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1)))))) +(define Unify-Core-case--caseC-32blockC-32inC-32checkArgsSameC-44anySame-25396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))) +(define Unify-Core-case--checkArgsSameC-44anySame-25351 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-9)) (cond ((equal? sc4 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-7 (vector 0 ) arg-6 e-10 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (vector 1 0)) (else ((Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5) eta-0)))))))))))(else (Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))(else (Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))(else (Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))) +(define Unify-Core-case--giveUpConstraintsC-44constraintToHole-25224 (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 8 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0))) ((9) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 8 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-25062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((gdef (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-12) (vector 1 0 arg-12) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Resolved " (Name-Core-show_Show__Name arg-2))) arg-12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-addDef arg-6 (vector 8 arg-0) gdef eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (UnifyState-Core-removeGuess arg-5 arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (let ((sc4 arg-15)) (let ((e-1 (vector-ref sc4 2))) e-1))))))))))))))))))(else (let ((gdef (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 arg-12 arg-11 arg-16) e-18 e-19 e-20)))))))))))))))))))))))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-6 (vector 8 arg-0) gdef eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 1)))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24795 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24738 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24579 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay (constrained)") arg-12 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12))))))))))))))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24488 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 arg-15) (vector 1 0 arg-15) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24335 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay") arg-12 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12))))))))))))))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24262 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24335 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (let ((sc1 arg-14)) (let ((e-3 (vector-ref sc1 4))) e-3))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((gdef (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-21 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 (vector 0 ) 0) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Resolved " (Name-Core-show_Show__Name arg-2))) e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-addDef arg-6 (vector 8 arg-0) gdef eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (UnifyState-Core-removeGuess arg-5 arg-0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (let ((sc5 arg-14)) (let ((e-1 (vector-ref sc5 2))) e-1)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24579 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (let ((sc0 arg-14)) (let ((e-3 (vector-ref sc0 4))) e-3))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((gdef (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-21 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 9 e-5 arg-11 arg-15) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Context-Core-addDef arg-6 (vector 8 arg-0) gdef eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 1))))))))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24201 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 arg-13) (vector 1 0 arg-13) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Normalise-Core-normaliseErr arg-6 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-23914 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((30) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Failed (det " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) ")"))))) (let ((sc1 arg-8)) (let ((e-24 (vector-ref sc1 3))) e-24)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((act-25 (Unify-Core-setInvertible arg-6 arg-1 (vector 8 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Search failed at " (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-12) (Strings-Types-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 3))) e-2)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 arg-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))(else (vector 1 1)))))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32retryGuess-23835 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-6 arg-5 (lambda (eta-1) (let ((act-24 (Unify-Core-search (vector 0 ) arg-6 arg-5 arg-1 e-0 (Unify-Core-C-61C-61_Eq__SolveMode arg-3 (vector 1 )) e-1 e-2 (let ((sc1 arg-8)) (let ((e-21 (vector-ref sc1 3))) e-21)) (vector 0 ) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((gdef (let ((sc2 arg-8)) (let ((e-24 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((e-22 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-21 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-24 e-23 e-22 e-3 e-4 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) (vector 0 ) (vector 1 0 e-5) (vector 1 0 e-5) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Solved " (Name-Core-show_Show__Name arg-2))) (vector 0 ) e-5 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-addDef arg-6 (vector 8 arg-0) gdef eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (UnifyState-Core-removeGuess arg-5 arg-0 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))))))))))) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((30) (let ((e-6 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-1) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Failed (det " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) ")"))))) (let ((sc2 arg-8)) (let ((e-27 (vector-ref sc2 3))) e-27)) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((act-25 (Unify-Core-setInvertible arg-6 arg-1 (vector 8 e-3) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (vector 1 1)))))))))))))(else (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Search failed at " (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-0) (Strings-Types-Prelude-C-43C-43 " for " (Name-Core-show_Show__Name arg-2))))) (vector 0 ) (let ((sc1 arg-8)) (let ((e-21 (vector-ref sc1 3))) e-21)) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((act-25 ((Normalise-Core-normaliseErr arg-6 err) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-1)))))))(else (vector 1 1))))))))))))) eta-0)))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((umode (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 (Unify-Core-retry arg-6 arg-5 umode e-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24262 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-7 e-4 e-3 umode e-6 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))))))))(else (let ((umode (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 umode eta-1 eta-2))) e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24861 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 e-3 umode e-6 csAll (let ((sc3 csAll)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0)))))))))))))))(else (let ((umode (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (Unify-Core-inMatch))(else arg-4))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-retry arg-6 arg-5 umode eta-1 eta-2))) e-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retryGuess-24861 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-4 e-3 umode e-6 csAll (let ((sc2 csAll)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-case--retryGuess-23795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Unify-Core-case--caseC-32blockC-32inC-32retryGuess-23835 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--caseC-32blockC-32inC-32retry-23669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-deleteConstraint arg-3 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-10)))))))(else (lambda (eta-0) (vector 1 arg-10))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retry-23505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retry-23391 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Success " (Unify-Core-show_Show__AddLazy (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-3))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (UnifyState-Core-deleteConstraint arg-3 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 arg-16)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Constraints " (Unify-Core-show_Show__AddLazy (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 4))) e-3))))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-16))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32retry-23286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Retrying " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-1) (Strings-Types-Prelude-C-43C-43 " " (Unify-Core-show_Show__UnifyMode (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) arg-8 arg-7 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-6 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (let ((sc3 arg-10)) (cond ((equal? sc3 0) (lambda () "(lazy allowed)")) (else (lambda () "(no lazy)")))) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Unify-Core-ifThenElse 'erased arg-10 (lambda () ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-2)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 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-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-2)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-2))))))))))) arg-5 arg-0 arg-3) (Unify-Core-lower arg-2)) arg-11) arg-8) arg-7) arg-6))) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32retry-23391 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6 e-7 e-8 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-1)))))))))))))))))))))) (lambda (err) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 5 arg-5 arg-11 arg-8 arg-7 arg-6 err) eta-1))) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-1) (Strings-Types-Prelude-C-43C-43 " still blocked on " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-9)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") arg-8 arg-7 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") arg-8 arg-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-constrain arg-1)))))))))))))))))))) +(define Unify-Core-case--retry-23228 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (Unify-Core-success)))) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (let ((e-7 (vector-ref sc1 5))) (let ((e-8 (vector-ref sc1 6))) (let ((e-9 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (Unify-Core-n--20564-23023-definedN arg-0 arg-1 arg-2 arg-3 eta-1)) e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) ((Unify-Core-case--caseC-32blockC-32inC-32retry-23286 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 (Basics-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 () (Basics-Prelude-C-124C-124 e-10 (lambda () (List-Data-isNil 'erased e-6)))))) eta-0))))))))))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-8517) (lambda (arg-8518) (lambda (arg-8520) (lambda (eta-1) (Normalise-Core-quote_Quote__Term vars arg-8517 arg-8518 arg-8520 eta-1)))))) (lambda (vars) (lambda (arg-8522) (lambda (arg-8524) (lambda (arg-8525) (lambda (arg-8527) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Term vars arg-8522 arg-8524 arg-8525 arg-8527 eta-1))))))))) e-10 arg-0 arg-3 arg-2 e-11 e-12 e-13 e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--caseC-32blockC-32inC-32retry-23669 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--caseC-32blockC-32inC-32retryC-44definedN-23071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((7) (lambda (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-14 (vector-ref sc1 15))) e-14))))) ((8) (lambda (eta-0) (vector 1 1))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) +(define Unify-Core-case--retryC-44definedN-23048 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Unify-Core-case--caseC-32blockC-32inC-32retryC-44definedN-23071 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32setInvertible-22954 (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--setInvertible-22910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-2 arg-0 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 0 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) +(define Unify-Core-case--unifyD-22811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-8 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-8 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) +(define Unify-Core-case--unifyWithLazyD-22569 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Types-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-3))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) +(define Unify-Core-case--unifyD-22453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-4) (Strings-Types-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-3))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success)))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0))))))))))))))))) +(define Unify-Core-case--unifyWithLazyD-22272 (lambda (arg-0 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--caseC-32blockC-32inC-32unifyWithLazyD-22219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-6)))))))) +(define Unify-Core-case--unifyWithLazyD-22147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-1 arg-2 0 arg-9 arg-10 "Postponing in lazy" arg-8 arg-7 arg-4 eta-0))) (else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-10)) arg-9) arg-8) arg-5) arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-6)))))))))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32unifyD-21962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 arg-10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-5) (vector 0 arg-8 (vector 0 ) 0)))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) 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--unifyD-21861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-9 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-10 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-8 arg-7 (vector 0 arg-5 (vector 1 ) e-1) (vector 4 arg-8 (TT-Core-weaken_Weaken__Term arg-7 arg-0 e-7) (vector 0 arg-8 (vector 0 ) 0)))) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) 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--caseC-32blockC-32inC-32unifyD-21682 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 e-5) (vector 0 arg-9 (vector 0 ) 0)))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) 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--unifyD-21581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-3)) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unify-Core-getEtaType arg-0 arg-1 arg-2 arg-11 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-3 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((Normalise-Core-nf arg-0 arg-14 arg-11 (vector 3 arg-9 arg-8 (vector 0 arg-6 (vector 1 ) e-1) (vector 4 arg-9 (TT-Core-weaken_Weaken__Term arg-8 arg-0 e-7) (vector 0 arg-9 (vector 0 ) 0)))) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expand") arg-11 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) 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--getEtaType-21311 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-4 e-8 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 1 e-10))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--getEtaType-21229 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (TT-Core-shrinkTerm 'erased 'erased e-1 (vector 1 (vector 0 ))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--unifyNoEta-21082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Unify-Core-unifyApp arg-9 arg-8 arg-0 0 arg-7 arg-6 arg-5 arg-3 arg-2 arg-1 arg-4)) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unify if Eq due to something with app") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-9 arg-8 arg-0 0 arg-6 arg-7 arg-5 arg-4 (vector 1 arg-3 arg-2 arg-1) eta-0))))))))))) +(define Unify-Core-case--unifyNoEta-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) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-8517) (lambda (arg-8518) (lambda (arg-8520) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-8517 arg-8518 arg-8520 eta-1)))))) (lambda (vars) (lambda (arg-8522) (lambda (arg-8524) (lambda (arg-8525) (lambda (arg-8527) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-8522 arg-8524 arg-8525 arg-8527 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--unifyNoEta-20774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-8517) (lambda (arg-8518) (lambda (arg-8520) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-8517 arg-8518 arg-8520 eta-1)))))) (lambda (vars) (lambda (arg-8522) (lambda (arg-8524) (lambda (arg-8525) (lambda (arg-8527) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-8522 arg-8524 arg-8525 arg-8527 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--unifyBothBinders-20455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 0 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 0 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) arg-1) arg-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (UnifyState-Core-genVarName arg-17 arg-16 "x" eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((envC-39 (vector 1 (vector 0 arg-3 (vector 1 ) e-6) arg-13))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) e-8))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-11 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-12 eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower (Unify-Core-lam arg-15))) arg-14) envC-39) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) e-13)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 e-8 (vector 0 )) e-14)) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (vector 1 (Unify-Core-union e-7 e-15)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32unifyBothBinders-20159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-23))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-23))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-6 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-7)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-8)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((UnifyState-Core-newConstant arg-0 arg-16 arg-17 arg-14 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-13 (vector 3 arg-12 arg-11 (vector 0 arg-6 (vector 1 ) e-5) (vector 0 arg-12 (vector 0 ) 0)) (vector 3 arg-12 arg-11 (vector 2 arg-6 (vector 1 ) e-5) (TT-Core-weaken_Weaken__Term arg-11 arg-0 e-6)) arg-25) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (((arg-10 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-14 (vector 0 ) arg-23))) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (((arg-7 arg-18) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 4 arg-14 e-7 (vector 1 arg-14 (vector 0 ) arg-23)))) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-8 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-9 eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) (vector 1 arg-11 arg-0) arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-24) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-10)) (TT-Core-refsToLocals 'erased (vector 1 arg-11 (vector 0 )) (vector 1 arg-11 arg-23 (vector 0 )) e-11)) eta-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (Unify-Core-union arg-22 e-12)))))))))))))))))))))))))))))))))))))))))))))))) +(define Unify-Core-case--unifyBothBinders-19985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-17 arg-14 arg-13 (vector 0 arg-12 arg-11 (vector 2 arg-3 arg-2 arg-1) arg-10) (vector 0 arg-9 arg-8 (vector 2 arg-6 arg-5 arg-4) arg-7) eta-0))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Unifying arg types " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-6) (Strings-Types-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7))))))))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) arg-1) arg-4) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (UnifyState-Core-genVarName arg-17 arg-16 "x" eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((envC-39 (vector 1 (vector 2 arg-6 (vector 1 ) e-6) arg-13))) ((Unify-Core-case--caseC-32blockC-32inC-32unifyBothBinders-20159 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--unifyBothApps-19793 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-17))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 eta-2))) arg-6) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (arg-19) (lambda (eta-2) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 arg-19 eta-2))) arg-1) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Matching args " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-7))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-8517) (lambda (arg-8518) (lambda (arg-8520) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-8517 arg-8518 arg-8520 eta-1)))))) (lambda (vars) (lambda (arg-8522) (lambda (arg-8524) (lambda (arg-8525) (lambda (arg-8527) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-8522 arg-8524 arg-8525 arg-8527 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--unifyBothApps-19694 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-0)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-8517) (lambda (arg-8518) (lambda (arg-8520) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-8517 arg-8518 arg-8520 eta-0)))))) (lambda (vars) (lambda (arg-8522) (lambda (arg-8524) (lambda (arg-8525) (lambda (arg-8527) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-8522 arg-8524 arg-8525 arg-8527 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--unifyBothApps-19614 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--caseC-32blockC-32inC-32unifyBothApps-19494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--unifyBothApps-19385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-0)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-8517) (lambda (arg-8518) (lambda (arg-8520) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-8517 arg-8518 arg-8520 eta-0)))))) (lambda (vars) (lambda (arg-8522) (lambda (arg-8524) (lambda (arg-8525) (lambda (arg-8527) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-8522 arg-8524 arg-8525 arg-8527 eta-0))))))))) arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 (List-Types-Prelude-C-43C-43 'erased arg-1 arg-9) (List-Types-Prelude-C-43C-43 'erased arg-4 arg-7))) (else (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12697-19234-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Unify-Core-n--12697-19234-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((xbigger (Basics-Prelude-C-124C-124 (Types-Prelude-C-62_Ord__Nat e-5 e-6) (lambda () (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__Nat e-5 e-6) (lambda () (Types-Prelude-C-60C-61_Ord__Nat (List-Types-Prelude-length 'erased arg-9) (List-Types-Prelude-length 'erased arg-7)))))))) ((Unify-Core-case--caseC-32blockC-32inC-32unifyBothApps-19494 arg-0 arg-1 arg-2 arg-3 arg-4 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 (Basics-Prelude-C-38C-38 (Basics-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 () (Basics-Prelude-not (Unify-Core-n--12697-19233-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--unifyBothAppsC-44localsIn-19270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--12697-19234-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (+ 1 e-5)))))))))(else (Unify-Core-n--12697-19234-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--12697-19234-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--unifyBothApps-19094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-0)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-8517) (lambda (arg-8518) (lambda (arg-8520) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-8517 arg-8518 arg-8520 eta-0)))))) (lambda (vars) (lambda (arg-8522) (lambda (arg-8524) (lambda (arg-8525) (lambda (arg-8527) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-8522 arg-8524 arg-8525 arg-8527 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--unifyBothApps-18995 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-0 arg-15 arg-12 arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) (vector 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 )) eta-0))))))) +(define Unify-Core-case--unifyApp-18922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 0 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1)))))) +(define Unify-Core-case--unifyApp-18846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-9 arg-8 0 1 arg-6 arg-7 "Postponing constraint" arg-5 (vector 1 arg-4 arg-3 arg-2) arg-1)))))) +(define Unify-Core-case--unifyApp-18632 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing var" arg-11 (vector 1 arg-10 (vector 0 arg-5 arg-3) (vector 0 )) (vector 1 arg-9 (vector 0 arg-8 arg-6) (vector 0 )))))))) +(define Unify-Core-case--unifyApp-18537 (lambda (arg-0 arg-1 arg-2 arg-3 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-18197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-18064 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Unify-Core-solveHole arg-12 arg-11 arg-17 arg-0 arg-6 arg-9 arg-7 arg-5 arg-4 arg-3 arg-2 arg-18 arg-19 arg-26 e-1 arg-1 eta-0)))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-normalise arg-0 arg-13 arg-7 arg-26 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-18197 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-18004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-18064 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17932 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 arg-14 arg-7 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Unify-Core-occursCheck arg-0 arg-12 arg-8 arg-7 arg-9 arg-5 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-18064 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--caseC-32blockC-32inC-32unifyHole-17885 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17932 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-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) (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17649 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--caseC-32blockC-32inC-32unifyHole-17560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-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-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--unifyHole-17515 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-4) (let ((sc1 arg-13)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bind-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-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 bind-0 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))(else ((Unify-Core-postponePatVar arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 arg-1) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-4) (let ((sc3 arg-13)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17932 arg-0 arg-1 arg-2 arg-3 arg-4 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--caseC-32blockC-32inC-32solveHole-17332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Types-Prelude-length 'erased arg-8) e-1 arg-6 arg-4 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-solvedHole arg-9))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0))))))) +(define Unify-Core-case--solveHole-17246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-9) (let ((sc1 arg-16)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (Unify-Core-instantiate arg-15 arg-14 arg-1 arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 (List-Types-Prelude-length 'erased arg-8) e-1 arg-6 arg-4 arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-solvedHole arg-9)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Can't happen: Lost hole " (Name-Core-show_Show__Name arg-10))) eta-0))))))))))))))) +(define Unify-Core-case--postponePatVar-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 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (Unify-Core-postponeS arg-0 arg-11 arg-10 1 arg-9 arg-7 arg-8 "Not in pattern fragment" arg-6 arg-12 arg-1)))))) +(define Unify-Core-case--caseC-32blockC-32inC-32unifyHoleApp-16975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--unifyHoleApp-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) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((inv (Basics-Prelude-C-124C-124 (Unify-Core-n--12676-16907-isPatName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-3) (lambda () (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (let ((sc1 inv)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-unifyInvertible arg-16 arg-15 arg-0 arg-14 (Unify-Core-lower arg-13) arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 (vector 0 ) (lambda (eta-1) (vector 1 arg-5 (vector 2 arg-3 arg-2 arg-1) eta-1)) arg-4 eta-0))) (else (Unify-Core-postponeS arg-0 arg-16 arg-15 0 arg-14 arg-12 arg-13 "Postponing hole application" arg-11 (vector 1 arg-12 (vector 2 arg-10 arg-9 arg-8) arg-7) arg-6))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-16478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-20) arg-22) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Constraints " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) (arg-2 (List-Data-reverse 'erased arg-23))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Unify-Core-union e-6 e-8)))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-22) arg-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Constraints " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x)))) (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) (arg-2 (List-Data-reverse 'erased arg-23))) (vector 1 arg-9 (vector 2 arg-7 arg-6 arg-5) (List-Data-reverse 'erased arg-21))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Unify-Core-union e-6 e-8)))))))))))))))))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-16414 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-16478 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Basics-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--caseC-32blockC-32inC-32unifyInvertible-16365 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (let ((bind-0 0)) (Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-16414 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--unifyInvertible-16295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-getArgTypes 'erased arg-14 e-5 (List-Types-Prelude-C-43C-43 'erased arg-5 arg-4)) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-1) (let ((act-25 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased ty)) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unify-Core-getArgTypes 'erased arg-14 e-6 arg-1) eta-1))))))))) arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Unify-Core-headsConvert arg-0 arg-13 arg-12 arg-10 arg-9 arg-8 e-5 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((bind-0 0)) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-16414 arg-0 arg-1 arg-2 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-Types-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) eta-0))))))) +(define Unify-Core-case--headsConvert-16169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying head") arg-3 e-5 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () ".........with") arg-3 e-8 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-7 arg-6) arg-5) arg-4) arg-3) e-5) e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (List-Data-isNil 'erased (let ((sc6 e-11)) (let ((e-0 (vector-ref sc6 1))) e-0))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-case--getArgTypes-16073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 arg-4 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32unifyIfEq-15989 (lambda (arg-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-Types-Prelude-C-43C-43 "Postponing unifyIfEq " (Show-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--unifyIfEq-15944 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Unify-Core-success)))) (else (let ((sc1 arg-6)) (cond ((equal? sc1 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-8 arg-7 0 arg-5 arg-4 (Strings-Types-Prelude-C-43C-43 "Postponing unifyIfEq " (Show-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--isDefInvertible-15763 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 (vector 8 arg-0)) eta-0))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32solveIfUndefined-15620 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Types-Prelude-length 'erased arg-1) e-1 arg-14 arg-5 arg-17 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32solveIfUndefined-15535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 arg-2) (let ((sc1 arg-9)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (Unify-Core-instantiate arg-8 arg-7 arg-0 arg-13 arg-4 (Unify-Core-inTerm) arg-6 arg-3 arg-2 (List-Types-Prelude-length 'erased arg-1) e-1 arg-14 arg-5 e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0)))))))))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32solveIfUndefined-15464 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32solveIfUndefined-15535 arg-0 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--solveIfUndefined-15426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-patternEnvTm arg-8 arg-7 arg-0 arg-6 arg-1 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 7 e-2 e-3)))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 1 1)) (else (let ((e-4 (vector-ref sc3 1))) (let ((sc4 e-4)) (let ((e-7 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (let ((sc5 e-6)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((bind-0 (vector 1 (vector 0 e-7 (vector 0 e-9 e-10))))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32solveIfUndefined-15535 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-7 e-9 e-10 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-10)) eta-0))))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-case--instantiate-15339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-23 (vector 0 ) (vector 1 0 arg-21) (vector 1 0 arg-21) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) +(define Unify-Core-case--instantiate-15244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 3 arg-0 arg-11 arg-9 (vector 3 e-0 e-1) arg-3) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--instantiateC-44mkDef-14988 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) d x-0)))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-0) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-1)))) d-0 x-0)))) d x)))) (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-15 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-15 d x))))) (vector 0 (Unify-Core-getIVars 'erased 'erased arg-18) arg-17))))) eta-0))))))) +(define Unify-Core-case--instantiateC-44mkDef-14858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (vector 3 arg-22 arg-16 arg-21 arg-26)))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32instantiateC-44updateIVarsC-44updateIVarsB-14335 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (cond ((equal? sc0 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-27 arg-28)) (else (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-27 arg-28)))))) +(define Unify-Core-case--instantiateC-44updateIVarsC-44updateIVarsB-14261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-26 arg-23) (lambda (tC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (Unify-Core-case--caseC-32blockC-32inC-32instantiateC-44updateIVarsC-44updateIVarsB-14335 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 tC-39 (Basics-Prelude-C-124C-124 (Unify-Core-inLam arg-10) (lambda () (Unify-Core-n--10088-13550-precise arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13)))))))) (else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-26 arg-23) (lambda (bind-0) (vector 1 (vector 2 arg-25 arg-27 bind-0))))))))) +(define Unify-Core-case--instantiateC-44updateIVars-14024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (vector 1 (vector 0 arg-20 arg-19 arg-22)))) +(define Unify-Core-case--caseC-32blockC-32inC-32instantiateC-44updateIVar-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 arg-22 arg-23 arg-24) (vector 1 (+ 1 arg-24)))) +(define Unify-Core-case--instantiateC-44updateIVar-13802 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (vector 1 0)) (else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13552-updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-22 'erased 'erased arg-21 'erased) (lambda (_-0) (vector 1 (+ 1 _-0))))))))) +(define Unify-Core-case--instantiateC-44updateIVar-13722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (vector 1 (+ 1 arg-21)))) +(define Unify-Core-case--instantiateC-44precise-13557 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((7) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 2))) e-2))))(else 1))))) +(define Unify-Core-case--caseC-32blockC-32inC-32occursCheck-13307 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--9523-13022-failOnStrongRigid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 4 arg-0 arg-5 arg-4 arg-2 arg-10) eta-1)) arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10)))))))) +(define Unify-Core-case--occursCheck-13240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 arg-1))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-normalise arg-0 e-5 arg-4 arg-1 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Unify-Core-getMetaNames 'erased arg-6 e-6) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Unify-Core-case--caseC-32blockC-32inC-32occursCheck-13307 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-6 e-7 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Name-Core-C-61C-61_Eq__Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Name-Core-C-47C-61_Eq__Name arg-9 arg-10)))) arg-2 e-7)) eta-0)))))))))))))))))))))) +(define Unify-Core-case--occursCheckC-44failOnStrongRigid-13101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--9523-13022-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--9523-13022-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--occursCheckC-44failOnStrongRigid-13040 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) arg-11) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32patternEnvTm-12977 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--9310-12838-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7 e-3) e-3)))))))))) +(define Unify-Core-case--patternEnvTm-12936 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (Unify-Core-case--caseC-32blockC-32inC-32patternEnvTm-12977 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--patternEnvTmC-44updateVars-12863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--9310-12838-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--9310-12838-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)))))))) +(define Unify-Core-case--getVarsTm-12765 (lambda (arg-0 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 (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-getVarsTm 'erased (vector 1 arg-2 arg-7) arg-6) (lambda (xsC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39))))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32patternEnv-12706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--8981-12552-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-8 e-3) e-3)))))))))) +(define Unify-Core-case--patternEnv-12661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (Unify-Core-case--caseC-32blockC-32inC-32patternEnv-12706 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--patternEnvC-44updateVars-12577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--8981-12552-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--8981-12552-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10)))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32toSubVars-12505 (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--toSubVars-12489 (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--caseC-32blockC-32inC-32toSubVars-12505 arg-0 arg-1 arg-2 e-2 e-3 (Unify-Core-n--8867-12455-anyFirst arg-0 arg-1 arg-2 arg-2))))))) +(define Unify-Core-case--getVars-12360 (lambda (arg-0 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 (Types-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) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39))))))))) +(define Unify-Core-case--postponeS-12203 (lambda (arg-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--postpone-12112 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((xmetas (TT-Core-getMetas 'erased arg-15))) (Unify-Core-chaseMetas arg-9 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas arg-16)) (NameMap-Data-empty 'erased)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-case--postponeC-44undefinedN-11804 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (vector 1 0))) ((8) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-case--postponeC-44checkDefined-11708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-13) eta-0))))))) +(define Unify-Core-case--caseC-32blockC-32inC-32chaseMetas-11608 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 3))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 2))) (let ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) (Unify-Core-chaseMetas arg-3 (List-Types-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--chaseMetas-11566 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (Unify-Core-chaseMetas arg-3 arg-1 arg-2))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 3))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((sns (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-9)))) ((Unify-Core-chaseMetas arg-3 (List-Types-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--convertErrorS-11516 (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--lower-11040 (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--lam-11029 (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--9310-12838-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--patternEnvTmC-44updateVars-12863 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--8981-12552-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--patternEnvC-44updateVars-12577 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--10112-14120-updateIVarsPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (vector 1 (vector 1 ))) ((0) (vector 1 (vector 0 ))) ((2) (vector 1 (vector 2 ))) (else (let ((e-4 (vector-ref sc0 1))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-4) (lambda (tC-39) (vector 1 (vector 3 tC-39)))))))))) +(define Unify-Core-n--10112-14121-updateIVarsB (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10112-14120-updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-2) (lambda (pC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-3) (lambda (bind-0) (vector 1 (vector 0 e-1 pC-39 bind-0)))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-6) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-7) (lambda (bind-1) (vector 1 (vector 1 e-5 bind-0 bind-1)))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10112-14120-updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-10) (lambda (pC-39) (Unify-Core-case--instantiateC-44updateIVarsC-44updateIVarsB-14261 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 e-11 e-10 e-9 arg-23 pC-39 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-25) (lambda (arg-26) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-25 arg-26))))) e-9)))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10112-14120-updateIVarsPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-14) (lambda (pC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-15) (lambda (bind-0) (vector 1 (vector 3 e-13 pC-39 bind-0)))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-18) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-19) (lambda (bind-1) (vector 1 (vector 4 e-17 bind-0 bind-1)))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-21 arg-22 arg-23 e-22) (lambda (bind-0) (vector 1 (vector 5 e-21 bind-0))))))))))) +(define Unify-Core-n--10088-13553-updateIVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13552-updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-4 'erased 'erased arg-16 'erased) (lambda (_-0) (vector 1 (vector 0 e-2 e-3 _-0)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Types-Prelude-pure_Applicative__Maybe 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-113 arg-115)))))) (lambda (eta-0) (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 eta-0)) e-14) (lambda (bind-0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 2 e-11 e-12 e-13 bind-0))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10112-14121-updateIVarsB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-15 e-17 e-19 e-18 e-16 arg-14 arg-16 arg-14 arg-15 arg-16 e-18) (lambda (bC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-17 arg-14) (vector 1 e-17 arg-15) (vector 1 (vector 1 0) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased e-17 arg-15 arg-16)) e-19) (lambda (scC-39) (vector 1 (vector 3 e-16 e-17 bC-39 scC-39))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-22) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-23) (lambda (bind-1) (vector 1 (vector 4 e-21 bind-0 bind-1)))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-27) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-28) (lambda (bind-1) (vector 1 (vector 5 e-25 e-26 bind-0 bind-1))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-32) (lambda (bind-0) (vector 1 (vector 6 e-30 e-31 bind-0)))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-36) (lambda (bind-0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-37) (lambda (bind-1) (vector 1 (vector 7 e-34 e-35 bind-0 bind-1))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-41) (lambda (bind-0) (vector 1 (vector 8 e-39 e-40 bind-0)))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (vector 1 (vector 9 e-43 e-44))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (vector 1 (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (vector 1 (vector 11 e-49)))))))) +(define Unify-Core-n--10088-13552-updateIVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10088-13552-updateIVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-15 'erased 'erased e-4 'erased) (lambda (_-0) (vector 1 (+ 1 _-0))))) ((1) (let ((e-7 (vector-ref sc1 1))) (Unify-Core-case--instantiateC-44updateIVar-13802 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased 'erased 'erased 'erased 'erased e-7 'erased e-4 arg-15 'erased (Types-Prelude-C-61C-61_Eq__Nat arg-15 e-7))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Unify-Core-n--8042-11687-undefinedN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-10 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((7) (vector 1 0)) ((8) (vector 1 0)) ((9) (vector 1 0))(else (vector 1 1))))))(else (vector 1 1)))))))))))))))) +(define Unify-Core-n--12684-17212-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))) (EqOrd-Prelude-C-61C-61_Eq__Int e-6 arg-9)))(else 1)))))(else 1))))) +(define Unify-Core-n--12697-19233-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--10088-13550-precise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (Unify-Core-case--instantiateC-44precise-13557 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (let ((sc0 arg-5)) (let ((e-17 (vector-ref sc0 18))) e-17))))) +(define Unify-Core-n--10088-13554-mkDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((3) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 4))) (let ((sc2 e-16)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10088-13554-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-15 arg-14) arg-15 e-12 (vector 1 (vector 1 e-11) arg-17) arg-18 e-17) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 3 e-14 e-15 (vector 0 e-19 (vector 1 ) (vector 10 e-14 1)) e-5))))))))))(else (let ((sc2 arg-19)) (case (vector-ref sc2 0) ((3) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((e-5 (vector-ref sc2 4))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10088-13554-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--instantiateC-44mkDef-14858 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (Unify-Core-case--instantiateC-44mkDef-14988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--instantiateC-44mkDef-14988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))))))(else (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((3) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 4))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10088-13554-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--instantiateC-44mkDef-14858 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc2 arg-16)) (case (vector-ref sc2 0) ((0) (Unify-Core-case--instantiateC-44mkDef-14988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--instantiateC-44mkDef-14988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))))(else (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Unify-Core-n--10088-13554-mkDef arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 arg-16 (vector 1 (vector 0 ) arg-17) arg-18 e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((b (vector 1 e-7 e-8 e-9))) ((Unify-Core-case--instantiateC-44mkDef-14858 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 e-5 e-8 e-9 e-7 b e-2 arg-18 arg-17 arg-16 e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))))))))))))(else (let ((sc1 arg-16)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--instantiateC-44mkDef-14988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0)))))))))))))(else (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (Unify-Core-case--instantiateC-44mkDef-14988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-19 arg-18 arg-17 (Unify-Core-n--10088-13553-updateIVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-17 arg-18)))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Types-Prelude-C-43C-43 "Can't make solution for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " at " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-14 arg-19)))) eta-0))))))))))))) +(define Unify-Core-n--12697-19234-localsIn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-15))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 e-5 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Unify-Core-n--12697-19234-localsIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (+ 1 e-10))))))))(else ((Unify-Core-n--12697-19234-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--12697-19234-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--10088-13551-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--10088-13551-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--12676-16907-isPatName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((3) 0)(else 1))))) +(define Unify-Core-n--12709-21171-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--8736-12346-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))) (Basics-Prelude-C-124C-124 (EqOrd-Prelude-C-61C-61_Eq__Integer arg-8 e-2) (lambda () (Unify-Core-n--8736-12346-inArgs arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))))))))) +(define Unify-Core-n--23456-25579-getHoleName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-2) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((2) (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 1 e-9))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))) +(define Unify-Core-n--9523-13022-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--occursCheckC-44failOnStrongRigid-13040 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 (Basics-Prelude-C-38C-38 arg-7 (lambda () (Name-Core-C-61C-61_Eq__Name e-2 arg-2)))))))))(else (Unify-Core-case--occursCheckC-44failOnStrongRigid-13101 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--20564-23023-definedN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-4 (let ((sc3 e-5)) (let ((e-30 (vector-ref sc3 1))) e-30))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((n (vector 0 e-0 (vector 2 e-2 e-3)))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-4))) ((Unify-Core-case--caseC-32blockC-32inC-32retryC-44definedN-23071 arg-0 arg-1 arg-2 arg-3 e-0 e-2 e-3 n e-5 e-4 _-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))(else (vector 1 1)))))))))))))))))))(else (lambda (eta-0) (vector 1 0))))))))(else (lambda (eta-0) (vector 1 0))))))) +(define Unify-Core-n--23023-25192-constraintToHole (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 8 e-2) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((8) (Context-Core-updateDef arg-1 (vector 8 e-2) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0)) ((9) (Context-Core-updateDef arg-1 (vector 8 e-2) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))) +(define Unify-Core-n--8042-11686-checkDefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-6 (let ((sc2 arg-10)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 1 (vector 0 )))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 e-6) eta-0))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-n--23456-25580-checkConstraint (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 5))) (let ((e-13 (vector-ref sc2 6))) (let ((e-14 (vector-ref sc2 7))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Dot") e-12 e-14 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logTermNF e-8 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " =") e-12 e-13 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc5 1))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc6 1))) (let ((act-28 ((Context-Core-getPosition e-2 (let ((sc7 e-17)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc7 1))) (let ((sc8 e-18)) (let ((e-19 (vector-ref sc8 1))) (let ((act-29 (Unify-Core-n--23456-25579-getHoleName arg-0 arg-1 (vector 2 e-9 e-2 e-19 (vector 0 )) eta-1))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-20 (vector-ref sc9 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc9 1))) (let ((act-30 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-2)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-2))))))))))) e-8 arg-0 arg-1) (Unify-Core-inMatch)) e-9) e-12) e-13) e-14) eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-21 (vector-ref sc10 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc10 1))) (let ((act-31 (let ((act-31 (unbox arg-0))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-22 (vector-ref sc11 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc11 1))) (let ((act-32 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 1))) (lambda () (lambda (n) (lambda (eta-2) (let ((act-32 (Context-Core-lookupDefExact n (let ((sc12 e-22)) (let ((e-0 (vector-ref sc12 1))) e-0)) eta-2))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-23 (vector-ref sc12 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc12 1))) (let ((sc13 e-23)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((sc14 e-1)) (case (vector-ref sc14 0) ((7) (vector 1 1))(else (vector 1 0)))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 n) eta-2)))))))))))) e-20) eta-1))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-23 (vector-ref sc12 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc12 1))) (let ((act-33 ((Unify-Core-checkArgsSame arg-1 arg-0 (let ((sc13 e-21)) (let ((e-25 (vector-ref sc13 3))) e-25))) eta-1))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-24 (vector-ref sc13 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc13 1))) (let ((sc14 (Basics-Prelude-C-124C-124 (Basics-Prelude-not (List-Data-isNil 'erased (let ((sc15 e-21)) (let ((e-0 (vector-ref sc15 1))) e-0)))) (lambda () (Basics-Prelude-C-124C-124 e-23 (lambda () e-24)))))) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Dot pattern match fail") eta-1)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc6 err)) (case (vector-ref sc6 0) ((54) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc7 1))) (let ((act-28 (Context-Core-lookupTyExact e-2 (let ((sc8 e-17)) (let ((e-41 (vector-ref sc8 1))) e-41)) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc8 1))) (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((act-29 (Normalise-Core-logTermNF (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Dot type") (vector 0 ) e-1 eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-1 (let ((sc11 e-16)) (let ((e-28 (vector-ref sc11 1))) (let ((e-27 (vector-ref sc11 2))) (let ((e-26 (vector-ref sc11 3))) (let ((e-25 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-23 (vector-ref sc11 7))) (let ((e-22 (vector-ref sc11 8))) (let ((e-21 (vector-ref sc11 9))) (let ((e-20 (vector-ref sc11 10))) (vector 0 e-28 e-27 e-26 e-25 e-4 (vector 0 ) e-23 e-22 e-21 e-20)))))))))))))) (vector 1 act-30)))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-31 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-13 eta-1))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-32 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-14 eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc13 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 44 e-8 e-9 e-12 e-6 e-21 e-22) eta-1))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-9 e-2) eta-1))))))))))))))))(else (lambda (eta-1) (let ((act-27 (let ((act-27 (set-box! arg-1 (let ((sc6 e-16)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (let ((e-22 (vector-ref sc6 4))) (let ((e-4 (vector-ref sc6 5))) (let ((e-20 (vector-ref sc6 7))) (let ((e-19 (vector-ref sc6 8))) (let ((e-18 (vector-ref sc6 9))) (let ((e-17 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-23 e-22 e-4 (vector 0 ) e-20 e-19 e-18 e-17)))))))))))))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-n--23151-25323-anySame (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 8 e-2) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-26 (Normalise-Core-convert_Convert__Term (vector 0 ) e-5 (vector 0 ) arg-4 e-11 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (vector 1 0)) (else ((Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))(else ((Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))(else ((Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))(else ((Unify-Core-n--23151-25323-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))))))))))))))))) +(define Unify-Core-n--8867-12455-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--8867-12455-anyFirst arg-0 arg-1 arg-2 e-3))))))))))) +(define Unify-Core-n--22975-25149-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))) (EqOrd-Prelude-C-62C-61_Ord__Int e-2 arg-2))))) (define Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased arg-1 arg-2 e-5))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 (TT-Core-weaken_Weaken__Var arg-1 arg-2 e-8)) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased arg-1 arg-2 e-5))))))))))))) (define Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased e-2 (List-Types-Prelude-C-43C-43 'erased e-3 arg-1) (Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 'erased arg-1 e-3 arg-3))))))))) -(define Unify-Core-unifyWithLazyD_Unify__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-convert_Convert__Term arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((act-27 ((Context-Core-log arg-1 "unify.equal" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Types-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-7)))))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) -(define Unify-Core-unifyWithLazyD_Unify__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 3))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) e-11)))(else (let ((x (vector 5 e-5 e-6 e-7))) (Unify-Core-case--unifyWithLazyD-22275 arg-0 arg-1 arg-2 e-5 arg-7 e-7 e-6 x arg-5 arg-4 arg-3 (Basics-Prelude-C-38C-38 (Unify-Core-isHoleApp 'erased arg-7) (lambda () (Basics-Prelude-not (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 ))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) arg-6) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-6 (vector-ref sc2 3))) (vector 0 e-0 e-7 e-6 (vector 2 e-2))))))))))))))))(else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7))))))))) +(define Unify-Core-unifyWithLazyD_Unify__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-convert_Convert__Term arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Types-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-7))))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) +(define Unify-Core-unifyWithLazyD_Unify__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 3))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) e-11)))(else (let ((x (vector 5 e-5 e-6 e-7))) (Unify-Core-case--unifyWithLazyD-22147 arg-0 arg-1 arg-2 e-5 arg-7 e-7 e-6 x arg-5 arg-4 arg-3 (Basics-Prelude-C-38C-38 (Unify-Core-isHoleApp 'erased arg-7) (lambda () (Basics-Prelude-not (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 ))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) arg-6) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-6 (vector-ref sc2 3))) (vector 0 e-0 e-7 e-6 (vector 2 e-2))))))))))))))))(else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7))))))))) (define Unify-Core-unifyWithLazyD_Unify__Closure (lambda (arg-0 ext-7 ext-1 ext-2 ext-3 ext-4 ext-5 ext-6 ext-0) (Unify-Core-unifyD_Unify__Closure arg-0 ext-7 ext-1 ext-2 ext-3 ext-4 ext-5 ext-6 ext-0))) -(define Unify-Core-unifyD_Unify__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-convert_Convert__Term arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((act-27 ((Context-Core-log arg-1 "unify.equal" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Types-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-7)))))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) 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-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (let ((e-24 (vector-ref sc1 4))) (Unify-Core-unifyBothBinders arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 e-11 e-12 e-13 e-14 e-21 e-22 e-23 e-24))))))(else (let ((sc1 e-13)) (case (vector-ref sc1 0) ((0) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaR") arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((tmx (vector 0 e-11 e-12 (vector 0 e-16 e-17 e-18 e-19) e-14))) ((Unify-Core-case--unifyD-21685 arg-0 arg-1 arg-2 arg-7 e-19 e-18 e-17 e-16 e-14 e-12 e-11 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))) (let ((e-9 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaL") arg-5 arg-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-15 (vector-ref sc5 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc5 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8 e-9) e-4))) ((Unify-Core-case--unifyD-21979 arg-0 arg-1 arg-2 e-9 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-10 e-15 (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))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaL") arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 "unify" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8 e-9) e-4))) ((Unify-Core-case--unifyD-21979 arg-0 arg-1 arg-2 e-9 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-10 e-11 (Unify-Core-isHoleApp 'erased arg-6)) eta-0)))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7))))))))) -(define Unify-Core-unifyD_Unify__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-convert_Convert__Closure arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else (let ((act-27 ((Normalise-Core-evalClosure arg-0 e-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-evalClosure arg-0 e-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) +(define Unify-Core-unifyD_Unify__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-convert_Convert__Term arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Skipped unification (equal already): " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-6) (Strings-Types-Prelude-C-43C-43 " and " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-7))))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-success))))))) (else (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) +(define Unify-Core-unifyD_Unify__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (Unify-Core-unifyBothBinders arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 e-10 e-11 e-12 e-13 e-19 e-20 e-21 e-22))))))(else (let ((sc1 e-12)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaR") arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((tmx (vector 0 e-10 e-11 (vector 0 e-15 e-16 e-17) e-13))) ((Unify-Core-case--unifyD-21581 arg-0 arg-1 arg-2 arg-7 e-17 e-16 e-15 e-13 e-11 e-10 tmx arg-5 arg-4 arg-3 e-5 e-6 e-7 (Unify-Core-isHoleApp 'erased arg-7)) eta-0))))))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaL") arg-5 arg-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--unifyD-21861 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-14 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "EtaL") arg-5 arg-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...with") arg-5 arg-7 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((tmy (vector 0 e-1 e-2 (vector 0 e-6 e-7 e-8) e-4))) ((Unify-Core-case--unifyD-21861 arg-0 arg-1 arg-2 e-8 e-7 e-6 e-4 e-2 e-1 tmy arg-6 arg-5 arg-4 arg-3 e-5 e-9 e-10 (Unify-Core-isHoleApp 'erased arg-6)) eta-0))))))))))))))))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7)))))))))(else (Unify-Core-unifyNoEta arg-1 arg-2 arg-0 arg-3 arg-4 arg-5 arg-6 arg-7))))))))) +(define Unify-Core-unifyD_Unify__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-convert_Convert__Closure arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else (let ((act-27 ((Normalise-Core-evalClosure arg-0 e-5 arg-6) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-evalClosure arg-0 e-5 arg-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0))))))))))))))))))))))))))))))) (define Unify-Core-show_Show__UnifyMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "InLHS") ((1) "InTerm") ((2) "InMatch") (else "InSearch"))))) (define Unify-Core-show_Show__AddLazy (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "NoLazy") ((1) "AddForce") (else "AddDelay"))))) -(define Unify-Core-__Impl_Weaken_C-40IVarsC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3641) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 'erased vars ns arg-3645))))))) -(define Unify-Core-__Impl_Unify_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-0)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-0))))))))))))) -(define Unify-Core-__Impl_Unify_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))))) -(define Unify-Core-__Impl_Unify_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-0)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-0))))))))))))) +(define Unify-Core-__Impl_Weaken_C-40IVarsC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3584) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 'erased vars ns arg-3588))))))) +(define Unify-Core-__Impl_Unify_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-0)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-0))))))))))))) +(define Unify-Core-__Impl_Unify_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))))) +(define Unify-Core-__Impl_Unify_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-0)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-0))))))))))))) (define Unify-Core-__Impl_Eq_UnifyMode (lambda () (vector 0 (lambda (arg-2) (lambda (arg-3) (Unify-Core-C-61C-61_Eq__UnifyMode arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Unify-Core-C-47C-61_Eq__UnifyMode arg-4 arg-5)))))) (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))))) @@ -4586,44 +4512,44 @@ (define Unify-Core-union (lambda (arg-0 arg-1) (vector 0 (List-Data-union 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Basics-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-Types-Prelude-C-43C-43 'erased (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) (vector 0 )))) (define Unify-Core-unifyWithLazyD (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-3) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-2 arg-1) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9)))))))))))) (define Unify-Core-unifyWithLazy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-2 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9)))))))))) -(define Unify-Core-unifyNoEta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (let ((e-19 (vector-ref sc0 5))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (let ((e-47 (vector-ref sc1 3))) (let ((e-48 (vector-ref sc1 4))) (let ((e-49 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--unifyNoEta-20866 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 (EqOrd-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--unifyNoEta-21174 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq")) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Basics-Prelude-C-124C-124 (Unify-Core-n--12926-21265-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12926-21265-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--unifyNoEta-20971 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--unifyNoEta-21174 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq")) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Basics-Prelude-C-124C-124 (Unify-Core-n--12926-21265-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12926-21265-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-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) 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--unifyNoEta-21174 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq")) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Basics-Prelude-C-124C-124 (Unify-Core-n--12926-21265-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12926-21265-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-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-0)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-8535) (lambda (arg-8536) (lambda (arg-8538) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-8535 arg-8536 arg-8538 eta-0)))))) (lambda (vars) (lambda (arg-8540) (lambda (arg-8542) (lambda (arg-8543) (lambda (arg-8545) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-8540 arg-8542 arg-8543 arg-8545 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--unifyNoEta-21174 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq")) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Basics-Prelude-C-124C-124 (Unify-Core-n--12926-21265-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12926-21265-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0))))))))))))))))))))))))))) ((7) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((7) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-2 arg-0 arg-1) (Unify-Core-lower arg-3)) arg-4) arg-5) e-38) e-68) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-8535) (lambda (arg-8536) (lambda (arg-8538) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-8535 arg-8536 arg-8538 eta-1)))))) (lambda (vars) (lambda (arg-8540) (lambda (arg-8542) (lambda (arg-8543) (lambda (arg-8545) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-8540 arg-8542 arg-8543 arg-8545 eta-1))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 e-39 e-69) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Unify-Core-union e-5 e-6))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--unifyNoEta-21174 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq")) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Basics-Prelude-C-124C-124 (Unify-Core-n--12926-21265-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12926-21265-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--unifyNoEta-21174 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc0 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (let ((e-4 (vector-ref sc0 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-log arg-0 "unify.noeta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq")) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Basics-Prelude-C-124C-124 (Unify-Core-n--12926-21265-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12926-21265-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))) -(define Unify-Core-unifyInvertible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupTyExact (vector 8 arg-8) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased e-1)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Unify-Core-getArgTypes 'erased e-5 e-7 (List-Types-Prelude-C-43C-43 'erased arg-9 arg-10)) ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-0) (let ((act-27 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((Unify-Core-getArgTypes 'erased e-5 e-8 arg-13) eta-0))))))))) arg-11) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Unify-Core-headsConvert arg-2 arg-0 arg-1 arg-4 arg-5 arg-6 e-7 e-8) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) (let ((sc6 e-9)) (cond ((equal? sc6 0) (let ((bind-0 0)) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-16458 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-Types-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) ext-0)))))))))))))))) +(define Unify-Core-unifyNoEta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (let ((e-19 (vector-ref sc0 5))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (let ((e-47 (vector-ref sc1 3))) (let ((e-48 (vector-ref sc1 4))) (let ((e-49 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--unifyNoEta-20774 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 (EqOrd-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--unifyNoEta-21082 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Basics-Prelude-C-124C-124 (Unify-Core-n--12709-21171-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12709-21171-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--unifyNoEta-20879 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--unifyNoEta-21082 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Basics-Prelude-C-124C-124 (Unify-Core-n--12709-21171-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12709-21171-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-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) 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--unifyNoEta-21082 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Basics-Prelude-C-124C-124 (Unify-Core-n--12709-21171-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12709-21171-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-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-0)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-8517) (lambda (arg-8518) (lambda (arg-8520) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-8517 arg-8518 arg-8520 eta-0)))))) (lambda (vars) (lambda (arg-8522) (lambda (arg-8524) (lambda (arg-8525) (lambda (arg-8527) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-8522 arg-8524 arg-8525 arg-8527 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--unifyNoEta-21082 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Basics-Prelude-C-124C-124 (Unify-Core-n--12709-21171-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12709-21171-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0))))))))))))))))))))))))))) ((7) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((7) (let ((e-68 (vector-ref sc1 3))) (let ((e-69 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-2 arg-0 arg-1) (Unify-Core-lower arg-3)) arg-4) arg-5) e-38) e-68) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-8517) (lambda (arg-8518) (lambda (arg-8520) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-8517 arg-8518 arg-8520 eta-1)))))) (lambda (vars) (lambda (arg-8522) (lambda (arg-8524) (lambda (arg-8525) (lambda (arg-8527) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-8522 arg-8524 arg-8525 arg-8527 eta-1))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 e-39 e-69) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Unify-Core-union e-5 e-6))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--unifyNoEta-21082 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc2 arg-3)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((4) (let ((e-4 (vector-ref sc1 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Basics-Prelude-C-124C-124 (Unify-Core-n--12709-21171-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12709-21171-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--unifyNoEta-21082 arg-2 e-8 e-7 e-6 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 (Unify-Core-C-47C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 ))))))) ((4) (let ((e-13 (vector-ref sc0 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13)))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (let ((e-4 (vector-ref sc0 4))) (Unify-Core-unifyNoEta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 arg-7)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing else worked, unifyIfEq") eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Basics-Prelude-C-124C-124 (Unify-Core-n--12709-21171-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12709-21171-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-7))) arg-4 arg-3 arg-5 arg-6 arg-7 eta-0)))))))))))))))))))))))))) +(define Unify-Core-unifyInvertible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupTyExact (vector 8 arg-8) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased e-1)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Unify-Core-getArgTypes 'erased e-5 e-7 (List-Types-Prelude-C-43C-43 'erased arg-9 arg-10)) ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (ty) (lambda (eta-0) (let ((act-27 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((Unify-Core-getArgTypes 'erased e-5 e-8 arg-13) eta-0))))))))) arg-11) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Unify-Core-headsConvert arg-2 arg-0 arg-1 arg-4 arg-5 arg-6 e-7 e-8) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) (let ((sc6 e-9)) (cond ((equal? sc6 0) (let ((bind-0 0)) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyInvertible-16414 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-Types-Prelude-C-43C-43 "No such metavariable " (Name-Core-show_Show__Name arg-7)) ext-0)))))))))))))))) (define Unify-Core-unifyIfEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-7 arg-8 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (vector 1 (Unify-Core-success))) (else (let ((sc3 arg-3)) (cond ((equal? sc3 0) (Unify-Core-postpone arg-2 arg-0 arg-1 0 arg-4 arg-5 (Strings-Types-Prelude-C-43C-43 "Postponing unifyIfEq " (Show-Prelude-show_Show__Bool (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)))) arg-6 arg-7 arg-8 ext-0)) (else (Unify-Core-convertError 'erased arg-2 arg-0 arg-4 arg-6 arg-7 arg-8 ext-0))))))))))))))))))) -(define Unify-Core-unifyHoleApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-7 (lambda (eta-1) (vector 3 e-1 e-2 e-3 e-4 eta-1)) e-5 eta-0)))))))))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 (lambda (eta-1) (vector 2 e-7 e-8 e-9 e-10 eta-1)) e-11 eta-0)))))))))))))))))) ((1) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (lambda (eta-0) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 ) (lambda (eta-1) (vector 1 e-13 (vector 0 e-18 e-19) eta-1)) e-15 eta-0))))) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 e-23) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((tm (vector 1 e-13 (vector 2 e-22 e-23 e-24) e-15))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((inv (Basics-Prelude-C-124C-124 (Unify-Core-n--12893-16959-isPatName arg-2 e-24 e-23 e-22 e-15 e-13 tm arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-22) (lambda () (let ((sc5 e-1)) (let ((e-25 (vector-ref sc5 15))) e-25)))))) (let ((sc5 inv)) (cond ((equal? sc5 0) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 ) (lambda (eta-1) (vector 1 e-13 (vector 2 e-22 e-23 e-24) eta-1)) e-15 eta-0)) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) tm) eta-0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-13 arg-7) eta-0))))))))))))))))))))(else (Unify-Core-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) arg-11))))))))(else (Unify-Core-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) arg-11)))))) -(define Unify-Core-unifyHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((args (List-Types-Prelude-C-43C-43 'erased arg-10 arg-11))) (let ((act-26 (Context-Core-logC arg-0 "unify.hole" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalArg arg-2 e-6 eta-1)) args) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (arg-13) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 arg-13 eta-1))) e-7) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 arg-12 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Unifying: " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " with " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-9))))))))))))))))))))))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Unify-Core-patternEnv arg-0 arg-1 arg-2 arg-6 args ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((act-28 ((Context-Core-lookupCtxtExact (vector 8 arg-9) (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((bind-0 (vector 0 ))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17655 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-6 args e-7 bind-0 e-1 _-0 (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))))(else ((Unify-Core-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (let ((sc5 e-2)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-28 ((Context-Core-lookupCtxtExact (vector 8 arg-9) (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0))) ext-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17986 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-6 args e-7 e-10 e-12 e-11 bind-0 e-1 _-0 (let ((sc9 e-1)) (let ((e-17 (vector-ref sc9 18))) e-17))) ext-0))))(else ((Unify-Core-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0))))))))))))))))))))))))))))))))))))))))))) +(define Unify-Core-unifyHoleApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-7 (lambda (eta-1) (vector 3 e-1 e-2 e-3 e-4 eta-1)) e-5 eta-0)))))))))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 (lambda (eta-1) (vector 2 e-7 e-8 e-9 e-10 eta-1)) e-11 eta-0)))))))))))))))))) ((1) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (lambda (eta-0) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 ) (lambda (eta-1) (vector 1 e-13 (vector 0 e-18 e-19) eta-1)) e-15 eta-0))))) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 e-23) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((tm (vector 1 e-13 (vector 2 e-22 e-23 e-24) e-15))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((inv (Basics-Prelude-C-124C-124 (Unify-Core-n--12676-16907-isPatName arg-2 e-24 e-23 e-22 e-15 e-13 tm arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-22) (lambda () (let ((sc5 e-1)) (let ((e-25 (vector-ref sc5 15))) e-25)))))) (let ((sc5 inv)) (cond ((equal? sc5 0) (Unify-Core-unifyInvertible arg-0 arg-1 arg-2 arg-3 (Unify-Core-lower arg-4) arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 ) (lambda (eta-1) (vector 1 e-13 (vector 2 e-22 e-23 e-24) eta-1)) e-15 eta-0)) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) tm) eta-0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-13 arg-7) eta-0))))))))))))))))))))(else (Unify-Core-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) arg-11))))))))(else (Unify-Core-postponeS arg-2 arg-0 arg-1 0 arg-3 arg-5 arg-4 "Postponing hole application" arg-6 (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10) arg-11)))))) +(define Unify-Core-unifyHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((args (List-Types-Prelude-C-43C-43 'erased arg-10 arg-11))) (let ((act-26 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalArg arg-2 e-6 eta-1)) args) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (arg-13) (lambda (eta-1) (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 arg-13 eta-1))) e-7) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 arg-12 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Unifying: " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " with " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-9))))))))))))))))))))))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Unify-Core-patternEnv arg-0 arg-1 arg-2 arg-6 args ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((act-28 ((Context-Core-lookupCtxtExact (vector 8 arg-9) (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((bind-0 (vector 0 ))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17601 arg-2 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 e-6 args e-7 bind-0 e-1 _-0 (let ((sc7 e-1)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))))(else ((Unify-Core-postponePatVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 arg-11 arg-12) ext-0))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (let ((sc5 e-2)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-28 ((Context-Core-lookupCtxtExact (vector 8 arg-9) (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0))) ext-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 e-10 (vector 0 e-12 e-11))))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((_-0 (vector 1 e-1))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32unifyHole-17932 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 ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((2) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--unifyBothBinders-20045 arg-2 e-4 e-3 e-2 e-1 e-14 e-13 e-12 e-11 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Basics-Prelude-not (Unify-Core-subRig e-2 e-12))) 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-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((0) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--unifyBothBinders-20533 arg-2 e-9 e-8 e-7 e-6 e-19 e-18 e-17 e-16 arg-13 arg-11 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 e-5 (Basics-Prelude-not (Unify-Core-subRig e-7 e-17))) 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--unifyBothApps-19051 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 (Types-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--unifyBothApps-19150 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 (Types-Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (let ((e-27 (vector-ref sc6 3))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-34 (vector-ref sc7 1))) (let ((e-35 (vector-ref sc7 2))) (let ((e-36 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 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--unifyBothApps-19150 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 (Types-Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 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--unifyBothApps-19150 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 (Types-Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 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--unifyBothApps-19150 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 (Types-Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq")) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (Unify-Core-case--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--unifyBothApps-19443 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19672 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--unifyBothApps-19752 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--unifyBothApps-19851 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))) +(define Unify-Core-unifyBothBinders (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--unifyBothBinders-19985 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 (Basics-Prelude-not (Unify-Core-subRig e-1 e-9))) eta-0)))))))))))(else (lambda (eta-0) (Unify-Core-convertError 'erased arg-2 arg-0 arg-4 arg-5 (vector 0 arg-6 arg-7 arg-8 arg-9) (vector 0 arg-10 arg-11 arg-12 arg-13) eta-0))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((0) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((e-15 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) ((Unify-Core-case--unifyBothBinders-20455 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 (Basics-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--unifyBothApps-18995 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 (Types-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--unifyBothApps-19094 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 (Types-Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (let ((e-27 (vector-ref sc6 3))) (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((2) (let ((e-34 (vector-ref sc7 1))) (let ((e-35 (vector-ref sc7 2))) (let ((e-36 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 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--unifyBothApps-19094 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 (Types-Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((0) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-27 (vector-ref sc5 3))) (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((2) (let ((e-34 (vector-ref sc6 1))) (let ((e-35 (vector-ref sc6 2))) (let ((e-36 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 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--unifyBothApps-19094 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 (Types-Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-27 (vector-ref sc4 3))) (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((2) (let ((e-34 (vector-ref sc5 1))) (let ((e-35 (vector-ref sc5 2))) (let ((e-36 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 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--unifyBothApps-19094 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 (Types-Prelude-C-61C-61_Eq__Nat e-43 e-48))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (let ((e-27 (vector-ref sc3 3))) (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((2) (let ((e-34 (vector-ref sc4 1))) (let ((e-35 (vector-ref sc4 2))) (let ((e-36 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((2) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (let ((e-30 (vector-ref sc2 1))) (let ((e-31 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((2) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (let ((e-30 (vector-ref sc1 1))) (let ((e-31 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Both local apps, unifyIfEq") eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 0 arg-4 arg-3 arg-5 (vector 1 arg-6 (vector 0 e-21 e-22) arg-8) (vector 1 arg-9 (vector 0 e-30 e-31) arg-11) eta-0)))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (Unify-Core-case--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))))))) ((2) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((2) (let ((e-34 (vector-ref sc1 1))) (let ((e-35 (vector-ref sc1 2))) (let ((e-36 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Unify-Core-isDefInvertible arg-0 arg-4 e-26 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--unifyBothApps-19385 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 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-26 e-35) (lambda () (Basics-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--unifyBothApps-19614 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--unifyBothApps-19694 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--unifyBothApps-19793 arg-2 arg-11 e-14 e-13 fy arg-9 arg-8 e-11 e-10 fx arg-6 arg-5 arg-4 e-1 e-0 mode arg-1 arg-0 (Name-Core-C-61C-61_Eq__Name e-11 e-14))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11)))))))))(else (Unify-Core-unifyApp arg-0 arg-1 arg-2 1 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 arg-9 arg-10 arg-11))))))))))))))))))) (define Unify-Core-unifyArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Unify-Core-success))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-6 "" eta-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Unify-Core-unifyArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((((((Unify-Core-unify 'erased (Builtin-fst 'erased 'erased arg-1) arg-2 arg-3 arg-4) (Unify-Core-lower arg-5)) arg-6) arg-7) e-2) e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Unify-Core-union e-8 e-5))))))))))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-6 "" eta-0))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-6 "" eta-0))))))) -(define Unify-Core-unifyApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-50 e-51 e-52 arg-9 arg-10 eta-0))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((2) (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (let ((e-48 (vector-ref sc1 3))) (lambda (eta-0) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-42 e-46 e-47 e-48 e-44 (vector 1 arg-7 arg-8 arg-9) eta-0))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Name against app, unifyIfEq")) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--unifyApp-18593 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 (Basics-Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-32 (vector-ref sc3 1))) (let ((e-33 (vector-ref sc3 2))) (let ((e-34 (vector-ref sc3 3))) (let ((sc4 e-33)) (case (vector-ref sc4 0) ((0) (let ((e-37 (vector-ref sc4 1))) (let ((e-38 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) ((Unify-Core-case--unifyApp-18688 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 (Types-Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc5 arg-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "unify.application" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Name against app, unifyIfEq")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--unifyApp-18593 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 (Basics-Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((1) (let ((e-32 (vector-ref sc2 1))) (let ((e-33 (vector-ref sc2 2))) (let ((e-34 (vector-ref sc2 3))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((0) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 e-34)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) ((Unify-Core-case--unifyApp-18688 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 (Types-Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc1 arg-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))) +(define Unify-Core-unifyApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-50 e-51 e-52 arg-9 arg-10 eta-0))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((2) (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (let ((e-48 (vector-ref sc1 3))) (lambda (eta-0) (Unify-Core-unifyHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-42 e-46 e-47 e-48 e-44 (vector 1 arg-7 arg-8 arg-9) eta-0))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Name against app, unifyIfEq") eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--unifyApp-18537 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 (Basics-Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-32 (vector-ref sc3 1))) (let ((e-33 (vector-ref sc3 2))) (let ((e-34 (vector-ref sc3 3))) (let ((sc4 e-33)) (case (vector-ref sc4 0) ((0) (let ((e-37 (vector-ref sc4 1))) (let ((e-38 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) ((Unify-Core-case--unifyApp-18632 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 (Types-Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc5 arg-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Name against app, unifyIfEq") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--unifyApp-18537 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 (Basics-Prelude-not arg-3)) eta-0)))))))))) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((1) (let ((e-32 (vector-ref sc2 1))) (let ((e-33 (vector-ref sc2 2))) (let ((e-34 (vector-ref sc2 3))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((0) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 e-34)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) ((Unify-Core-case--unifyApp-18632 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 (Types-Prelude-C-61C-61_Eq__Nat e-6 e-38)) eta-0))))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc4 arg-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc3 arg-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc2 arg-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((0) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((2) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((3) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((8) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10)) ((10) (Unify-Core-convertErrorS 'erased arg-2 arg-0 arg-3 arg-5 arg-6 (vector 1 arg-7 (vector 0 e-5 e-6) arg-9) arg-10))(else (let ((sc1 arg-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-7 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 1 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-10 (vector 1 arg-7 arg-8 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 0 0 arg-5 arg-4 "Postponing constraint" arg-6 (vector 1 arg-7 arg-8 arg-9) arg-10) eta-0))))))))))))))))))))))))))))) (define Unify-Core-unify (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-5) (lambda (arg-6) (lambda (arg-7) (lambda (arg-8) (lambda (arg-9) ((((((((e-1 arg-2) arg-3) arg-4) arg-5) arg-6) arg-7) arg-8) arg-9)))))))))) (define UnifyInfo-Unify-Core-umode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define Unify-Core-ufail (lambda (arg-0 arg-1 arg-2 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 arg-2) ext-0))) -(define Unify-Core-toSubVars (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--toSubVars-12495 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--toSubVars-12489 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) (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) arg-1))) (lambda () (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-0 arg-1))))) (define Unify-Core-solvedHole (lambda (arg-0) (vector 0 (vector 0 ) 0 (vector 1 arg-0 (vector 0 )) (vector 0 )))) -(define Unify-Core-solveIfUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 8 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((7) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-26 (Unify-Core-patternEnvTm arg-1 arg-2 arg-0 arg-3 e-4 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((_-0 (vector 1 (vector 7 e-9 e-8)))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (vector 1 1)) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (let ((e-15 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((bind-0 (vector 1 (vector 0 e-13 (vector 0 e-15 e-14))))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32solveIfUndefined-15567 arg-0 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 e-5 e-9 e-8 _-0 e-13 e-15 e-14 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-14)) eta-0)))))))))))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Unify-Core-solveHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Unify-Core-case--solveHole-17298 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--12901-17264-solutionHeadSame arg-2 arg-3 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 arg-15)) ext-0))))))))))))) -(define Unify-Core-solveConstraintsAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Unify-Core-retryGuess arg-0 arg-1 arg-3 arg-4 eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Unify-Core-n--23337-25311-afterStart arg-4 arg-3 arg-2 arg-1 arg-0 'erased eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 (Extra-Bool-Data-anyTrue e-6))) (cond ((equal? sc2 0) (Unify-Core-solveConstraintsAfter arg-0 arg-1 arg-2 arg-3 (vector 0 ) ext-0)) (else (vector 1 (vector 0 ))))))))))))))))) +(define Unify-Core-solveIfUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 8 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((7) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-26 (Unify-Core-patternEnvTm arg-1 arg-2 arg-0 arg-3 e-4 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((_-0 (vector 1 (vector 7 e-9 e-8)))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (vector 1 1)) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (let ((e-15 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((bind-0 (vector 1 (vector 0 e-13 (vector 0 e-15 e-14))))) ((Unify-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32solveIfUndefined-15535 arg-0 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 e-5 e-9 e-8 _-0 e-13 e-15 e-14 bind-0 (TT-Core-shrinkTerm 'erased 'erased arg-5 e-14)) eta-0)))))))))))))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Unify-Core-solveHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Unify-Core-case--solveHole-17246 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--12684-17212-solutionHeadSame arg-2 arg-3 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 arg-15)) ext-0))))))))))))) +(define Unify-Core-solveConstraintsAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Unify-Core-retryGuess arg-0 arg-1 arg-3 arg-4 eta-0)) (List-Data-filter 'erased (lambda (eta-0) (Unify-Core-n--22975-25149-afterStart arg-4 arg-3 arg-2 arg-1 arg-0 'erased eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 (Extra-Bool-Data-anyTrue e-6))) (cond ((equal? sc2 0) (Unify-Core-solveConstraintsAfter arg-0 arg-1 arg-2 arg-3 (vector 0 ) ext-0)) (else (vector 1 (vector 0 ))))))))))))))))) (define Unify-Core-solveConstraints (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Unify-Core-retryGuess arg-0 arg-1 arg-2 arg-3 eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 (Extra-Bool-Data-anyTrue e-6))) (cond ((equal? sc2 0) (Unify-Core-solveConstraints arg-0 arg-1 arg-2 (vector 0 ) ext-0)) (else (vector 1 (vector 0 ))))))))))))))))) (define Unify-Core-setInvertible (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 e-13 0 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) -(define Unify-Core-search (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-logTermNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 0))) (lambda () "Initial target: ") arg-9 arg-8) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-log arg-1 "auto" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Running search with defaults " (Show-Prelude-show_Show__Bool arg-5)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((AutoSearch-Core-searchType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-7 0 (Env-Core-abstractEnvType arg-0 arg-3 arg-9 arg-8) arg-9 arg-8) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Normalise-Core-logTermNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 0))) (lambda () "Result") arg-9 e-8) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))))))))))))))))))) -(define Unify-Core-retryGuess (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 e-2) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (vector 1 1)) (else (let ((e-4 (vector-ref sc4 1))) (let ((bind-0 (vector 1 e-4))) ((Unify-Core-case--caseC-32blockC-32inC-32retryGuess-23983 e-2 e-6 e-7 arg-3 arg-2 arg-1 arg-0 e-5 e-4 bind-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))))))))))))))))))))))) -(define Unify-Core-retry (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unify-Core-case--retry-23360 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-search (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Initial target: ") arg-9 arg-8 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Running search with defaults " (Show-Prelude-show_Show__Bool arg-5))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((AutoSearch-Core-searchType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-7 0 (Env-Core-abstractEnvType arg-0 arg-3 arg-9 arg-8) arg-9 arg-8) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Result") arg-9 e-8 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 e-8)))))))))))))))))))))))))))) +(define Unify-Core-retryGuess (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 e-2) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (vector 1 1)) (else (let ((e-4 (vector-ref sc4 1))) (let ((bind-0 (vector 1 e-4))) ((Unify-Core-case--caseC-32blockC-32inC-32retryGuess-23835 e-2 e-6 e-7 arg-3 arg-2 arg-1 arg-0 e-5 e-4 bind-0 (let ((sc5 e-4)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0))))))))))))))))))))))))) +(define Unify-Core-retry (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unify-Core-case--retry-23228 arg-0 arg-3 arg-2 arg-1 e-5 (IntMap-Data-lookup 'erased arg-3 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))) ext-0)))))))) (define UnifyInfo-Unify-Core-precise (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Unify-Core-postponeS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-postpone arg-0 arg-1 arg-2 arg-3 arg-5 (Unify-Core-lower arg-6) arg-7 arg-8 arg-10 arg-9 eta-0))) (else (lambda (eta-0) (Unify-Core-postpone arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-0))))))) (define Unify-Core-postponePatVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((x (vector 1 arg-5 (vector 2 arg-7 arg-8 arg-9) arg-10))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 x arg-11 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (vector 1 (Unify-Core-success))) (else ((Unify-Core-postponeS arg-2 arg-0 arg-1 1 arg-3 arg-5 arg-4 "Not in pattern fragment" arg-6 x arg-11) eta-0)))))))))))))))))) -(define Unify-Core-postpone (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-logC arg-1 "unify.postpone" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-8 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-9 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-7 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-8 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 arg-6 (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) (Strings-Types-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-10))))))))))))))))))))))))))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((Unify-Core-n--8220-11684-checkDefined arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 arg-8) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((Unify-Core-n--8220-11684-checkDefined arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 arg-9) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 arg-8 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 arg-9 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((sc7 arg-3)) (cond ((equal? sc7 0) (let ((xmetas (TT-Core-getMetas 'erased e-10))) ((Unify-Core-chaseMetas arg-1 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas e-11)) (NameMap-Data-empty 'erased)) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Unify-Core-n--8220-11685-undefinedN arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0 eta-1))) e-12) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (UnifyState-Core-addConstraint arg-2 arg-1 (vector 0 arg-0 arg-4 (let ((sc9 arg-5)) (let ((e-0 (vector-ref sc9 1))) e-0)) e-13 arg-7 e-10 e-11) ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 ((Context-Core-log arg-1 "unify.postpone" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-14) (Strings-Types-Prelude-C-43C-43 " NEW CONSTRAINT " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Types-Prelude-C-43C-43 " blocked on " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-12))))))) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (Context-Core-logTerm arg-0 arg-1 "unify.postpone" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") e-10 ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-36 (Context-Core-logTerm arg-0 arg-1 "unify.postpone" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") e-11 ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-constrain e-14))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Unify-Core-patternEnvTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Unify-Core-case--patternEnvTm-12942 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 (Unify-Core-getVarsTm 'erased (vector 0 ) arg-4)) ext-0))))))))))))) -(define Unify-Core-patternEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalArg arg-2 e-6 eta-0)) arg-4) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Unify-Core-case--patternEnv-12667 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 e-7 (Unify-Core-getVars arg-2 (vector 0 ) e-7)) ext-0)))))))))))))))))) -(define Unify-Core-occursCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Unify-Core-getMetaNames 'erased arg-1 arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unify-Core-case--occursCheck-13246 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (Name-Core-C-61C-61_Eq__Name arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Name-Core-C-47C-61_Eq__Name arg-7 arg-8)))) arg-5 e-5)) ext-0)))))))) +(define Unify-Core-postpone (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-8 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-9 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-7 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-8 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 arg-6 (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) (Strings-Types-Prelude-C-43C-43 " =?= " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-10))))))))))))))))))))))))))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((Unify-Core-n--8042-11686-checkDefined arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 arg-8) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((Unify-Core-n--8042-11686-checkDefined arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 arg-9) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 arg-8 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 arg-9 ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((sc7 arg-3)) (cond ((equal? sc7 0) (let ((xmetas (TT-Core-getMetas 'erased e-10))) ((Unify-Core-chaseMetas arg-1 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas e-11)) (NameMap-Data-empty 'erased)) ext-0))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Unify-Core-n--8042-11687-undefinedN arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0 eta-1))) e-12) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (UnifyState-Core-addConstraint arg-2 arg-1 (vector 0 arg-0 arg-4 (let ((sc9 arg-5)) (let ((e-0 (vector-ref sc9 1))) e-0)) e-13 arg-7 e-10 e-11) ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-14) (Strings-Types-Prelude-C-43C-43 " NEW CONSTRAINT " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Types-Prelude-C-43C-43 " blocked on " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-12)))))) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-35 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") e-10 ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-36 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") e-11 ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (vector 1 (Unify-Core-constrain e-14))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Unify-Core-patternEnvTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Unify-Core-case--patternEnvTm-12936 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 (Unify-Core-getVarsTm 'erased (vector 0 ) arg-4)) ext-0))))))))))))) +(define Unify-Core-patternEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalArg arg-2 e-6 eta-0)) arg-4) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Unify-Core-case--patternEnv-12661 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 e-7 (Unify-Core-getVars arg-2 (vector 0 ) e-7)) ext-0)))))))))))))))))) +(define Unify-Core-occursCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Unify-Core-getMetaNames 'erased arg-1 arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Unify-Core-case--occursCheck-13240 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (Name-Core-C-61C-61_Eq__Name arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Name-Core-C-47C-61_Eq__Name arg-7 arg-8)))) arg-5 e-5)) ext-0)))))))) (define UnifyResult-Unify-Core-namesSolved (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define Unify-Core-lower (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 1 e-1 e-2)))))) (define Unify-Core-lam (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 0 e-2)))))) (define Unify-Core-isHoleApp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) 0)(else 1)))))(else 1))))) (define Unify-Core-isDefInvertible (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 arg-2) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-1)) (let ((e-14 (vector-ref sc3 15))) e-14))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 (vector 8 arg-2)) ext-0)))))))))))))))) -(define Unify-Core-instantiate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (Context-Core-logTerm arg-3 arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Instantiating in " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3))) arg-13 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Unify-Core-case--instantiate-15276 arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 e-5 (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((ty (let ((sc2 arg-10)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Type: " (Name-Core-show_Show__Name arg-7))) ty ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((Context-Core-log arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "With locs: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) arg-11)))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((Context-Core-log arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "From vars: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3)))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (unbox arg-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((Unify-Core-n--10274-13560-mkDef arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 (vector 0 ) arg-3 arg-11 (vector 0 ) arg-13 ty) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Context-Core-logTerm (vector 0 ) arg-0 "unify.instantiate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Definition") e-11 ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((simpleDef (vector 0 (vector 1 arg-9) (Unify-Core-n--10274-13557-isSimple arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 'erased e-11)))) (let ((newdef (let ((sc8 arg-10)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-28 (vector-ref sc8 6))) (let ((e-27 (vector-ref sc8 7))) (let ((e-26 (vector-ref sc8 8))) (let ((e-25 (vector-ref sc8 9))) (let ((e-24 (vector-ref sc8 10))) (let ((e-23 (vector-ref sc8 11))) (let ((e-22 (vector-ref sc8 12))) (let ((e-21 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-13 e-14 e-15 e-16 (vector 1 simpleDef (vector 0 ) (vector 1 0 e-11) (vector 1 0 e-11) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-32 (Context-Core-addDef arg-0 (vector 8 arg-8) newdef ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (UnifyState-Core-removeHole arg-1 arg-8 ext-0)))))))))))))))))))))))))))))))))))))))))))) +(define Unify-Core-instantiate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 (Context-Core-logTerm arg-3 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Instantiating in " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3))) arg-13 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Unify-Core-case--instantiate-15244 arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 e-5 (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((ty (let ((sc2 arg-10)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Type: " (Name-Core-show_Show__Name arg-7))) ty ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "With locs: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) arg-11))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "From vars: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (unbox arg-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((Unify-Core-n--10088-13554-mkDef arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 (vector 0 ) arg-3 arg-11 (vector 0 ) arg-13 ty) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Definition") e-11 ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((simpleDef (vector 0 (vector 1 arg-9) (Unify-Core-n--10088-13551-isSimple arg-2 arg-3 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-1 arg-0 'erased e-11)))) (let ((newdef (let ((sc8 arg-10)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-28 (vector-ref sc8 6))) (let ((e-27 (vector-ref sc8 7))) (let ((e-26 (vector-ref sc8 8))) (let ((e-25 (vector-ref sc8 9))) (let ((e-24 (vector-ref sc8 10))) (let ((e-23 (vector-ref sc8 11))) (let ((e-22 (vector-ref sc8 12))) (let ((e-21 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-28 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-13 e-14 e-15 e-16 (vector 1 simpleDef (vector 0 ) (vector 1 0 e-11) (vector 1 0 e-11) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-32 (Context-Core-addDef arg-0 (vector 8 arg-8) newdef ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (UnifyState-Core-removeHole arg-1 arg-8 ext-0)))))))))))))))))))))))))))))))))))))))))))) (define Unify-Core-inTermP (lambda (arg-0) (vector 0 0 arg-0 (vector 1 )))) (define Unify-Core-inTerm (lambda () (vector 0 0 0 (vector 1 )))) (define Unify-Core-inSearch (lambda () (vector 0 0 0 (vector 3 )))) @@ -4632,35 +4558,35 @@ (define Unify-Core-inLHS (lambda () (vector 0 0 0 (vector 0 )))) (define Unify-Core-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3)))))) (define UnifyResult-Unify-Core-holesSolved (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define Unify-Core-headsConvert (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Unify-Core-case--headsConvert-16207 arg-0 e-1 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 (List-Data-reverse 'erased e-1) (List-Data-reverse 'erased e-3)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-1 "unify.head" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing to convert")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-1 "unify.head" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing to convert")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) -(define Unify-Core-giveUpConstraints (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--23385-25354-constraintToHole arg-1 arg-0 eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) ext-0)))))))) -(define Unify-Core-getVarsTm (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--getVarsTm-12771 'erased 'erased e-8 'erased e-7 e-6 e-3 arg-1 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Types-Prelude-C-61C-61_Eq__Nat arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-47C-61_Eq__Nat arg-4 arg-5)))) 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--getVars-12366 arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 (Unify-Core-n--8922-12352-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 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Unify-Core-case--headsConvert-16169 arg-0 e-1 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 (List-Data-reverse 'erased e-1) (List-Data-reverse 'erased e-3)))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing to convert") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing to convert") eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) +(define Unify-Core-giveUpConstraints (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--23023-25192-constraintToHole arg-1 arg-0 eta-0)) (IntMap-Data-toList 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1)))) ext-0)))))))) +(define Unify-Core-getVarsTm (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--getVarsTm-12765 'erased 'erased e-8 'erased e-7 e-6 e-3 arg-1 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Types-Prelude-C-61C-61_Eq__Nat arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-47C-61_Eq__Nat arg-4 arg-5)))) 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--getVars-12360 arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 (Unify-Core-n--8736-12346-inArgs arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 e-16 arg-1)))(else (vector 0 )))))))(else (vector 0 )))))))) ((4) (let ((e-12 (vector-ref sc1 4))) (Unify-Core-getVars arg-0 arg-1 (vector 1 e-12 e-3))))(else (vector 0 ))))))))))) (define Unify-Core-getMetaNames (lambda (arg-0 arg-1 arg-2) (let ((metas (TT-Core-getMetas 'erased arg-2))) (Unify-Core-chaseMetas arg-1 (NameMap-Data-keys 'erased metas) (NameMap-Data-empty 'erased))))) (define Unify-Core-getIVars (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 e-4 (Unify-Core-getIVars 'erased 'erased e-5))))))))) -(define Unify-Core-getEtaType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unify-Core-getEtaType (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))))) (else (vector 1 (vector 0 ))))))))))))))) ((4) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType arg-0 arg-1 arg-3 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logGlue arg-0 arg-1 "unify.eta" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-3 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 3))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-11 (vector-ref sc5 4))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((act-28 (Context-Core-clearDefs e-15 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-16 (vector-ref sc7 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc7 1))) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 e-16 arg-3 e-11 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 1 e-17)))))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Unify-Core-getArgTypes (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 4))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-5 arg-1) e-12) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) ((Unify-Core-getArgTypes 'erased arg-1 e-6 e-13) eta-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 1 e-10 e-1))))) (else (vector 1 (vector 0 ))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) +(define Unify-Core-getEtaType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Unify-Core-getEtaType (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))))) (else (vector 1 (vector 0 ))))))))))))))) ((4) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((GetType-Core-getType arg-0 arg-1 arg-3 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-3 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 3))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-11 (vector-ref sc5 3))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-28 (Context-Core-clearDefs e-14 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc7 1))) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-3 e-11 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 1 e-16)))))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Unify-Core-getArgTypes (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 3))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-5 arg-1) e-11) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) ((Unify-Core-getArgTypes 'erased arg-1 e-6 e-12) eta-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 1 e-9 e-1))))) (else (vector 1 (vector 0 ))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) (define Unify-Core-forceMeta (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 8 (TT-Core-getLoc 'erased arg-3) arg-1 arg-3))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 3 e-2 e-3 e-4 (Unify-Core-forceMeta 'erased arg-1 e-0 e-5)))))))(else (vector 8 (TT-Core-getLoc 'erased arg-3) arg-1 arg-3)))))))))) (define Unify-Core-delayMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 7 (TT-Core-getLoc 'erased arg-4) arg-1 arg-3 arg-4))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 3 e-2 e-3 e-4 (Unify-Core-delayMeta (vector 1 e-3 arg-0) arg-1 e-0 (TT-Core-weaken_Weaken__Term e-3 arg-0 arg-3) e-5)))))))(else (vector 7 (TT-Core-getLoc 'erased arg-4) arg-1 arg-3 arg-4)))))))))) (define Unify-Core-convertErrorS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-convertError 'erased arg-1 arg-2 arg-4 arg-5 arg-7 arg-6 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-1 arg-2 arg-4 arg-5 arg-6 arg-7 eta-0))))))) (define Unify-Core-convertError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-1 e-6 arg-4 arg-5 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-1 e-6 arg-4 arg-6 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-1 arg-3 arg-4 e-7 e-8) ext-0))))))))))))))))))))))) (define UnifyResult-Unify-Core-constraints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define Unify-Core-constrain (lambda (arg-0) (vector 0 (vector 1 arg-0 (vector 0 )) 1 (vector 0 ) (vector 0 )))) -(define Unify-Core-checkDots (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (UnifyState-Core-getCurrentHoles arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--23818-25742-checkConstraint arg-1 arg-0 eta-0)) (List-Data-reverse 'erased (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 6))) e-11)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (UnifyState-Core-getCurrentHoles arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (set-box! arg-0 (let ((sc5 e-9)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-11 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-13 e-12 e-11 e-10)))))))))))))) (vector 1 act-29)))))))))))))))))))))))))) -(define Unify-Core-checkArgsSame (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 8 e-2) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-26 ((Unify-Core-n--23513-25485-anySame e-2 e-3 arg-1 arg-0 e-11 e-3) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (vector 1 0)) (else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))))))))))))))))) -(define Unify-Core-chaseMetas (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (NameMap-Data-keys 'erased arg-2)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--chaseMetas-11564 e-2 e-3 arg-2 arg-0 (NameMap-Data-lookup 'erased e-2 arg-2))))))))) +(define Unify-Core-checkDots (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (UnifyState-Core-getCurrentHoles arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--23456-25580-checkConstraint arg-1 arg-0 eta-0)) (List-Data-reverse 'erased (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 6))) e-11)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (UnifyState-Core-getCurrentHoles arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (set-box! arg-0 (let ((sc5 e-9)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-11 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-13 e-12 e-11 e-10)))))))))))))) (vector 1 act-29)))))))))))))))))))))))))) +(define Unify-Core-checkArgsSame (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 8 e-2) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-26 ((Unify-Core-n--23151-25323-anySame e-2 e-3 arg-1 arg-0 e-11 e-3) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (vector 1 0)) (else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0))))))(else ((Unify-Core-checkArgsSame arg-0 arg-1 e-3) eta-0)))))))))))))))))))))) +(define Unify-Core-chaseMetas (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (NameMap-Data-keys 'erased arg-2)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--chaseMetas-11566 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--chk-3577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed type") eta-0))))))) -(define GetType-Core-case--chk-3430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((GetType-Core-chk arg-0 arg-5 arg-4 arg-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-11))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-6) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0)))))))))))) +(define GetType-Core-case--chk-3575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed type") eta-0))))))) +(define GetType-Core-case--chk-3430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((GetType-Core-chk arg-0 arg-5 arg-4 arg-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-10))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-6) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-3 arg-4 e-5) eta-0)))))))))))) (define GetType-Core-case--chk-3317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-7 arg-5 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((GetType-Core-chkMeta arg-0 arg-6 arg-4 arg-5 e-5 arg-1) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0))))))) (define GetType-Core-case--chk-3255 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-1) eta-0))))))) (define GetType-Core-getType (lambda (arg-0 arg-1 arg-2 arg-3) (GetType-Core-chk arg-0 arg-1 arg-2 arg-3))) -(define GetType-Core-discharge (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (vector 3 arg-1 arg-2 (vector 2 e-1 e-2 e-3 e-4) arg-5)))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (vector 3 arg-1 arg-2 (vector 1 e-6 e-7 e-8 e-9) arg-5)))))) ((2) arg-4) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (vector 3 arg-1 arg-2 (vector 5 e-16 e-17 e-19) arg-5))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (vector 3 arg-1 arg-2 (vector 4 e-21 e-22 e-23 e-24) arg-5)))))) (else arg-4))))) -(define GetType-Core-chkMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-3 arg-4)))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((GetType-Core-chk arg-0 arg-1 arg-3 e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-11)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) ((GetType-Core-chkMeta arg-0 arg-1 arg-2 arg-3 e-13 e-12) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-10) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-6) eta-0))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-6) eta-0)))))))))))))))))))) +(define GetType-Core-discharge (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 2 e-1 e-2 e-3) arg-5))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 1 e-5 e-6 e-7) arg-5))))) ((2) arg-4) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 5 e-13 e-15) arg-5)))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (vector 3 arg-1 arg-2 (vector 4 e-17 e-18 e-19) arg-5))))) (else arg-4))))) +(define GetType-Core-chkMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-3 arg-4)))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((GetType-Core-chk arg-0 arg-1 arg-3 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((act-26 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-10)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) ((GetType-Core-chkMeta arg-0 arg-1 arg-2 arg-3 e-12 e-11) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-9) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-6) eta-0))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 arg-2 arg-3 e-6) eta-0)))))))))))))))))))) (define GetType-Core-chkConstant (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 9 arg-1 (vector 10 ))) ((1) (vector 9 arg-1 (vector 11 ))) ((2) (vector 9 arg-1 (vector 12 ))) ((3) (vector 9 arg-1 (vector 13 ))) ((4) (vector 9 arg-1 (vector 14 ))) ((5) (vector 9 arg-1 (vector 15 ))) ((6) (vector 9 arg-1 (vector 16 ))) ((7) (vector 9 arg-1 (vector 17 ))) ((8) (vector 9 arg-1 (vector 18 ))) ((9) (vector 9 arg-1 (vector 19 )))(else (vector 11 arg-1)))))) (define GetType-Core-chkBinder (lambda (arg-0 arg-1 arg-2 arg-3) (GetType-Core-chk arg-0 arg-1 arg-2 (TT-Core-binderType 'erased arg-3)))) -(define GetType-Core-chk (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3641) (TT-Core-weaken_Weaken__Term n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (TT-Core-weakenNs_Weaken__Term vars ns arg-3645))))) arg-0 e-4 'erased arg-2))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-embed 'erased 'erased e-1))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-7 e-9) eta-0)))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact (vector 8 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-2 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((GetType-Core-chkMeta arg-0 arg-1 e-11 arg-2 e-7 e-14) eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-11 e-12) eta-0)))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chkBinder arg-0 arg-1 arg-2 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((GetType-Core-chk (vector 1 e-17 arg-0) arg-1 (vector 1 e-18 arg-2) e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-discharge 'erased e-16 e-17 e-18 e-7 e-8))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chk arg-0 arg-1 arg-2 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((GetType-Core-chk arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((act-28 (((e-4 e-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 e-23)) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-11 arg-2 e-13)))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0)))))))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (GetType-Core-chk arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased e-30))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chk arg-0 arg-1 arg-2 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-7 arg-2 (vector 5 e-34 e-35 e-6))))))))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chk arg-0 arg-1 arg-2 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((5) (let ((e-3 (vector-ref sc3 3))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-7 arg-2 e-3)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-39 "Not a delayed type") eta-0)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-chkConstant 'erased e-43 e-44))))))) ((11) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased e-46))))) (else (let ((e-48 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gErased 'erased e-48))))))))) +(define GetType-Core-chk (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3584) (TT-Core-weaken_Weaken__Term n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (TT-Core-weakenNs_Weaken__Term vars ns arg-3588))))) arg-0 e-4 'erased arg-2))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (TT-Core-embed 'erased 'erased e-1))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-7 e-9) eta-0)))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact (vector 8 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-2 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) ((GetType-Core-chkMeta arg-0 arg-1 e-11 arg-2 e-7 e-14) eta-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-11 e-12) eta-0)))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chkBinder arg-0 arg-1 arg-2 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((GetType-Core-chk (vector 1 e-17 arg-0) arg-1 (vector 1 e-18 arg-2) e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-discharge 'erased e-16 e-17 e-18 e-7 e-8))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chk arg-0 arg-1 arg-2 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((2) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 ((GetType-Core-chk arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((act-28 (((e-4 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 e-23)) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-2 e-12)))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 39 arg-0 e-21 arg-2 e-7) eta-0)))))))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (GetType-Core-chk arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased e-30))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chk arg-0 arg-1 arg-2 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-7 arg-2 (vector 5 e-34 e-35 e-6))))))))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GetType-Core-chk arg-0 arg-1 arg-2 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((5) (let ((e-3 (vector-ref sc3 3))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Normalise-Core-glueBack arg-0 e-7 arg-2 e-3)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-39 "Not a delayed type") eta-0)))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-chkConstant 'erased e-43 e-44))))))) ((11) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gType 'erased e-46))))) (else (let ((e-48 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Normalise-Core-gErased 'erased e-48))))))))) (define Metadata-Core-case--caseC-32blockC-32inC-32readMetadata-3636 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-1)))))) (define Metadata-Core-case--readMetadata-3613 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-fromBuf_TTC__TTMFile e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) (vector 1 e-1)))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 arg-0 (Strings-Types-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) (define Metadata-Core-case--readFromTTM-3557 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-fromBuf_TTC__TTMFile e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (set-box! arg-1 (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (vector 1 act-26))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 arg-0 (Strings-Types-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0)))))))) @@ -4673,15 +4599,15 @@ (define Metadata-Core-case--addTyDecl-2642 (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--addNameType-2565 (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--addLHS-2473 (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--8471-2402-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))) (let ((e-10 (vector-ref sc1 4))) (vector 1 (vector 3 e-7 e-8 e-9 e-10) (Metadata-Core-n--8471-2402-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--8471-2402-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--9072-2959-nfType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseArgHoles (vector 0 ) arg-2 (vector 0 ) e-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5))))))))))))))))))))) -(define Metadata-Core-n--9256-3143-fullTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-10 e-8)))))))))))))))))))))))))) -(define Metadata-Core-n--9256-3142-fullLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-5))))))))))))))))) -(define Metadata-Core-n--9256-3144-fullHLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))))))) +(define Metadata-Core-n--8293-2402-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--8293-2402-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--8293-2402-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--8893-2959-nfType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseArgHoles (vector 0 ) arg-2 (vector 0 ) e-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5))))))))))))))))))))) +(define Metadata-Core-n--9077-3143-fullTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-2 (vector 0 e-5 (vector 0 e-10 e-8)))))))))))))))))))))))))) +(define Metadata-Core-n--9077-3142-fullLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 e-5))))))))))))))))) +(define Metadata-Core-n--9077-3144-fullHLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-5 e-6)))))))))))))))))) (define Metadata-Core-toBuf_TTC__TTMFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Binary-Utils-toBuf_TTC__String arg-0 "TTM") ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__Int arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Metadata-Core-toBuf_TTC__Metadata arg-0 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) e-1)) ext-0))))))))))) (define Metadata-Core-toBuf_TTC__Metadata (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__FC arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__FC arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__FC arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Nat arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2183 eta-0)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2183 eta-0))))) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Nat arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-1))))) arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Nat arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__FC arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Nat arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2177 arg-2179))) (lambda (arg-2182) (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-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2183 eta-3)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2183 eta-3))))) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__FC arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Nat arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2183 eta-0)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2183 eta-0))))) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Nat arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-1))))) arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Nat arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__FC arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Nat arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2177 arg-2179))) (lambda (arg-2182) (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-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2183 eta-3)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2183 eta-3))))) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2181 eta-1))))) arg-2180 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-Types-Prelude-C-43C-43 "Metadata:\u000a" (Strings-Types-Prelude-C-43C-43 " lhsApps: " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Show-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-Types-Prelude-C-43C-43 "\u000a" (Strings-Types-Prelude-C-43C-43 " names: " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-2) (lambda (x-2) (Show-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-Types-Prelude-C-43C-43 "\u000a" (Strings-Types-Prelude-C-43C-43 " type declarations: " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-0) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-1) (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-Prelude-show_Show__Nat x-2)) (lambda (d-2) (lambda (x-2) (Show-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-Types-Prelude-C-43C-43 "\u000a" (Strings-Types-Prelude-C-43C-43 " current LHS: " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 "\u000a" (Strings-Types-Prelude-C-43C-43 " holes: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0))))) d x)))) e-4))))))))))))))))))))))) -(define Metadata-Core-full_HasNames__Metadata (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9256-3142-fullLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9256-3143-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9256-3143-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9256-3144-fullHLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 (vector 0 ) e-8))))))))))))))))))))))))))))))) +(define Metadata-Core-full_HasNames__Metadata (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9077-3142-fullLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9077-3143-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9077-3143-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--9077-3144-fullHLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-5 e-6 e-7 (vector 0 ) e-8))))))))))))))))))))))))))))))) (define Metadata-Core-fromBuf_TTC__TTMFile (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 (EqOrd-Prelude-C-47C-61_Eq__String e-5 "TTM"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased "TTM header" ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Binary-Core-checkTTCVersion "" e-7 (Binary-Core-ttcVersion)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Metadata-Core-fromBuf_TTC__Metadata arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 e-7 e-9))))))))))))))))))))))))))) (define Metadata-Core-fromBuf_TTC__Metadata (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__FC arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__FC arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__FC arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Nat arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2183 eta-0)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2183 eta-0))))) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Nat arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-1))))) arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Nat arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__FC arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Nat arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2177 arg-2179))) (lambda (arg-2182) (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-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2183 eta-3)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2183 eta-3))))) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__FC arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Nat arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2183 eta-0)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2183 eta-0))))) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Nat arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-1))))) arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Nat arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__FC arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Nat arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2182 eta-2))))) arg-2177 arg-2179))) (lambda (arg-2182) (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-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2183 eta-3)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2183 eta-3))))) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-6 e-7 (vector 0 ) e-8)))))))))))))))))))))))) (define Metadata-Core-__Impl_TTC_TTMFile (lambda () (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Metadata-Core-toBuf_TTC__TTMFile arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Metadata-Core-fromBuf_TTC__TTMFile arg-2180 eta-0)))))) @@ -4693,7 +4619,7 @@ (define Metadata-Core-setHoleLHS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 5))) (vector 0 e-0 e-1 e-2 (vector 1 arg-1) e-4))))))))) (vector 1 act-25))))))))) (define Metadata-Core-readMetadata (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-0 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Metadata-Core-fromBuf_TTC__TTMFile e-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) (vector 1 e-1))))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 arg-0 (Strings-Types-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-6)))) ext-0)))))))))))) (define Metadata-Core-readFromTTM (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-1 ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Metadata-Core-fromBuf_TTC__TTMFile e-6 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (set-box! arg-0 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))))) (vector 1 act-27)))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 arg-1 (Strings-Types-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-6)))) ext-0)))))))))))) -(define Metadata-Core-normaliseTypes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Metadata-Core-n--9072-2959-nfType arg-1 arg-0 e-6 eta-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (vector 0 e-0 e-7 e-2 e-3 e-4))))))))) (vector 1 act-27))))))))))))))))))) +(define Metadata-Core-normaliseTypes (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Metadata-Core-n--8893-2959-nfType arg-1 arg-0 e-6 eta-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (set-box! arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (vector 0 e-0 e-7 e-2 e-3 e-4))))))))) (vector 1 act-27))))))))))))))))))) (define Metadata-Metadata-Core-names (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define TTMFile-Metadata-Core-metadata (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Metadata-Metadata-Core-lhsApps (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) @@ -4704,420 +4630,421 @@ (define Metadata-Core-findLHSAt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Metadata-Core-findEntryWith 'erased (lambda (loc) (lambda (tm) ((arg-1 loc) (Builtin-snd 'erased 'erased tm)))) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))))) (define Metadata-Core-findHoleLHS (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (List-Data-lookupBy 'erased 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) arg-1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4))))))))))) (define Metadata-Core-findEntryWith (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Metadata-Core-case--findEntryWith-2822 'erased e-6 e-7 e-3 arg-1 ((arg-1 e-6) e-7)))))))))))) -(define Metadata-Core-dumpTTM (lambda (arg-0 ext-0) (let ((act-24 (Metadata-Core-readMetadata arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-25 (arg-317 eta-0))) ((arg-318 act-25) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Metadata-Core-show_Show__Metadata e-5)) ext-0))) (vector 1 act-25))))))))) +(define Metadata-Core-dumpTTM (lambda (arg-0 ext-0) (let ((act-24 (Metadata-Core-readMetadata arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-25 (arg-274 eta-0))) ((arg-275 act-25) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Metadata-Core-show_Show__Metadata e-5)) ext-0))) (vector 1 act-25))))))))) (define Metadata-Metadata-Core-currentLHS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define Metadata-Core-clearHoleLHS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 5))) (vector 0 e-0 e-1 e-2 (vector 0 ) e-4))))))))) (vector 1 act-25))))))))) (define Metadata-Core-addTyDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-getFullName arg-1 arg-4) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (vector 0 e-0 e-1 (vector 1 (vector 0 arg-3 (vector 0 e-6 (vector 0 (Env-Core-length 'erased 'erased arg-5) (Env-Core-bindEnv arg-0 arg-3 arg-5 arg-6)))) e-2) e-3 e-4)))))))))) (vector 1 act-26)))))))))))))) (define Metadata-Core-addNameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-getFullName arg-1 arg-4) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (vector 0 e-0 (vector 1 (vector 0 arg-3 (vector 0 e-6 (vector 0 0 (Metadata-Core-substEnv arg-0 arg-3 arg-5 arg-6)))) e-1) e-2 e-3 e-4)))))))))) (vector 1 act-26)))))))))))))) -(define Metadata-Core-addLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) (Env-Core-bindEnv arg-0 arg-3 (Metadata-Core-n--8471-2402-toPat arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-5) arg-6) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (vector 0 (vector 1 (vector 0 arg-3 (vector 0 arg-4 e-6)) e-0) e-1 e-2 e-3 e-4)))))))))) (vector 1 act-26)))))))))))))) -(define Rewrite-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRewrite-4236 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-2)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-5)))))))))))))))) -(define Rewrite-Elab-TTImp-case--caseC-32blockC-32inC-32checkRewrite-4059 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((pbind (vector 1 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-6 e-7))) (let ((rbind (vector 1 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-14) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-17)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased e-8 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-5 (vector 1 e-8 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-5 (vector 1 e-8 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-5 (vector 1 e-8 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-8 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-2) (vector 1 (vector 0 arg-4 e-8) (vector 1 (vector 0 arg-4 e-5) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-5 (vector 1 e-8 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-18))))) eta-1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-10)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-11)))))))))))))))))))))))))))))))))))))))) -(define Rewrite-Elab-TTImp-case--checkRewrite-3986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-13)) (cond ((equal? sc3 0) ((Context-Core-log arg-12 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite")) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-12 arg-10 arg-4 arg-5 e-6 e-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-29 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((pbind (vector 1 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-11 e-10))) (let ((rbind (vector 1 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-2) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-5)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-30 (Check-Elab-TTImp-inScope 'erased e-13 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-12 (vector 1 e-13 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-12 (vector 1 e-13 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-12 (vector 1 e-13 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-13 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-9) (vector 1 (vector 0 arg-4 e-13) (vector 1 (vector 0 arg-4 e-12) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-12 (vector 1 e-13 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) e-6))))) eta-1))) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (let ((sc10 e-14)) (let ((e-16 (vector-ref sc10 1))) (let ((e-15 (vector-ref sc10 2))) (let ((act-31 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (vector 1 (vector 0 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-16)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-17)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Rewrite-Elab-TTImp-case--elabRewrite-3754 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Rewrite-Elab-TTImp-findRewriteLemma 'erased arg-6 arg-4 arg-1 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-7 arg-3 arg-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-6 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-3 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Normalise-Core-logNF arg-0 arg-6 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting in") arg-3 e-8 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Normalise-Core-replace arg-0 arg-7 arg-3 e-2 (vector 1 arg-4 (vector 0 ) arg-8) e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (Context-Core-logTerm arg-0 arg-6 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") e-11 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (Context-Core-clearDefs arg-7 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-13 arg-3 e-7 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((pred (vector 3 arg-4 arg-8 (vector 0 arg-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-14) (TT-Core-refsToLocals 'erased (vector 1 arg-8 (vector 0 )) (vector 1 arg-8 arg-8 (vector 0 )) e-11)))) (let ((act-32 ((GetType-Core-getType arg-0 arg-6 arg-3 pred) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-34 (Normalise-Core-quote_Quote__Term arg-0 arg-7 arg-3 arg-2 eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-35 (let ((act-35 (Normalise-Core-convert_Convert__Term arg-0 arg-7 arg-3 e-11 e-17 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc13 1))) (let ((sc14 e-18)) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 40 arg-0 arg-4 arg-3 arg-1 e-17) eta-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-5 (vector 0 pred e-16)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Metadata-Core-addLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) (Env-Core-bindEnv arg-0 arg-3 (Metadata-Core-n--8293-2402-toPat arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-5) arg-6) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (vector 0 (vector 1 (vector 0 arg-3 (vector 0 arg-4 e-6)) e-0) e-1 e-2 e-3 e-4)))))))))) (vector 1 act-26)))))))))))))) +(define Rewrite-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRewrite-4228 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-2)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 arg-25 arg-26 (vector 3 arg-4 arg-24 arg-27 e-5)))))))))))))))) +(define Rewrite-Elab-TTImp-case--caseC-32blockC-32inC-32checkRewrite-4051 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-6 e-7))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-14) (TT-Core-weaken_Weaken__Term e-8 arg-0 arg-17)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased e-8 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-5 (vector 1 e-8 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-5 (vector 1 e-8 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-5 (vector 1 e-8 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-8 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-2) (vector 1 (vector 0 arg-4 e-8) (vector 1 (vector 0 arg-4 e-5) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-5 (vector 1 e-8 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-18))))) eta-1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-10)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-8 pbind (vector 3 arg-4 e-5 rbind e-11)))))))))))))))))))))))))))))))))))))))) +(define Rewrite-Elab-TTImp-case--checkRewrite-3980 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-13)) (cond ((equal? sc3 0) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-12 arg-10 arg-4 arg-5 e-6 e-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-29 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-11 e-10))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-2) (TT-Core-weaken_Weaken__Term e-13 arg-0 e-5)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-5)))) (let ((act-30 (Check-Elab-TTImp-inScope 'erased e-13 arg-0 arg-12 arg-9 arg-4 (vector 1 pbind arg-5) (lambda (eC-39) (lambda (eta-1) (Check-Elab-TTImp-inScope 'erased e-12 (vector 1 e-13 arg-0) arg-12 eC-39 arg-4 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-12 (vector 1 e-13 arg-0)) arg-12 arg-11 arg-10 eC-39C-39 arg-8 arg-7 (TTImp-TTImp-weaken_Weaken__NestedNames e-12 (vector 1 e-13 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-13 arg-0 arg-6)) envC-39 (TTImp-TTImp-apply (vector 0 arg-4 e-9) (vector 1 (vector 0 arg-4 e-13) (vector 1 (vector 0 arg-4 e-12) (vector 1 arg-2 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-12 (vector 1 e-13 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) e-6))))) eta-1))) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (let ((sc10 e-14)) (let ((e-16 (vector-ref sc10 1))) (let ((e-15 (vector-ref sc10 2))) (let ((act-31 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (vector 1 (vector 0 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-16)) (Normalise-Core-gnf arg-0 arg-5 (vector 3 arg-4 e-13 pbind (vector 3 arg-4 e-12 rbind e-17)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Rewrite-Elab-TTImp-case--elabRewrite-3754 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Rewrite-Elab-TTImp-findRewriteLemma 'erased arg-6 arg-4 arg-1 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-7 arg-3 arg-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-3 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting in") arg-3 e-8 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Normalise-Core-replace arg-0 arg-7 arg-3 e-2 (vector 1 arg-4 (vector 0 ) arg-8) e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (Context-Core-logTerm arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") e-11 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (Context-Core-clearDefs arg-7 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-13 arg-3 e-7 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((pred (vector 3 arg-4 arg-8 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-14) (TT-Core-refsToLocals 'erased (vector 1 arg-8 (vector 0 )) (vector 1 arg-8 arg-8 (vector 0 )) e-11)))) (let ((act-32 ((GetType-Core-getType arg-0 arg-6 arg-3 pred) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-34 (Normalise-Core-quote_Quote__Term arg-0 arg-7 arg-3 arg-2 eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-35 (let ((act-35 (Normalise-Core-convert_Convert__Term arg-0 arg-7 arg-3 e-11 e-17 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc13 1))) (let ((sc14 e-18)) (cond ((equal? sc14 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 40 arg-0 arg-4 arg-3 arg-1 e-17) eta-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-5 (vector 0 pred e-16)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define Rewrite-Elab-TTImp-case--caseC-32blockC-32inC-32getRewriteTerms-3534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-7 e-4) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-7 e-1) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-0 arg-7 e-10) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 e-6 (vector 0 e-9 e-12)))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0))))))) (define Rewrite-Elab-TTImp-case--getRewriteTerms-3509 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32getRewriteTerms-3534 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--findRewriteLemma-3464 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No rewrite lemma defined") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) (define Rewrite-Elab-TTImp-rewriteErr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((41) 0) ((40) 0) ((56) (let ((e-11 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-11))) ((57) (let ((e-14 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-14))) ((58) (let ((e-17 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-17))) ((59) (let ((e-20 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-20))) ((5) (let ((e-26 (vector-ref sc0 6))) (Rewrite-Elab-TTImp-rewriteErr e-26)))(else 1))))) (define Rewrite-Elab-TTImp-getRewriteTerms (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-isEqualTy arg-1 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (let ((bind-0 0)) ((Rewrite-Elab-TTImp-case--caseC-32blockC-32inC-32getRewriteTerms-3534 arg-0 e-5 e-4 e-3 e-2 e-1 arg-5 arg-3 arg-2 arg-1 bind-0 (List-Data-reverse 'erased e-5)) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-5 eta-0))))))) (define Rewrite-Elab-TTImp-findRewriteLemma (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-getRewrite arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 "No rewrite lemma defined") ext-0)) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2)))))))))))) -(define Rewrite-Elab-TTImp-elabRewrite (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (UnifyState-Core-genVarName arg-1 arg-2 "rwarg" ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-4 arg-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Rewrite-Elab-TTImp-getRewriteTerms arg-0 arg-1 arg-3 e-5 e-7 (vector 41 arg-0 arg-3 arg-4 arg-6)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 2))) (let ((act-28 (Rewrite-Elab-TTImp-findRewriteLemma 'erased arg-1 arg-3 arg-6 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 ((Normalise-Core-nf arg-0 e-5 arg-4 arg-5) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-logNF arg-0 arg-1 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-4 e-2 ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (Normalise-Core-logNF arg-0 arg-1 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting in") arg-4 e-12 ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Normalise-Core-replace arg-0 e-5 arg-4 e-2 (vector 1 arg-3 (vector 0 ) e-6) e-12 ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (Context-Core-logTerm arg-0 arg-1 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") e-15 ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-clearDefs e-5 ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-35 (Normalise-Core-quote_Quote__NF arg-0 e-17 arg-4 e-9 ext-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc13 1))) (let ((pred (vector 3 arg-3 e-6 (vector 0 arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-18) (TT-Core-refsToLocals 'erased (vector 1 e-6 (vector 0 )) (vector 1 e-6 e-6 (vector 0 )) e-15)))) (let ((act-36 ((GetType-Core-getType arg-0 arg-1 arg-4 pred) ext-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-37 ((Normalise-Core-getTerm 'erased e-19) ext-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-38 (Normalise-Core-quote_Quote__Term arg-0 e-5 arg-4 arg-5 ext-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc16 1))) (let ((act-39 (let ((act-39 (Normalise-Core-convert_Convert__Term arg-0 e-5 arg-4 e-15 e-21 ext-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc17 1))) (let ((sc18 e-22)) (cond ((equal? sc18 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 40 arg-0 arg-3 arg-4 arg-6 e-21) ext-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-11 (vector 0 pred e-20))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Rewrite-Elab-TTImp-checkRewrite (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer a type for rewrite") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-2 (lambda (eta-1) (Rewrite-Elab-TTImp-rewriteErr eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (delayed) (lambda (eta-1) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 0 )) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-2) eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((sc5 delayed)) (cond ((equal? sc5 0) ((Context-Core-log arg-1 "elab.rewrite" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite")) eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((act-28 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-1 arg-3 arg-9 arg-8 e-7 e-6 eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-11 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 e-10)) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((act-29 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-30 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((pbind (vector 1 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-13 e-12))) (let ((rbind (vector 1 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-4) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-6)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-8)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased e-15 arg-0 arg-1 arg-4 arg-9 (vector 1 pbind arg-8) (lambda (eC-39) (lambda (eta-2) (Check-Elab-TTImp-inScope 'erased e-14 (vector 1 e-15 arg-0) arg-1 eC-39 arg-9 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-14 (vector 1 e-15 arg-0)) arg-1 arg-2 arg-3 eC-39C-39 arg-5 arg-6 (TTImp-TTImp-weaken_Weaken__NestedNames e-14 (vector 1 e-15 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-15 arg-0 arg-7)) envC-39 (TTImp-TTImp-apply (vector 0 arg-9 e-11) (vector 1 (vector 0 arg-9 e-15) (vector 1 (vector 0 arg-9 e-14) (vector 1 arg-11 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-14 (vector 1 e-15 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) e-7))))) eta-2))) eta-1))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((sc12 e-16)) (let ((e-18 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((act-32 ((Normalise-Core-getTerm 'erased e-17) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-19 (vector-ref sc13 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (vector 0 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-18)) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-19)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) eta-0)))))))) -(define Record-Elab-TTImp-case--caseC-32blockC-32inC-32checkUpdate-4964 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3)))))) -(define Record-Elab-TTImp-case--checkUpdate-4895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (vector 0 )) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3)))))))))))))) -(define Record-Elab-TTImp-case--checkUpdate-4760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--checkUpdate-4674 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--recUpdate-4519 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-10 "__fld" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Record-Elab-TTImp-getAllSides arg-11 arg-10 arg-6 arg-3 e-1 arg-2 (vector 0 (vector 0 ) e-5 (vector 0 arg-6 (vector 1 e-5)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-6 arg-2 (vector 31 arg-6 1) (vector 1 (Record-Elab-TTImp-n--10447-4498-mkClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-6) (vector 0 ))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 22 arg-0 arg-6 arg-4) eta-0))))))) -(define Record-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findPath-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) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-findPath arg-10 arg-9 arg-8 arg-1 arg-7 e-6 arg-5 arg-11) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 arg-4 arg-3 (Record-Elab-TTImp-replace arg-0 e-7 arg-2))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-8 arg-0 arg-6) eta-0))))))) -(define Record-Elab-TTImp-case--caseC-32blockC-32inC-32findPath-4244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Record-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findPath-4281 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-1 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-0 e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-4 arg-3 arg-2)))))))) -(define Record-Elab-TTImp-case--findPath-4201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Record-Elab-TTImp-findFields e-5 arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Record-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findPath-4281 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 e-5 e-2 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__String arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__String arg-12 arg-13)))) arg-0 e-2)) eta-0)))) (else (vector 1 (vector 1 arg-4 arg-3 arg-2)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-8 arg-0 arg-6) eta-0))))))) -(define Record-Elab-TTImp-case--caseC-32blockC-32inC-32findPath-4079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-n--9837-3982-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((recC-39 (vector 1 arg-5 arg-12 e-5))) ((Record-Elab-TTImp-findPath arg-10 arg-9 arg-8 (vector 1 arg-0 arg-1) arg-7 (vector 1 arg-2) arg-6 recC-39) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-8 arg-2) eta-0))))))) -(define Record-Elab-TTImp-case--findPath-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-findFields arg-11 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9837-3982-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((recC-39 (vector 1 arg-5 e-1 e-6))) ((Record-Elab-TTImp-findPath arg-10 arg-9 arg-8 (vector 1 arg-0 arg-1) arg-7 (vector 1 arg-2) arg-6 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-8 arg-2) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-8 arg-2) eta-0))))))) -(define Record-Elab-TTImp-case--replace-3902 (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--genFieldName-3872 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) -(define Record-Elab-TTImp-case--findFields-3800 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Record-Elab-TTImp-n--9572-3693-getExpNames arg-0 arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Record-Elab-TTImp-case--findFieldsC-44getExpNames-3715 (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) ((1) (vector 0 ))(else (vector 1 arg-7)))))) +(define Rewrite-Elab-TTImp-elabRewrite (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (UnifyState-Core-genVarName arg-1 arg-2 "rwarg" ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-4 arg-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Rewrite-Elab-TTImp-getRewriteTerms arg-0 arg-1 arg-3 e-5 e-7 (vector 41 arg-0 arg-3 arg-4 arg-6)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 2))) (let ((act-28 (Rewrite-Elab-TTImp-findRewriteLemma 'erased arg-1 arg-3 arg-6 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 ((Normalise-Core-nf arg-0 e-5 arg-4 arg-5) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-4 e-2 ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting in") arg-4 e-12 ext-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Normalise-Core-replace arg-0 e-5 arg-4 e-2 (vector 1 arg-3 (vector 0 ) e-6) e-12 ext-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") e-15 ext-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-clearDefs e-5 ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-35 (Normalise-Core-quote_Quote__NF arg-0 e-17 arg-4 e-9 ext-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc13 1))) (let ((pred (vector 3 arg-3 e-6 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-18) (TT-Core-refsToLocals 'erased (vector 1 e-6 (vector 0 )) (vector 1 e-6 e-6 (vector 0 )) e-15)))) (let ((act-36 ((GetType-Core-getType arg-0 arg-1 arg-4 pred) ext-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-37 ((Normalise-Core-getTerm 'erased e-19) ext-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-38 (Normalise-Core-quote_Quote__Term arg-0 e-5 arg-4 arg-5 ext-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc16 1))) (let ((act-39 (let ((act-39 (Normalise-Core-convert_Convert__Term arg-0 e-5 arg-4 e-15 e-21 ext-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc17 1))) (let ((sc18 e-22)) (cond ((equal? sc18 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 40 arg-0 arg-3 arg-4 arg-6 e-21) ext-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-11 (vector 0 pred e-20))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Rewrite-Elab-TTImp-checkRewrite (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer a type for rewrite") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-2 (lambda (eta-1) (Rewrite-Elab-TTImp-rewriteErr eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (delayed) (lambda (eta-1) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 0 )) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-2) eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((sc5 delayed)) (cond ((equal? sc5 0) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((act-28 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-1 arg-3 arg-9 arg-8 e-7 e-6 eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-11 (vector-ref sc7 1))) (let ((e-10 (vector-ref sc7 2))) (let ((sc8 e-10)) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((act-29 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-30 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-13 e-12))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-4) (TT-Core-weaken_Weaken__Term e-15 arg-0 e-6)))) (let ((envC-39 (vector 1 rbind (vector 1 pbind arg-8)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased e-15 arg-0 arg-1 arg-4 arg-9 (vector 1 pbind arg-8) (lambda (eC-39) (lambda (eta-2) (Check-Elab-TTImp-inScope 'erased e-14 (vector 1 e-15 arg-0) arg-1 eC-39 arg-9 envC-39 (lambda (eC-39C-39) (Check-Elab-TTImp-check (vector 1 e-14 (vector 1 e-15 arg-0)) arg-1 arg-2 arg-3 eC-39C-39 arg-5 arg-6 (TTImp-TTImp-weaken_Weaken__NestedNames e-14 (vector 1 e-15 arg-0) (TTImp-TTImp-weaken_Weaken__NestedNames e-15 arg-0 arg-7)) envC-39 (TTImp-TTImp-apply (vector 0 arg-9 e-11) (vector 1 (vector 0 arg-9 e-15) (vector 1 (vector 0 arg-9 e-14) (vector 1 arg-11 (vector 0 ))))) (vector 1 (Normalise-Core-gnf (vector 1 e-14 (vector 1 e-15 arg-0)) envC-39 (TT-Core-weakenNs_Weaken__Term arg-0 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) e-7))))) eta-2))) eta-1))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((sc12 e-16)) (let ((e-18 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((act-32 ((Normalise-Core-getTerm 'erased e-17) eta-1))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-19 (vector-ref sc13 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (vector 0 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-18)) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-15 pbind (vector 3 arg-9 e-14 rbind e-19)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) eta-0)))))))) +(define Record-Elab-TTImp-case--caseC-32blockC-32inC-32checkUpdate-4954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3)))))) +(define Record-Elab-TTImp-case--checkUpdate-4885 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-2 (vector 0 )) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3)))))))))))))) +(define Record-Elab-TTImp-case--checkUpdate-4754 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--checkUpdate-4668 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--recUpdate-4513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-10 "__fld" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Record-Elab-TTImp-getAllSides arg-11 arg-10 arg-6 arg-3 e-1 arg-2 (vector 0 (vector 0 ) e-5 (vector 0 arg-6 (vector 1 e-5)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-6 arg-2 (vector 31 arg-6 1) (vector 1 (Record-Elab-TTImp-n--10251-4492-mkClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-6) (vector 0 ))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 22 arg-0 arg-6 arg-4) eta-0))))))) +(define Record-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findPath-4275 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-findPath arg-10 arg-9 arg-8 arg-1 arg-7 e-6 arg-5 arg-11) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 arg-4 arg-3 (Record-Elab-TTImp-replace arg-0 e-7 arg-2))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-8 arg-0 arg-6) eta-0))))))) +(define Record-Elab-TTImp-case--caseC-32blockC-32inC-32findPath-4238 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Record-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findPath-4275 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-1 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-0 e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-4 arg-3 arg-2)))))))) +(define Record-Elab-TTImp-case--findPath-4195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Record-Elab-TTImp-findFields e-5 arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((Record-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findPath-4275 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 e-5 e-2 _-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__String arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__String arg-12 arg-13)))) arg-0 e-2)) eta-0)))) (else (vector 1 (vector 1 arg-4 arg-3 arg-2)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 23 arg-8 arg-0 arg-6) eta-0))))))) +(define Record-Elab-TTImp-case--caseC-32blockC-32inC-32findPath-4073 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-n--9641-3976-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((recC-39 (vector 1 arg-5 arg-12 e-5))) ((Record-Elab-TTImp-findPath arg-10 arg-9 arg-8 (vector 1 arg-0 arg-1) arg-7 (vector 1 arg-2) arg-6 recC-39) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-8 arg-2) eta-0))))))) +(define Record-Elab-TTImp-case--findPath-4037 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-findFields arg-11 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 ((Record-Elab-TTImp-n--9641-3976-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((recC-39 (vector 1 arg-5 e-1 e-6))) ((Record-Elab-TTImp-findPath arg-10 arg-9 arg-8 (vector 1 arg-0 arg-1) arg-7 (vector 1 arg-2) arg-6 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-8 arg-2) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-8 arg-2) eta-0))))))) +(define Record-Elab-TTImp-case--replace-3896 (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--genFieldName-3866 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) +(define Record-Elab-TTImp-case--findFields-3794 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Record-Elab-TTImp-n--9383-3693-getExpNames arg-0 arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Record-Elab-TTImp-case--findFieldsC-44getExpNames-3713 (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) (vector 0 ))(else (vector 1 arg-6)))))) (define Record-Elab-TTImp-case--findConName-3652 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-11))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Record-Elab-TTImp-n--10447-4498-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--9837-3982-mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-9 e-6 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Record-Elab-TTImp-n--9837-3982-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((arg (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 arg-8 (vector 1 e-5))) (lambda () (lambda (eta-1) (vector 31 arg-8 1))) e-10))) (vector 1 (vector 1 (vector 0 e-6 (vector 0 e-10 e-5 arg)) e-8)))))))))))))))))))))))))) -(define Record-Elab-TTImp-n--9572-3693-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-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Record-Elab-TTImp-n--9572-3693-getExpNames arg-0 arg-1 e-5) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((imp (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (vector 0 ))(else (vector 1 e-2)))))) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot e-2) (vector 0 imp (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) e-9))) e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Record-Elab-TTImp-n--10251-4492-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--9641-3976-mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Record-Elab-TTImp-genFieldName arg-9 e-6 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Record-Elab-TTImp-n--9641-3976-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-3) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((arg (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 arg-8 (vector 1 e-5))) (lambda () (lambda (eta-1) (vector 31 arg-8 1))) e-10))) (vector 1 (vector 1 (vector 0 e-6 (vector 0 e-10 e-5 arg)) e-8)))))))))))))))))))))))))) +(define Record-Elab-TTImp-n--9383-3693-getExpNames (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Record-Elab-TTImp-n--9383-3693-getExpNames arg-0 arg-1 e-5) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((imp (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (vector 0 ))(else (vector 1 e-2)))))) (vector 1 (vector 1 (vector 0 (Name-Core-nameRoot e-2) (vector 0 imp (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) e-8))) e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Record-Elab-TTImp-toRHSC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-2)))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((argsC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (a) (Record-Elab-TTImp-toRHSC-39 arg-0 (Builtin-snd 'erased 'erased a))) e-5))) (vector 0 e-3 (Record-Elab-TTImp-applyImp (vector 0 arg-0 e-4) argsC-39))))))))))) (define Record-Elab-TTImp-toRHS (lambda (arg-0 arg-1) (Builtin-snd 'erased 'erased (Record-Elab-TTImp-toRHSC-39 arg-0 arg-1)))) (define Record-Elab-TTImp-toLHSC-39 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (vector 0 e-0 (vector 17 arg-0 (vector 1 ) (vector 1 e-1) (vector 31 arg-0 0))))(else (vector 0 e-0 (vector 16 arg-0 e-1)))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((argsC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (a) (Record-Elab-TTImp-toLHSC-39 arg-0 (Builtin-snd 'erased 'erased a))) e-5))) (vector 0 e-3 (Record-Elab-TTImp-applyImp (vector 0 arg-0 e-4) argsC-39))))))))))) (define Record-Elab-TTImp-toLHS (lambda (arg-0 arg-1) (Builtin-snd 'erased 'erased (Record-Elab-TTImp-toLHSC-39 arg-0 arg-1)))) -(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--replace-3902 e-6 e-7 e-3 arg-1 arg-0 (EqOrd-Prelude-C-61C-61_Eq__String arg-0 e-6)))))))))))) -(define Record-Elab-TTImp-recUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 arg-11) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Record-Elab-TTImp-case--recUpdate-4519 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--replace-3896 e-6 e-7 e-3 arg-1 arg-0 (EqOrd-Prelude-C-61C-61_Eq__String arg-0 e-6)))))))))))) +(define Record-Elab-TTImp-recUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 arg-11) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Record-Elab-TTImp-case--recUpdate-4513 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (Record-Elab-TTImp-getRecordType 'erased arg-8 e-6)) ext-0))))))))))))) (define Record-Elab-TTImp-needType (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((22) 0) ((56) (let ((e-5 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-5))) ((57) (let ((e-8 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-8))) ((58) (let ((e-11 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-11))) ((59) (let ((e-14 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-14))) ((5) (let ((e-20 (vector-ref sc0 6))) (Record-Elab-TTImp-needType e-20)))(else 1))))) (define Record-Elab-TTImp-getSides (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Record-Elab-TTImp-findPath arg-0 arg-1 arg-2 e-0 e-0 (vector 1 arg-4) (lambda (eta-0) e-1) arg-6)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Record-Elab-TTImp-findPath arg-0 arg-1 arg-2 e-2 e-2 (vector 1 arg-4) (lambda (n) (TTImp-TTImp-apply e-3 (vector 1 (vector 0 arg-2 (vector 1 n)) (vector 0 )))) arg-6)))))))) (define Record-Elab-TTImp-getRecordType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (vector 1 e-2)))(else (vector 0 )))))) (define Record-Elab-TTImp-getAllSides (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Record-Elab-TTImp-getSides arg-0 arg-1 arg-2 e-2 arg-4 arg-5 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Record-Elab-TTImp-getAllSides arg-0 arg-1 arg-2 e-3 arg-4 arg-5 e-5) eta-0)))))))))))))) (define Record-Elab-TTImp-genFieldName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Strings-Types-Prelude-C-43C-43 arg-1 (Show-Prelude-show_Show__Int (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))))))))))))))) -(define Record-Elab-TTImp-findPath (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 e-4 e-5 (arg-6 e-5)))))))(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-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (Record-Elab-TTImp-case--findPath-4201 e-2 e-3 e-9 e-8 e-7 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-61C-61_Eq__String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-47C-61_Eq__String arg-8 arg-9)))) e-2 e-9)))))))))) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Record-Elab-TTImp-findConName e-5 e-12 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-26 (Record-Elab-TTImp-findFields e-5 e-1 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc6 1))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((act-27 ((Record-Elab-TTImp-n--9837-3982-mkArgs e-2 e-3 e-12 e-18 e-17 e-16 arg-6 arg-4 arg-2 arg-1 arg-0 e-4) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((recC-39 (vector 1 e-16 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-12) arg-6 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-12) eta-0))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-12) eta-0)))))))))))))))))))(else (let ((sc2 arg-7)) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (Record-Elab-TTImp-case--findPath-4201 e-2 e-3 e-9 e-8 e-7 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-61C-61_Eq__String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-47C-61_Eq__String arg-8 arg-9)))) e-2 e-9)))))))))))(else (let ((sc1 arg-7)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (Record-Elab-TTImp-case--findPath-4201 e-2 e-3 e-9 e-8 e-7 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-61C-61_Eq__String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-47C-61_Eq__String arg-8 arg-9)))) e-2 e-9)))))))))))))))) -(define Record-Elab-TTImp-findFields (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-lookupTyExact arg-1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-0 (vector 0 ) e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Record-Elab-TTImp-n--9572-3693-getExpNames arg-1 arg-0 e-6) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-7))))))))))))))(else (vector 1 (vector 0 )))))))))))) +(define Record-Elab-TTImp-findPath (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 e-4 e-5 (arg-6 e-5)))))))(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-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (Record-Elab-TTImp-case--findPath-4195 e-2 e-3 e-9 e-8 e-7 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-61C-61_Eq__String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-47C-61_Eq__String arg-8 arg-9)))) e-2 e-9)))))))))) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Record-Elab-TTImp-findConName e-5 e-12 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-26 (Record-Elab-TTImp-findFields e-5 e-1 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc6 1))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((act-27 ((Record-Elab-TTImp-n--9641-3976-mkArgs e-2 e-3 e-12 e-18 e-17 e-16 arg-6 arg-4 arg-2 arg-1 arg-0 e-4) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((recC-39 (vector 1 e-16 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-12) arg-6 recC-39) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-12) eta-0))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 24 arg-2 e-12) eta-0)))))))))))))))))))(else (let ((sc2 arg-7)) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (Record-Elab-TTImp-case--findPath-4195 e-2 e-3 e-9 e-8 e-7 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-61C-61_Eq__String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-47C-61_Eq__String arg-8 arg-9)))) e-2 e-9)))))))))))(else (let ((sc1 arg-7)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (Record-Elab-TTImp-case--findPath-4195 e-2 e-3 e-9 e-8 e-7 arg-6 arg-5 arg-4 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-61C-61_Eq__String arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-47C-61_Eq__String arg-8 arg-9)))) e-2 e-9)))))))))))))))) +(define Record-Elab-TTImp-findFields (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-lookupTyExact arg-1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-0 (vector 0 ) e-1) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Record-Elab-TTImp-n--9383-3693-getExpNames arg-1 arg-0 e-6) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-7))))))))))))))(else (vector 1 (vector 0 )))))))))))) (define Record-Elab-TTImp-findConName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-lookupDefExact arg-1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((6) (let ((e-8 (vector-ref sc2 7))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-11)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) -(define Record-Elab-TTImp-checkUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1)))(else (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3))))))))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Record-Elab-TTImp-case--checkUpdate-4674 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Record-Elab-TTImp-needType eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-0) (let ((act-25 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((rectyC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-8 e-7)) (else e-5))))) (let ((act-27 (Normalise-Core-logGlueNF arg-0 arg-1 "elab.record" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Bool delayed) (Strings-Types-Prelude-C-43C-43 " record type " (TTImp-TTImp-show_Show__RawImp arg-11)))) arg-8 rectyC-39 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Record-Elab-TTImp-recUpdate arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 arg-11 rectyC-39 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Context-Core-log arg-1 "elab.record" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Record update: " (TTImp-TTImp-show_Show__RawImp e-9)))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9 arg-12) eta-0)))))))))))))))))))))))))) ext-0))))))))) +(define Record-Elab-TTImp-checkUpdate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 e-1)))(else (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3))))))))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Record-Elab-TTImp-case--checkUpdate-4668 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Record-Elab-TTImp-needType eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-0) (let ((act-25 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((rectyC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-8 e-7)) (else e-5))))) (let ((act-27 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Bool delayed) (Strings-Types-Prelude-C-43C-43 " record type " (TTImp-TTImp-show_Show__RawImp arg-11)))) arg-8 rectyC-39 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Record-Elab-TTImp-recUpdate arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 arg-11 rectyC-39 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Record update: " (TTImp-TTImp-show_Show__RawImp e-9))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9 arg-12) eta-0)))))))))))))))))))))))))) ext-0))))))))) (define Record-Elab-TTImp-applyImp (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))) (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) (Record-Elab-TTImp-applyImp (vector 8 (TTImp-TTImp-getFC arg-0) arg-0 e-7) e-3)) (else (let ((e-10 (vector-ref sc2 1))) (Record-Elab-TTImp-applyImp (vector 9 (TTImp-TTImp-getFC arg-0) arg-0 (vector 1 e-10) e-7) e-3))))))))))))))) -(define Quote-Elab-TTImp-case--caseC-32blockC-32inC-32bindUnqs-10309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 arg-2 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-6) (TT-Core-refToLocal 'erased arg-1 arg-1 e-5))))))))))))))))))) -(define Quote-Elab-TTImp-case--bindUnqs-10249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-6 (vector 1 arg-2 (vector 3 0 0) (vector 8 e-4))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 arg-2 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-8) (TT-Core-refToLocal 'erased arg-1 arg-1 e-7))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0))))))) -(define Quote-Elab-TTImp-n--10593-10106-unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-5 arg-4 arg-3 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 e-5))))))))))))) -(define Quote-Elab-TTImp-n--10585-9980-unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-7 arg-6 arg-5 e-11) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5))))))))))))))))))))) +(define Quote-Elab-TTImp-case--caseC-32blockC-32inC-32bindUnqs-10243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-6) (TT-Core-refToLocal 'erased arg-1 arg-1 e-5))))))))))))))))))) +(define Quote-Elab-TTImp-case--bindUnqs-10183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-6 (vector 1 arg-2 (vector 3 0 0) (vector 8 e-4))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-9 arg-8 arg-7 arg-6 arg-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 3 arg-2 arg-1 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-9) e-2 e-8) (TT-Core-refToLocal 'erased arg-1 arg-1 e-7))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 (Reflect-Core-reflectionttimp "TTImp")) eta-0))))))) +(define Quote-Elab-TTImp-n--10394-10040-unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-5 arg-4 arg-3 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 e-5))))))))))))) +(define Quote-Elab-TTImp-n--10386-9914-unqPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-7 arg-6 arg-5 e-11) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5))))))))))))))))))))) (define Quote-Elab-TTImp-onLHS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) (define Quote-Elab-TTImp-getUnquoteUpdate (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5))))))))))))))) (define Quote-Elab-TTImp-getUnquoteTy (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5)))))))))))))) -(define Quote-Elab-TTImp-getUnquoteRecord (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10585-9980-unqPair e-4 e-3 e-2 e-1 e-0 arg-2 arg-1 arg-0 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteField arg-0 arg-1 arg-2 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6))))))))))))))))))))) +(define Quote-Elab-TTImp-getUnquoteRecord (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10386-9914-unqPair e-4 e-3 e-2 e-1 e-0 arg-2 arg-1 arg-0 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteField arg-0 arg-1 arg-2 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6))))))))))))))))))))) (define Quote-Elab-TTImp-getUnquoteField (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 e-5)))))))))))))))) -(define Quote-Elab-TTImp-getUnquoteDecl (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteTy arg-0 arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 e-5)))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteData arg-0 arg-1 arg-2 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8)))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-8 e-9 e-5)))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10593-10106-unqPair e-13 e-12 e-11 arg-2 arg-1 arg-0 eta-1)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-1)) e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-11 e-5 e-6))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteRecord arg-0 arg-1 arg-2 e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-14 e-15 e-16 e-5))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-1)) e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-18 e-19 e-5)))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-24) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-21 e-22 e-5 e-6))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) +(define Quote-Elab-TTImp-getUnquoteDecl (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteTy arg-0 arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-3 e-5)))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteData arg-0 arg-1 arg-2 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8)))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-8 e-9 e-5)))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-n--10394-10040-unqPair e-13 e-12 e-11 arg-2 arg-1 arg-0 eta-1)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-1)) e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-11 e-5 e-6))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquoteRecord arg-0 arg-1 arg-2 e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-14 e-15 e-16 e-5))))))))))))) ((5) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-1)) e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-18 e-19 e-5)))))))))))) ((6) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-24) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 6 e-21 e-22 e-5 e-6))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) (define Quote-Elab-TTImp-getUnquoteData (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteTy arg-0 arg-1 arg-2 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-1 e-5 e-3 e-6))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8)))))))))))))))) (define Quote-Elab-TTImp-getUnquoteClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-5 e-6))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-8 e-5))))))))))))))) (define Quote-Elab-TTImp-getUnquote (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-0 e-1 e-2 e-3 e-6 e-7)))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc2 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-5 e-12)))))))))))))))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((e-17 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-12 e-13 e-14 e-5 e-6 e-7))))))))))))))))))))))))) ((4) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteClause arg-0 arg-1 arg-2 eta-1)) e-21) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-18 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteDecl arg-0 arg-1 arg-2 eta-1)) e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-24) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-5 e-6))))))))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquoteUpdate arg-0 arg-1 arg-2 eta-1)) e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-27) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 7 e-25 e-5 e-6))))))))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-30) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-28 e-5 e-6))))))))))))))))) ((9) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-31 e-5 e-33 e-6)))))))))))))))))) ((10) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-36) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-37) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 10 e-35 e-5 e-6))))))))))))))))) ((12) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 eta-1)) e-40) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-38 e-39 e-5)))))))))))) ((13) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-42) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-43) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-41 e-5 e-6))))))))))))))))) ((14) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 14 e-44 e-5))))))))))) ((15) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-48) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-46 e-47 e-5)))))))))))) ((17) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (let ((e-52 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-52) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 17 e-49 e-50 e-51 e-5))))))))))))) ((18) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (let ((e-55 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-55) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 18 e-53 e-54 e-5)))))))))))) ((19) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (let ((e-58 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-58) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-56 e-57 e-5)))))))))))) ((20) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-60) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-59 e-5))))))))))) ((21) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-62) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 21 e-61 e-5))))))))))) ((22) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Quote-Elab-TTImp-getUnquote arg-0 arg-1 arg-2 e-64) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 22 e-63 e-5))))))))))) ((25) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-0 arg-2 "q" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-1 (vector 1 (vector 0 e-5 (vector 0 e-65 e-66)) e-6)))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 25 e-65 (vector 0 e-65 e-5)))))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) (define Quote-Elab-TTImp-checkQuoteName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-9 e-5 (Quote-Elab-TTImp-onLHS (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) arg-8 arg-10) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Reflect-Core-getCon arg-0 arg-9 e-5 (Reflect-Core-reflectiontt "Name") ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-6 (Normalise-Core-gnf arg-0 arg-8 e-7) arg-11) ext-0)))))))))))))))))) (define Quote-Elab-TTImp-checkQuoteDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Quote.Unq" ) (vector 0 ) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Quote-Elab-TTImp-getUnquoteDecl arg-1 e-6 arg-3 eta-0)) arg-10) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (Reflect-TTImp-reflect_Reflect__ImpDecl eta-0 eta-1 eta-2 eta-3 eta-4 eta-5))))))) arg-0 arg-9 e-5 (Quote-Elab-TTImp-onLHS (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) arg-8 e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox e-6))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Reflect-Core-getCon arg-0 arg-9 e-5 (Reflect-Core-reflectionttimp "Decl") ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Reflect-Core-appCon arg-0 arg-9 e-5 (Reflect-Core-preludetypes "List") (vector 1 e-10 (vector 0 )) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-9 arg-5 arg-6 arg-7 arg-8 e-8) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-12 (Normalise-Core-gnf arg-0 arg-8 e-11) arg-11) ext-0))))))))))))))))))))))))))))))))))))))))))) (define Quote-Elab-TTImp-checkQuote (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Core-Core-newRef 'erased 'erased (vector "TTImp.Elab.Quote.Unq" ) (vector 0 ) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Quote-Elab-TTImp-getUnquote arg-1 e-6 arg-3 arg-10) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Reflect-TTImp-reflect_Reflect__RawImp arg-0 arg-9 e-5 (Quote-Elab-TTImp-onLHS (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) arg-8 e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox e-6))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Reflect-Core-getCon arg-0 arg-9 e-5 (Reflect-Core-reflectionttimp "TTImp") ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-9 arg-5 arg-6 arg-7 arg-8 e-8) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Normalise-Core-normalise arg-0 e-5 arg-8 e-11 ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-12 (Normalise-Core-gnf arg-0 arg-8 e-10) arg-11) ext-0))))))))))))))))))))))))))))))))))))))))))) -(define Quote-Elab-TTImp-bindUnqs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-10))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-lookupCtxtExactI (Reflect-Core-reflectionttimp "TTImp") (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (let ((act-26 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 e-11 (vector 1 (Normalise-Core-gnf arg-0 arg-9 (vector 1 e-10 (vector 3 0 0) (vector 8 e-4))))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((sc8 e-12)) (let ((e-14 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((act-27 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 arg-7 arg-8 arg-9 arg-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-15 (vector-ref sc9 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-13) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (vector 1 (vector 3 e-10 e-6 (vector 1 e-10 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-6) e-14 e-16) (TT-Core-refToLocal 'erased e-6 e-6 e-15)))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-10 (Reflect-Core-reflectionttimp "TTImp")) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-10 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))))))))))))))))))))))) +(define Quote-Elab-TTImp-bindUnqs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-10))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-lookupCtxtExactI (Reflect-Core-reflectionttimp "TTImp") (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (let ((act-26 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 arg-9 e-11 (vector 1 (Normalise-Core-gnf arg-0 arg-9 (vector 1 e-10 (vector 3 0 0) (vector 8 e-4))))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((sc8 e-12)) (let ((e-14 (vector-ref sc8 1))) (let ((e-13 (vector-ref sc8 2))) (let ((act-27 ((Quote-Elab-TTImp-bindUnqs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 arg-7 arg-8 arg-9 arg-10) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-15 (vector-ref sc9 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-13) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (vector 1 (vector 3 e-10 e-6 (vector 1 (ZeroOneOmega-Algebra-rigMult (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-6) e-14 e-16) (TT-Core-refToLocal 'erased e-6 e-6 e-15)))))))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-10 (Reflect-Core-reflectionttimp "TTImp")) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-10 (Reflect-Core-reflectionttimp "TTImp")) eta-0)))))))))))))))))))))))))))) (define Prim-Elab-TTImp-checkPrim (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 0 e-0)) (vector 9 arg-1 (vector 10 ))))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 1 e-1)) (vector 9 arg-1 (vector 11 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 2 e-2)) (vector 9 arg-1 (vector 12 ))))) ((3) (let ((e-3 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 3 e-3)) (vector 9 arg-1 (vector 13 ))))) ((4) (let ((e-4 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 4 e-4)) (vector 9 arg-1 (vector 14 ))))) ((5) (let ((e-5 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 5 e-5)) (vector 9 arg-1 (vector 15 ))))) ((6) (let ((e-6 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 6 e-6)) (vector 9 arg-1 (vector 16 ))))) ((7) (let ((e-7 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 7 e-7)) (vector 9 arg-1 (vector 17 ))))) ((8) (let ((e-8 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 8 e-8)) (vector 9 arg-1 (vector 18 ))))) ((9) (vector 0 (vector 9 arg-1 (vector 9 )) (vector 9 arg-1 (vector 19 )))) ((10) (vector 0 (vector 9 arg-1 (vector 10 )) (vector 11 arg-1))) ((11) (vector 0 (vector 9 arg-1 (vector 11 )) (vector 11 arg-1))) ((12) (vector 0 (vector 9 arg-1 (vector 12 )) (vector 11 arg-1))) ((13) (vector 0 (vector 9 arg-1 (vector 13 )) (vector 11 arg-1))) ((14) (vector 0 (vector 9 arg-1 (vector 14 )) (vector 11 arg-1))) ((15) (vector 0 (vector 9 arg-1 (vector 15 )) (vector 11 arg-1))) ((16) (vector 0 (vector 9 arg-1 (vector 16 )) (vector 11 arg-1))) ((17) (vector 0 (vector 9 arg-1 (vector 17 )) (vector 11 arg-1))) ((18) (vector 0 (vector 9 arg-1 (vector 18 )) (vector 11 arg-1))) (else (vector 0 (vector 9 arg-1 (vector 19 )) (vector 11 arg-1))))))) -(define Local-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkCaseLocal-4774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 arg-20 (lambda (fc) (lambda (nt) arg-19))))) arg-8))) -(define Local-Elab-TTImp-case--caseC-32blockC-32inC-32checkCaseLocal-4673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-14 "elab.local" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Updating case local " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) e-3)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Normalise-Core-logTermNF arg-0 arg-14 "elab.local" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0)))))))))))))))) +(define Local-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkCaseLocal-4770 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 arg-20 (lambda (fc) (lambda (nt) arg-19))))) arg-8))) +(define Local-Elab-TTImp-case--caseC-32blockC-32inC-32checkCaseLocal-4673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Updating case local " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) e-3))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0)))))))))))))))) (define Local-Elab-TTImp-case--caseC-32blockC-32inC-32checkCaseLocal-4481 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--checkCaseLocal-4443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (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--caseC-32blockC-32inC-32checkCaseLocal-4481 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-14 arg-6 arg-7 name arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((Context-Core-log arg-14 "elab.local" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Updating case local " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) e-3)))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 ((Normalise-Core-logTermNF arg-0 arg-14 "elab.local" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 e-2) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0)))))))))))))))))))))) (else (Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-2 arg-1)))))) +(define Local-Elab-TTImp-case--checkCaseLocal-4443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (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--caseC-32blockC-32inC-32checkCaseLocal-4481 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-14 arg-6 arg-7 name arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-log arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Updating case local " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-5) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) e-3))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-7 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-8))) ((Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 nestC-39 arg-7 arg-2 arg-1) eta-0)))))))))))))))))))))) (else (Check-Elab-TTImp-check arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-2 arg-1)))))) (define Local-Elab-TTImp-case--caseC-32blockC-32inC-32getLocalTerm-4353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 1 arg-7 e-3))))))))) (define Local-Elab-TTImp-case--getLocalTerm-4315 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-6 arg-5 arg-4 (vector 4 arg-5 arg-3 (vector 0 arg-5 (vector 0 ) e-5)) arg-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (vector 1 e-5 e-3)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Case Local failed") eta-0))))))) (define Local-Elab-TTImp-case--checkLocal-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 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (List-Types-Prelude-C-43C-43 'erased arg-20 arg-6))) (define Local-Elab-TTImp-case--checkLocal-4184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-23)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) (define Local-Elab-TTImp-case--checkLocal-4116 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-24 e-9))))))))))))) -(define Local-Elab-TTImp-case--checkLocal-3927 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9328-3469-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) arg-3)) (else arg-3))))) +(define Local-Elab-TTImp-case--checkLocal-3927 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9135-3469-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) arg-3)) (else arg-3))))) (define Local-Elab-TTImp-case--checkLocal-3850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)))) (else (vector 2 )))))) (define Local-Elab-TTImp-case--checkLocalC-44newName-3706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--checkLocalC-44applyEnv-3658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (b+ e-6 1 63) e-7 e-8 e-9)))))))))))))) -(define Local-Elab-TTImp-case--checkLocalC-44dropLinear-3494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (Local-Elab-TTImp-n--9328-3463-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--9328-3463-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--9328-3466-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--9328-3465-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--9328-3468-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--9328-3466-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--9328-3465-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--9328-3467-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--9328-3467-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--9328-3465-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9328-3466-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--9328-3465-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--9328-3469-setPublic (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (vector 2 ) e-3 e-4)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 (vector 2 ) e-7)))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (vector 4 e-8 e-9 (vector 2 ) e-11))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (vector 3 e-12 e-13 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9328-3469-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) e-14)))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 5 e-15 e-16 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9328-3469-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) e-17))))))(else arg-13))))) -(define Local-Elab-TTImp-n--9328-3465-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--checkLocalC-44newName-3706 arg-0 arg-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-15) (lambda (arg-16) (Name-Core-C-61C-61_Eq__Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Name-Core-C-47C-61_Eq__Name arg-15 arg-16)))) arg-14 arg-13)))) -(define Local-Elab-TTImp-n--9328-3463-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--checkLocalC-44dropLinear-3494 arg-0 arg-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) (TT-Core-multiplicity 'erased e-4)))))))))) -(define Local-Elab-TTImp-n--9328-3464-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-10 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((nestedName_in (vector 5 (vector 0 arg-13 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))) arg-14))) (let ((act-26 ((Context-Core-inCurrentNS arg-12 nestedName_in) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Context-Core-addName arg-12 e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 arg-14 (vector 0 (vector 1 e-7) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-0 arg-5)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-0 fc (vector 1 fc nt (vector 8 e-8)) arg-5))))))))))))))))))))))))))))) +(define Local-Elab-TTImp-case--checkLocalC-44dropLinear-3494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (Local-Elab-TTImp-n--9135-3463-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--9135-3463-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--9135-3466-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--9135-3465-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--9135-3468-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--9135-3466-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--9135-3465-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--9135-3467-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--9135-3467-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--9135-3465-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9135-3466-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--9135-3465-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--9135-3469-setPublic (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (vector 2 ) e-3 e-4)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 (vector 2 ) e-7)))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (vector 4 e-8 e-9 (vector 2 ) e-11))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (vector 3 e-12 e-13 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9135-3469-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) e-14)))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (vector 5 e-15 e-16 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9135-3469-setPublic arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 eta-0)) e-17))))))(else arg-13))))) +(define Local-Elab-TTImp-n--9135-3465-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--checkLocalC-44newName-3706 arg-0 arg-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-15) (lambda (arg-16) (Name-Core-C-61C-61_Eq__Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Name-Core-C-47C-61_Eq__Name arg-15 arg-16)))) arg-14 arg-13)))) +(define Local-Elab-TTImp-n--9135-3463-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--checkLocalC-44dropLinear-3494 arg-0 arg-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) (TT-Core-multiplicity 'erased e-4)))))))))) +(define Local-Elab-TTImp-n--9135-3464-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-10 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (b+ e-6 1 63) e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((nestedName_in (vector 5 (vector 0 arg-13 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))) arg-14))) (let ((act-26 ((Context-Core-inCurrentNS arg-12 nestedName_in) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Context-Core-addName arg-12 e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 arg-14 (vector 0 (vector 1 e-7) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-0 arg-5)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-0 fc (vector 1 fc nt (vector 8 e-8)) arg-5))))))))))))))))))))))))))))) (define Local-Elab-TTImp-getLocalTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-4 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Local-Elab-TTImp-case--getLocalTerm-4315 arg-0 e-2 e-3 arg-4 arg-3 arg-2 arg-1 (Env-Core-defined arg-0 e-2 arg-3))))))))) -(define Local-Elab-TTImp-checkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((f (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-lookupCtxtExact (vector 8 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))) (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((vis (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 10))) e-9)))) (else (vector 2 )))))) (let ((nestdecls (Local-Elab-TTImp-case--checkLocal-3927 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 f e-6 e-7 vis (TT-Core-C-61C-61_Eq__Visibility vis (vector 2 ))))) (let ((defNames (TTImp-TTImp-definedInBlock (vector 0 ) nestdecls))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Local-Elab-TTImp-n--9328-3464-applyEnv arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 f eta-0 eta-1))) (List-Data-nub 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (Name-Core-C-61C-61_Eq__Name arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (Name-Core-C-47C-61_Eq__Name arg-13 arg-14)))) defNames)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((nestC-39 (List-Types-Prelude-C-43C-43 'erased e-8 arg-7))) (let ((envC-39 (Local-Elab-TTImp-n--9328-3463-dropLinear arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-8))) (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((olddelayed (let ((sc5 e-9)) (let ((e-11 (vector-ref sc5 9))) e-11)))) (let ((act-29 (let ((act-29 (set-box! arg-3 (let ((sc5 e-9)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-14 (vector-ref sc5 6))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-13 e-12 (vector 0 ) e-10)))))))))))))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) nestC-39 envC-39 eta-0)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9328-3468-updateName arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 nestC-39 eta-0)) nestdecls)) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (let ((act-32 (set-box! arg-3 (let ((sc8 e-12)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-17 (vector-ref sc8 6))) (let ((e-16 (vector-ref sc8 7))) (let ((e-15 (vector-ref sc8 8))) (let ((e-13 (vector-ref sc8 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-17 e-16 e-15 olddelayed e-13)))))))))))))) (vector 1 act-32)))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-11 arg-12) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Local-Elab-TTImp-checkCaseLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-11 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--caseC-32blockC-32inC-32checkCaseLocal-4481 arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))))) (let ((act-26 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-1 arg-9 arg-8 name arg-12) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 ((Context-Core-log arg-1 "elab.local" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Updating case local " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) e-3)))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 ((Normalise-Core-logTermNF arg-0 arg-1 "elab.local" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-8 e-2) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-10 (vector 0 (vector 1 arg-11) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-7))) ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-13 arg-14) ext-0))))))))))))))))))))) (else ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-14) ext-0)))))))))))))))) -(define Utils-Elab-TTImp-case--bindReqC-44notLets-10267 (lambda (arg-0 arg-1 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) (Utils-Elab-TTImp-n--7726-10248-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-10 arg-7 arg-8)) (else (Utils-Elab-TTImp-n--7726-10248-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased (vector 1 arg-6 arg-10) arg-7 arg-8)))))) -(define Utils-Elab-TTImp-case--bindNotReq-10165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-8) arg-0 e-3))))))) -(define Utils-Elab-TTImp-case--bindNotReq-10100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-6) arg-0 e-3))))))) -(define Utils-Elab-TTImp-case--wrapErrorC-10000 (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32updateErasable-9964 (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--caseC-32blockC-32inC-32updateErasable-9916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-1 arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-22 e-2 e-3 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))) -(define Utils-Elab-TTImp-case--updateErasable-9897 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Utils-Elab-TTImp-findErased arg-1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-addDef arg-1 arg-0 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-24 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (let ((e-21 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-24 e-23 e-2 e-3 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Utils-Elab-TTImp-case--caseC-32blockC-32inC-32findErasedFrom-9774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (vector 0 (vector 1 arg-7 arg-10) arg-14)) (else (vector 0 arg-10 arg-14)))))) -(define Utils-Elab-TTImp-case--caseC-32blockC-32inC-32findErasedFrom-9703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 arg-7 arg-11)) (else arg-11))))) -(define Utils-Elab-TTImp-case--findErasedFrom-9670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Utils-Elab-TTImp-detagSafe arg-8 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((dtC-39 (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 arg-7 e-3)) (else e-3))))) (vector 1 (let ((_-0 (vector 0 e-2 e-3))) (Utils-Elab-TTImp-case--caseC-32blockC-32inC-32findErasedFrom-9774 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-5 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-11 arg-12))))) arg-3)))))))))))))))) -(define Utils-Elab-TTImp-case--detagSafe-9563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-9 (vector-ref sc1 8))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-5 eta-1)) arg-3) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (Utils-Elab-TTImp-n--6909-9521-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-11 e-10))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Utils-Elab-TTImp-n--7726-10248-notLets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (Utils-Elab-TTImp-case--bindReqC-44notLets-10267 arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2 e-3 e-8 e-7 arg-6 (TT-Core-isLet 'erased e-7)))))))))))) -(define Utils-Elab-TTImp-n--6909-9521-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--6909-9521-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Types-Prelude-C-43_Num__Nat arg-6 (+ 1 0)) arg-7 e-3))(else (Basics-Prelude-C-124C-124 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__Nat arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__Nat arg-9 arg-10)))) arg-6 arg-7) (lambda () (Utils-Elab-TTImp-n--6909-9521-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Types-Prelude-C-43_Num__Nat arg-6 (+ 1 0)) arg-7 e-3))))))))(else (Basics-Prelude-C-124C-124 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__Nat arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__Nat arg-9 arg-10)))) arg-6 arg-7) (lambda () (Utils-Elab-TTImp-n--6909-9521-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Types-Prelude-C-43_Num__Nat arg-6 (+ 1 0)) arg-7 e-3)))))))))))))))) -(define Utils-Elab-TTImp-wrapErrorC (lambda (arg-0 arg-1 arg-2) (Utils-Elab-TTImp-case--wrapErrorC-10000 'erased arg-2 arg-1 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-4 arg-5)))) (vector 1 ) arg-1)))) +(define Local-Elab-TTImp-checkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((f (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 2))) e-2)))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-lookupCtxtExact (vector 8 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))) (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((vis (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 10))) e-9)))) (else (vector 2 )))))) (let ((nestdecls (Local-Elab-TTImp-case--checkLocal-3927 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 f e-6 e-7 vis (TT-Core-C-61C-61_Eq__Visibility vis (vector 2 ))))) (let ((defNames (TTImp-TTImp-definedInBlock (vector 0 ) nestdecls))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Local-Elab-TTImp-n--9135-3464-applyEnv arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 f eta-0 eta-1))) (List-Data-nub 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (Name-Core-C-61C-61_Eq__Name arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (Name-Core-C-47C-61_Eq__Name arg-13 arg-14)))) defNames)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((nestC-39 (List-Types-Prelude-C-43C-43 'erased e-8 arg-7))) (let ((envC-39 (Local-Elab-TTImp-n--9135-3463-dropLinear arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased arg-8))) (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((olddelayed (let ((sc5 e-9)) (let ((e-11 (vector-ref sc5 9))) e-11)))) (let ((act-29 (let ((act-29 (set-box! arg-3 (let ((sc5 e-9)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-14 (vector-ref sc5 6))) (let ((e-13 (vector-ref sc5 7))) (let ((e-12 (vector-ref sc5 8))) (let ((e-10 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-13 e-12 (vector 0 ) e-10)))))))))))))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) nestC-39 envC-39 eta-0)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Local-Elab-TTImp-n--9135-3468-updateName arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 nestC-39 eta-0)) nestdecls)) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (let ((act-32 (set-box! arg-3 (let ((sc8 e-12)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-17 (vector-ref sc8 6))) (let ((e-16 (vector-ref sc8 7))) (let ((e-15 (vector-ref sc8 8))) (let ((e-13 (vector-ref sc8 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-17 e-16 e-15 olddelayed e-13)))))))))))))) (vector 1 act-32)))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-11 arg-12) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Local-Elab-TTImp-checkCaseLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-11 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((name (let ((_-0 (vector 1 e-1))) (Local-Elab-TTImp-case--caseC-32blockC-32inC-32checkCaseLocal-4481 arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))))) (let ((act-26 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-1 arg-9 arg-8 name arg-12) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Updating case local " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x)))) e-3))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "To") arg-8 e-2 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 1 (vector 0 arg-10 (vector 0 (vector 1 arg-11) (vector 0 e-3 (lambda (fc) (lambda (nt) e-2))))) arg-7))) ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 nestC-39 arg-8 arg-13 arg-14) ext-0))))))))))))))))))))) (else ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-14) ext-0)))))))))))))))) +(define Utils-Elab-TTImp-case--bindNotReq-10083 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-8) arg-0 e-3))))))) +(define Utils-Elab-TTImp-case--bindNotReq-10018 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (TT-Core-refToLocal 'erased (vector 2 "arg" arg-6) arg-0 e-3))))))) +(define Utils-Elab-TTImp-case--wrapErrorC-9922 (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32updateErasable-9886 (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--caseC-32blockC-32inC-32updateErasable-9838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-1 arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 3))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-22 e-2 e-3 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))) +(define Utils-Elab-TTImp-case--updateErasable-9819 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Utils-Elab-TTImp-findErased arg-1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-addDef arg-1 arg-0 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-24 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (let ((e-21 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-24 e-23 e-2 e-3 e-21 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Utils-Elab-TTImp-case--caseC-32blockC-32inC-32findErasedFrom-9700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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--caseC-32blockC-32inC-32findErasedFrom-9633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--findErasedFrom-9602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Utils-Elab-TTImp-detagSafe arg-7 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((dtC-39 (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 arg-6 e-3)) (else e-3))))) (vector 1 (let ((_-0 (vector 0 e-2 e-3))) (Utils-Elab-TTImp-case--caseC-32blockC-32inC-32findErasedFrom-9700 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-10 arg-11))))) arg-2)))))))))))))))) +(define Utils-Elab-TTImp-case--detagSafe-9497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-9 (vector-ref sc1 8))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-5 eta-1)) arg-3) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (Utils-Elab-TTImp-n--6720-9455-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-11 e-10))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Utils-Elab-TTImp-n--7517-10165-notLets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (Utils-Elab-TTImp-n--7517-10165-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 e-3 e-8))(else (Utils-Elab-TTImp-n--7517-10165-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased (vector 1 e-2 arg-6) e-3 e-8)))))))))))))) +(define Utils-Elab-TTImp-n--6720-9455-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--6720-9455-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Types-Prelude-C-43_Num__Nat arg-6 (+ 1 0)) arg-7 e-3))(else (Basics-Prelude-C-124C-124 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__Nat arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__Nat arg-9 arg-10)))) arg-6 arg-7) (lambda () (Utils-Elab-TTImp-n--6720-9455-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Types-Prelude-C-43_Num__Nat arg-6 (+ 1 0)) arg-7 e-3))))))))(else (Basics-Prelude-C-124C-124 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__Nat arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__Nat arg-9 arg-10)))) arg-6 arg-7) (lambda () (Utils-Elab-TTImp-n--6720-9455-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Types-Prelude-C-43_Num__Nat arg-6 (+ 1 0)) arg-7 e-3)))))))))))))))) +(define Utils-Elab-TTImp-wrapErrorC (lambda (arg-0 arg-1 arg-2) (Utils-Elab-TTImp-case--wrapErrorC-9922 'erased arg-2 arg-1 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-4 arg-5)))) (vector 1 ) arg-1)))) (define Utils-Elab-TTImp-updateErasable (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (Utils-Elab-TTImp-findErased arg-0 (let ((sc3 e-1)) (let ((e-2 (vector-ref sc3 3))) e-2)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Context-Core-addDef arg-0 arg-1 (let ((sc5 e-1)) (let ((e-0 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (let ((e-25 (vector-ref sc5 3))) (let ((e-23 (vector-ref sc5 6))) (let ((e-22 (vector-ref sc5 7))) (let ((e-21 (vector-ref sc5 8))) (let ((e-8 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (vector 0 e-0 e-26 e-25 e-2 e-3 e-23 e-22 e-21 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))))))))))))) -(define Utils-Elab-TTImp-plicit (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-3 (vector-ref sc0 3))) (TT-Core-forgetDef 'erased 'erased e-3))) ((3) (let ((e-8 (vector-ref sc0 3))) (TT-Core-forgetDef 'erased 'erased e-8)))(else (vector 1 )))))) -(define Utils-Elab-TTImp-findErasedFrom (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-3) (lambda (arg-4) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) e-7)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Utils-Elab-TTImp-findErasedFrom arg-0 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (let ((e-12 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((act-26 ((Utils-Elab-TTImp-detagSafe arg-0 e-9) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (let ((dtC-39 (let ((sc6 e-13)) (cond ((equal? sc6 0) (vector 1 arg-1 e-11)) (else e-11))))) (vector 1 (let ((_-0 (vector 0 e-12 e-11))) (Utils-Elab-TTImp-case--caseC-32blockC-32inC-32findErasedFrom-9774 e-6 e-8 e-9 e-7 e-4 e-2 e-1 arg-1 arg-0 e-5 e-12 e-11 _-0 e-13 dtC-39 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-3) (lambda (arg-4) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) e-7)))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))))))) +(define Utils-Elab-TTImp-plicit (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (TT-Core-forgetDef 'erased 'erased e-2))) ((3) (let ((e-6 (vector-ref sc0 2))) (TT-Core-forgetDef 'erased 'erased e-6)))(else (vector 1 )))))) +(define Utils-Elab-TTImp-findErasedFrom (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-3) (lambda (arg-4) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) e-6)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Utils-Elab-TTImp-findErasedFrom arg-0 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-11 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 ((Utils-Elab-TTImp-detagSafe arg-0 e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (let ((dtC-39 (let ((sc6 e-12)) (cond ((equal? sc6 0) (vector 1 arg-1 e-10)) (else e-10))))) (vector 1 (let ((_-0 (vector 0 e-11 e-10))) (Utils-Elab-TTImp-case--caseC-32blockC-32inC-32findErasedFrom-9700 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-3) (lambda (arg-4) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) e-6))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))))))) (define Utils-Elab-TTImp-findErased (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-1) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Utils-Elab-TTImp-findErasedFrom e-5 0 e-6) ext-0))))))))))))) -(define Utils-Elab-TTImp-detagSafe (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-9 (vector-ref sc3 8))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-17 (vector-ref sc5 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc5 1))) (vector 1 (Utils-Elab-TTImp-n--6909-9521-notErased e-1 e-3 e-4 e-5 e-2 arg-0 0 e-16 e-17)))))))))(else (vector 1 1))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Utils-Elab-TTImp-bindReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-5 (vector 0 (Utils-Elab-TTImp-n--7726-10248-notLets arg-1 arg-6 arg-5 arg-3 arg-2 'erased (vector 0 ) arg-1 arg-3) (Env-Core-abstractEnvType arg-1 arg-2 arg-3 arg-6)))))(else (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-11 (vector-ref sc2 1))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-6 e-11) (lambda (bC-39) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-11 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-6) e-1) arg-5) (vector 3 arg-2 e-1 (vector 2 (TT-Core-binderLoc 'erased e-6) (TT-Core-multiplicity 'erased e-6) (vector 1 ) (TT-Core-binderType 'erased bC-39)) arg-6)))))) (else (let ((e-15 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-15 arg-5 arg-6)))))))))))))))) -(define Utils-Elab-TTImp-bindNotReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) (vector 0 arg-6 (TT-Core-embed 'erased 'erased arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--bindNotReq-10100 e-2 e-3 e-10 e-9 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 (vector 0 ) arg-6 tmptm))))) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--bindNotReq-10165 e-2 e-3 'erased e-10 e-9 e-15 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 e-15 arg-6 tmptm)))))) (else (let ((e-19 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 arg-3 e-10 e-19 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-9) e-2) arg-6) (vector 3 arg-2 e-2 (vector 2 (TT-Core-binderLoc 'erased e-9) (TT-Core-multiplicity 'erased e-9) (vector 1 ) (TT-Core-binderType 'erased e-9)) arg-7)))))))))))))))) -(define Lazy-Elab-TTImp-case--caseC-32blockC-32inC-32checkForce-10003 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-14) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-3)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0))))))) -(define Lazy-Elab-TTImp-case--checkForce-9960 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((5) (let ((e-6 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 1 (vector 0 (vector 8 arg-3 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-4))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0))))))))))))))) -(define Lazy-Elab-TTImp-case--caseC-32blockC-32inC-32checkDelay-9764 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 7 arg-3 arg-18 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-20 arg-4 (vector 5 arg-3 arg-18 e-5)))))))))))))))))))) -(define Lazy-Elab-TTImp-case--checkDelay-9703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-11 e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 7 arg-3 e-2 e-9 e-7) (Normalise-Core-glueBack arg-0 e-5 arg-4 (vector 5 arg-3 e-2 e-8)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-11 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-4 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't infer delay type") eta-0))))))))))) -(define Lazy-Elab-TTImp-case--checkDelay-9616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--checkDelayed-9542 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-4 arg-3 e-2) e-3)))))))) -(define Lazy-Elab-TTImp-n--9086-9595-delayError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((47) 0)(else 1))))) +(define Utils-Elab-TTImp-detagSafe (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-9 (vector-ref sc3 8))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-17 (vector-ref sc5 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc5 1))) (vector 1 (Utils-Elab-TTImp-n--6720-9455-notErased e-1 e-3 e-4 e-5 e-2 arg-0 0 e-16 e-17)))))))))(else (vector 1 1))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Utils-Elab-TTImp-bindReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-5 (vector 0 (Utils-Elab-TTImp-n--7517-10165-notLets arg-1 arg-6 arg-5 arg-3 arg-2 'erased (vector 0 ) arg-1 arg-3) (Env-Core-abstractEnvType arg-1 arg-2 arg-3 arg-6)))))(else (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-11 (vector-ref sc2 1))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (TT-Core-shrinkBinder 'erased 'erased e-6 e-11) (lambda (bC-39) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-11 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-6) e-1) arg-5) (vector 3 arg-2 e-1 (vector 2 (TT-Core-multiplicity 'erased e-6) (vector 1 ) (TT-Core-binderType 'erased bC-39)) arg-6)))))) (else (let ((e-15 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindReq 'erased e-2 arg-2 e-7 e-15 arg-5 arg-6)))))))))))))))) +(define Utils-Elab-TTImp-bindNotReq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) (vector 0 arg-6 (TT-Core-embed 'erased 'erased arg-7))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--bindNotReq-10018 e-2 e-3 e-10 e-9 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 (vector 0 ) arg-6 tmptm))))) ((2) (let ((e-15 (vector-ref sc2 1))) (let ((tmptm (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-2 (vector 0 ) (vector 2 "arg" arg-3)) arg-7))) (let ((vs (vector 1 e-2 e-3))) (Utils-Elab-TTImp-case--bindNotReq-10083 e-2 e-3 'erased e-10 e-9 e-15 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 (b+ 1 arg-3 63) e-10 e-15 arg-6 tmptm)))))) (else (let ((e-19 (vector-ref sc2 1))) (Utils-Elab-TTImp-bindNotReq 'erased e-3 arg-2 arg-3 e-10 e-19 (vector 1 (vector 0 (Utils-Elab-TTImp-plicit 'erased e-9) e-2) arg-6) (vector 3 arg-2 e-2 (vector 2 (TT-Core-multiplicity 'erased e-9) (vector 1 ) (TT-Core-binderType 'erased e-9)) arg-7)))))))))))))))) +(define Lazy-Elab-TTImp-case--caseC-32blockC-32inC-32checkForce-9935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-14) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-3)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0))))))) +(define Lazy-Elab-TTImp-case--checkForce-9892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((5) (let ((e-6 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (vector 1 (vector 0 (vector 8 arg-3 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-4))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0))))))))))))))) +(define Lazy-Elab-TTImp-case--caseC-32blockC-32inC-32checkDelay-9698 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 7 arg-3 arg-18 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-20 arg-4 (vector 5 arg-3 arg-18 e-5)))))))))))))))))))) +(define Lazy-Elab-TTImp-case--checkDelay-9637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-11 e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 7 arg-3 e-2 e-9 e-7) (Normalise-Core-glueBack arg-0 e-5 arg-4 (vector 5 arg-3 e-2 e-8)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-4 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't infer delay type") eta-0))))))))))) +(define Lazy-Elab-TTImp-case--checkDelay-9550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--checkDelayed-9476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-4 arg-3 e-2) e-3)))))))) +(define Lazy-Elab-TTImp-n--8897-9529-delayError (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((47) 0)(else 1))))) (define Lazy-Elab-TTImp-checkForce (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (gty) (lambda (eta-0) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 gty) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-8 (vector 5 arg-9 (vector 2 ) e-6)))))))))))) arg-11) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-27 ((Normalise-Core-getNF 'erased arg-1 e-3) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((5) (let ((e-9 (vector-ref sc5 2))) (let ((e-4 (vector-ref sc5 3))) (vector 1 (vector 0 (vector 8 arg-9 e-9 e-2) (Normalise-Core-glueBack arg-0 e-5 arg-8 e-4))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Forcing a non-delayed type") ext-0))))))))))))))))))))))))))))) (define Lazy-Elab-TTImp-checkDelayed (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gType 'erased arg-9))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 6 arg-9 arg-10 e-2) e-3)))))))))))) -(define Lazy-Elab-TTImp-checkDelay (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "delayTy" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 arg-9) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-6)))))))))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Lazy-Elab-TTImp-case--checkDelay-9616 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (let ((act-25 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Lazy-Elab-TTImp-n--9086-9595-delayError arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-0) (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((5) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-glueBack arg-0 e-8 arg-8 e-3))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 e-4) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 7 arg-9 e-2 e-12 e-10) (Normalise-Core-glueBack arg-0 e-8 arg-8 (vector 5 arg-9 e-2 e-11))))))))))))))))))))))))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 "elab.delay" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-8 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (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--checkBindHere-15703 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--caseC-32blockC-32inC-32checkBindHere-15645 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--caseC-32blockC-32inC-32checkBindHere-15536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--caseC-32blockC-32inC-32checkBindHere-15434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--caseC-32blockC-32inC-32checkBindHere-15360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 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--caseC-32blockC-32inC-32checkBindHere-15251 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-30)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-2 (Normalise-Core-gnf arg-0 arg-5 e-3) arg-1) eta-0))))))))))) -(define ImplicitBind-Elab-TTImp-case--checkBindHere-15008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-12 arg-10 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32checkBindHere-15536 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-2 e-3 _-0 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)))) (vector 0 ) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Unify-Core-solveConstraintsAfter arg-12 arg-10 arg-19 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32checkBindHere-15434 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-2 e-3 _-0 e-5 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (vector 1 ) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-10))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-0 arg-12 arg-11 arg-10 arg-9 (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8)) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-10))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-10 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 (vector 0 ) e-9)))))))))))))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Unify-Core-checkDots arg-10 arg-12 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-logTerm arg-0 arg-12 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((Normalise-Core-logTermNF arg-0 arg-12 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-5 e-2) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-12 arg-9 arg-10 arg-4 (let ((sc8 arg-7)) (let ((e-0 (vector-ref sc8 1))) e-0)) arg-3 arg-5 arg-17) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Check-Elab-TTImp-clearToBind 'erased arg-9 arg-17 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-9))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (let ((act-34 (set-box! arg-9 (Check-Elab-TTImp-updateEnv 'erased (let ((sc11 arg-13)) (let ((e-1 (vector-ref sc11 1))) e-1)) arg-14 arg-15 arg-16 (let ((sc11 e-14)) (let ((e-1 (vector-ref sc11 1))) (let ((e-25 (vector-ref sc11 2))) (let ((e-24 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-22 (vector-ref sc11 6))) (let ((e-21 (vector-ref sc11 7))) (let ((e-20 (vector-ref sc11 8))) (let ((e-19 (vector-ref sc11 9))) (let ((e-18 (vector-ref sc11 10))) (let ((e-17 (vector-ref sc11 11))) (let ((e-16 (vector-ref sc11 12))) (let ((e-15 (vector-ref sc11 13))) (vector 0 e-1 e-25 e-24 e-4 (vector 0 ) e-22 e-21 e-20 e-19 e-18 e-17 e-16 e-15)))))))))))))))))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (let ((act-36 (unbox arg-12))) (vector 1 act-36)))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-2 eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-38 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-16 eta-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc15 1))) ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-4 arg-3 e-17 arg-5 e-12 e-18 e-19) eta-0))))))))))))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((sc15 e-18)) (let ((e-19 (vector-ref sc15 1))) (let ((e-4 (vector-ref sc15 2))) (let ((act-38 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-12)) eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-19 (Normalise-Core-gnf arg-0 arg-5 e-4) arg-1) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkBindVar-14749 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkBindVar-14634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Unify-Core-setInvertible arg-11 arg-3 arg-14 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkBindVar-14479 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkBindVar-14634 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-6 e-7 _-0 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) eta-0)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 ((Context-Core-log arg-11 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Added Bound implicit " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 e-7)))))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-8))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (set-box! arg-8 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (let ((e-16 (vector-ref sc5 7))) (let ((e-15 (vector-ref sc5 8))) (let ((e-14 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (let ((e-11 (vector-ref sc5 11))) (let ((e-12 (vector-ref sc5 12))) (let ((e-13 (vector-ref sc5 13))) (vector 0 e-1 e-20 e-19 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-18) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0))))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32checkBindVar-14428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-8 arg-11 arg-9 arg-3 arg-7 arg-14 arg-4 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkBindVar-14634 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-6 e-7 _-0 (let ((sc4 arg-6)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-0)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 ((Context-Core-log arg-11 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Added Bound implicit " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 e-7)))))))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (unbox arg-8))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (let ((act-28 (set-box! arg-8 (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((e-20 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-19 (vector-ref sc7 5))) (let ((e-18 (vector-ref sc7 6))) (let ((e-17 (vector-ref sc7 7))) (let ((e-16 (vector-ref sc7 8))) (let ((e-15 (vector-ref sc7 9))) (let ((e-14 (vector-ref sc7 10))) (let ((e-11 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-1 e-21 e-20 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-19) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-18) e-17 e-16 e-15 e-14 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-29 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0))))))))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--12974-14063-combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (vector 1 arg-2) arg-7 (Check-Elab-TTImp-bindingRig 'erased e-2)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((tm (Check-Elab-TTImp-bindingTerm 'erased e-2))) (let ((ty (Check-Elab-TTImp-bindingType 'erased e-2))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 ty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 tm (Normalise-Core-gnf arg-0 arg-4 ty) arg-1) eta-0)))))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--checkBindVar-14356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((n (vector 3 (vector 1 arg-2) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-8 arg-12 (vector 1 arg-2)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-8 n eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-8))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32checkBindVar-14428 arg-0 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-14) (lambda (arg-15) (Name-Core-C-61C-61_Eq__Name arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Name-Core-C-47C-61_Eq__Name arg-14 arg-15)))) 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--checkBindVar-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (Types-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--getToBind-14006 (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--getToBind-13959 (lambda (arg-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--getToBindC-44insert-13712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--12116-13286-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--caseC-32blockC-32inC-32getToBindC-44normImps-13530 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--12116-13285-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 (vector 1 arg-19 arg-12) arg-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ImplicitBind-Elab-TTImp-n--12116-13284-normBindingTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-19 e-6) e-5)))))))))))))) (else (ImplicitBind-Elab-TTImp-n--12116-13285-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--getToBindC-44normImps-13479 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-isCurrentHole arg-6 e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32getToBindC-44normImps-13530 arg-0 arg-1 arg-2 arg-3 arg-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 (Basics-Prelude-C-38C-38 e-9 (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-17) (lambda (arg-18) (Name-Core-C-61C-61_Eq__Name arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (Name-Core-C-47C-61_Eq__Name arg-17 arg-18)))) e-6 arg-12))))) eta-0))))))))))))(else (ImplicitBind-Elab-TTImp-n--12116-13285-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--12116-13285-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--getToBindC-44normImps-13356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (ImplicitBind-Elab-TTImp-n--12116-13285-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 arg-13 arg-12)) (else (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--12116-13285-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 (vector 1 (vector 3 arg-10 arg-9) arg-13) arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ImplicitBind-Elab-TTImp-n--12116-13284-normBindingTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 arg-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 (vector 3 arg-10 arg-9) e-6) e-5)))))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--implicitBind-13229 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-2 arg-0 (lambda (eta-1) (vector 1 (vector 10 ))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (UnifyState-Core-removeHoleName arg-2 arg-1 arg-0 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ImplicitBind-Elab-TTImp-case--bindImplVars-13073 (lambda (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--11478-12744-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--bindImplVarsC-44getBinds-12996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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-7 arg-16 bpatC-39 btyC-39) e-2) (vector 3 arg-7 arg-12 (vector 4 arg-7 arg-16 bpatC-39 btyC-39) e-3))))))))) -(define ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32bindImplVarsC-44getBinds-12846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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 arg-7 e-0 (vector 0 ) arg-22) arg-20) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-7 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-7 arg-14 arg-22) arg-21))))))) -(define ImplicitBind-Elab-TTImp-case--bindImplVarsC-44getBinds-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 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 arg-7 e-0 (vector 0 ) btyC-39) e-2) (vector 11 arg-7))))(else (vector 0 (vector 3 arg-7 arg-10 (vector 3 arg-7 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-7 arg-14 btyC-39) e-3))))))))))) -(define ImplicitBind-Elab-TTImp-case--push-12586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (vector 3 arg-11 arg-3 arg-10 arg-9)) (else (let ((e-2 (vector-ref sc0 1))) (vector 3 arg-8 (vector 3 arg-2 arg-1) (vector 2 arg-6 arg-5 (vector 0 ) e-2) (ImplicitBind-Elab-TTImp-push (vector 1 (vector 3 arg-2 arg-1) arg-0) arg-11 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-10) (ImplicitBind-Elab-TTImp-swapVars 'erased 'erased 'erased (vector 0 ) arg-7))))))))) -(define ImplicitBind-Elab-TTImp-case--swapVars-12334 (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--swapIsVar-12262 (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--caseC-32blockC-32inC-32bindUnsolvedC-44mkImplicit-11898 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--bindUnsolvedC-44mkImplicit-11807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles arg-10 arg-18 arg-11 arg-14 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-n--10100-11518-makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-8 arg-9 arg-12 arg-17 arg-15 arg-16 e-5) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-10 arg-6 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) arg-10 arg-6 arg-3) (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) arg-11) arg-13) e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Lazy-Elab-TTImp-checkDelay (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 "delayTy" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 arg-9) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-6)))))))))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Lazy-Elab-TTImp-case--checkDelay-9550 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (let ((act-25 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-5 (lambda (eta-0) (Lazy-Elab-TTImp-n--8897-9529-delayError arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-0) (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((5) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-glueBack arg-0 e-8 arg-8 e-3))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 e-4) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 7 arg-9 e-2 e-12 e-10) (Normalise-Core-glueBack arg-0 e-8 arg-8 (vector 5 arg-9 e-2 e-11))))))))))))))))))))))))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected delay type") arg-8 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer delay type") eta-0))))))))))))))) ext-0))))))))))))) +(define ImplicitBind-Elab-TTImp-case--checkBindHere-15674 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--caseC-32blockC-32inC-32checkBindHere-15616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--caseC-32blockC-32inC-32checkBindHere-15507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--caseC-32blockC-32inC-32checkBindHere-15405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--caseC-32blockC-32inC-32checkBindHere-15331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--caseC-32blockC-32inC-32checkBindHere-15222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-30)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-2 (Normalise-Core-gnf arg-0 arg-5 e-3) arg-1) eta-0))))))))))) +(define ImplicitBind-Elab-TTImp-case--checkBindHere-14983 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-12 arg-10 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32checkBindHere-15507 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-2 e-3 _-0 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)))) (vector 0 ) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Unify-Core-solveConstraintsAfter arg-12 arg-10 arg-19 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32checkBindHere-15405 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 e-2 e-3 _-0 e-5 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (vector 1 ) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-10))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Delayed-Elab-TTImp-retryDelayed arg-0 arg-12 arg-11 arg-10 arg-9 (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 9))) e-8)) eta-1)) (lambda (err) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-10))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-10 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-15 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-13 (vector-ref sc5 6))) (let ((e-12 (vector-ref sc5 7))) (let ((e-11 (vector-ref sc5 8))) (let ((e-9 (vector-ref sc5 10))) (vector 0 e-0 e-1 e-15 e-14 e-4 e-13 e-12 e-11 (vector 0 ) e-9)))))))))))))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Unify-Core-checkDots arg-10 arg-12 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-logTerm arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (Normalise-Core-logTermNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-5 e-2 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-12 arg-9 arg-10 arg-4 (let ((sc8 arg-7)) (let ((e-0 (vector-ref sc8 1))) e-0)) arg-3 arg-5 arg-17) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Check-Elab-TTImp-clearToBind 'erased arg-9 arg-17 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-9))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (let ((act-34 (set-box! arg-9 (Check-Elab-TTImp-updateEnv 'erased (let ((sc11 arg-13)) (let ((e-1 (vector-ref sc11 1))) e-1)) arg-14 arg-15 arg-16 (let ((sc11 e-14)) (let ((e-1 (vector-ref sc11 1))) (let ((e-25 (vector-ref sc11 2))) (let ((e-24 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-22 (vector-ref sc11 6))) (let ((e-21 (vector-ref sc11 7))) (let ((e-20 (vector-ref sc11 8))) (let ((e-19 (vector-ref sc11 9))) (let ((e-18 (vector-ref sc11 10))) (let ((e-17 (vector-ref sc11 11))) (let ((e-16 (vector-ref sc11 12))) (let ((e-15 (vector-ref sc11 13))) (vector 0 e-1 e-25 e-24 e-4 (vector 0 ) e-22 e-21 e-20 e-19 e-18 e-17 e-16 e-15)))))))))))))))))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (let ((act-36 (unbox arg-12))) (vector 1 act-36)))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-2 eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-38 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-16 eta-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc15 1))) ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-4 arg-3 e-17 arg-5 e-12 e-18 e-19) eta-0))))))))))))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((sc15 e-18)) (let ((e-19 (vector-ref sc15 1))) (let ((e-4 (vector-ref sc15 2))) (let ((act-38 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ImplicitBind-Elab-TTImp-implicitBind arg-12 arg-10 eta-1 eta-2))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-12)) eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-12 arg-10 arg-9 arg-8 arg-7 arg-5 arg-4 e-19 (Normalise-Core-gnf arg-0 arg-5 e-4) arg-1) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkBindVar-14724 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkBindVar-14609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Unify-Core-setInvertible arg-11 arg-3 arg-14 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkBindVar-14456 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkBindVar-14609 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-6 e-7 _-0 (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) eta-0)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Added Bound implicit " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 e-7))))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-8))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (set-box! arg-8 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (let ((e-16 (vector-ref sc5 7))) (let ((e-15 (vector-ref sc5 8))) (let ((e-14 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (let ((e-11 (vector-ref sc5 11))) (let ((e-12 (vector-ref sc5 12))) (let ((e-13 (vector-ref sc5 13))) (vector 0 e-1 e-20 e-19 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-18) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-17) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0))))))))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32checkBindVar-14405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-8 arg-11 arg-9 arg-3 arg-7 arg-14 arg-4 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkBindVar-14609 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-6 e-7 _-0 (let ((sc4 arg-6)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-0)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Added Bound implicit " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2)))) (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x))))) (vector 0 arg-14 (vector 0 arg-7 (vector 0 e-2 (vector 0 e-6 e-7))))))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (unbox arg-8))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (let ((act-28 (set-box! arg-8 (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((e-20 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-19 (vector-ref sc7 5))) (let ((e-18 (vector-ref sc7 6))) (let ((e-17 (vector-ref sc7 7))) (let ((e-16 (vector-ref sc7 8))) (let ((e-15 (vector-ref sc7 9))) (let ((e-14 (vector-ref sc7 10))) (let ((e-11 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-1 e-21 e-20 e-4 (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-6)) e-19) (vector 1 (vector 0 arg-14 (vector 0 arg-0 arg-7 (vector 1 ) e-2 e-7)) e-18) e-17 e-16 e-15 e-14 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-29 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 e-2 (Normalise-Core-gnf arg-0 arg-4 e-6) arg-1) eta-0))))))))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--12760-14040-combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (vector 1 arg-2) arg-7 (Check-Elab-TTImp-bindingRig 'erased e-2)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((tm (Check-Elab-TTImp-bindingTerm 'erased e-2))) (let ((ty (Check-Elab-TTImp-bindingType 'erased e-2))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 ty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-11 arg-9 arg-8 arg-7 arg-6 arg-4 arg-3 tm (Normalise-Core-gnf arg-0 arg-4 ty) arg-1) eta-0)))))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--checkBindVar-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) (let ((sc0 arg-13)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((n (vector 3 (vector 1 arg-2) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-8 arg-12 (vector 1 arg-2)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-8 n eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-8))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32checkBindVar-14405 arg-0 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-14) (lambda (arg-15) (Name-Core-C-61C-61_Eq__Name arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Name-Core-C-47C-61_Eq__Name arg-14 arg-15)))) 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--checkBindVar-14268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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) (Types-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--getToBind-13983 (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--getToBind-13936 (lambda (arg-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--getToBindC-44insert-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 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--11910-13271-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--caseC-32blockC-32inC-32getToBindC-44normImps-13511 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--11910-13270-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 (vector 1 arg-19 arg-12) arg-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ImplicitBind-Elab-TTImp-n--11910-13269-normBindingTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-13 arg-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-19 e-6) e-5)))))))))))))) (else (ImplicitBind-Elab-TTImp-n--11910-13270-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--getToBindC-44normImps-13460 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-isCurrentHole arg-6 e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32getToBindC-44normImps-13511 arg-0 arg-1 arg-2 arg-3 arg-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 (Basics-Prelude-C-38C-38 e-9 (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-17) (lambda (arg-18) (Name-Core-C-61C-61_Eq__Name arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (Name-Core-C-47C-61_Eq__Name arg-17 arg-18)))) e-6 arg-12))))) eta-0))))))))))))(else (ImplicitBind-Elab-TTImp-n--11910-13270-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--11910-13270-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--getToBindC-44normImps-13339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--11910-13270-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 arg-13 arg-12)) (else (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-n--11910-13270-normImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 (vector 1 (vector 3 arg-10 arg-9) arg-13) arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ImplicitBind-Elab-TTImp-n--11910-13269-normBindingTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-14 arg-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 (vector 3 arg-10 arg-9) e-6) e-5)))))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--implicitBind-13214 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-2 arg-0 (lambda (eta-1) (vector 1 (vector 10 ))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (UnifyState-Core-removeHoleName arg-2 arg-1 arg-0 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ImplicitBind-Elab-TTImp-case--bindImplVars-13058 (lambda (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--11272-12729-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--bindImplVarsC-44getBinds-12981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--caseC-32blockC-32inC-32bindImplVarsC-44getBinds-12831 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--bindImplVarsC-44getBinds-12780 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--push-12582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--swapVars-12330 (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--swapIsVar-12258 (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--caseC-32blockC-32inC-32bindUnsolvedC-44mkImplicit-11896 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--bindUnsolvedC-44mkImplicit-11807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles arg-10 arg-18 arg-11 arg-14 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-n--9909-11518-makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-10 arg-8 arg-9 arg-12 arg-17 arg-15 arg-16 e-5) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) arg-10 arg-6 arg-3) (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) arg-11) arg-13) e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32bindUnsolvedC-44makeBoundVar-11697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--bindUnsolvedC-44makeBoundVar-11539 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-2 (Strings-Types-Prelude-C-43C-43 "Can't bind implicit " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) (Strings-Types-Prelude-C-43C-43 " of type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-8 e-5))))) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-6 arg-3 (Name-Core-nameRoot arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-7 arg-6 arg-3 arg-2 arg-14 arg-12 e-5 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-5))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((pC-39 (TT-Core-forgetDef 'erased 'erased arg-13))) (let ((act-27 (let ((act-27 (set-box! arg-5 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-16 (vector-ref sc4 5))) (let ((e-15 (vector-ref sc4 6))) (let ((e-14 (vector-ref sc4 7))) (let ((e-8 (vector-ref sc4 8))) (let ((e-9 (vector-ref sc4 9))) (let ((e-10 (vector-ref sc4 10))) (let ((e-11 (vector-ref sc4 11))) (let ((e-12 (vector-ref sc4 12))) (let ((e-13 (vector-ref sc4 13))) (vector 0 e-1 e-17 e-3 e-4 e-16 (vector 1 (vector 0 e-5 (vector 0 arg-4 arg-14 pC-39 (TT-Core-embedSub 'erased 'erased arg-10 e-6) (TT-Core-embedSub 'erased 'erased arg-10 e-2))) e-15) e-14 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (TT-Core-embedSub 'erased 'erased arg-11 e-6))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-case--mkPatternHole-11396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-implBindVar (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-8 arg-7 arg-6 arg-5 arg-12 arg-4 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (TT-Core-apply 'erased arg-6 (TT-Core-embedSub 'erased 'erased arg-11 e-5) (ImplicitBind-Elab-TTImp-n--9784-11284-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-0 arg-11)) (vector 0 arg-13 (TT-Core-embedSub 'erased 'erased arg-11 e-2)))))))))))))))) +(define ImplicitBind-Elab-TTImp-case--mkPatternHole-11396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-implBindVar (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-8 arg-7 arg-6 arg-5 arg-12 arg-4 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (TT-Core-apply 'erased arg-6 (TT-Core-embedSub 'erased 'erased arg-11 e-5) (ImplicitBind-Elab-TTImp-n--9593-11284-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-0 arg-11)) (vector 0 arg-13 (TT-Core-embedSub 'erased 'erased arg-11 e-2)))))))))))))))) (define ImplicitBind-Elab-TTImp-case--mkPatternHole-11246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 e-3))))))))) -(define ImplicitBind-Elab-TTImp-case--mkOuterHole-11039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((env (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-implBindVar (let ((sc1 arg-9)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-7 arg-6 arg-5 arg-4 env arg-3 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (TT-Core-embedSub 'erased 'erased arg-10 e-5) (TT-Core-embedSub 'erased 'erased arg-10 e-2)))))))))))))))) -(define ImplicitBind-Elab-TTImp-n--11478-12744-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--11478-12744-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--11478-12744-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))) ((5) (let ((e-5 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11478-12744-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--10758-12139-swapP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-8 1))) (+ 1 (+ 1 e-0)))))))) -(define ImplicitBind-Elab-TTImp-n--12116-13285-normImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-logTermNF arg-1 arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Implicit pattern var " (Name-Core-show_Show__Name (vector 3 e-8 e-9)))) arg-2 (Check-Elab-TTImp-bindingType 'erased e-7)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--getToBindC-44normImps-13356 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (Name-Core-C-61C-61_Eq__Name arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Name-Core-C-47C-61_Eq__Name arg-12 arg-13)))) (vector 3 e-8 e-9) arg-10)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 (Check-Elab-TTImp-bindingTerm 'erased e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-1 arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Normalising implicit " (Name-Core-show_Show__Name e-6))) e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--getToBindC-44normImps-13479 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--12116-13284-normBindingTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-1 e-1 e-2 e-3 e-5))))))))))))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc2 1))) (vector 1 (vector 1 arg-1 e-6 e-7 e-8 e-11 e-12))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-n--11980-13157-nHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 (vector 0 arg-0 e-5 e-6 e-7 e-9)))))))))))))) (else (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((e-13 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-13) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 (vector 1 arg-0 e-10 e-11 e-12 e-5 e-14)))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-n--10100-11519-mkImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc7 arg-8)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((sc9 e-1)) (case (vector-ref sc9 0) ((7) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles e-10 arg-8 e-14 e-26 eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((ImplicitBind-Elab-TTImp-n--10100-11518-makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-10 e-2 e-6 e-18 arg-9 e-27 arg-10 e-9) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-26 (Context-Core-logTerm e-10 arg-6 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-9 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) e-10 arg-6 arg-3) (let ((sc12 arg-1)) (case (vector-ref sc12 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) e-14) e-22) e-9) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (vector 1 (vector 0 ))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-n--9784-11284-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-1 e-2 eta-0)) (ImplicitBind-Elab-TTImp-n--9784-11284-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--10100-11518-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--bindUnsolvedC-44makeBoundVar-11539 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--11408-12681-liftImpsC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-15 (vector-ref sc2 3))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((0) (vector 3 e-1 (vector 3 e-10 e-11) e-3 (ImplicitBind-Elab-TTImp-n--11408-12681-liftImpsC-39 arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 3 e-10 e-11) arg-4) e-4)))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 e-3 (ImplicitBind-Elab-TTImp-n--11408-12681-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) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 e-3 (ImplicitBind-Elab-TTImp-n--11408-12681-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) (ImplicitBind-Elab-TTImp-push arg-4 e-1 e-2 e-3 (ImplicitBind-Elab-TTImp-n--11408-12681-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--12974-14062-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) (Basics-Prelude-C-38C-38 (Basics-Prelude-C-124C-124 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-14 arg-15))))) arg-12) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-14 arg-15))))) arg-13))) (lambda () (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) (vector 0 (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-14 arg-15))))) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-12 arg-13)))))) -(define ImplicitBind-Elab-TTImp-n--12116-13286-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) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (Name-Core-C-61C-61_Eq__Name arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (Name-Core-C-47C-61_Eq__Name arg-13 arg-14)))) n arg-10)) (NameMap-Data-keys 'erased (Check-Elab-TTImp-bindingMetas 'erased e-10))))) (ImplicitBind-Elab-TTImp-case--getToBindC-44insert-13712 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (Name-Core-C-61C-61_Eq__Name arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (Name-Core-C-47C-61_Eq__Name arg-13 arg-14)))) e-2 used))))))))))))))))) -(define ImplicitBind-Elab-TTImp-n--11478-12745-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--bindImplVarsC-44getBinds-12795 '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--11478-12745-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--bindImplVarsC-44getBinds-12996 '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--11478-12745-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--12116-13287-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--12116-13286-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--12116-13287-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--12974-14063-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--12974-14062-isIncompatible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13 arg-14))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ImplicitBind-Elab-TTImp-n--9784-11285-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--9784-11285-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--swapVars-12334 '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 (Types-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--10758-12139-swapP 'erased 'erased 'erased 'erased e-0 'erased arg-4 'erased e-0 'erased))))))) -(define ImplicitBind-Elab-TTImp-swapIsVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-swapIsVarH 'erased 'erased 'erased 'erased arg-5 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-5 1))) (let ((idx (+ 1 e-4))) (ImplicitBind-Elab-TTImp-case--swapIsVar-12262 '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 ((e-11 (vector-ref sc2 4))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((tm (vector 3 e-1 (vector 3 e-5 e-6) (vector 2 e-8 e-9 (vector 0 ) e-11) e-4))) (ImplicitBind-Elab-TTImp-case--push-12586 arg-0 e-6 e-5 arg-2 e-11 e-9 e-8 e-4 e-1 tm arg-3 arg-1 (TT-Core-shrinkTerm 'erased 'erased e-11 (vector 1 (vector 0 ))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))) -(define ImplicitBind-Elab-TTImp-normaliseHolesScope (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope (vector 1 e-2 arg-0) arg-1 (vector 1 (vector 0 e-1 (TT-Core-multiplicity 'erased e-3) (vector 1 ) (TT-Core-binderType 'erased e-3)) arg-2) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-1 e-2 e-3 e-5)))))))))))))(else (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 arg-1 arg-2 arg-3 eta-0))))))) -(define ImplicitBind-Elab-TTImp-mkPatternHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (vector 0 e-3 e-3)))))))))))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--mkPatternHole-11396 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--9784-11285-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-Types-Prelude-C-43C-43 "Unknown type for pattern variable " (Name-Core-show_Show__Name arg-6))) eta-0)))))))))) -(define ImplicitBind-Elab-TTImp-mkOuterHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--mkOuterHole-11039 arg-0 e-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 sub)) eta-0))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 (UnifyState-Core-genName arg-2 arg-3 (Strings-Types-Prelude-C-43C-43 "type_of_" (Name-Core-nameRoot arg-6)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-6 (vector 11 arg-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Context-Core-log arg-2 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Made metavariable for type of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Types-Prelude-C-43C-43 ": " (Name-Core-show_Show__Name e-6)))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-1 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-5 (vector 1 ) arg-7 (TT-Core-embedSub 'erased 'erased sub e-7) (vector 11 arg-4) e-5)))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Check-Elab-TTImp-implBindVar (let ((sc6 e-5)) (let ((e-1 (vector-ref sc6 1))) e-1)) arg-2 arg-3 arg-4 arg-5 env arg-6 e-7 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (TT-Core-embedSub 'erased 'erased sub e-10) (TT-Core-embedSub 'erased 'erased sub e-7))))))))))))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-liftImps (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((11) (let ((e-6 (vector-ref sc2 1))) (vector 0 (ImplicitBind-Elab-TTImp-n--11408-12681-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-case--mkOuterHole-11041 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((env (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-implBindVar (let ((sc1 arg-9)) (let ((e-1 (vector-ref sc1 1))) e-1)) arg-7 arg-6 arg-5 arg-4 env arg-3 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (TT-Core-embedSub 'erased 'erased arg-10 e-5) (TT-Core-embedSub 'erased 'erased arg-10 e-2)))))))))))))))) +(define ImplicitBind-Elab-TTImp-n--11272-12729-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--11272-12729-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--11272-12729-tidyName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))) ((5) (let ((e-5 (vector-ref sc0 2))) (ImplicitBind-Elab-TTImp-n--11272-12729-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--10563-12135-swapP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-8 1))) (+ 1 (+ 1 e-0)))))))) +(define ImplicitBind-Elab-TTImp-n--11910-13270-normImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Implicit pattern var " (Name-Core-show_Show__Name (vector 3 e-8 e-9)))) arg-2 (Check-Elab-TTImp-bindingType 'erased e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--getToBindC-44normImps-13339 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (Name-Core-C-61C-61_Eq__Name arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Name-Core-C-47C-61_Eq__Name arg-12 arg-13)))) (vector 3 e-8 e-9) arg-10)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 (Check-Elab-TTImp-bindingTerm 'erased e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-1 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Normalising implicit " (Name-Core-show_Show__Name e-6))) e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--getToBindC-44normImps-13460 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--11910-13269-normBindingTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-1 e-1 e-2 e-3 e-5))))))))))))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (let ((e-10 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc2 1))) (vector 1 (vector 1 arg-1 e-6 e-7 e-8 e-11 e-12))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-n--11774-13142-nHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((e-8 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 (vector 0 arg-0 e-5 e-6 e-7 e-9)))))))))))))) (else (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (let ((e-13 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-13) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 (vector 1 arg-0 e-10 e-11 e-12 e-5 e-14)))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-n--9909-11519-mkImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((sc6 e-23)) (let ((e-26 (vector-ref sc6 1))) (let ((e-27 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc7 arg-8)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((sc9 e-1)) (case (vector-ref sc9 0) ((7) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles e-10 arg-8 e-14 e-26 eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) ((ImplicitBind-Elab-TTImp-n--9909-11518-makeBoundVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-10 e-2 e-6 e-18 arg-9 e-27 arg-10 e-9) eta-0)))))))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-26 (Context-Core-logTerm e-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-9 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (vector 0 e-12))) (else (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) e-10 arg-6 arg-3) (let ((sc12 arg-1)) (case (vector-ref sc12 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))) arg-2) e-14) e-22) e-9) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (vector 0 e-13))) (else (vector 1 (vector 0 ))))))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-n--9593-11284-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-1 e-2 eta-0)) (ImplicitBind-Elab-TTImp-n--9593-11284-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--9909-11518-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--bindUnsolvedC-44makeBoundVar-11539 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--11207-12673-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--11207-12673-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--11207-12673-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--11207-12673-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--11207-12673-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--12760-14039-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) (Basics-Prelude-C-38C-38 (Basics-Prelude-C-124C-124 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-14 arg-15))))) arg-12) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-14 arg-15))))) arg-13))) (lambda () (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) (vector 0 (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-14 arg-15))))) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-12 arg-13)))))) +(define ImplicitBind-Elab-TTImp-n--11910-13271-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) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (Name-Core-C-61C-61_Eq__Name arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (Name-Core-C-47C-61_Eq__Name arg-13 arg-14)))) n arg-10)) (NameMap-Data-keys 'erased (Check-Elab-TTImp-bindingMetas 'erased e-10))))) (ImplicitBind-Elab-TTImp-case--getToBindC-44insert-13693 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (Name-Core-C-61C-61_Eq__Name arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (Name-Core-C-47C-61_Eq__Name arg-13 arg-14)))) e-2 used))))))))))))))))) +(define ImplicitBind-Elab-TTImp-n--11272-12730-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--bindImplVarsC-44getBinds-12780 '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--11272-12730-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--bindImplVarsC-44getBinds-12981 '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--11272-12730-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--11910-13272-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--11910-13271-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--11910-13272-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--12760-14040-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--12760-14039-isIncompatible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-13 arg-14))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ImplicitBind-Elab-TTImp-n--9593-11285-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--9593-11285-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--swapVars-12330 '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 (Types-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--10563-12135-swapP 'erased 'erased 'erased 'erased e-0 'erased arg-4 'erased e-0 'erased))))))) +(define ImplicitBind-Elab-TTImp-swapIsVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (ImplicitBind-Elab-TTImp-swapIsVarH 'erased 'erased 'erased 'erased arg-5 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-5)) (cond ((equal? sc1 0) 0)(else (let ((e-4 (- arg-5 1))) (let ((idx (+ 1 e-4))) (ImplicitBind-Elab-TTImp-case--swapIsVar-12258 '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--push-12582 arg-0 e-6 e-5 arg-2 e-10 e-8 e-4 e-1 tm arg-3 arg-1 (TT-Core-shrinkTerm 'erased 'erased e-10 (vector 1 (vector 0 ))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))))))(else (vector 3 arg-1 arg-2 arg-3 arg-4)))))) +(define ImplicitBind-Elab-TTImp-normaliseHolesScope (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-normaliseHolesScope (vector 1 e-2 arg-0) arg-1 (vector 1 (vector 0 (TT-Core-multiplicity 'erased e-3) (vector 1 ) (TT-Core-binderType 'erased e-3)) arg-2) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-1 e-2 e-3 e-5)))))))))))))(else (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 arg-1 arg-2 arg-3 eta-0))))))) +(define ImplicitBind-Elab-TTImp-mkPatternHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkOuterHole arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (vector 0 e-3 e-3)))))))))))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--mkPatternHole-11396 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--9593-11285-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-Types-Prelude-C-43C-43 "Unknown type for pattern variable " (Name-Core-show_Show__Name arg-6))) eta-0)))))))))) +(define ImplicitBind-Elab-TTImp-mkOuterHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--mkOuterHole-11041 arg-0 e-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 sub e-6 (TT-Core-shrinkTerm 'erased 'erased e-6 sub)) eta-0))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sub (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 4))) e-4)))) (let ((env (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 3))) e-3)))) (let ((act-25 (UnifyState-Core-genName arg-2 arg-3 (Strings-Types-Prelude-C-43C-43 "type_of_" (Name-Core-nameRoot arg-6)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-6 (vector 11 arg-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Made metavariable for type of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Types-Prelude-C-43C-43 ": " (Name-Core-show_Show__Name e-6))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-1 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-5 (vector 1 ) arg-7 (TT-Core-embedSub 'erased 'erased sub e-7) (vector 11 arg-4) e-5)))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Check-Elab-TTImp-implBindVar (let ((sc6 e-5)) (let ((e-1 (vector-ref sc6 1))) e-1)) arg-2 arg-3 arg-4 arg-5 env arg-6 e-7 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (TT-Core-embedSub 'erased 'erased sub e-10) (TT-Core-embedSub 'erased 'erased sub e-7))))))))))))))))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-liftImps (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((11) (let ((e-6 (vector-ref sc2 1))) (vector 0 (ImplicitBind-Elab-TTImp-n--11207-12673-liftImpsC-39 arg-0 e-0 e-3 e-6 arg-0 e-3) (vector 11 e-6))))(else arg-2))))))(else arg-2)))))(else arg-2))))) (define ImplicitBind-Elab-TTImp-implicitBind (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((7) (let ((act-26 (Context-Core-updateDef arg-0 arg-2 (lambda (eta-0) (vector 1 (vector 10 ))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (UnifyState-Core-removeHoleName arg-0 arg-1 arg-2 ext-0))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))) -(define ImplicitBind-Elab-TTImp-getToBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (vector 0 ) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((ImplicitBind-Elab-TTImp-bindUnsolved arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (vector 0 ) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((tob (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (x) (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Name-Core-C-61C-61_Eq__Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Name-Core-C-47C-61_Eq__Name arg-9 arg-10)))) (Builtin-fst 'erased 'erased x) arg-8))) (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 6))) e-17)))))) (let ((act-29 ((ImplicitBind-Elab-TTImp-n--12116-13285-normImps arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 (vector 0 ) tob) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((hnames (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-10))) (let ((resC-39 (ImplicitBind-Elab-TTImp-n--12116-13287-depSort arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hnames e-10))) (let ((act-30 ((Context-Core-log arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Bound names: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) e-10)))) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 ((Context-Core-log arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Sorted: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) resC-39)))) eta-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 resC-39))))))))))))))))))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-checkBindVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (ImplicitBind-Elab-TTImp-case--checkBindVar-14356 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--checkBindVar-14291 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 2))) e-1))))))) -(define ImplicitBind-Elab-TTImp-checkBindHere (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((oldenv (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (let ((oldsub (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4)))) (let ((oldbif (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)))) (let ((dontbind (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 6))) e-6))))) (let ((act-25 (let ((act-25 (set-box! arg-4 (Check-Elab-TTImp-updateEnv 'erased arg-0 arg-8 (vector 0 ) (vector 0 ) e-5)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-getNextEntry arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 5))) (let ((e-8 (vector-ref sc3 6))) (vector 0 e-0 arg-10 e-2 0 e-4 e-8)))))) arg-7 arg-8 arg-11 arg-12) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Unify-Core-solveConstraints arg-1 arg-3 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32checkBindHere-15536 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 oldenv oldsub oldbif dontbind e-6 e-7 e-2 e-3 _-0 (let ((sc5 arg-6)) (let ((e-0 (vector-ref sc5 1))) e-0)))) (vector 0 ) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Unify-Core-solveConstraintsAfter arg-1 arg-3 e-7 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32checkBindHere-15434 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 oldenv oldsub oldbif dontbind e-6 e-7 e-2 e-3 _-0 e-9 (let ((sc6 arg-6)) (let ((e-0 (vector-ref sc6 1))) e-0)))) (vector 1 ) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-3))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (Delayed-Elab-TTImp-retryDelayed arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc8 e-11)) (let ((e-13 (vector-ref sc8 9))) e-13)) eta-0)) (lambda (err) (lambda (eta-0) (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (set-box! arg-3 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-19 (vector-ref sc9 3))) (let ((e-18 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-17 (vector-ref sc9 6))) (let ((e-16 (vector-ref sc9 7))) (let ((e-15 (vector-ref sc9 8))) (let ((e-13 (vector-ref sc9 10))) (vector 0 e-0 e-1 e-19 e-18 e-4 e-17 e-16 e-15 (vector 0 ) e-13)))))))))))))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-0)))))))))))) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Unify-Core-checkDots arg-3 arg-1 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-logTerm arg-0 arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 ((Normalise-Core-logTermNF arg-0 arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-8 e-2) ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-1 arg-4 arg-3 arg-9 (let ((sc12 arg-6)) (let ((e-0 (vector-ref sc12 1))) e-0)) arg-10 arg-8 dontbind) ext-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (Check-Elab-TTImp-clearToBind 'erased arg-4 dontbind ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (unbox arg-4))) (vector 1 act-37)))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-38 (let ((act-38 (set-box! arg-4 (Check-Elab-TTImp-updateEnv 'erased (let ((sc15 e-5)) (let ((e-1 (vector-ref sc15 1))) e-1)) oldenv oldsub oldbif (let ((sc15 e-18)) (let ((e-1 (vector-ref sc15 1))) (let ((e-29 (vector-ref sc15 2))) (let ((e-28 (vector-ref sc15 3))) (let ((e-4 (vector-ref sc15 4))) (let ((e-26 (vector-ref sc15 6))) (let ((e-25 (vector-ref sc15 7))) (let ((e-24 (vector-ref sc15 8))) (let ((e-23 (vector-ref sc15 9))) (let ((e-22 (vector-ref sc15 10))) (let ((e-21 (vector-ref sc15 11))) (let ((e-20 (vector-ref sc15 12))) (let ((e-19 (vector-ref sc15 13))) (vector 0 e-1 e-29 e-28 e-4 (vector 0 ) e-26 e-25 e-24 e-23 e-22 e-21 e-20 e-19)))))))))))))))))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-39 ((Normalise-Core-getTerm 'erased e-3) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((act-40 (unbox arg-1))) (vector 1 act-40)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-41 (let ((act-41 (Normalise-Core-normaliseHoles arg-0 e-21 arg-8 e-2 ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (Normalise-Core-normaliseHoles arg-0 e-21 arg-8 e-20 ext-0))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-9 arg-10 e-21 arg-8 e-16 e-22 e-23) ext-0))))))))))))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((sc19 e-22)) (let ((e-23 (vector-ref sc19 1))) (let ((e-4 (vector-ref sc19 2))) (let ((act-42 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ImplicitBind-Elab-TTImp-implicitBind arg-1 arg-3 eta-0 eta-1))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-16)) ext-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-23 (Normalise-Core-gnf arg-0 arg-8 e-4) arg-12) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-bindUnsolved (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((bifs (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 7))) e-7)))) (let ((act-26 ((Context-Core-log arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Bindable unsolved implicits: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) bifs))))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--10100-11519-mkImplicit arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 arg-1 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) e-6 (let ((sc3 e-5)) (let ((e-3 (vector-ref sc3 3))) e-3)) (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 4))) e-4)) eta-1)) (let ((sc3 e-5)) (let ((e-14 (vector-ref sc3 7))) e-14))) eta-0)))))))))))))))))))))) -(define ImplicitBind-Elab-TTImp-bindImplicits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 arg-6 arg-7))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--11980-13157-nHoles arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-1)) arg-5) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (ImplicitBind-Elab-TTImp-liftImps arg-0 arg-2 (ImplicitBind-Elab-TTImp-bindImplVars 'erased arg-1 arg-2 arg-3 arg-4 e-5 arg-6 arg-7)))))))))))))) -(define ImplicitBind-Elab-TTImp-bindImplVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (vector 0 arg-6 arg-7))(else (let ((imps (Types-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--11478-12744-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--11478-12745-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--caseC-32blockC-32inC-32checkHole-9939 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 8 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-addUserHole arg-11 arg-15 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14))))))))))))))))))))) -(define Hole-Elab-TTImp-case--checkHole-9890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 arg-13 arg-15 arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 8 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-addUserHole arg-11 arg-15 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-11 "elab.hole" (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) " already defined"))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-15) eta-0))))))))))) -(define Hole-Elab-TTImp-case--caseC-32blockC-32inC-32checkHole-9683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-11 e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 8 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-addUserHole arg-11 arg-12 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-1)))))))))))))))))))))))) -(define Hole-Elab-TTImp-case--checkHole-9634 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-4))) (let ((act-25 (Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 envC-39 arg-12 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (let ((act-26 ((Normalise-Core-getNF 'erased arg-11 arg-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-11 e-7) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 8 e-2) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-addUserHole arg-11 arg-12 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-1))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-11 "elab.hole" (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " already defined"))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-12) eta-0))))))))))) -(define Hole-Elab-TTImp-case--caseC-32blockC-32inC-32mkPrecise-9553 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 0))))) -(define Hole-Elab-TTImp-case--mkPrecise-9530 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 7 e-0 (let ((sc1 e-1)) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3 0))))))))(else (vector 0 )))))) +(define ImplicitBind-Elab-TTImp-getToBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (vector 0 ) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((ImplicitBind-Elab-TTImp-bindUnsolved arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Unify-Core-solveConstraints arg-1 arg-3 (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))) (vector 0 ) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((tob (List-Data-reverse 'erased (List-Data-filter 'erased (lambda (x) (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Name-Core-C-61C-61_Eq__Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Name-Core-C-47C-61_Eq__Name arg-9 arg-10)))) (Builtin-fst 'erased 'erased x) arg-8))) (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 6))) e-17)))))) (let ((act-29 ((ImplicitBind-Elab-TTImp-n--11910-13270-normImps arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 (vector 0 ) tob) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((hnames (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-10))) (let ((resC-39 (ImplicitBind-Elab-TTImp-n--11910-13272-depSort arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hnames e-10))) (let ((act-30 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Bound names: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) e-10))) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Sorted: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) resC-39))) eta-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 resC-39))))))))))))))))))))))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-checkBindVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (ImplicitBind-Elab-TTImp-case--checkBindVar-14333 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--checkBindVar-14268 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 elabmode (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 2))) e-1))))))) +(define ImplicitBind-Elab-TTImp-checkBindHere (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((oldenv (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 3))) e-3)))) (let ((oldsub (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 4))) e-4)))) (let ((oldbif (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 7))) e-7)))) (let ((dontbind (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 6))) e-6))))) (let ((act-25 (let ((act-25 (set-box! arg-4 (Check-Elab-TTImp-updateEnv 'erased arg-0 arg-8 (vector 0 ) (vector 0 ) e-5)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-getNextEntry arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 5))) (let ((e-8 (vector-ref sc3 6))) (vector 0 e-0 arg-10 e-2 0 e-4 e-8)))))) arg-7 arg-8 arg-11 arg-12) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (Unify-Core-solveConstraints arg-1 arg-3 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32checkBindHere-15507 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 oldenv oldsub oldbif dontbind e-6 e-7 e-2 e-3 _-0 (let ((sc5 arg-6)) (let ((e-0 (vector-ref sc5 1))) e-0)))) (vector 0 ) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Unify-Core-solveConstraintsAfter arg-1 arg-3 e-7 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--caseC-32blockC-32inC-32checkBindHere-15405 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 oldenv oldsub oldbif dontbind e-6 e-7 e-2 e-3 _-0 e-9 (let ((sc6 arg-6)) (let ((e-0 (vector-ref sc6 1))) e-0)))) (vector 1 ) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-3))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (Delayed-Elab-TTImp-retryDelayed arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc8 e-11)) (let ((e-13 (vector-ref sc8 9))) e-13)) eta-0)) (lambda (err) (lambda (eta-0) (let ((act-31 (let ((act-31 (unbox arg-3))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (set-box! arg-3 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-19 (vector-ref sc9 3))) (let ((e-18 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-17 (vector-ref sc9 6))) (let ((e-16 (vector-ref sc9 7))) (let ((e-15 (vector-ref sc9 8))) (let ((e-13 (vector-ref sc9 10))) (vector 0 e-0 e-1 e-19 e-18 e-4 e-17 e-16 e-15 (vector 0 ) e-13)))))))))))))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-0)))))))))))) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Unify-Core-checkDots arg-3 arg-1 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-8 e-2 ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-1 arg-4 arg-3 arg-9 (let ((sc12 arg-6)) (let ((e-0 (vector-ref sc12 1))) e-0)) arg-10 arg-8 dontbind) ext-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (Check-Elab-TTImp-clearToBind 'erased arg-4 dontbind ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (unbox arg-4))) (vector 1 act-37)))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-38 (let ((act-38 (set-box! arg-4 (Check-Elab-TTImp-updateEnv 'erased (let ((sc15 e-5)) (let ((e-1 (vector-ref sc15 1))) e-1)) oldenv oldsub oldbif (let ((sc15 e-18)) (let ((e-1 (vector-ref sc15 1))) (let ((e-29 (vector-ref sc15 2))) (let ((e-28 (vector-ref sc15 3))) (let ((e-4 (vector-ref sc15 4))) (let ((e-26 (vector-ref sc15 6))) (let ((e-25 (vector-ref sc15 7))) (let ((e-24 (vector-ref sc15 8))) (let ((e-23 (vector-ref sc15 9))) (let ((e-22 (vector-ref sc15 10))) (let ((e-21 (vector-ref sc15 11))) (let ((e-20 (vector-ref sc15 12))) (let ((e-19 (vector-ref sc15 13))) (vector 0 e-1 e-29 e-28 e-4 (vector 0 ) e-26 e-25 e-24 e-23 e-22 e-21 e-20 e-19)))))))))))))))))) (vector 1 act-38)))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-39 ((Normalise-Core-getTerm 'erased e-3) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((act-40 (unbox arg-1))) (vector 1 act-40)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-41 (let ((act-41 (Normalise-Core-normaliseHoles arg-0 e-21 arg-8 e-2 ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (Normalise-Core-normaliseHoles arg-0 e-21 arg-8 e-20 ext-0))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-9 arg-10 e-21 arg-8 e-16 e-22 e-23) ext-0))))))))))))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((sc19 e-22)) (let ((e-23 (vector-ref sc19 1))) (let ((e-4 (vector-ref sc19 2))) (let ((act-42 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ImplicitBind-Elab-TTImp-implicitBind arg-1 arg-3 eta-0 eta-1))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-16)) ext-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-23 (Normalise-Core-gnf arg-0 arg-8 e-4) arg-12) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-bindUnsolved (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((bifs (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 7))) e-7)))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Bindable unsolved implicits: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) bifs)))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--9909-11519-mkImplicit arg-6 arg-5 arg-4 arg-3 arg-0 arg-2 arg-1 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 1))) e-1)) e-6 (let ((sc3 e-5)) (let ((e-3 (vector-ref sc3 3))) e-3)) (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 4))) e-4)) eta-1)) (let ((sc3 e-5)) (let ((e-14 (vector-ref sc3 7))) e-14))) eta-0)))))))))))))))))))))) +(define ImplicitBind-Elab-TTImp-bindImplicits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 arg-6 arg-7))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--11774-13142-nHoles arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-1)) arg-5) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (ImplicitBind-Elab-TTImp-liftImps arg-0 arg-2 (ImplicitBind-Elab-TTImp-bindImplVars 'erased arg-1 arg-2 arg-3 arg-4 e-5 arg-6 arg-7)))))))))))))) +(define ImplicitBind-Elab-TTImp-bindImplVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (vector 0 arg-6 arg-7))(else (let ((imps (Types-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--11272-12729-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--11272-12730-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--caseC-32blockC-32inC-32checkHole-9871 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 8 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-addUserHole arg-11 arg-15 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14))))))))))))))))))))) +(define Hole-Elab-TTImp-case--checkHole-9822 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 arg-13 arg-15 arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 8 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-addUserHole arg-11 arg-15 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-15) " already defined")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-15) eta-0))))))))))) +(define Hole-Elab-TTImp-case--caseC-32blockC-32inC-32checkHole-9617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-11 e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 8 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-addUserHole arg-11 arg-12 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-1)))))))))))))))))))))))) +(define Hole-Elab-TTImp-case--checkHole-9568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-4))) (let ((act-25 (Check-Elab-TTImp-metaVarI arg-0 arg-11 arg-9 arg-3 arg-7 envC-39 arg-12 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-26 (let ((act-26 ((Normalise-Core-getNF 'erased arg-11 arg-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-11 e-7) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 8 e-2) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-addUserHole arg-11 arg-12 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 arg-1)))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) " already defined")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-12) eta-0))))))))))) +(define Hole-Elab-TTImp-case--caseC-32blockC-32inC-32mkPrecise-9487 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (vector 0 e-0 0))))) +(define Hole-Elab-TTImp-case--mkPrecise-9464 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 7 e-0 (let ((sc1 e-1)) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3 0))))))))(else (vector 0 )))))) (define Hole-Elab-TTImp-mkPrecise (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 8 e-6) (lambda (lcase-0) (let ((sc2 lcase-0)) (case (vector-ref sc2 0) ((7) (let ((e-0 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 7 e-0 (let ((sc3 e-4)) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9 0))))))))(else (vector 0 ))))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Hole-Elab-TTImp-checkHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 (vector 1 arg-10)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-lookupCtxtExact e-5 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((act-27 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-28 (Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-5 e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 e-1) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc8 1))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-1 e-10) eta-0)))))))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-30 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 8 e-2) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-31 (Context-Core-addUserHole arg-1 e-5 eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-32 (Check-Elab-TTImp-saveHole 'erased arg-4 e-5 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 e-1)))))))))))))))))))))))))))))))))(else (let ((act-27 ((Context-Core-log arg-1 "elab.hole" (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) " already defined"))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-5) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 (Strings-Types-Prelude-C-43C-43 "type_of_" arg-10) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) envC-39 e-5 (vector 11 arg-9) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-inCurrentNS arg-1 (vector 1 arg-10)) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-nf arg-0 e-8 envC-39 e-6) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-1 e-9) eta-0)))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Context-Core-lookupCtxtExact e-7 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (let ((act-30 (Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-7 e-6 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((sc8 e-11)) (let ((e-2 (vector-ref sc8 1))) (let ((e-3 (vector-ref sc8 2))) (let ((act-31 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 8 e-2) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-addUserHole arg-1 e-7 eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (Check-Elab-TTImp-saveHole 'erased arg-4 e-7 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-8 e-6))))))))))))))))))))))))(else (let ((act-30 ((Context-Core-log arg-1 "elab.hole" (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) " already defined"))) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-7) eta-0)))))))))))))))))))))))))))))))))))))))))))) -(define Dot-Elab-TTImp-case--caseC-32blockC-32inC-32checkDot-11164 (lambda (arg-0 arg-1 arg-2 arg-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--caseC-32blockC-32inC-32checkDot-11092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "dotTm" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-5 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-5 e-2 arg-3 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-7 arg-1)))))))))))))))))))))))))) -(define Dot-Elab-TTImp-case--checkDot-11038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5))))))) arg-6 arg-5 arg-2 (vector 1 arg-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-12 arg-10 "dotTm" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-6 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-6 e-2 arg-3 e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-8 arg-1))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Types-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-Types-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--checkDot-11038 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--caseC-32blockC-32inC-32checkCase-14908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-22) (lambda (arg-23) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-22 arg-23))) (lambda (arg-22) (lambda (arg-23) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-22 arg-23))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 arg-15))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0))) e-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0))))))) -(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32checkCase-14806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-logTermNF arg-0 arg-13 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-13))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf arg-0 e-9 arg-6 e-5) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) ((Case-Elab-TTImp-n--13527-13902-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-10) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-2 e-5 e-7 arg-2 arg-1 eta-0)))))))))))))))))))))))))))) -(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32checkCase-14641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) -(define Case-Elab-TTImp-case--checkCase-14583 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-13 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--caseC-32blockC-32inC-32checkCase-14641 arg-0 arg-1 arg-2 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) arg-9))))) (let ((act-25 ((Context-Core-log arg-13 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-4) (Strings-Types-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega chrig)))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Check-Elab-TTImp-handle 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 chrig arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) chrig))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((14) (let ((e-7 (vector-ref sc3 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) (lambda () (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-8) (vector 0 (Builtin-snd 'erased 'erased e-8) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-7)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-28 ((Normalise-Core-logTermNF arg-0 arg-13 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-11) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((act-29 (let ((act-29 (unbox arg-13))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf arg-0 e-13 arg-6 e-11) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) ((Case-Elab-TTImp-n--13527-13902-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-14) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-8 e-11 e-9 arg-2 arg-1 eta-0)))))))))))))))))))))))))))))))))))))))))))))) -(define Case-Elab-TTImp-case--checkCase-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 arg-13) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((31) (Case-Elab-TTImp-n--13527-13905-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-2))(else (lambda (eta-0) (vector 1 arg-3))))))) -(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkCaseC-44guessScrType-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 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--13527-13903-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--13527-13905-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--13527-13905-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--caseC-32blockC-32inC-32checkCaseC-44guessScrType-14218 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-20 (vector 0 ) e-10) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) ((Case-Elab-TTImp-n--13527-13904-getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-20 e-7) eta-0)))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) ((Case-Elab-TTImp-n--13527-13903-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--13527-13905-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--13527-13905-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--13527-13905-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--13527-13905-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--13527-13905-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--13527-13905-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--checkCaseC-44guessScrType-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 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-13))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-10) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) ((Case-Elab-TTImp-n--13527-13904-getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 e-11) eta-0)))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) ((Case-Elab-TTImp-n--13527-13903-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--13527-13905-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--13527-13905-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--13527-13905-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--13527-13905-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--13527-13905-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--13527-13905-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--13527-13905-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--checkCaseC-44getRetTy-14038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-19 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-18 e-5))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Case-Elab-TTImp-case--caseBlock-13765 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-getTerm 'erased e-1)))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-15 arg-13 "caseTy" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Check-Elab-TTImp-metaVar arg-0 arg-15 arg-13 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-21 e-5 (vector 11 arg-9) eta-0)))))))))))) -(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-13666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46) (let ((sc0 arg-45)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) -(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-13554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49) (let ((sc0 arg-49)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-46 e-9))))))))))))) -(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-13398 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34) (let ((sc0 arg-34)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) -(define Case-Elab-TTImp-case--caseBlock-13055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-9 (Case-Elab-TTImp-allow 'erased arg-25 (Case-Elab-TTImp-explicitPi 'erased arg-21)) (Types-Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-9 arg-19 (vector 2 arg-9 arg-3 (vector 1 ) arg-4) (TT-Core-weaken_Weaken__Term arg-19 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) arg-25)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv arg-0 arg-15 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" arg-21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-logTermNF (vector 0 ) arg-15 "elab.case" (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name arg-20))) (vector 0 ) casefnty) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 (Basics-Prelude-not (List-Data-isNil 'erased arg-17)))) (cond ((equal? sc3 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-9 (vector 0 ) (vector 0 ) casefnty) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-15 arg-20 (Context-Core-newDef arg-9 arg-20 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-13398 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-25 arg-26 e-3 arg-24 e-2 _-0 casefnty e-5 e-6 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-28) (lambda (arg-29) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-28 arg-29))))) arg-11))) (vector 0 ) casefnty arg-24 (vector 0 )) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-setFlag arg-15 arg-9 (vector 8 e-8) (vector 4 (vector 2 )) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((caseRef (vector 1 arg-9 (vector 1 ) (vector 8 e-8)))) (let ((act-29 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setFlag arg-15 arg-9 arg-20 (vector 0 ) eta-2)))) arg-25) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-9 caseRef arg-21))) (let ((appTm (Types-Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-9 applyEnv arg-5)) (lambda () (lambda (eta-1) applyEnv)) arg-25))) (let ((altsC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-n--11137-11901-updateClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-20 arg-25 arg-8 arg-21 eta-1)) arg-2))) (let ((act-30 ((Context-Core-log arg-15 "elab.case" (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Nested: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-getNestData 'erased 'erased eta-1)) arg-8))))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Context-Core-log arg-15 "elab.case" (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Generated alts: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39)))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 ((Normalise-Core-logTermNF arg-0 arg-15 "elab.case" (+ 1 (+ 1 0)) (lambda () "Case application") arg-21 appTm) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 0 ))) (let ((act-33 (let ((act-33 (unbox arg-13))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((olddelayed (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16)))) (let ((act-34 (let ((act-34 (set-box! arg-13 (let ((sc11 e-14)) (let ((e-0 (vector-ref sc11 1))) (let ((e-1 (vector-ref sc11 2))) (let ((e-21 (vector-ref sc11 3))) (let ((e-20 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-19 (vector-ref sc11 6))) (let ((e-18 (vector-ref sc11 7))) (let ((e-17 (vector-ref sc11 8))) (let ((e-15 (vector-ref sc11 10))) (vector 0 e-0 e-1 e-21 e-20 e-4 e-19 e-18 e-17 (vector 0 ) e-15)))))))))))))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-15 arg-14 arg-13 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-9 arg-20 altsC-39)) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-36 (let ((act-36 (unbox arg-13))) (vector 1 act-36)))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (set-box! arg-13 (let ((sc14 e-17)) (let ((e-0 (vector-ref sc14 1))) (let ((e-1 (vector-ref sc14 2))) (let ((e-24 (vector-ref sc14 3))) (let ((e-23 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-22 (vector-ref sc14 6))) (let ((e-21 (vector-ref sc14 7))) (let ((e-20 (vector-ref sc14 8))) (let ((e-18 (vector-ref sc14 10))) (vector 0 e-0 e-1 e-24 e-23 e-4 e-22 e-21 e-20 olddelayed e-18)))))))))))))) (vector 1 act-37)))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 arg-21 e-2)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-12835 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (vector 2 )) (else (vector 0 )))))) -(define Case-Elab-TTImp-case--caseBlock-12780 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-1))) (Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-12835 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))))) (else (vector 2 )))))) -(define Case-Elab-TTImp-case--caseBlockC-44updateClause-12667 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--11137-11897-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--11137-11900-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--caseBlockC-44updateClause-12599 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--11137-11897-mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased arg-23 arg-19 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-20 arg-24) argsC-39))) (vector 1 arg-20 (Case-Elab-TTImp-n--11137-11900-applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-22 lhsC-39) arg-18 arg-17 arg-16))))))) -(define Case-Elab-TTImp-case--caseBlockC-44updateClause-12527 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--11137-11897-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--11137-11900-applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-20 lhsC-39) (Case-Elab-TTImp-bindCaseLocals 'erased arg-18 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-20) e-2 arg-16))))))))) -(define Case-Elab-TTImp-case--caseBlockC-44replace-12320 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--caseBlockC-44addEnv-12246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((nsC-39 (vector 1 arg-22 e-2))) (vector 0 nsC-39 (vector 1 (vector 17 arg-9 (vector 0 ) (Builtin-snd 'erased 'erased arg-22) (vector 31 arg-9 0)) e-3)))))))) -(define Case-Elab-TTImp-case--caseBlockC-44getBindName-12122 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--caseBlockC-44getBindName-12026 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--bindCaseLocalsC-44getNameFrom-11818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) -(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32findScrutinee-11700 (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--findScrutinee-11655 (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 (Types-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--toRig1-11244 (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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-2)) (else (vector 1 arg-3 arg-2)))))) -(define Case-Elab-TTImp-n--11137-11898-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-Types-Prelude-C-43C-43 'erased (Case-Elab-TTImp-n--11137-11898-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--11137-11898-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--11137-11898-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))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-17) (lambda (arg-18) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-17 arg-18))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Case-Elab-TTImp-n--11137-11898-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--11137-11901-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--caseBlockC-44updateClause-12527 arg-0 arg-1 arg-2 arg-3 arg-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--11137-11895-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--11137-11898-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (Case-Elab-TTImp-case--caseBlockC-44updateClause-12599 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-6 e-5 e-4 e-3 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--11137-11895-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--11137-11898-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-4))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (Case-Elab-TTImp-case--caseBlockC-44updateClause-12667 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9 e-8 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--11137-11895-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--11137-11898-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9)))))))))) -(define Case-Elab-TTImp-n--11137-11896-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--11137-11896-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--11137-11899-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)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 31 arg-17 1)) e-10))))))))))))) -(define Case-Elab-TTImp-n--11137-11897-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--11137-11896-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--13527-13905-guessScrType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 31 arg-5 1)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Case-Elab-TTImp-case--checkCaseC-44guessScrType-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 e-4 e-6 e-5 e-3 (TTImp-TTImp-getFn e-5))))))(else (Case-Elab-TTImp-n--13527-13905-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--13527-13904-getRetTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Case-Elab-TTImp-n--13527-13904-getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-7 (let ((sc1 arg-14)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-14 (vector 0 ) e-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-7 e-11)))))))))) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Case-Elab-TTImp-n--11006-11784-getNameFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Case-Elab-TTImp-case--bindCaseLocalsC-44getNameFrom-11818 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8 'erased (Case-Elab-TTImp-n--11006-11783-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-6 arg-8)))) -(define Case-Elab-TTImp-n--11137-11894-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--caseBlockC-44getBindName-12026 arg-0 arg-1 arg-2 arg-3 arg-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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-19) (lambda (arg-20) (Name-Core-C-61C-61_Eq__Name arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (Name-Core-C-47C-61_Eq__Name arg-19 arg-20)))) n arg-18)))))(else (Case-Elab-TTImp-case--caseBlockC-44getBindName-12122 arg-0 arg-1 arg-2 arg-3 arg-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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-19) (lambda (arg-20) (Name-Core-C-61C-61_Eq__Name arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (Name-Core-C-47C-61_Eq__Name arg-19 arg-20)))) arg-17 arg-18))))))) -(define Case-Elab-TTImp-n--11006-11783-getArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 arg-9)) (cond ((equal? sc2 0) (vector 1 e-8))(else (let ((sc2 arg-9)) (cond ((equal? sc2 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (Case-Elab-TTImp-n--11006-11783-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))(else (let ((sc1 arg-9)) (cond ((equal? sc1 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (Case-Elab-TTImp-n--11006-11783-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))))))) -(define Case-Elab-TTImp-n--13527-13902-checkConcrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TTImp-TTImp-getFC arg-4) "Can't infer type for case scrutinee") eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Case-Elab-TTImp-n--13527-13903-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-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((Case-Elab-TTImp-n--13527-13903-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 8 e-1 arg-15 (vector 31 e-1 1)) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Case-Elab-TTImp-n--13527-13903-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 9 arg-5 arg-15 (vector 1 e-2) (vector 31 arg-5 1)) e-5) eta-0))))))))))))(else (lambda (eta-0) (vector 1 arg-15))))))))))(else (lambda (eta-0) (vector 1 arg-15))))))) -(define Case-Elab-TTImp-n--11137-11900-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 ) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--11137-11899-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--11137-11895-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--11137-11894-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--caseBlockC-44addEnv-12246 arg-0 arg-1 arg-2 arg-3 arg-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--11137-11895-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 (b+ arg-17 1 63) e-9 (vector 1 (Builtin-snd 'erased 'erased n) arg-19)))))))))))))) +(define Hole-Elab-TTImp-checkHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 (vector 1 arg-10)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-lookupCtxtExact e-5 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((act-27 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-28 (Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-5 e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 e-1) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc8 1))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-1 e-10) eta-0)))))))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-30 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 8 e-2) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-31 (Context-Core-addUserHole arg-1 e-5 eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-32 (Check-Elab-TTImp-saveHole 'erased arg-4 e-5 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 e-1))))))))))))))))))))))))))))))))) (else (let ((act-27 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) " already defined")) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-5) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-1 arg-3 (Strings-Types-Prelude-C-43C-43 "type_of_" arg-10) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) envC-39 e-5 (vector 11 arg-9) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-inCurrentNS arg-1 (vector 1 arg-10)) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-nf arg-0 e-8 envC-39 e-6) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-1 e-9) eta-0)))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Context-Core-lookupCtxtExact e-7 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (let ((act-30 (Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-7 e-6 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((sc8 e-11)) (let ((e-2 (vector-ref sc8 1))) (let ((e-3 (vector-ref sc8 2))) (let ((act-31 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 8 e-2) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-addUserHole arg-1 e-7 eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (Check-Elab-TTImp-saveHole 'erased arg-4 e-7 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-8 e-6)))))))))))))))))))))))) (else (let ((act-30 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) " already defined")) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-7) eta-0)))))))))))))))))))))))))))))))))))))))))))) +(define Dot-Elab-TTImp-case--caseC-32blockC-32inC-32checkDot-11166 (lambda (arg-0 arg-1 arg-2 arg-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--caseC-32blockC-32inC-32checkDot-11094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "dotTm" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-5 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-5 e-2 arg-3 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-7 arg-1)))))))))))))))))))))))))) +(define Dot-Elab-TTImp-case--checkDot-11040 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5))))))) arg-6 arg-5 arg-2 (vector 1 arg-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (UnifyState-Core-genName arg-12 arg-10 "dotTm" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 arg-8 arg-5 e-6 e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-6 e-2 arg-3 e-8 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-8 arg-1))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 (Strings-Types-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-Types-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--checkDot-11040 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--caseC-32blockC-32inC-32checkCase-14894 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-22) (lambda (arg-23) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-22 arg-23))) (lambda (arg-22) (lambda (arg-23) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-22 arg-23))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 arg-15))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0))) e-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-21 eta-0))))))) +(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32checkCase-14794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-13))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf arg-0 e-9 arg-6 e-5) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) ((Case-Elab-TTImp-n--13338-13900-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-10) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-2 e-5 e-7 arg-2 arg-1 eta-0)))))))))))))))))))))))))))) +(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32checkCase-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) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) +(define Case-Elab-TTImp-case--checkCase-14575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--caseC-32blockC-32inC-32checkCase-14631 arg-0 arg-1 arg-2 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) arg-9))))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-4) (Strings-Types-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega chrig))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Check-Elab-TTImp-handle 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 chrig arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) chrig))))))))) (lambda (err) (let ((sc3 err)) (case (vector-ref sc3 0) ((14) (let ((e-7 (vector-ref sc3 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) (lambda () (lambda (eta-1) (let ((act-26 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7 arg-6 arg-4 (vector 1 (Normalise-Core-gnf arg-0 arg-6 e-2))) eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-8) (vector 0 (Builtin-snd 'erased 'erased e-8) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-7)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-6 e-11 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((act-29 (let ((act-29 (unbox arg-13))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf arg-0 e-13 arg-6 e-11) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) ((Case-Elab-TTImp-n--13338-13900-checkConcrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased e-14) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-5 arg-7 arg-6 arg-4 e-8 e-11 e-9 arg-2 arg-1 eta-0)))))))))))))))))))))))))))))))))))))))))))))) +(define Case-Elab-TTImp-case--checkCase-14512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((31) (Case-Elab-TTImp-n--13338-13903-guessScrType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-2))(else (lambda (eta-0) (vector 1 arg-3))))))) +(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkCaseC-44guessScrType-14283 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--13338-13901-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--13338-13903-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--13338-13903-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--caseC-32blockC-32inC-32checkCaseC-44guessScrType-14210 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-20 (vector 0 ) e-10) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) ((Case-Elab-TTImp-n--13338-13902-getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-20 e-7) eta-0)))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) ((Case-Elab-TTImp-n--13338-13901-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--13338-13903-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--13338-13903-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--13338-13903-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--13338-13903-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--13338-13903-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--13338-13903-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--checkCaseC-44guessScrType-14154 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-13))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-10) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) ((Case-Elab-TTImp-n--13338-13902-getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 e-11) eta-0)))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) ((Case-Elab-TTImp-n--13338-13901-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--13338-13903-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--13338-13903-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--13338-13903-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--13338-13903-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--13338-13903-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--13338-13903-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--13338-13903-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--checkCaseC-44getRetTy-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 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-19 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-18 e-5))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Case-Elab-TTImp-case--caseBlock-13763 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-getTerm 'erased e-1)))(else (lambda (eta-0) (let ((act-24 (UnifyState-Core-genName arg-15 arg-13 "caseTy" eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Check-Elab-TTImp-metaVar arg-0 arg-15 arg-13 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-21 e-5 (vector 11 arg-9) eta-0)))))))))))) +(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-13664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46) (let ((sc0 arg-45)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 0 ) e-9))))))))))))) +(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-13552 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49) (let ((sc0 arg-49)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-46 e-9))))))))))))) +(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-13396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34) (let ((sc0 arg-34)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) +(define Case-Elab-TTImp-case--caseBlock-13063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-9 (Case-Elab-TTImp-allow 'erased arg-25 (Case-Elab-TTImp-explicitPi 'erased arg-21)) (Types-Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-9 arg-19 (vector 2 arg-3 (vector 1 ) arg-4) (TT-Core-weaken_Weaken__Term arg-19 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) arg-25)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" arg-21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name arg-20))) (vector 0 ) casefnty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 (Basics-Prelude-not (List-Data-isNil 'erased arg-17)))) (cond ((equal? sc3 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-9 (vector 0 ) (vector 0 ) casefnty) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-15 arg-20 (Context-Core-newDef arg-9 arg-20 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-13396 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-25 arg-26 e-3 arg-24 e-2 _-0 casefnty e-5 e-6 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-28) (lambda (arg-29) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-28 arg-29))))) arg-11))) (vector 0 ) casefnty arg-24 (vector 0 )) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-setFlag arg-15 arg-9 (vector 8 e-8) (vector 4 (vector 2 )) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((caseRef (vector 1 arg-9 (vector 1 ) (vector 8 e-8)))) (let ((act-29 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setFlag arg-15 arg-9 arg-20 (vector 0 ) eta-2)))) arg-25) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-9 caseRef arg-21))) (let ((appTm (Types-Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-9 applyEnv arg-5)) (lambda () (lambda (eta-1) applyEnv)) arg-25))) (let ((altsC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-n--10960-11911-updateClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-20 arg-25 arg-8 arg-21 eta-1)) arg-2))) (let ((act-30 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Nested: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-getNestData 'erased 'erased eta-1)) arg-8)))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 (Context-Core-log arg-15 (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Generated alts: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 0)) (lambda () "Case application") arg-21 appTm eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 0 ))) (let ((act-33 (let ((act-33 (unbox arg-13))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((olddelayed (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 9))) e-16)))) (let ((act-34 (let ((act-34 (set-box! arg-13 (let ((sc11 e-14)) (let ((e-0 (vector-ref sc11 1))) (let ((e-1 (vector-ref sc11 2))) (let ((e-21 (vector-ref sc11 3))) (let ((e-20 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-19 (vector-ref sc11 6))) (let ((e-18 (vector-ref sc11 7))) (let ((e-17 (vector-ref sc11 8))) (let ((e-15 (vector-ref sc11 10))) (vector 0 e-0 e-1 e-21 e-20 e-4 e-19 e-18 e-17 (vector 0 ) e-15)))))))))))))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-15 arg-14 arg-13 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-9 arg-20 altsC-39)) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-36 (let ((act-36 (unbox arg-13))) (vector 1 act-36)))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (let ((act-37 (set-box! arg-13 (let ((sc14 e-17)) (let ((e-0 (vector-ref sc14 1))) (let ((e-1 (vector-ref sc14 2))) (let ((e-24 (vector-ref sc14 3))) (let ((e-23 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-22 (vector-ref sc14 6))) (let ((e-21 (vector-ref sc14 7))) (let ((e-20 (vector-ref sc14 8))) (let ((e-18 (vector-ref sc14 10))) (vector 0 e-0 e-1 e-24 e-23 e-4 e-22 e-21 e-20 olddelayed e-18)))))))))))))) (vector 1 act-37)))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 arg-21 e-2)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-12845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (vector 2 )) (else (vector 0 )))))) +(define Case-Elab-TTImp-case--caseBlock-12790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-1))) (Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-12845 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9)) (vector 2 )))))) (else (vector 2 )))))) +(define Case-Elab-TTImp-case--caseBlockC-44updateClause-12677 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--10960-11907-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--10960-11910-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--caseBlockC-44updateClause-12609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--10960-11907-mkSplit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased arg-23 arg-19 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-20 arg-24) argsC-39))) (vector 1 arg-20 (Case-Elab-TTImp-n--10960-11910-applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-22 lhsC-39) arg-18 arg-17 arg-16))))))) +(define Case-Elab-TTImp-case--caseBlockC-44updateClause-12537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--10960-11907-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--10960-11910-applyNested arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-20 lhsC-39) (Case-Elab-TTImp-bindCaseLocals 'erased arg-18 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-20) e-2 arg-16))))))))) +(define Case-Elab-TTImp-case--caseBlockC-44replace-12330 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--caseBlockC-44addEnv-12256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((nsC-39 (vector 1 arg-22 e-2))) (vector 0 nsC-39 (vector 1 (vector 17 arg-9 (vector 0 ) (Builtin-snd 'erased 'erased arg-22) (vector 31 arg-9 0)) e-3)))))))) +(define Case-Elab-TTImp-case--caseBlockC-44getBindName-12132 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--caseBlockC-44getBindName-12036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--bindCaseLocalsC-44getNameFrom-11828 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) e-2)))))) +(define Case-Elab-TTImp-case--caseC-32blockC-32inC-32findScrutinee-11710 (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--findScrutinee-11665 (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 (Types-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--toRig1-11246 (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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-2)) (else (vector 1 arg-3 arg-2)))))) +(define Case-Elab-TTImp-n--10960-11908-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-Types-Prelude-C-43C-43 'erased (Case-Elab-TTImp-n--10960-11908-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--10960-11908-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--10960-11908-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))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-17) (lambda (arg-18) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-17 arg-18))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Case-Elab-TTImp-n--10960-11908-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--10960-11911-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--caseBlockC-44updateClause-12537 arg-0 arg-1 arg-2 arg-3 arg-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--10960-11905-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--10960-11908-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (Case-Elab-TTImp-case--caseBlockC-44updateClause-12609 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-6 e-5 e-4 e-3 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10960-11905-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--10960-11908-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-4))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (Case-Elab-TTImp-case--caseBlockC-44updateClause-12677 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9 e-8 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--10960-11905-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--10960-11908-usedIn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9)))))))))) +(define Case-Elab-TTImp-n--10960-11906-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--10960-11906-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--10663-11640-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--10960-11909-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)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 31 arg-17 1)) e-10))))))))))))) +(define Case-Elab-TTImp-n--10960-11907-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--10960-11906-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--13338-13903-guessScrType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 31 arg-5 1)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Case-Elab-TTImp-case--checkCaseC-44guessScrType-14154 arg-0 arg-1 arg-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--13338-13903-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--13338-13902-getRetTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Case-Elab-TTImp-n--13338-13902-getRetTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-7 (let ((sc1 arg-14)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-14 (vector 0 ) e-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-7 e-11)))))))))) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Case-Elab-TTImp-n--10829-11794-getNameFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Case-Elab-TTImp-case--bindCaseLocalsC-44getNameFrom-11828 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8 'erased (Case-Elab-TTImp-n--10829-11793-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-6 arg-8)))) +(define Case-Elab-TTImp-n--10960-11904-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--caseBlockC-44getBindName-12036 arg-0 arg-1 arg-2 arg-3 arg-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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-19) (lambda (arg-20) (Name-Core-C-61C-61_Eq__Name arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (Name-Core-C-47C-61_Eq__Name arg-19 arg-20)))) n arg-18)))))(else (Case-Elab-TTImp-case--caseBlockC-44getBindName-12132 arg-0 arg-1 arg-2 arg-3 arg-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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-19) (lambda (arg-20) (Name-Core-C-61C-61_Eq__Name arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (Name-Core-C-47C-61_Eq__Name arg-19 arg-20)))) arg-17 arg-18))))))) +(define Case-Elab-TTImp-n--10829-11793-getArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 arg-9)) (cond ((equal? sc2 0) (vector 1 e-8))(else (let ((sc2 arg-9)) (cond ((equal? sc2 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (Case-Elab-TTImp-n--10829-11793-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))(else (let ((sc1 arg-9)) (cond ((equal? sc1 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-4 (- arg-9 1))) (Case-Elab-TTImp-n--10829-11793-getArg 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-4))))))))))))))) +(define Case-Elab-TTImp-n--13338-13900-checkConcrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TTImp-TTImp-getFC arg-4) "Can't infer type for case scrutinee") eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Case-Elab-TTImp-n--13338-13901-applyTo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((Case-Elab-TTImp-n--13338-13901-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 8 e-1 arg-15 (vector 31 e-1 1)) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-24 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Case-Elab-TTImp-n--13338-13901-applyTo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 9 arg-5 arg-15 (vector 1 e-2) (vector 31 arg-5 1)) e-5) eta-0))))))))))))(else (lambda (eta-0) (vector 1 arg-15))))))))))(else (lambda (eta-0) (vector 1 arg-15))))))) +(define Case-Elab-TTImp-n--10960-11910-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 ) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10960-11909-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--10960-11905-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--10960-11904-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--caseBlockC-44addEnv-12256 arg-0 arg-1 arg-2 arg-3 arg-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--10960-11905-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-3 (b+ arg-17 1 63) e-9 (vector 1 (Builtin-snd 'erased 'erased n) arg-19)))))))))))))) (define Case-Elab-TTImp-updateMults (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Case-Elab-TTImp-updateMults 'erased e-3 (Case-Elab-TTImp-toRig0 'erased 'erased e-2 'erased arg-2))))))))) -(define Case-Elab-TTImp-toRig1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((idx 0)) (Case-Elab-TTImp-case--toRig1-11244 'erased 'erased e-5 e-4 idx 'erased (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-5 arg-6))))) (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--toRig1-11246 'erased 'erased e-5 e-4 idx 'erased (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-5 arg-6))))) (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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-5)))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (Case-Elab-TTImp-toRig0 'erased 'erased e-0 'erased e-10))))))))))) (define Case-Elab-TTImp-getNestData (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-2 (vector 0 e-6 e-10)))))))))))) -(define Case-Elab-TTImp-findScrutinee (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Case-Elab-TTImp-case--findScrutinee-11655 e-2 e-1 e-7 e-6 e-9 e-8 (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-9) (lambda () (Basics-Prelude-not (TT-Core-isLet '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-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((sc2 e-8)) (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-9)) (Types-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) (Types-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) (Types-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 (Basics-Prelude-not (List-Data-isNil 'erased arg-3)))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 27 arg-0 arg-1 arg-2 (List-Data-reverse 'erased arg-3)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) -(define Case-Elab-TTImp-explicitPi (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 4))) (vector 1 (vector 2 e-7 e-8 (vector 1 ) e-10) (Case-Elab-TTImp-explicitPi 'erased e-4))))))(else (vector 1 e-3 (Case-Elab-TTImp-explicitPi 'erased e-4)))))))) (else (vector 0 )))))) -(define Case-Elab-TTImp-checkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (Delayed-Elab-TTImp-delayElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 arg-13 0 (lambda (eta-0) (let ((act-24 (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((31) ((Case-Elab-TTImp-n--13527-13905-guessScrType arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-12) eta-0))(else (vector 1 arg-11)))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 e-5 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-logTerm arg-0 arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--caseC-32blockC-32inC-32checkCase-14641 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-14 arg-15))))) arg-5))))) (let ((act-27 ((Context-Core-log arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-10) (Strings-Types-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega chrig)))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 chrig arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-9) (vector 0 (Builtin-snd 'erased 'erased e-9) chrig))))))))) (lambda (err) (let ((sc5 err)) (case (vector-ref sc5 0) ((14) (let ((e-9 (vector-ref sc5 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-14 arg-15))))) (lambda () (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-10) (vector 0 (Builtin-snd 'erased 'erased e-10) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-9)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-4)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 ((Normalise-Core-getTerm 'erased e-12) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-30 ((Normalise-Core-logTermNF arg-0 arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-8 e-13) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-32 (let ((act-32 ((Normalise-Core-nf arg-0 e-15 arg-8 e-13) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) ((Case-Elab-TTImp-n--13527-13902-checkConcrete arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-16) eta-0)))))))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 e-10 e-13 e-11 arg-12 arg-13 eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))) ext-0))) -(define Case-Elab-TTImp-caseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-1 arg-4 arg-3 arg-7 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-9 (vector 0 )) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-log arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Doing a case under unbound implicits " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) e-6)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-genVarName arg-1 arg-3 "scr" ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (vector 8 (let ((sc4 e-5)) (let ((e-2 (vector-ref sc4 2))) e-2))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Context-Core-prettyName arg-1 e-9) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (UnifyState-Core-genCaseName arg-1 arg-3 e-10 ext-0))))))))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((env (Case-Elab-TTImp-updateMults 'erased (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 11))) e-11)) arg-9))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((Context-Core-lookupCtxtExact (vector 8 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0))) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((vis (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((bind-0 (vector 1 e-1))) (Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-12835 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 e-9 env e-10 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc8 e-1)) (let ((e-23 (vector-ref sc8 10))) e-23)) (vector 2 )))))) (else (vector 2 )))))) (let ((splitOn (Case-Elab-TTImp-findScrutinee arg-0 env arg-10))) (let ((act-31 (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((Normalise-Core-getTerm 'erased e-1) ext-0)))(else (let ((act-31 (UnifyState-Core-genName arg-1 arg-3 "caseTy" ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-7 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-12 (vector 11 arg-7) ext-0))))))))))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-7 (let ((sc8 arg-6)) (let ((e-1 (vector-ref sc8 2))) e-1)) e-10 env e-6 e-12 (vector 11 arg-7)) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-2 (vector-ref sc9 1))) (let ((e-3 (vector-ref sc9 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-7 (Case-Elab-TTImp-allow 'erased splitOn (Case-Elab-TTImp-explicitPi 'erased env)) (Types-Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-7 e-8 (vector 2 arg-7 arg-13 (vector 1 ) arg-12) (TT-Core-weaken_Weaken__Term e-8 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) splitOn)))) (let ((act-33 (Normalise-Core-logEnv arg-0 arg-1 "elab.case" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" env ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 ((Normalise-Core-logTermNF (vector 0 ) arg-1 "elab.case" (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name e-9))) (vector 0 ) casefnty) ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((sc12 (Basics-Prelude-not (List-Data-isNil 'erased e-6)))) (cond ((equal? sc12 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-7 (vector 0 ) (vector 0 ) casefnty) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (Context-Core-addDef arg-1 e-9 (Context-Core-newDef arg-7 e-9 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-13398 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 e-9 env e-10 e-11 splitOn e-12 e-3 vis e-2 _-0 casefnty e-14 e-15 e-16 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) arg-5))) (vector 0 ) casefnty vis (vector 0 )) ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (Context-Core-setFlag arg-1 arg-7 (vector 8 e-17) (vector 4 (vector 2 )) ext-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((caseRef (vector 1 arg-7 (vector 1 ) (vector 8 e-17)))) (let ((act-38 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Context-Core-setFlag arg-1 arg-7 e-9 (vector 0 ) eta-1)))) splitOn) ext-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-7 caseRef env))) (let ((appTm (Types-Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-7 applyEnv arg-11)) (lambda () (lambda (eta-0) applyEnv)) splitOn))) (let ((altsC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--11137-11901-updateClause arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 splitOn arg-8 env eta-0)) arg-14))) (let ((act-39 ((Context-Core-log arg-1 "elab.case" (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Nested: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-8))))) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-40 ((Context-Core-log arg-1 "elab.case" (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Generated alts: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39)))) ext-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 ((Normalise-Core-logTermNF arg-0 arg-1 "elab.case" (+ 1 (+ 1 0)) (lambda () "Case application") env appTm) ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 0 ))) (let ((act-42 (let ((act-42 (unbox arg-3))) (vector 1 act-42)))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((olddelayed (let ((sc20 e-23)) (let ((e-25 (vector-ref sc20 9))) e-25)))) (let ((act-43 (let ((act-43 (set-box! arg-3 (let ((sc20 e-23)) (let ((e-0 (vector-ref sc20 1))) (let ((e-1 (vector-ref sc20 2))) (let ((e-30 (vector-ref sc20 3))) (let ((e-29 (vector-ref sc20 4))) (let ((e-4 (vector-ref sc20 5))) (let ((e-28 (vector-ref sc20 6))) (let ((e-27 (vector-ref sc20 7))) (let ((e-26 (vector-ref sc20 8))) (let ((e-24 (vector-ref sc20 10))) (vector 0 e-0 e-1 e-30 e-29 e-4 e-28 e-27 e-26 (vector 0 ) e-24)))))))))))))) (vector 1 act-43)))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((act-44 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-1 arg-2 arg-3 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-7 e-9 altsC-39)) ext-0))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 (let ((act-45 (unbox arg-3))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-26 (vector-ref sc22 1))) (let ((act-46 (let ((act-46 (set-box! arg-3 (let ((sc23 e-26)) (let ((e-0 (vector-ref sc23 1))) (let ((e-1 (vector-ref sc23 2))) (let ((e-33 (vector-ref sc23 3))) (let ((e-32 (vector-ref sc23 4))) (let ((e-4 (vector-ref sc23 5))) (let ((e-31 (vector-ref sc23 6))) (let ((e-30 (vector-ref sc23 7))) (let ((e-29 (vector-ref sc23 8))) (let ((e-27 (vector-ref sc23 10))) (vector 0 e-0 e-1 e-33 e-32 e-4 e-31 e-30 e-29 olddelayed e-27)))))))))))))) (vector 1 act-46)))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 env e-2))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Case-Elab-TTImp-bindCaseLocals (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 6 arg-1 e-6 (Maybe-Data-fromMaybe 'erased (lambda () e-6) e-10) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--11006-11784-getNameFrom 'erased e-6 e-10 e-11 e-3 arg-4 arg-3 arg-1 eta-0)) e-11) (Case-Elab-TTImp-bindCaseLocals 'erased arg-1 e-3 arg-3 arg-4))))))))))))))) +(define Case-Elab-TTImp-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--findScrutinee-11665 e-2 e-1 e-7 e-6 e-9 e-8 (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-9) (lambda () (Case-Elab-TTImp-n--10663-11640-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)) (Types-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) (Types-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) (Types-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 (Basics-Prelude-not (List-Data-isNil 'erased arg-3)))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 27 arg-0 arg-1 arg-2 (List-Data-reverse 'erased arg-3)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) +(define Case-Elab-TTImp-explicitPi (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 3))) (vector 1 (vector 2 e-7 (vector 1 ) e-9) (Case-Elab-TTImp-explicitPi 'erased e-4)))))(else (vector 1 e-3 (Case-Elab-TTImp-explicitPi 'erased e-4)))))))) (else (vector 0 )))))) +(define Case-Elab-TTImp-checkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (Delayed-Elab-TTImp-delayElab arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 arg-13 0 (lambda (eta-0) (let ((act-24 (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((31) ((Case-Elab-TTImp-n--13338-13903-guessScrType arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-12) eta-0))(else (vector 1 arg-11)))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 e-5 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-26 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected scrutinee type") e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--caseC-32blockC-32inC-32checkCase-14631 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-14 arg-15))))) arg-5))))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-10) (Strings-Types-Prelude-C-43C-43 " at " (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega chrig))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 chrig arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-9) (vector 0 (Builtin-snd 'erased 'erased e-9) chrig))))))))) (lambda (err) (let ((sc5 err)) (case (vector-ref sc5 0) ((14) (let ((e-9 (vector-ref sc5 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-14 arg-15))))) (lambda () (lambda (eta-1) (let ((act-28 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-10) (vector 0 (Builtin-snd 'erased 'erased e-10) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1))) e-9)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-4)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 ((Normalise-Core-getTerm 'erased e-12) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-30 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Scrutinee type") arg-8 e-13 eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-32 (let ((act-32 ((Normalise-Core-nf arg-0 e-15 arg-8 e-13) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) ((Case-Elab-TTImp-n--13338-13900-checkConcrete arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased e-16) eta-0)))))))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (Case-Elab-TTImp-caseBlock arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-7 arg-8 arg-10 e-10 e-13 e-11 arg-12 arg-13 eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))) ext-0))) +(define Case-Elab-TTImp-caseBlock (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ImplicitBind-Elab-TTImp-getToBind arg-0 arg-1 arg-4 arg-3 arg-7 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-9 (vector 0 )) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Doing a case under unbound implicits " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Check-Elab-TTImp-show_Show__C-40ImplBindingC-32C-36varsC-41 'erased x-0)) (lambda (d-0) (lambda (x-0) (Check-Elab-TTImp-showPrec_Show__C-40ImplBindingC-32C-36varsC-41 'erased d-0 x-0))))) d x)))) e-6))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (UnifyState-Core-genVarName arg-1 arg-3 "scr" ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (vector 8 (let ((sc4 e-5)) (let ((e-2 (vector-ref sc4 2))) e-2))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Context-Core-prettyName arg-1 e-9) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (UnifyState-Core-genCaseName arg-1 arg-3 e-10 ext-0))))))))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((env (Case-Elab-TTImp-updateMults 'erased (let ((sc5 e-5)) (let ((e-11 (vector-ref sc5 11))) e-11)) arg-9))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((Context-Core-lookupCtxtExact (vector 8 (let ((sc6 e-5)) (let ((e-2 (vector-ref sc6 2))) e-2))) (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0))) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((vis (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((bind-0 (vector 1 e-1))) (Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-12845 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 e-9 env e-10 e-1 bind-0 (TT-Core-C-61C-61_Eq__Visibility (let ((sc8 e-1)) (let ((e-23 (vector-ref sc8 10))) e-23)) (vector 2 )))))) (else (vector 2 )))))) (let ((splitOn (Case-Elab-TTImp-findScrutinee arg-0 env arg-10))) (let ((act-31 (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((Normalise-Core-getTerm 'erased e-1) ext-0)))(else (let ((act-31 (UnifyState-Core-genName arg-1 arg-3 "caseTy" ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-7 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-12 (vector 11 arg-7) ext-0))))))))))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-7 (let ((sc8 arg-6)) (let ((e-1 (vector-ref sc8 2))) e-1)) e-10 env e-6 e-12 (vector 11 arg-7)) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-2 (vector-ref sc9 1))) (let ((e-3 (vector-ref sc9 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-7 (Case-Elab-TTImp-allow 'erased splitOn (Case-Elab-TTImp-explicitPi 'erased env)) (Types-Prelude-maybe 'erased 'erased (lambda () (vector 3 arg-7 e-8 (vector 2 arg-13 (vector 1 ) arg-12) (TT-Core-weaken_Weaken__Term e-8 arg-0 e-2))) (lambda () (lambda (eta-0) e-2)) splitOn)))) (let ((act-33 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" env ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Case function type: " (Name-Core-show_Show__Name e-9))) (vector 0 ) casefnty ext-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-35 (let ((sc12 (Basics-Prelude-not (List-Data-isNil 'erased e-6)))) (cond ((equal? sc12 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-7 (vector 0 ) (vector 0 ) casefnty) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-36 (Context-Core-addDef arg-1 e-9 (Context-Core-newDef arg-7 e-9 (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--caseC-32blockC-32inC-32caseBlock-13396 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 e-8 e-9 env e-10 e-11 splitOn e-12 e-3 vis e-2 _-0 casefnty e-14 e-15 e-16 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) arg-5))) (vector 0 ) casefnty vis (vector 0 )) ext-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-37 (Context-Core-setFlag arg-1 arg-7 (vector 8 e-17) (vector 4 (vector 2 )) ext-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((caseRef (vector 1 arg-7 (vector 1 ) (vector 8 e-17)))) (let ((act-38 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Context-Core-setFlag arg-1 arg-7 e-9 (vector 0 ) eta-1)))) splitOn) ext-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((applyEnv (UnifyState-Core-applyToFull arg-0 arg-7 caseRef env))) (let ((appTm (Types-Prelude-maybe 'erased 'erased (lambda () (vector 4 arg-7 applyEnv arg-11)) (lambda () (lambda (eta-0) applyEnv)) splitOn))) (let ((altsC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10960-11911-updateClause arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-9 splitOn arg-8 env eta-0)) arg-14))) (let ((act-39 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Nested: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d x-2)))) x-1)) (lambda (d) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-0 x-2)))) x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 'erased d-2 x-2)))) d-1 x-1))))) d-0 x-0))))) d x)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased 'erased eta-0)) arg-8)))) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Generated alts: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) altsC-39))) ext-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 0)) (lambda () "Case application") env appTm ext-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((nestC-39 (vector 0 ))) (let ((act-42 (let ((act-42 (unbox arg-3))) (vector 1 act-42)))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((olddelayed (let ((sc20 e-23)) (let ((e-25 (vector-ref sc20 9))) e-25)))) (let ((act-43 (let ((act-43 (set-box! arg-3 (let ((sc20 e-23)) (let ((e-0 (vector-ref sc20 1))) (let ((e-1 (vector-ref sc20 2))) (let ((e-30 (vector-ref sc20 3))) (let ((e-29 (vector-ref sc20 4))) (let ((e-4 (vector-ref sc20 5))) (let ((e-28 (vector-ref sc20 6))) (let ((e-27 (vector-ref sc20 7))) (let ((e-26 (vector-ref sc20 8))) (let ((e-24 (vector-ref sc20 10))) (vector 0 e-0 e-1 e-30 e-29 e-4 e-28 e-27 e-26 (vector 0 ) e-24)))))))))))))) (vector 1 act-43)))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((act-44 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-1 arg-2 arg-3 (vector 1 (vector 1 ) (vector 0 )) nestC-39 (vector 0 ) (vector 2 arg-7 e-9 altsC-39)) ext-0))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 (let ((act-45 (unbox arg-3))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((e-26 (vector-ref sc22 1))) (let ((act-46 (let ((act-46 (set-box! arg-3 (let ((sc23 e-26)) (let ((e-0 (vector-ref sc23 1))) (let ((e-1 (vector-ref sc23 2))) (let ((e-33 (vector-ref sc23 3))) (let ((e-32 (vector-ref sc23 4))) (let ((e-4 (vector-ref sc23 5))) (let ((e-31 (vector-ref sc23 6))) (let ((e-30 (vector-ref sc23 7))) (let ((e-29 (vector-ref sc23 8))) (let ((e-27 (vector-ref sc23 10))) (vector 0 e-0 e-1 e-33 e-32 e-4 e-31 e-30 e-29 olddelayed e-27)))))))))))))) (vector 1 act-46)))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (vector 1 (vector 0 appTm (Normalise-Core-gnf arg-0 env e-2))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Case-Elab-TTImp-bindCaseLocals (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 6 arg-1 e-6 (Maybe-Data-fromMaybe 'erased (lambda () e-6) e-10) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--10829-11794-getNameFrom 'erased e-6 e-10 e-11 e-3 arg-4 arg-3 arg-1 eta-0)) e-11) (Case-Elab-TTImp-bindCaseLocals 'erased arg-1 e-3 arg-3 arg-4))))))))))))))) (define Case-Elab-TTImp-allow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (Case-Elab-TTImp-toRig1 'erased 'erased e-2 'erased arg-2))))))) -(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkLet-11392 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-22) (lambda (arg-23) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-22 arg-23))) (lambda (arg-22) (lambda (arg-23) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-22 arg-23))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-rigMult arg-6 arg-16))))))))))) e-1)))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16))))))))))))))) -(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkLet-11351 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkLet-11270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 arg-7 arg-22 arg-20 arg-17) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 arg-7 arg-22 arg-20 arg-17) e-5))))))))))))))) -(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkLet-11177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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 arg-7 e-7 (vector 1 ) arg-17) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-5)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-9 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 arg-7 e-7 e-2 arg-17) e-9) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 arg-7 e-7 e-2 arg-17) e-10)))))))))))))))))))))))))))))))) -(define Binders-Elab-TTImp-case--checkLet-11071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-handle 'erased arg-0 arg-15 arg-14 arg-13 arg-12 (lambda (eta-1) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) (let ((sc1 arg-10)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (vector 0 e-0 e-1 e-7 e-6 0 e-5))))))) arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))) (lambda (err) (let ((_-0 (vector 0 e-2 e-3))) (Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkLet-11392 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-2 e-3 _-0 err (Binders-Elab-TTImp-n--10670-10937-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 err)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (vector 1 (vector 0 arg-7 e-7 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (let ((act-25 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-9)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 arg-7 e-7 e-6 e-2) e-12) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 arg-7 e-7 e-6 e-2) e-13)))))))))))))))))))))))))))))))))))))))) -(define Binders-Elab-TTImp-case--checkLet-10982 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkLambda-10704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 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)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-logTermNF arg-0 arg-15 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") arg-34 e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-24 arg-33 arg-32 arg-29) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-24 arg-33 arg-32 arg-29) e-7)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-25 (vector 2 arg-24 arg-23 arg-32 arg-22) arg-26)))) eta-0)))))))))))))))))))) -(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkLambda-10573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) arg-6 arg-23))) (let ((envC-39 (vector 1 (vector 0 arg-7 rigb e-5 e-2) arg-8))) (let ((act-25 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-2) (Normalise-Core-gnf arg-0 arg-8 arg-22)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 arg-26))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 ((Normalise-Core-logTermNF arg-0 arg-15 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-28) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-28 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((act-29 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-24 rigb e-5 e-2) e-8) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-24 rigb e-5 e-2) e-11)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-25 (vector 2 arg-24 arg-23 e-5 arg-22) arg-26)))) eta-0))))))))))))))))))))))))))))))))))))))) -(define Binders-Elab-TTImp-case--checkLambda-10506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gType 'erased arg-7))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((exptynf (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8 e-9) e-4))) (let ((sc3 e-5)) (let ((e-11 (vector-ref sc3 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-11))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) arg-6 e-7))) (let ((envC-39 (vector 1 (vector 0 arg-7 rigb e-12 e-11) arg-8))) (let ((act-26 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-11) (Normalise-Core-gnf arg-0 arg-8 e-9)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 e-4))))) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((sc7 e-14)) (let ((e-16 (vector-ref sc7 1))) (let ((e-15 (vector-ref sc7 2))) (let ((act-28 ((Normalise-Core-logTermNF arg-0 arg-15 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((act-29 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-15 eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-18 (vector-ref sc9 1))) (vector 0 e-18))) (else (let ((act-30 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-19 (vector-ref sc10 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc10 1))) ((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 e-6 rigb e-12 e-11) e-16) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 e-6 rigb e-12 e-11) e-19)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 e-2 (vector 2 e-6 e-7 e-12 e-9) 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--checkLambda-10400 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) -(define Binders-Elab-TTImp-case--checkLambda-10325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define Binders-Elab-TTImp-case--checkLambda-10236 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32inferLambda-10062 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-7 arg-17 arg-21 arg-18) e-5)))) (let ((act-25 (Normalise-Core-logGlue arg-0 arg-15 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-7 arg-17 arg-21 arg-18) e-2) lamty arg-1) eta-0))))))))))))))))))))) -(define Binders-Elab-TTImp-case--inferLambda-9972 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envC-39 (vector 1 (vector 0 arg-7 arg-17 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-11 arg-10 nestC-39 envC-39 arg-2 (vector 0 ))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-7 arg-17 e-5 e-2) e-8)))) (let ((act-27 (Normalise-Core-logGlue arg-0 arg-15 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-28 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-7 arg-17 e-5 e-2) e-7) lamty arg-1) eta-0))))))))))))))))))))))))))))))))))) -(define Binders-Elab-TTImp-case--findLamRig-9893 (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-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 e-7))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))) -(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkPi-9810 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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 (TTImp-TTImp-getFC arg-3) arg-6 arg-20 arg-17) e-2) (Normalise-Core-gType 'erased arg-7) arg-1))))) -(define Binders-Elab-TTImp-case--checkPi-9720 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envC-39 (vector 1 (vector 2 arg-7 arg-6 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gType 'erased arg-7)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 (TTImp-TTImp-getFC arg-3) arg-6 e-5 e-2) e-7) (Normalise-Core-gType 'erased arg-7) arg-1) eta-0)))))))))))))))))))) -(define Binders-Elab-TTImp-case--checkPiInfo-9646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2))))))) -(define Binders-Elab-TTImp-case--dropName-9586 (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8997-9514-drop 'erased arg-1 arg-2 'erased arg-1))) -(define Binders-Elab-TTImp-case--dropNameC-44drop-9537 (lambda (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--8997-9514-drop 'erased arg-1 arg-2 'erased arg-6)) (else (vector 1 (vector 0 arg-4 arg-5) (Binders-Elab-TTImp-n--8997-9514-drop 'erased arg-1 arg-2 'erased arg-6))))))) -(define Binders-Elab-TTImp-n--10670-10937-linearErr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((14) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2))) ((56) (let ((e-6 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10670-10937-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-6))) ((57) (let ((e-9 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10670-10937-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9))) ((58) (let ((e-12 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10670-10937-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-12))) ((59) (let ((e-15 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10670-10937-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-15)))(else (vector 0 )))))) -(define Binders-Elab-TTImp-n--9193-9694-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define Binders-Elab-TTImp-n--8997-9514-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--dropNameC-44drop-9537 'erased arg-1 arg-2 'erased e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-6 arg-2)))))))))))) +(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkLet-11312 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-22) (lambda (arg-23) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-22 arg-23))) (lambda (arg-22) (lambda (arg-23) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-22 arg-23))))) (lambda () (lambda (eta-0) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))))))) (lambda () (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-rigMult arg-6 arg-16))))))))))) e-1)))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 arg-17))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16))))))))))))))) +(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkLet-11271 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkLet-11190 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 arg-22 arg-20 arg-17) e-5))))))))))))))) +(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkLet-11097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) arg-17) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-5)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-9 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-9) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-2 arg-17) e-10)))))))))))))))))))))))))))))))) +(define Binders-Elab-TTImp-case--checkLet-10991 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Check-Elab-TTImp-handle 'erased arg-0 arg-15 arg-14 arg-13 arg-12 (lambda (eta-1) (let ((act-24 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-15 arg-14 arg-13 arg-12 0 (Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) (let ((sc1 arg-10)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (vector 0 e-0 e-1 e-7 e-6 0 e-5))))))) arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))))))))) (lambda (err) (let ((_-0 (vector 0 e-2 e-3))) (Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkLet-11312 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-2 e-3 _-0 err (Binders-Elab-TTImp-n--10464-10857-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 err)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (vector 1 (vector 0 e-7 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-5 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-5 arg-9)))) (let ((act-25 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-5 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-5 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 e-9)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-12) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-5 (vector 1 e-7 e-6 e-2) e-13)))))))))))))))))))))))))))))))))))))))) +(define Binders-Elab-TTImp-case--checkLet-10902 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkLambda-10630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-27 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") arg-33 e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-32 arg-31 arg-28) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-32 arg-31 arg-28) e-7)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-24 (vector 2 arg-23 arg-31 arg-22) arg-25)))) eta-0)))))))))))))))))))) +(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkLambda-10501 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) arg-6 arg-23))) (let ((envC-39 (vector 1 (vector 0 rigb e-5 e-2) arg-8))) (let ((act-25 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-2) (Normalise-Core-gnf arg-0 arg-8 arg-22)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 arg-25))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-27 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-28 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((act-29 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-5 e-2) e-8) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-5 e-2) e-11)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-24 (vector 2 arg-23 e-5 arg-22) arg-25)))) eta-0))))))))))))))))))))))))))))))))))))))) +(define Binders-Elab-TTImp-case--checkLambda-10434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gType 'erased arg-7))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((exptynf (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-4))) (let ((sc3 e-5)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-10))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) arg-6 e-6))) (let ((envC-39 (vector 1 (vector 0 rigb e-11 e-10) arg-8))) (let ((act-26 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-10) (Normalise-Core-gnf arg-0 arg-8 e-8)) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 e-4))))) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((act-28 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((act-29 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-14 eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((act-30 ((Normalise-Core-getTerm 'erased e-14) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-11 e-10) e-15) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-11 e-10) e-18)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 e-2 (vector 2 e-6 e-11 e-8) e-4)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0))))))))))(else (lambda (eta-0) (Binders-Elab-TTImp-inferLambda arg-0 arg-15 arg-14 arg-13 arg-12 arg-16 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 arg-1) eta-0))))))) +(define Binders-Elab-TTImp-case--checkLambda-10328 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1)))))) +(define Binders-Elab-TTImp-case--checkLambda-10253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define Binders-Elab-TTImp-case--checkLambda-10164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32inferLambda-9994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 arg-21 arg-18) e-5)))) (let ((act-25 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 arg-21 arg-18) e-2) lamty arg-1) eta-0))))))))))))))))))))) +(define Binders-Elab-TTImp-case--inferLambda-9904 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envC-39 (vector 1 (vector 0 arg-17 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-11 arg-10 nestC-39 envC-39 arg-2 (vector 0 ))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-17 e-5 e-2) e-8)))) (let ((act-27 (Normalise-Core-logGlue arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-28 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlueNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-1 eta-2)))) arg-1) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-11 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-17 e-5 e-2) e-7) lamty arg-1) eta-0))))))))))))))))))))))))))))))))))) +(define Binders-Elab-TTImp-case--findLamRig-9827 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 e-6))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))(else (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))) +(define Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkPi-9744 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--checkPi-9654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-15 arg-14 arg-13 arg-12 arg-6 arg-10 arg-9 arg-8 arg-5 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envC-39 (vector 1 (vector 2 arg-6 e-5 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-25 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gType 'erased arg-7)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-15 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 2 arg-6 e-5 e-2) e-7) (Normalise-Core-gType 'erased arg-7) arg-1) eta-0)))))))))))))))))))) +(define Binders-Elab-TTImp-case--checkPiInfo-9580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 3 e-2))))))) +(define Binders-Elab-TTImp-case--dropName-9520 (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8808-9448-drop 'erased arg-1 arg-2 'erased arg-1))) +(define Binders-Elab-TTImp-case--dropNameC-44drop-9471 (lambda (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--8808-9448-drop 'erased arg-1 arg-2 'erased arg-6)) (else (vector 1 (vector 0 arg-4 arg-5) (Binders-Elab-TTImp-n--8808-9448-drop 'erased arg-1 arg-2 'erased arg-6))))))) +(define Binders-Elab-TTImp-n--10464-10857-linearErr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((14) (let ((e-2 (vector-ref sc0 3))) (vector 1 e-2))) ((56) (let ((e-6 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10464-10857-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-6))) ((57) (let ((e-9 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10464-10857-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-9))) ((58) (let ((e-12 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10464-10857-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-12))) ((59) (let ((e-15 (vector-ref sc0 3))) (Binders-Elab-TTImp-n--10464-10857-linearErr arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-15)))(else (vector 0 )))))) +(define Binders-Elab-TTImp-n--9004-9628-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define Binders-Elab-TTImp-n--8808-9448-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--dropNameC-44drop-9471 'erased arg-1 arg-2 'erased e-6 e-7 e-3 (Name-Core-C-61C-61_Eq__Name e-6 arg-2)))))))))))) (define Binders-Elab-TTImp-weakenExp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (Normalise-Core-gnf (vector 1 arg-0 arg-1) arg-2 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-5)))))))))))))))) -(define Binders-Elab-TTImp-inferLambda (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 ((Binders-Elab-TTImp-findLamRig 'erased arg-1 arg-15) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) e-5 arg-10))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((act-26 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((envC-39 (vector 1 (vector 0 arg-9 rigb e-7 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 arg-5 arg-6 nestC-39 envC-39 arg-14 (vector 0 ))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-4) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 arg-9 rigb e-7 e-2) e-10)))) (let ((act-29 (Normalise-Core-logGlue arg-0 arg-1 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-30 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Normalise-Core-logGlueNF arg-0 arg-1 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-0 eta-1)))) arg-15) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else ((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 arg-9 rigb e-7 e-2) e-9) lamty arg-15) ext-0))))))))))))))))))))))))))))))))))))))))))))) +(define Binders-Elab-TTImp-inferLambda (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-24 ((Binders-Elab-TTImp-findLamRig 'erased arg-1 arg-15) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) e-5 arg-10))) (let ((act-25 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((act-26 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((envC-39 (vector 1 (vector 0 rigb e-7 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 arg-5 arg-6 nestC-39 envC-39 arg-14 (vector 0 ))) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-4) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((lamty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-7 e-2) e-10)))) (let ((act-29 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Inferred lambda type") arg-8 lamty ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-30 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expected lambda type") arg-8 eta-0 eta-1)))) arg-15) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 arg-5 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-7 e-2) e-9) lamty arg-15) ext-0))))))))))))))))))))))))))))))))))))))))))))) (define Binders-Elab-TTImp-getTyNF (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (vector 1 arg-3)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-2 arg-3) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-2 e-6 eta-0)))))))))))))))))))))) -(define Binders-Elab-TTImp-findLamRig (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-7 (vector-ref sc3 2))) (vector 1 e-7)))(else (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))(else (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))))))))))) -(define Binders-Elab-TTImp-dropName (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8997-9514-drop 'erased arg-2 arg-1 'erased arg-2))) +(define Binders-Elab-TTImp-findLamRig (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((2) (let ((e-9 (vector-ref sc3 1))) (vector 1 e-9)))(else (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))(else (vector 1 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))))))))))) +(define Binders-Elab-TTImp-dropName (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8808-9448-drop 'erased arg-2 arg-1 'erased arg-2))) (define Binders-Elab-TTImp-checkPiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4 arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 3 e-2)))))))))))))))) -(define Binders-Elab-TTImp-checkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((pirig (Binders-Elab-TTImp-n--9193-9694-getRig arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 pirig arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((envC-39 (vector 1 (vector 2 arg-9 arg-10 e-6 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 pirig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gType 'erased arg-9)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 2 (TTImp-TTImp-getFC arg-13) 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--checkLet-10982 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) arg-5)))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-12 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-25 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc) (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-7 (vector-ref sc2 4))) (let ((e-6 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-8 e-7 0 e-6))))))) arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc)))))))))) (lambda (err) (let ((_-0 (vector 0 e-2 e-3))) (Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkLet-11392 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 rigc e-2 e-3 _-0 err (Binders-Elab-TTImp-n--10670-10937-linearErr arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 err)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-8 (vector-ref sc4 2))) (let ((envC-39 (vector 1 (vector 0 arg-9 e-8 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-11 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-11 arg-7)))) (let ((act-26 ((Binders-Elab-TTImp-weakenExp arg-11 arg-0 envC-39 arg-15) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-11 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-11 arg-0) arg-1 arg-2 arg-3 eC-39 rigc arg-6 nestC-39 envC-39 arg-14 e-10)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-12) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-11 (vector 1 arg-9 e-8 e-7 e-2) e-13) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-11 (vector 1 arg-9 e-8 e-7 e-2) e-14)))))))))))))))))))))))))))))))))))))))))))))) -(define Binders-Elab-TTImp-checkLambda (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((rig (Binders-Elab-TTImp-case--checkLambda-10236 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) 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--checkLambda-10325 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) arg-5)))) (let ((solvemode (Binders-Elab-TTImp-case--checkLambda-10400 arg-0 e-2 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 rig (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Binders-Elab-TTImp-getTyNF arg-0 arg-1 arg-8 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((sc5 e-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((2) (let ((e-13 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-11 (vector-ref sc6 3))) (let ((e-10 (vector-ref sc6 4))) (let ((act-28 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (let ((exptynf (vector 3 e-1 e-9 (vector 2 e-13 e-12 e-11 e-10) e-4))) (let ((sc8 e-14)) (let ((e-16 (vector-ref sc8 1))) (let ((act-29 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-16))) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) arg-10 e-12))) (let ((envC-39 (vector 1 (vector 0 arg-9 rigb e-17 e-16) arg-8))) (let ((act-30 ((Check-Elab-TTImp-convertP arg-0 arg-1 arg-3 arg-4 0 arg-9 arg-6 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-16) (Normalise-Core-gnf arg-0 arg-8 e-10)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 rig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gnf (vector 1 arg-12 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-12 e-4))))) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-19 (vector-ref sc11 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc11 1))) (let ((sc12 e-19)) (let ((e-21 (vector-ref sc12 1))) (let ((e-20 (vector-ref sc12 2))) (let ((act-32 ((Normalise-Core-logTermNF arg-0 arg-1 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((act-33 (Normalise-Core-logGlueNF (vector 1 arg-12 arg-0) arg-1 "elab.binder" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-20 eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-23 (vector-ref sc14 1))) (vector 0 e-23))) (else (let ((act-34 ((Normalise-Core-getTerm 'erased e-20) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-24 (vector-ref sc15 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc15 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 rig 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 e-13 rigb e-17 e-16) e-21) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 e-13 rigb e-17 e-16) e-24)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 e-13 e-12 e-17 e-10) e-4)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))(else (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAs-11750 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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 (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9871-11022-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) arg-23 arg-24 arg-20)) e-5)) (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9871-11022-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (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 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--9004-9628-getRig arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0))))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 pirig arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((envC-39 (vector 1 (vector 2 arg-10 e-6 e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-26 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 pirig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gType 'erased arg-9)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 2 arg-10 e-6 e-2) e-8) (Normalise-Core-gType 'erased arg-9) arg-15) eta-0)))))))))))))))))))))))))) +(define Binders-Elab-TTImp-checkLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((rigc (Binders-Elab-TTImp-case--checkLet-10902 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) arg-5)))) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-12 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-25 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc) (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-7 (vector-ref sc2 4))) (let ((e-6 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-8 e-7 0 e-6))))))) arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc)))))))))) (lambda (err) (let ((_-0 (vector 0 e-2 e-3))) (Binders-Elab-TTImp-case--caseC-32blockC-32inC-32checkLet-11312 arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 rigc e-2 e-3 _-0 err (Binders-Elab-TTImp-n--10464-10857-linearErr arg-0 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 err)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-8 (vector-ref sc4 2))) (let ((envC-39 (vector 1 (vector 0 e-8 (vector 1 ) e-2) arg-8))) (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-11 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-11 arg-7)))) (let ((act-26 ((Binders-Elab-TTImp-weakenExp arg-11 arg-0 envC-39 arg-15) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-27 (Check-Elab-TTImp-inScope 'erased arg-11 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-11 arg-0) arg-1 arg-2 arg-3 eC-39 rigc arg-6 nestC-39 envC-39 arg-14 e-10)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-12) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-13) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-11 (vector 1 e-8 e-7 e-2) e-14)))))))))))))))))))))))))))))))))))))))))))))) +(define Binders-Elab-TTImp-checkLambda (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((rig (Binders-Elab-TTImp-case--checkLambda-10164 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) 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--checkLambda-10253 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) arg-5)))) (let ((solvemode (Binders-Elab-TTImp-case--checkLambda-10328 arg-0 e-2 arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 rig (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (lambda (eta-0) (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Binders-Elab-TTImp-getTyNF arg-0 arg-1 arg-8 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((sc5 e-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((2) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((e-10 (vector-ref sc6 3))) (let ((act-28 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((exptynf (vector 3 e-1 e-9 (vector 2 e-12 e-11 e-10) e-4))) (let ((sc8 e-13)) (let ((e-15 (vector-ref sc8 1))) (let ((act-29 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-15))) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) arg-10 e-12))) (let ((envC-39 (vector 1 (vector 0 rigb e-16 e-15) arg-8))) (let ((act-30 ((Check-Elab-TTImp-convertP arg-0 arg-1 arg-3 arg-4 0 arg-9 arg-6 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-15) (Normalise-Core-gnf arg-0 arg-8 e-10)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-31 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 rig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gnf (vector 1 arg-12 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-12 e-4))))) eta-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((sc12 e-18)) (let ((e-20 (vector-ref sc12 1))) (let ((e-19 (vector-ref sc12 2))) (let ((act-32 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((act-33 (Normalise-Core-logGlueNF (vector 1 arg-12 arg-0) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-19 eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((act-34 ((Normalise-Core-getTerm 'erased e-19) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 rig 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-16 e-15) e-20) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-16 e-15) e-23)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 e-12 e-16 e-10) e-4)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))(else (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 1 e-2) eta-0)))))))))(else (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 1 e-2) eta-0))))))))))))))))))))))))))))))) +(define As-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAs-11750 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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 (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9686-11024-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) arg-23 arg-24 arg-20)) e-5)) (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9686-11024-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAs-11658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31) (let ((sc0 arg-31)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-2 arg-20) arg-21))))))) -(define As-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAs-11491 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-13 "elab.as" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Added as pattern name " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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--9871-11022-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 0 e-2 (vector 0 e-6 e-7)))))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-13))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-10))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (set-box! arg-10 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (let ((e-16 (vector-ref sc5 7))) (let ((e-15 (vector-ref sc5 8))) (let ((e-14 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (let ((e-11 (vector-ref sc5 11))) (let ((e-12 (vector-ref sc5 12))) (let ((e-13 (vector-ref sc5 13))) (vector 0 e-1 e-20 e-19 e-4 (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9871-11022-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-2 e-6 arg-20)) e-18)) (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9871-11022-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-2 e-7 arg-20)) e-17)) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-2 (Normalise-Core-gnf arg-0 arg-6 e-6) (vector 1 arg-21)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-12 arg-20) arg-21))))))))))))))))))))))))))))))))))) -(define As-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAs-11434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 ((Context-Core-log arg-13 "elab.as" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Added as pattern name " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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--9871-11022-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 0 e-6 (vector 0 e-8 e-7)))))))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((act-26 (let ((act-26 (unbox arg-13))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((act-27 (let ((act-27 (unbox arg-10))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-28 (let ((act-28 (set-box! arg-10 (let ((sc7 e-11)) (let ((e-1 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((e-22 (vector-ref sc7 3))) (let ((e-21 (vector-ref sc7 4))) (let ((e-20 (vector-ref sc7 5))) (let ((e-19 (vector-ref sc7 6))) (let ((e-18 (vector-ref sc7 7))) (let ((e-17 (vector-ref sc7 8))) (let ((e-16 (vector-ref sc7 9))) (let ((e-15 (vector-ref sc7 10))) (let ((e-14 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-1 e-23 e-22 e-21 (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9871-11022-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-6 e-8 e-2)) e-20)) (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9871-11022-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-6 e-7 e-2)) e-19)) e-18 e-17 e-16 e-15 e-14 e-12 e-13)))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((act-29 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-6 (Normalise-Core-gnf arg-0 arg-6 e-8) (vector 1 e-3)) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-15 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-15 e-2) e-3))))))))))))))))))))))))))))))))))))))))))) -(define As-Elab-TTImp-case--caseC-32blockC-32inC-32checkAs-11378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (As-Elab-TTImp-n--9871-11020-rigPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) arg-8 arg-7 arg-6 arg-2 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc3 arg-8)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-log arg-13 "elab.as" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Added as pattern name " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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--9871-11022-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 0 e-7 (vector 0 e-9 e-8)))))))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((act-27 (let ((act-27 (unbox arg-13))) (vector 1 act-27)))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-28 (let ((act-28 (unbox arg-10))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-29 (let ((act-29 (set-box! arg-10 (let ((sc9 e-12)) (let ((e-1 (vector-ref sc9 1))) (let ((e-24 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (let ((e-22 (vector-ref sc9 4))) (let ((e-21 (vector-ref sc9 5))) (let ((e-20 (vector-ref sc9 6))) (let ((e-19 (vector-ref sc9 7))) (let ((e-18 (vector-ref sc9 8))) (let ((e-17 (vector-ref sc9 9))) (let ((e-16 (vector-ref sc9 10))) (let ((e-15 (vector-ref sc9 11))) (let ((e-14 (vector-ref sc9 12))) (let ((e-13 (vector-ref sc9 13))) (vector 0 e-1 e-24 e-23 e-22 (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9871-11022-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-7 e-9 e-2)) e-21)) (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9871-11022-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-7 e-8 e-2)) e-20)) e-19 e-18 e-17 e-16 e-15 e-14 e-13)))))))))))))))))) (vector 1 act-29)))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((act-30 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-7 (Normalise-Core-gnf arg-0 arg-6 e-9) (vector 1 e-3)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-16 e-2) e-3))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 35 arg-5 arg-3) eta-0))))))) -(define As-Elab-TTImp-case--checkAs-11313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((n (vector 3 arg-3 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-10 arg-14 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-10 n eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((elabmode (vector 1 e-0))) ((As-Elab-TTImp-case--caseC-32blockC-32inC-32checkAs-11378 arg-0 arg-1 arg-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-15) (lambda (arg-16) (Name-Core-C-61C-61_Eq__Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Name-Core-C-47C-61_Eq__Name arg-15 arg-16)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-13 "elab.as" (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp arg-2)))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "@-patterns only allowed in pattern clauses") eta-0))))))))))) -(define As-Elab-TTImp-case--checkAsC-44rigAsC-39-11248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) -(define As-Elab-TTImp-case--checkAsC-44rigAsC-39-11177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) -(define As-Elab-TTImp-case--checkAsC-44rigPatC-39-11105 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) -(define As-Elab-TTImp-case--checkAsC-44rigPatC-39-11034 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) -(define As-Elab-TTImp-n--9871-11019-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--checkAsC-44rigPatC-39-11034 arg-0 arg-1 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) arg-9))) (else (As-Elab-TTImp-case--checkAsC-44rigPatC-39-11105 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) arg-9))))))) -(define As-Elab-TTImp-n--9871-11020-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--9871-11019-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--9871-11021-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--checkAsC-44rigAsC-39-11177 arg-0 arg-1 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) arg-9))) (else (As-Elab-TTImp-case--checkAsC-44rigAsC-39-11248 arg-0 arg-1 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) arg-9))))))) -(define As-Elab-TTImp-n--9871-11022-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--9871-11021-rigAsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-4))) -(define As-Elab-TTImp-checkAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((sc0 elabmode)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((n (vector 3 arg-11 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-4 elabmode arg-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-4 n eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((elabmode-0 (vector 1 e-0))) ((As-Elab-TTImp-case--caseC-32blockC-32inC-32checkAs-11378 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-14) (lambda (arg-15) (Name-Core-C-61C-61_Eq__Name arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Name-Core-C-47C-61_Eq__Name arg-14 arg-15)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-1 "elab.as" (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp arg-12)))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "@-patterns only allowed in pattern clauses") eta-0)))))))))))) -(define App-Elab-TTImp-case--checkApp-11398 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-13 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-2 e-5 (vector 0 (vector 0 ) 0) arg-3 arg-2 1 arg-1) eta-0)))))))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkApp-11207 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--checkApp-11022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-14 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-fromIntegerName arg-14 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-fromStringName arg-14 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Context-Core-fromCharName arg-14 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) (let ((act-28 ((App-Elab-TTImp-n--17109-10478-updateElabInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 prims (let ((sc6 arg-9)) (let ((e-0 (vector-ref sc6 1))) e-0)) arg-1 arg-5 arg-9) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (Context-Core-logC arg-14 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-29 (let ((act-29 (unbox arg-14))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-12 arg-7 e-5 eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-31 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-31 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 (Normalise-Core-normaliseHoles arg-0 e-12 arg-7 e-14 eta-2))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-15 eta-2))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (vector 1 (vector 1 e-16)))))))))))))))))))) arg-3) eta-1))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 ((Context-Core-getFullName arg-14 arg-1) eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-13 eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Checking application of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-15) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Types-Prelude-C-43C-43 ")" (Strings-Types-Prelude-C-43C-43 " to " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 "\u000a\u0009Function type " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) (Strings-Types-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-14)))))))))))))))))))))))))))))))))))))) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32checkApp-11207 arg-0 arg-1 arg-2 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-16) (lambda (arg-17) (Name-Core-C-61C-61_Eq__Name arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (Name-Core-C-47C-61_Eq__Name arg-16 arg-17)))) arg-1 arg-8))))) (let ((act-30 ((App-Elab-TTImp-checkAppWith arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 e-11 arg-8 arg-7 arg-6 e-2 e-5 (vector 0 (vector 1 fn) e-6) arg-5 arg-4 1 arg-3) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (App-Elab-TTImp-n--17109-10477-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--caseC-32blockC-32inC-32checkAppC-44updateElabInfo-10910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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--checkAppC-44updateElabInfo-10853 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (let ((sc1 arg-18)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5)))))))))) (else (lambda (eta-0) (vector 1 arg-18))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAppC-44normalisePrims-10623 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normalise arg-15 e-5 arg-17 (Builtin-fst 'erased 'erased arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6 (Builtin-snd 'erased 'erased arg-16))))))))))))))) (else (lambda (eta-0) (vector 1 arg-16))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppC-44normalisePrims-10573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((27) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAppC-44normalisePrims-10623 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--17109-10476-boundSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-4 (let ((sc2 arg-9)) (let ((e-0 (vector-ref sc2 1))) e-0)))))))(else (lambda (eta-0) (vector 1 arg-16))))))))(else (lambda (eta-0) (vector 1 arg-16))))))) -(define App-Elab-TTImp-case--checkAppC-44normalisePrims-10527 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppC-44normalisePrims-10573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (List-Data-reverse 'erased arg-5))) (else (lambda (eta-0) (vector 1 arg-16))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10255 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37) (let ((sc0 arg-37)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-35)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-32) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((UnifyState-Core-newConstant arg-4 arg-16 arg-18 arg-10 arg-14 arg-11 (Builtin-fst 'erased 'erased arg-35) e-5 arg-37) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-6 (Normalise-Core-gnf arg-4 arg-11 arg-25))))))))))))))))))) -(define App-Elab-TTImp-case--checkAppWith-10104 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-10 arg-9 e-2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-18))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-4 e-5 arg-11 arg-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((expfnty (Normalise-Core-gnf arg-4 arg-11 (vector 3 arg-10 arg-21 (vector 2 arg-10 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-23) (TT-Core-weaken_Weaken__Term arg-21 arg-4 arg-25))))) (let ((act-26 (Normalise-Core-logGlue arg-4 arg-18 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-11 expfnty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-4 arg-18 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-11 eta-1 eta-2)))) arg-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((App-Elab-TTImp-checkAppWith arg-4 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 fntm e-6 (vector 0 arg-0 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1)) arg-3 arg-7 arg-6 arg-5) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Check-Elab-TTImp-convert arg-4 arg-18 arg-16 arg-15 arg-10 arg-13 arg-11 (Normalise-Core-glueBack arg-4 e-5 arg-11 arg-8) expfnty) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10255 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--checkAppWith-9917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Types-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--checkAppWith-9737 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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) (App-Elab-TTImp-makeDefImplicit arg-0 arg-22 arg-21 arg-20 arg-19 arg-18 arg-23 arg-17 arg-16 arg-15 arg-14 arg-13 arg-6 arg-2 arg-3 arg-5 arg-12 arg-11 arg-10 arg-9 arg-8)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-checkRestApp arg-0 arg-22 arg-21 arg-20 arg-19 arg-18 arg-23 arg-17 arg-16 arg-15 arg-14 arg-13 arg-6 arg-3 arg-5 arg-12 e-5 arg-11 e-6 arg-9 arg-8)))))))))) -(define App-Elab-TTImp-case--checkAppWithC-44useImp-9594 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-24 (List-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-26) arg-25)))) (else (App-Elab-TTImp-n--10617-9573-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 arg-22 (vector 1 (vector 0 (vector 1 arg-23) arg-24) arg-26) arg-25)))))) -(define App-Elab-TTImp-case--checkAppWith-9444 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-makeImplicit arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-22 arg-16 arg-15 arg-14 arg-13 arg-12 arg-5 arg-2 arg-4 arg-11 arg-10 arg-9 arg-8 arg-7)) (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--checkAppWithC-44useImp-9303 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-25) arg-24)))) (else (App-Elab-TTImp-n--10617-9282-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--checkAppWith-9154 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-makeAutoImplicit arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-22 arg-16 arg-15 arg-14 arg-13 arg-12 arg-5 arg-2 arg-4 arg-11 arg-10 arg-9 arg-8 arg-7)) (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--checkAppWithC-44useAutoImp-9013 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-25) arg-24)))) (else (App-Elab-TTImp-n--10617-8975-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 arg-21 (vector 1 (vector 0 (vector 1 arg-22) arg-23) arg-25) arg-24)))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-8748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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) (Check-Elab-TTImp-checkExp arg-0 arg-21 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 (Normalise-Core-glueBack arg-0 arg-24 arg-14 arg-11) (vector 1 arg-2))) (else (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-9 arg-5 arg-6 arg-8 arg-4 (vector 0 ) (vector 0 ) arg-3 (vector 1 arg-2))))))) -(define App-Elab-TTImp-case--checkAppWith-8676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((3) (let ((e-11 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-24 arg-14 arg-5 e-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) ((Check-Elab-TTImp-checkExp arg-0 arg-21 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 (Normalise-Core-glueBack arg-0 arg-24 arg-14 arg-11) (vector 1 arg-2)) eta-0)) (else ((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-9 arg-5 arg-6 arg-8 arg-4 (vector 0 ) (vector 0 ) arg-3 (vector 1 arg-2)) eta-0))))))))))))(else (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-9 arg-5 arg-6 arg-8 arg-4 (vector 0 ) (vector 0 ) arg-3 (vector 1 arg-2)))))))(else (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-9 arg-5 arg-6 arg-8 arg-4 (vector 0 ) (vector 0 ) arg-3 (vector 1 arg-2)))))))(else (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-9 arg-5 arg-6 arg-8 arg-4 (vector 0 ) (vector 0 ) arg-3 (vector 1 arg-2))))))) -(define App-Elab-TTImp-case--checkAppWith-8513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((2) (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-2)))(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-4 (vector 0 ) (vector 0 ) arg-3 (vector 1 arg-2)))))))(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-4 (vector 0 ) (vector 0 ) arg-3 (vector 1 arg-2)))))))(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-4 (vector 0 ) (vector 0 ) arg-3 (vector 1 arg-2))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-8333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 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-8 arg-5 arg-7 arg-4 (vector 0 ) (vector 0 ) arg-3 (vector 1 arg-2))) (else (lambda (eta-0) (Check-Elab-TTImp-handle 'erased arg-0 arg-20 arg-19 arg-18 arg-17 (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-2)) (lambda (err) (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-8 arg-5 arg-7 arg-4 (vector 0 ) (vector 0 ) arg-3 (vector 1 arg-2))) eta-0))))))) -(define App-Elab-TTImp-case--checkAppWith-8218 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((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-2)))(else (App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-8333 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 (Basics-Prelude-not (let ((sc2 arg-15)) (let ((e-10 (vector-ref sc2 5))) e-10)))))))))(else (App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-8333 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 (Basics-Prelude-not (let ((sc1 arg-15)) (let ((e-6 (vector-ref sc1 5))) e-6)))))))))(else (App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-8333 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 (Basics-Prelude-not (let ((sc0 arg-15)) (let ((e-4 (vector-ref sc0 5))) e-4))))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkRestApp-7992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-21))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-26 (((arg-8 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0)))))))))))))))))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7621 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (let ((sc0 arg-50)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-21 (vector 8 arg-29) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 arg-42) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7301 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (let ((sc0 arg-50)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-36)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-37) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((UnifyState-Core-newConstant arg-0 arg-19 arg-21 arg-12 arg-17 arg-13 arg-36 e-5 arg-50) eta-0)))))))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49) (let ((sc0 arg-49)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convert arg-0 arg-21 arg-19 arg-18 arg-12 arg-15 arg-13 (Normalise-Core-gnf arg-0 arg-13 arg-30) (Normalise-Core-gnf arg-0 arg-13 arg-42)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7301 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))) (else (lambda (eta-0) (vector 1 arg-36))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42) (let ((sc0 arg-42)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (App-Elab-TTImp-onLHS (let ((sc2 arg-15)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 arg-39 arg-13 arg-40 e-2 e-3) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-21))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTerm arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Solving " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7186 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 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 (Basics-Prelude-not e-8)) eta-0)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7621 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 e-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 arg-15)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-9 arg-37))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-6883 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-13 arg-28) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Now trying " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-13 e-6))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((sc6 (App-Elab-TTImp-onLHS (let ((sc7 arg-15)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-5 arg-13 e-6 e-9 e-4) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (unbox arg-21))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 (Context-Core-logTerm arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Solving " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) e-9 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-31 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-9) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-32 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7186 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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 (Basics-Prelude-not e-13)) eta-0)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-33 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7621 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 e-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 e-14 (let ((sc11 arg-15)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((act-34 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (vector 1 (vector 0 e-14 e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkRestApp-6750 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Delaying " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((act-28 (unbox arg-21))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-29 ((Normalise-Core-nf arg-0 e-10 arg-13 arg-28) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-logNF arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Now trying " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-11 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-31 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-13 e-11))) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-1 (vector 0 e-9 e-4))) (let ((sc10 e-13)) (let ((e-15 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((act-32 (let ((sc11 (App-Elab-TTImp-onLHS (let ((sc12 arg-15)) (let ((e-0 (vector-ref sc12 1))) e-0))))) (cond ((equal? sc11 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-10 arg-13 e-11 e-15 e-14) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-33 (let ((act-33 (unbox arg-21))) (vector 1 act-33)))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-34 (Context-Core-logTerm arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Solving " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-15 eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-35 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-15) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-36 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7186 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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 (Basics-Prelude-not e-19)) eta-0)))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-20 (vector-ref sc15 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-37 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7621 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 e-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 e-20 (let ((sc16 arg-15)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-21 (vector-ref sc16 1))) (vector 0 e-21))) (else (let ((act-38 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-22 (vector-ref sc17 1))) (vector 0 e-22))) (else (vector 1 (vector 0 e-20 e-4)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--checkRestApp-6663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((UnifyState-Core-genMVName arg-21 arg-19 arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs arg-22 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 arg-9 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Check-Elab-TTImp-argVar arg-0 arg-21 arg-19 (TTImp-TTImp-getFC arg-23) arg-16 arg-13 e-5 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Delaying " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-logTerm arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") e-3 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc10 e-12)) (let ((e-13 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((act-32 (let ((act-32 (unbox arg-21))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-33 ((Normalise-Core-nf arg-0 e-14 arg-13 e-7) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-34 (Normalise-Core-logNF arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Now trying " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-15 eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-35 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-14 arg-13 e-15))) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc14 1))) (let ((_-1 (vector 0 e-13 e-4))) (let ((sc15 e-17)) (let ((e-19 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((act-36 (let ((sc16 (App-Elab-TTImp-onLHS (let ((sc17 arg-15)) (let ((e-0 (vector-ref sc17 1))) e-0))))) (cond ((equal? sc16 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-14 arg-13 e-15 e-19 e-18) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-37 (let ((act-37 (unbox arg-21))) (vector 1 act-37)))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-38 (Context-Core-logTerm arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Solving " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-19 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-39 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-19) eta-0))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-40 (let ((_-2 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7186 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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 (Basics-Prelude-not e-23)) eta-0)))) (let ((sc20 act-40)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc20 1))) (let ((act-41 (let ((_-2 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7621 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 e-24 (let ((sc21 arg-15)) (let ((e-0 (vector-ref sc21 1))) e-0))) eta-0)))) (let ((sc21 act-41)) (case (vector-ref sc21 0) ((0) (let ((e-25 (vector-ref sc21 1))) (vector 0 e-25))) (else (let ((act-42 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc22 act-42)) (case (vector-ref sc22 0) ((0) (let ((e-26 (vector-ref sc22 1))) (vector 0 e-26))) (else (vector 1 (vector 0 e-24 e-4))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Argument type " (Name-Core-show_Show__Name arg-10))) arg-13 arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-21 "elab" (+ 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-12 arg-16 (vector 1 ) arg-9) arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-logC arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-26 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-21 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-7 eta-2))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-8))))))))))))))) arg-3) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Overall expected type: " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-7))))))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 arg-22 arg-13 arg-9))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-21 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 e-3 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-21))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-30 (((arg-8 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0)))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--checkRestApp-6555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 10 arg-12 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-concrete 'erased arg-22 arg-13 e-5) eta-0)))))))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErased-6403 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-2))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--10608-5848-dotTerm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2)))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErased-6375 (lambda (arg-0 arg-1 arg-2 arg-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))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErased-6403 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__Nat arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__Nat arg-11 arg-12)))) arg-4 (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 5))) e-4))))))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--10608-5848-dotTerm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2)))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32dotErased-6313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-2))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (n) (Context-Core-lookupCtxtExact n (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))))) arg-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErased-6403 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-1 _-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__Nat arg-10 arg-11)))) arg-4 (let ((sc4 e-1)) (let ((e-4 (vector-ref sc4 5))) e-4)))) eta-0)))) (else (vector 1 (App-Elab-TTImp-n--10608-5848-dotTerm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2))))))))))))))))))))) -(define App-Elab-TTImp-case--dotErased-6268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-n--10608-5847-countConstructors 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32dotErased-6313 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 (Basics-Prelude-C-124C-124 (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__Nat arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__Nat arg-9 arg-10)))) e-5 (vector 1 (Types-Prelude-fromInteger_Num__Nat 1))) (lambda () (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__Nat arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__Nat arg-9 arg-10)))) e-5 (vector 1 (Types-Prelude-fromInteger_Num__Nat 0)))))) eta-0)))))))) (else (lambda (eta-0) (vector 1 arg-2))))))) -(define App-Elab-TTImp-case--dotErasedC-44dotTerm-6101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((18) arg-8) ((16) arg-8) ((31) arg-8) ((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-8) ((31) arg-8)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-8))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-8) (vector 3 ) arg-8)))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErasedC-44countConstructors-5941 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((6) (let ((e-6 (vector-ref sc0 7))) (lambda (eta-0) (vector 1 (vector 1 (List-Types-Prelude-length 'erased e-6))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32dotErasedC-44countConstructors-5908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErasedC-44countConstructors-5941 '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-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-case--dotErasedC-44countConstructors-5863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-12 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErasedC-44countConstructors-5941 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkPatTyValid-5708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkPatTyValid-5664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((App-Elab-TTImp-concrete 'erased arg-9 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-case--checkPatTyValid-5628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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--caseC-32blockC-32inC-32checkPatTyValid-5664 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-case--needsDelayExpr-5417 (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 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) 0)(else 1)))))(else 1))))) -(define App-Elab-TTImp-case--makeDefImplicit-5172 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-21 arg-19 arg-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-13 arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-21 arg-19 arg-12 arg-16 arg-13 e-6 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-12 arg-11 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-9)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-18))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (set-box! arg-18 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-16 (vector 2 ) arg-13 e-9 e-8 e-11)))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-10 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 arg-9 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((fntm (vector 4 arg-12 arg-11 e-7))) (let ((act-27 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-7)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-8 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0)))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--makeAutoImplicit-4911 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-20))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-20 arg-18 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-12 arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-20 arg-18 arg-11 arg-15 arg-12 e-6 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-11 arg-10 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 e-9)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-17))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (set-box! arg-17 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-15 (vector 2 ) arg-12 e-9 e-8 e-11)))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-10 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-20))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-20 arg-18 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-12 arg-8 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-17))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-getAutoImplicitLimit arg-20 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Check-Elab-TTImp-searchVar arg-0 arg-20 arg-18 arg-11 arg-15 e-9 (vector 8 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-12 e-6 e-7 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((fntm (vector 4 arg-11 arg-10 e-10))) (let ((act-30 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 e-10)) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-11 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getVarType-4350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--caseC-32blockC-32inC-32getVarType-4277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getVarType-4350 arg-0 arg-1 arg-2 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--9908-4084-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21)))))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-checkVisibleNS arg-8 arg-2 (let ((sc1 e-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 e-2)) (let ((e-9 (vector-ref sc1 10))) e-9))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (Context-Core-logTerm arg-0 arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) tyenv eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-logTerm arg-0 arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 ((Context-Core-log arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Arg length " (Show-Prelude-show_Show__Nat arg-13)))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 tm (vector 0 arg-13 (Normalise-Core-gnf arg-0 arg-3 tyenv)))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32getVarType-4188 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 0 e-3))))))))) -(define App-Elab-TTImp-case--getVarType-4155 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-getNameType arg-0 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (vector 0 0 e-3))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((arglen (List-Types-Prelude-length 'erased e-9))) (let ((nC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (eta-1) eta-1)) e-5))) (let ((act-25 ((Context-Core-lookupCtxtExact nC-39 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 nC-39) eta-0)) (else (let ((e-3 (vector-ref sc5 1))) (let ((nt (let ((bind-0 (vector 1 e-3))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getVarType-4350 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--9908-4084-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc6 e-3)) (let ((e-28 (vector-ref sc6 3))) e-28)))))) (let ((act-26 ((App-Elab-TTImp-checkVisibleNS arg-8 arg-2 (let ((sc6 e-3)) (let ((e-1 (vector-ref sc6 2))) e-1)) (let ((sc6 e-3)) (let ((e-22 (vector-ref sc6 10))) e-22))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-27 (Context-Core-logTerm arg-0 arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name nC-39))) tyenv eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-logTerm arg-0 arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-29 ((Context-Core-log arg-8 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Arg length " (Show-Prelude-show_Show__Nat arglen)))) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 (vector 0 tm (vector 0 arglen (Normalise-Core-gnf arg-0 arg-3 tyenv)))))))))))))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNameType-3840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--caseC-32blockC-32inC-32getNameType-3794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-7 e-6) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-5 (let ((sc5 e-11)) (let ((e-9 (vector-ref sc5 10))) e-9))) eta-0)))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (App-Elab-TTImp-n--9360-3577-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc5 e-11)) (let ((e-23 (vector-ref sc5 8))) e-23)) arg-4 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNameType-3840 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-10 e-11 _-0 e-5 e-8 (let ((sc6 e-11)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 8 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc6 e-11)) (let ((e-27 (vector-ref sc6 3))) e-27)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Types-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 (Types-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))) -(define App-Elab-TTImp-case--caseC-32blockC-32inC-32getNameType-3713 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--getNameType-3603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (App-Elab-TTImp-n--9360-3577-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3641) (TT-Core-weaken_Weaken__Term n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (TT-Core-weakenNs_Weaken__Term vars ns arg-3645))))) arg-0 e-5 'erased arg-3))) (let ((bty (TT-Core-binderType 'erased binder))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-7 arg-6 arg-2 arg-1 arg-3 bty eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (let ((sc4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-9 arg-10))))) e-6))) (cond ((equal? sc4 0) (let ((act-26 (let ((act-26 (unbox arg-5))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (set-box! arg-5 (let ((sc6 e-9)) (let ((e-19 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-18 (vector-ref sc6 5))) (let ((e-17 (vector-ref sc6 6))) (let ((e-16 (vector-ref sc6 7))) (let ((e-15 (vector-ref sc6 8))) (let ((e-14 (vector-ref sc6 9))) (let ((e-10 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 11))) (let ((e-12 (vector-ref sc6 12))) (let ((e-13 (vector-ref sc6 13))) (vector 0 e-19 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 e-10 (vector 1 e-5 e-11) e-12 e-13)))))))))))))))))) (vector 1 act-27)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (vector 0 arg-2 (vector 1 (TT-Core-isLet 'erased binder)) e-5) (Normalise-Core-gnf arg-0 arg-3 bty))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-7 e-8) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-9 (let ((sc8 e-11)) (let ((e-23 (vector-ref sc8 10))) e-23))) eta-0)))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (App-Elab-TTImp-n--9360-3577-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc8 e-11)) (let ((e-25 (vector-ref sc8 8))) e-25)) arg-4 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNameType-3840 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-8 e-10 e-11 _-0 e-9 e-12 (let ((sc9 e-11)) (let ((e-17 (vector-ref sc9 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 8 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc9 e-11)) (let ((e-29 (vector-ref sc9 3))) e-29))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Types-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 (Types-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))))))))))))))) +(define As-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAs-11493 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Added as pattern name " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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--9686-11024-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 0 e-2 (vector 0 e-6 e-7))))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-13))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-10))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (set-box! arg-10 (let ((sc5 e-9)) (let ((e-1 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-18 (vector-ref sc5 5))) (let ((e-17 (vector-ref sc5 6))) (let ((e-16 (vector-ref sc5 7))) (let ((e-15 (vector-ref sc5 8))) (let ((e-14 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 10))) (let ((e-11 (vector-ref sc5 11))) (let ((e-12 (vector-ref sc5 12))) (let ((e-13 (vector-ref sc5 13))) (vector 0 e-1 e-20 e-19 e-4 (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9686-11024-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-2 e-6 arg-20)) e-18)) (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9686-11024-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-2 e-7 arg-20)) e-17)) e-16 e-15 e-14 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-2 (Normalise-Core-gnf arg-0 arg-6 e-6) (vector 1 arg-21)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-12 arg-20) arg-21))))))))))))))))))))))))))))))))))) +(define As-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAs-11436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc1 arg-8)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Added as pattern name " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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--9686-11024-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 0 e-6 (vector 0 e-8 e-7))))))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((act-26 (let ((act-26 (unbox arg-13))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((act-27 (let ((act-27 (unbox arg-10))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-28 (let ((act-28 (set-box! arg-10 (let ((sc7 e-11)) (let ((e-1 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((e-22 (vector-ref sc7 3))) (let ((e-21 (vector-ref sc7 4))) (let ((e-20 (vector-ref sc7 5))) (let ((e-19 (vector-ref sc7 6))) (let ((e-18 (vector-ref sc7 7))) (let ((e-17 (vector-ref sc7 8))) (let ((e-16 (vector-ref sc7 9))) (let ((e-15 (vector-ref sc7 10))) (let ((e-14 (vector-ref sc7 11))) (let ((e-12 (vector-ref sc7 12))) (let ((e-13 (vector-ref sc7 13))) (vector 0 e-1 e-23 e-22 e-21 (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9686-11024-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-6 e-8 e-2)) e-20)) (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9686-11024-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-6 e-7 e-2)) e-19)) e-18 e-17 e-16 e-15 e-14 e-12 e-13)))))))))))))))))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((act-29 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-6 (Normalise-Core-gnf arg-0 arg-6 e-8) (vector 1 e-3)) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-15 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-15 e-2) e-3))))))))))))))))))))))))))))))))))))))))))) +(define As-Elab-TTImp-case--caseC-32blockC-32inC-32checkAs-11380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (As-Elab-TTImp-n--9686-11022-rigPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) arg-8 arg-7 arg-6 arg-2 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 ((ImplicitBind-Elab-TTImp-mkPatternHole arg-0 arg-10 arg-13 arg-11 arg-5 arg-9 arg-17 arg-6 (let ((sc3 arg-8)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-4)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Added as pattern name " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 '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--9686-11024-rigAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 0 e-7 (vector 0 e-9 e-8))))))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((act-27 (let ((act-27 (unbox arg-13))) (vector 1 act-27)))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-28 (let ((act-28 (unbox arg-10))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-29 (let ((act-29 (set-box! arg-10 (let ((sc9 e-12)) (let ((e-1 (vector-ref sc9 1))) (let ((e-24 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (let ((e-22 (vector-ref sc9 4))) (let ((e-21 (vector-ref sc9 5))) (let ((e-20 (vector-ref sc9 6))) (let ((e-19 (vector-ref sc9 7))) (let ((e-18 (vector-ref sc9 8))) (let ((e-17 (vector-ref sc9 9))) (let ((e-16 (vector-ref sc9 10))) (let ((e-15 (vector-ref sc9 11))) (let ((e-14 (vector-ref sc9 12))) (let ((e-13 (vector-ref sc9 13))) (vector 0 e-1 e-24 e-23 e-22 (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9686-11024-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-7 e-9 e-2)) e-21)) (let ((vars arg-0)) (vector 1 (vector 0 arg-17 (vector 1 arg-0 (As-Elab-TTImp-n--9686-11024-rigAs vars arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (vector 1 ) e-7 e-8 e-2)) e-20)) e-19 e-18 e-17 e-16 e-15 e-14 e-13)))))))))))))))))) (vector 1 act-29)))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((act-30 ((Check-Elab-TTImp-checkExp arg-0 arg-13 arg-11 arg-10 arg-9 arg-8 arg-6 arg-5 e-7 (Normalise-Core-gnf arg-0 arg-6 e-9) (vector 1 e-3)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 1))) (vector 1 (vector 0 (vector 5 arg-5 arg-4 e-16 e-2) e-3))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 35 arg-5 arg-3) eta-0))))))) +(define As-Elab-TTImp-case--checkAs-11315 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((n (vector 3 arg-3 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-10 arg-14 arg-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-10 n eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((elabmode (vector 1 e-0))) ((As-Elab-TTImp-case--caseC-32blockC-32inC-32checkAs-11380 arg-0 arg-1 arg-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-15) (lambda (arg-16) (Name-Core-C-61C-61_Eq__Name arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Name-Core-C-47C-61_Eq__Name arg-15 arg-16)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp arg-2))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "@-patterns only allowed in pattern clauses") eta-0))))))))))) +(define As-Elab-TTImp-case--checkAsC-44rigAsC-39-11250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) +(define As-Elab-TTImp-case--checkAsC-44rigAsC-39-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 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) +(define As-Elab-TTImp-case--checkAsC-44rigPatC-39-11107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) +(define As-Elab-TTImp-case--checkAsC-44rigPatC-39-11036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9))))) +(define As-Elab-TTImp-n--9686-11021-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--checkAsC-44rigPatC-39-11036 arg-0 arg-1 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) arg-9))) (else (As-Elab-TTImp-case--checkAsC-44rigPatC-39-11107 arg-0 arg-1 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) arg-9))))))) +(define As-Elab-TTImp-n--9686-11022-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--9686-11021-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--9686-11023-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--checkAsC-44rigAsC-39-11179 arg-0 arg-1 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) arg-9))) (else (As-Elab-TTImp-case--checkAsC-44rigAsC-39-11250 arg-0 arg-1 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) arg-9))))))) +(define As-Elab-TTImp-n--9686-11024-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--9686-11023-rigAsC-39 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-4))) +(define As-Elab-TTImp-checkAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((elabmode (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (let ((sc0 elabmode)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((n (vector 3 arg-11 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 2))) e-2))))) (let ((act-25 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-4 elabmode arg-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-notePatVar 'erased arg-4 n eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((elabmode-0 (vector 1 e-0))) ((As-Elab-TTImp-case--caseC-32blockC-32inC-32checkAs-11380 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-14) (lambda (arg-15) (Name-Core-C-61C-61_Eq__Name arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Name-Core-C-47C-61_Eq__Name arg-14 arg-15)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 0)) (lambda () (Strings-Types-Prelude-C-43C-43 "Bad @-pattern " (TTImp-TTImp-show_Show__RawImp arg-12))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "@-patterns only allowed in pattern clauses") eta-0)))))))))))) +(define App-Elab-TTImp-case--checkApp-11312 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-13 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-2 e-5 (vector 0 (vector 0 ) 0) arg-3 arg-2 1 arg-1) eta-0)))))))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkApp-11121 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 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--checkApp-10938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-14 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-fromIntegerName arg-14 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-fromStringName arg-14 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Context-Core-fromCharName arg-14 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-8 (vector 1 e-9 (vector 1 e-10 (vector 0 ))))))) (let ((act-28 ((App-Elab-TTImp-n--16823-10394-updateElabInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 prims (let ((sc6 arg-9)) (let ((e-0 (vector-ref sc6 1))) e-0)) arg-1 arg-5 arg-9) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (Context-Core-logC arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-29 (let ((act-29 (unbox arg-14))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 e-12 arg-7 e-5 eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-31 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-31 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 (Normalise-Core-normaliseHoles arg-0 e-12 arg-7 e-14 eta-2))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-15 eta-2))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (vector 1 (vector 1 e-16)))))))))))))))))))) arg-3) eta-1))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 ((Context-Core-getFullName arg-14 arg-1) eta-1))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-13 eta-1))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc11 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Checking application of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-15) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) (Strings-Types-Prelude-C-43C-43 ")" (Strings-Types-Prelude-C-43C-43 " to " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 "\u000a\u0009Function type " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) (Strings-Types-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-14)))))))))))))))))))))))))))))))))))))) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32checkApp-11121 arg-0 arg-1 arg-2 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-16) (lambda (arg-17) (Name-Core-C-61C-61_Eq__Name arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (Name-Core-C-47C-61_Eq__Name arg-16 arg-17)))) arg-1 arg-8))))) (let ((act-30 ((App-Elab-TTImp-checkAppWith arg-0 arg-14 arg-13 arg-12 arg-11 arg-10 e-11 arg-8 arg-7 arg-6 e-2 e-5 (vector 0 (vector 1 fn) e-6) arg-5 arg-4 1 arg-3) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (App-Elab-TTImp-n--16823-10393-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--caseC-32blockC-32inC-32checkAppC-44updateElabInfo-10826 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-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--checkAppC-44updateElabInfo-10769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (let ((sc1 arg-18)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (vector 0 (vector 2 ) e-1 e-2 e-3 e-4 e-5)))))))))) (else (lambda (eta-0) (vector 1 arg-18))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAppC-44normalisePrims-10539 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normalise arg-15 e-5 arg-17 (Builtin-fst 'erased 'erased arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6 (Builtin-snd 'erased 'erased arg-16))))))))))))))) (else (lambda (eta-0) (vector 1 arg-16))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppC-44normalisePrims-10489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((27) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkAppC-44normalisePrims-10539 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--16823-10392-boundSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-4 (let ((sc2 arg-9)) (let ((e-0 (vector-ref sc2 1))) e-0)))))))(else (lambda (eta-0) (vector 1 arg-16))))))))(else (lambda (eta-0) (vector 1 arg-16))))))) +(define App-Elab-TTImp-case--checkAppC-44normalisePrims-10443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--caseC-32blockC-32inC-32checkAppC-44normalisePrims-10489 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 (List-Data-reverse 'erased arg-5))) (else (lambda (eta-0) (vector 1 arg-16))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10171 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37) (let ((sc0 arg-37)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-35)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-32) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((UnifyState-Core-newConstant arg-4 arg-16 arg-18 arg-10 arg-14 arg-11 (Builtin-fst 'erased 'erased arg-35) e-5 arg-37) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 e-6 (Normalise-Core-gnf arg-4 arg-11 arg-25))))))))))))))))))) +(define App-Elab-TTImp-case--checkAppWith-10024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-10 arg-9 e-2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-18))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-4 e-5 arg-11 arg-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((expfnty (Normalise-Core-gnf arg-4 arg-11 (vector 3 arg-10 arg-21 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-23) (TT-Core-weaken_Weaken__Term arg-21 arg-4 arg-25))))) (let ((act-26 (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-11 expfnty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-4 arg-18 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-11 eta-1 eta-2)))) arg-5) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((App-Elab-TTImp-checkAppWith arg-4 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 fntm e-6 (vector 0 arg-0 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1)) arg-3 arg-7 arg-6 arg-5) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Check-Elab-TTImp-convert arg-4 arg-18 arg-16 arg-15 arg-10 arg-13 arg-11 (Normalise-Core-glueBack arg-4 e-5 arg-11 arg-8) expfnty) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10171 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--checkAppWith-9841 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Types-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--checkAppWith-9665 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--checkAppWithC-44useImp-9526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-25) arg-24)))) (else (App-Elab-TTImp-n--10437-9505-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--checkAppWith-9382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--checkAppWithC-44useImp-9245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10437-9224-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--checkAppWith-9102 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (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--checkAppWithC-44useAutoImp-8965 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-24) arg-23)))) (else (App-Elab-TTImp-n--10437-8927-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--caseC-32blockC-32inC-32checkAppWith-8712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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-makeDefImplicit 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-4 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))))))) +(define App-Elab-TTImp-case--checkAppWith-8644 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((3) (let ((e-10 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__NF arg-0 arg-23 arg-13 arg-4 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) ((Check-Elab-TTImp-checkExp arg-0 arg-20 arg-18 arg-17 arg-16 arg-15 arg-13 arg-12 arg-11 (Normalise-Core-glueBack arg-0 arg-23 arg-13 arg-10) (vector 1 arg-1)) eta-0)) (else ((App-Elab-TTImp-makeDefImplicit 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-4 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)) eta-0))))))))))))(else (App-Elab-TTImp-makeDefImplicit 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-4 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeDefImplicit 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-4 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1)))))))(else (App-Elab-TTImp-makeDefImplicit 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-4 arg-5 arg-7 arg-3 (vector 0 ) (vector 0 ) arg-2 (vector 1 arg-1))))))) +(define App-Elab-TTImp-case--checkAppWith-8489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--caseC-32blockC-32inC-32checkAppWith-8315 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--checkAppWith-8206 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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--caseC-32blockC-32inC-32checkAppWith-8315 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 (Basics-Prelude-not (let ((sc2 arg-14)) (let ((e-9 (vector-ref sc2 5))) e-9)))))))))(else (App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-8315 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 (Basics-Prelude-not (let ((sc1 arg-14)) (let ((e-6 (vector-ref sc1 5))) e-6)))))))))(else (App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-8315 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 (Basics-Prelude-not (let ((sc0 arg-14)) (let ((e-4 (vector-ref sc0 5))) e-4))))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkRestApp-7988 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-21))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-26 (((arg-8 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0)))))))))))))))))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7623 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (let ((sc0 arg-50)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-updateDef arg-21 (vector 8 arg-29) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 arg-42) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7303 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (let ((sc0 arg-50)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-36)))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-37) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((UnifyState-Core-newConstant arg-0 arg-19 arg-21 arg-12 arg-17 arg-13 arg-36 e-5 arg-50) eta-0)))))))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7188 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49) (let ((sc0 arg-49)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-convert arg-0 arg-21 arg-19 arg-18 arg-12 arg-15 arg-13 (Normalise-Core-gnf arg-0 arg-13 arg-30) (Normalise-Core-gnf arg-0 arg-13 arg-42)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7303 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))))))) (else (lambda (eta-0) (vector 1 arg-36))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42) (let ((sc0 arg-42)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 (App-Elab-TTImp-onLHS (let ((sc2 arg-15)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 arg-39 arg-13 arg-40 e-2 e-3) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-21))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Solving " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7188 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 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 (Basics-Prelude-not e-8)) eta-0)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7623 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 e-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 arg-15)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-9 arg-37))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-6889 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-13 arg-28) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Now trying " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-13 e-6))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((sc6 (App-Elab-TTImp-onLHS (let ((sc7 arg-15)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-5 arg-13 e-6 e-9 e-4) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (unbox arg-21))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Solving " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-30) " with"))) e-9 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-31 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-9) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-32 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7188 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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 (Basics-Prelude-not e-13)) eta-0)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-33 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7623 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 e-2 e-3 _-0 e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-13 e-14 (let ((sc11 arg-15)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((act-34 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (vector 1 (vector 0 e-14 e-3))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkRestApp-6760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-29)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Delaying " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-7 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (let ((act-28 (unbox arg-21))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-29 ((Normalise-Core-nf arg-0 e-10 arg-13 arg-28) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Now trying " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-26) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-11 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-31 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-10 arg-13 e-11))) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-1 (vector 0 e-9 e-4))) (let ((sc10 e-13)) (let ((e-15 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((act-32 (let ((sc11 (App-Elab-TTImp-onLHS (let ((sc12 arg-15)) (let ((e-0 (vector-ref sc12 1))) e-0))))) (cond ((equal? sc11 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-10 arg-13 e-11 e-15 e-14) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-33 (let ((act-33 (unbox arg-21))) (vector 1 act-33)))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-34 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Solving " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-15 eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-35 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-15) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-36 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7188 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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 (Basics-Prelude-not e-19)) eta-0)))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-20 (vector-ref sc15 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-37 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7623 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 e-2 e-3 _-0 fntm e-5 e-6 e-7 e-9 e-4 _-1 e-10 e-11 e-12 e-15 e-14 _-2 e-16 e-17 e-18 e-19 e-20 (let ((sc16 arg-15)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-21 (vector-ref sc16 1))) (vector 0 e-21))) (else (let ((act-38 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-22 (vector-ref sc17 1))) (vector 0 e-22))) (else (vector 1 (vector 0 e-20 e-4)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--checkRestApp-6673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((UnifyState-Core-genMVName arg-21 arg-19 arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs arg-22 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 arg-9 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Check-Elab-TTImp-argVar arg-0 arg-21 arg-19 (TTImp-TTImp-getFC arg-23) arg-16 arg-13 e-5 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((fntm (vector 4 arg-12 arg-11 e-3))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Delaying " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 arg-9 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "...as") e-3 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc10 e-12)) (let ((e-13 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((act-32 (let ((act-32 (unbox arg-21))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-33 ((Normalise-Core-nf arg-0 e-14 arg-13 e-7) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-34 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Now trying " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp arg-23))))) arg-13 e-15 eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-35 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 e-14 arg-13 e-15))) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc14 1))) (let ((_-1 (vector 0 e-13 e-4))) (let ((sc15 e-17)) (let ((e-19 (vector-ref sc15 1))) (let ((e-18 (vector-ref sc15 2))) (let ((act-36 (let ((sc16 (App-Elab-TTImp-onLHS (let ((sc17 arg-15)) (let ((e-0 (vector-ref sc17 1))) e-0))))) (cond ((equal? sc16 0) ((App-Elab-TTImp-checkPatTyValid arg-0 arg-21 arg-12 e-14 arg-13 e-15 e-19 e-18) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-37 (let ((act-37 (unbox arg-21))) (vector 1 act-37)))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-38 (Context-Core-logTerm arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Solving " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-3) " with"))) e-19 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-39 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-19) eta-0))) (let ((sc19 act-39)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-40 (let ((_-2 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7188 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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 (Basics-Prelude-not e-23)) eta-0)))) (let ((sc20 act-40)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc20 1))) (let ((act-41 (let ((_-2 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkRestApp-7623 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 e-5 e-6 e-7 e-2 e-3 _-0 fntm e-9 e-10 e-11 e-13 e-4 _-1 e-14 e-15 e-16 e-19 e-18 _-2 e-20 e-21 e-22 e-23 e-24 (let ((sc21 arg-15)) (let ((e-0 (vector-ref sc21 1))) e-0))) eta-0)))) (let ((sc21 act-41)) (case (vector-ref sc21 0) ((0) (let ((e-25 (vector-ref sc21 1))) (vector 0 e-25))) (else (let ((act-42 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc22 act-42)) (case (vector-ref sc22 0) ((0) (let ((e-26 (vector-ref sc22 1))) (vector 0 e-26))) (else (vector 1 (vector 0 e-24 e-4))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Argument type " (Name-Core-show_Show__Name arg-10))) arg-13 arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Full function type") arg-13 (vector 0 arg-12 arg-10 (vector 2 arg-16 (vector 1 ) arg-9) arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-logC arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-26 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-toFullNames 'erased arg-21 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-7 eta-2))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 1 e-8))))))))))))))) arg-3) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Overall expected type: " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-7))))))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Check-Elab-TTImp-check arg-0 arg-21 arg-20 arg-19 arg-18 arg-16 arg-15 arg-14 arg-13 arg-23 (vector 1 (Normalise-Core-glueBack arg-0 arg-22 arg-13 arg-9))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got arg type") arg-13 e-3 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-21))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-30 (((arg-8 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-11 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-24 arg-3) eta-0)))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--checkRestApp-6565 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 10 arg-12 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-concrete 'erased arg-22 arg-13 e-5) eta-0)))))))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErased-6413 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-2))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--10428-5858-dotTerm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2)))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErased-6385 (lambda (arg-0 arg-1 arg-2 arg-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))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErased-6413 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__Nat arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__Nat arg-11 arg-12)))) arg-4 (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 5))) e-4))))))) (else (lambda (eta-0) (vector 1 (App-Elab-TTImp-n--10428-5858-dotTerm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2)))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32dotErased-6323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-2))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (n) (Context-Core-lookupCtxtExact n (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))))) arg-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErased-6413 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-1 _-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__Nat arg-10 arg-11)))) arg-4 (let ((sc4 e-1)) (let ((e-4 (vector-ref sc4 5))) e-4)))) eta-0)))) (else (vector 1 (App-Elab-TTImp-n--10428-5858-dotTerm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2))))))))))))))))))))) +(define App-Elab-TTImp-case--dotErased-6278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-n--10428-5857-countConstructors 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32dotErased-6323 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 (Basics-Prelude-C-124C-124 (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__Nat arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__Nat arg-9 arg-10)))) e-5 (vector 1 (Types-Prelude-fromInteger_Num__Nat 1))) (lambda () (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__Nat arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__Nat arg-9 arg-10)))) e-5 (vector 1 (Types-Prelude-fromInteger_Num__Nat 0)))))) eta-0)))))))) (else (lambda (eta-0) (vector 1 arg-2))))))) +(define App-Elab-TTImp-case--dotErasedC-44dotTerm-6111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((18) arg-8) ((16) arg-8) ((31) arg-8) ((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-8) ((31) arg-8)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-8))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-8) (vector 3 ) arg-8)))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErasedC-44countConstructors-5951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) ((6) (let ((e-6 (vector-ref sc0 7))) (lambda (eta-0) (vector 1 (vector 1 (List-Types-Prelude-length 'erased e-6))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32dotErasedC-44countConstructors-5918 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErasedC-44countConstructors-5951 '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-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-case--dotErasedC-44countConstructors-5873 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-12 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32dotErasedC-44countConstructors-5951 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17))) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkPatTyValid-5718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkPatTyValid-5674 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((App-Elab-TTImp-concrete 'erased arg-9 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 43 arg-0 arg-10 arg-8 arg-7) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-case--checkPatTyValid-5638 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--caseC-32blockC-32inC-32checkPatTyValid-5674 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-case--needsDelayExpr-5427 (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 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) 0)(else 1)))))(else 1))))) +(define App-Elab-TTImp-case--makeDefImplicit-5182 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-21 arg-19 arg-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-13 arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-21 arg-19 arg-12 arg-16 arg-13 e-6 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-12 arg-11 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-9)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-18))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (set-box! arg-18 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-16 (vector 2 ) arg-13 e-9 e-8 e-11)))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-10 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-21))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 arg-9 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((fntm (vector 4 arg-12 arg-11 e-7))) (let ((act-27 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-7)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-21 arg-20 arg-19 arg-18 arg-17 arg-15 arg-14 arg-13 arg-12 fntm e-8 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0)))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--makeAutoImplicit-4921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-20))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-20 arg-18 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-12 arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-20 arg-18 arg-11 arg-15 arg-12 e-6 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-11 arg-10 e-9))) (let ((act-29 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 e-9)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((act-30 (unbox arg-17))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 (set-box! arg-17 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-15 (vector 2 ) arg-12 e-9 e-8 e-11)))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-10 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-20))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-20 arg-18 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-12 arg-8 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-17))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-getAutoImplicitLimit arg-20 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Check-Elab-TTImp-searchVar arg-0 arg-20 arg-18 arg-11 arg-15 e-9 (vector 8 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 2))) e-2))) arg-12 e-6 e-7 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((fntm (vector 4 arg-11 arg-10 e-10))) (let ((act-30 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 e-10)) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-20 arg-19 arg-18 arg-17 arg-16 arg-14 arg-13 arg-12 arg-11 fntm e-11 (vector 0 arg-1 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-2)) arg-6 arg-5 arg-4 arg-3) eta-0))))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getVarType-4368 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--caseC-32blockC-32inC-32getVarType-4295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getVarType-4368 arg-0 arg-1 arg-2 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--9737-4102-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc1 e-2)) (let ((e-21 (vector-ref sc1 3))) e-21)))))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-checkVisibleNS arg-8 arg-2 (let ((sc1 e-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 e-2)) (let ((e-9 (vector-ref sc1 10))) e-9))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name arg-14))) tyenv eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Arg length " (Show-Prelude-show_Show__Nat arg-13))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 tm (vector 0 arg-13 (Normalise-Core-gnf arg-0 arg-3 tyenv)))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32getVarType-4206 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 0 e-3))))))))) +(define App-Elab-TTImp-case--getVarType-4173 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-getNameType arg-0 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-2 (vector 0 0 e-3))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((arglen (List-Types-Prelude-length 'erased e-9))) (let ((nC-39 (Types-Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (eta-1) eta-1)) e-5))) (let ((act-25 ((Context-Core-lookupCtxtExact nC-39 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 nC-39) eta-0)) (else (let ((e-3 (vector-ref sc5 1))) (let ((nt (let ((bind-0 (vector 1 e-3))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getVarType-4368 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--9737-4102-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 (TT-Core-getArgs 'erased tm) (TT-Core-embed 'erased 'erased (let ((sc6 e-3)) (let ((e-28 (vector-ref sc6 3))) e-28)))))) (let ((act-26 ((App-Elab-TTImp-checkVisibleNS arg-8 arg-2 (let ((sc6 e-3)) (let ((e-1 (vector-ref sc6 2))) e-1)) (let ((sc6 e-3)) (let ((e-22 (vector-ref sc6 10))) e-22))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-27 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Type of " (Name-Core-show_Show__Name nC-39))) tyenv eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Expands to") tm eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Arg length " (Show-Prelude-show_Show__Nat arglen))) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (vector 1 (vector 0 tm (vector 0 arglen (Normalise-Core-gnf arg-0 arg-3 tyenv)))))))))))))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNameType-3858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (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--caseC-32blockC-32inC-32getNameType-3812 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-7 e-6) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-5 (let ((sc5 e-11)) (let ((e-9 (vector-ref sc5 10))) e-9))) eta-0)))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (App-Elab-TTImp-n--9171-3578-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc5 e-11)) (let ((e-23 (vector-ref sc5 8))) e-23)) arg-4 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNameType-3858 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6 e-10 e-11 _-0 e-5 e-8 (let ((sc6 e-11)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 8 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc6 e-11)) (let ((e-27 (vector-ref sc6 3))) e-27)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Types-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 (Types-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) eta-0))))))) +(define App-Elab-TTImp-case--caseC-32blockC-32inC-32getNameType-3731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (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--getNameType-3621 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (App-Elab-TTImp-n--9171-3578-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-6 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3584) (TT-Core-weaken_Weaken__Term n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (TT-Core-weakenNs_Weaken__Term vars ns arg-3588))))) arg-0 e-5 'erased arg-3))) (let ((bty (TT-Core-binderType 'erased binder))) (let ((act-25 (Metadata-Core-addNameType arg-0 arg-7 arg-6 arg-2 arg-1 arg-3 bty eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 (let ((sc4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-9 arg-10))))) e-6))) (cond ((equal? sc4 0) (let ((act-26 (let ((act-26 (unbox arg-5))) (vector 1 act-26)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (set-box! arg-5 (let ((sc6 e-9)) (let ((e-19 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-18 (vector-ref sc6 5))) (let ((e-17 (vector-ref sc6 6))) (let ((e-16 (vector-ref sc6 7))) (let ((e-15 (vector-ref sc6 8))) (let ((e-14 (vector-ref sc6 9))) (let ((e-10 (vector-ref sc6 10))) (let ((e-11 (vector-ref sc6 11))) (let ((e-12 (vector-ref sc6 12))) (let ((e-13 (vector-ref sc6 13))) (vector 0 e-19 e-2 e-3 e-4 e-18 e-17 e-16 e-15 e-14 e-10 (vector 1 e-5 e-11) e-12 e-13)))))))))))))))))) (vector 1 act-27)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 (vector 0 arg-2 (vector 1 (App-Elab-TTImp-n--9171-3577-isLet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased binder)) e-5) (Normalise-Core-gnf arg-0 arg-3 bty))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-7 e-8) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) ((App-Elab-TTImp-checkVisibleNS arg-7 arg-2 e-9 (let ((sc8 e-11)) (let ((e-23 (vector-ref sc8 10))) e-23))) eta-0)))))))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (App-Elab-TTImp-n--9171-3578-rigSafe arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (let ((sc8 e-11)) (let ((e-25 (vector-ref sc8 8))) e-25)) arg-4 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((nt (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-10 e-11)) (vector 0 )))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNameType-3858 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-8 e-10 e-11 _-0 e-9 e-12 (let ((sc9 e-11)) (let ((e-17 (vector-ref sc9 18))) e-17)))))) (vector 1 (vector 0 (vector 1 arg-2 nt (vector 8 e-10)) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased (let ((sc9 e-11)) (let ((e-29 (vector-ref sc9 3))) e-29))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Types-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 (Types-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0)))))))))))))))))))) (define App-Elab-TTImp-case--caseC-32blockC-32inC-32checkVisibleNS-3496 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-3 (vector 0 arg-1 arg-0) (vector 0 )) eta-0))))))) (define App-Elab-TTImp-case--checkVisibleNS-3463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-isAllPublic arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-getNS arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getNestedNS arg-4 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 0)) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkVisibleNS-3496 arg-0 arg-1 arg-2 arg-3 arg-4 bind-0 e-5 e-6 e-7 (Basics-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--9908-4084-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-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((3) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (let ((e-17 (vector-ref sc1 3))) (let ((e-18 (vector-ref sc1 4))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((2) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 4))) (vector 3 e-15 e-16 (vector 1 e-20 e-21 e-12 e-23) (App-Elab-TTImp-n--9908-4084-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-16 arg-9) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Term e-16 arg-9 eta-0)) e-13) e-18))))))(else (let ((sc2 arg-11)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((e-9 (vector-ref sc3 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (App-Elab-TTImp-n--9908-4084-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) (Types-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))) (let ((e-9 (vector-ref sc2 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (App-Elab-TTImp-n--9908-4084-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) (Types-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))) (let ((e-9 (vector-ref sc1 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (App-Elab-TTImp-n--9908-4084-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) (Types-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--10617-9573-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 arg-24) (let ((sc0 arg-24)) (case (vector-ref 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--checkAppWithC-44useImp-9594 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-9 e-7 e-3 arg-23 (Name-Core-C-61C-61_Eq__Name arg-6 e-9))))(else (App-Elab-TTImp-n--10617-9573-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 arg-22 (vector 1 e-2 arg-23) e-3)))))))(else (App-Elab-TTImp-n--10617-9573-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 arg-22 (vector 1 e-2 arg-23) e-3))))))))))) -(define App-Elab-TTImp-n--10617-9282-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--checkAppWithC-44useImp-9303 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--10617-9282-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--10617-9282-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--10617-8975-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 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) ((0) (vector 1 (vector 0 e-7 (List-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-22) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (App-Elab-TTImp-case--checkAppWithC-44useAutoImp-9013 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-10 e-7 e-3 arg-22 (Name-Core-C-61C-61_Eq__Name arg-5 e-10))))(else (App-Elab-TTImp-n--10617-8975-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 arg-21 (vector 1 e-2 arg-22) e-3)))))))(else (App-Elab-TTImp-n--10617-8975-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 arg-21 (vector 1 e-2 arg-22) e-3))))))))))) -(define App-Elab-TTImp-n--17109-10478-updateElabInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-18)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-14 arg-17) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) ((App-Elab-TTImp-case--checkAppC-44updateElabInfo-10853 arg-0 arg-1 arg-2 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--17109-10475-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19)))))))(else (lambda (eta-0) (vector 1 arg-19))))))) -(define App-Elab-TTImp-n--9360-3577-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) (vector 0 (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-10 arg-11))))) arg-8 arg-9))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-2 e-5 arg-8 arg-9) ext-0)) (else (vector 1 (vector 0 )))))))))))) -(define App-Elab-TTImp-n--10617-9881-notInfer (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((31) 1) ((17) (let ((e-9 (vector-ref sc1 4))) (App-Elab-TTImp-n--10617-9881-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--17109-10477-normalisePrims (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((Context-Core-getFullName arg-14 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((App-Elab-TTImp-case--checkAppC-44normalisePrims-10527 arg-0 arg-1 arg-2 arg-3 arg-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--17109-10475-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--10592-5162-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--10586-4901-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--17109-10475-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))) (Basics-Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-16) e-2) (lambda () (App-Elab-TTImp-n--17109-10475-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--10608-5848-dotTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((18) arg-8) ((16) arg-8) ((31) arg-8) ((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-8) ((31) arg-8)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-8))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-8) (vector 3 ) arg-8)))))) -(define App-Elab-TTImp-n--10608-5847-countConstructors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (App-Elab-TTImp-case--dotErasedC-44countConstructors-5863 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-3 e-5 e-4 e-2 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased e-5) e-4))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-n--17109-10476-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))) (EqOrd-Prelude-C-60_Ord__Integer (Num-Prelude-abs_Abs__Integer e-0) 100)))(else 0)))))))) +(define App-Elab-TTImp-n--9737-4102-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--9737-4102-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) (Types-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--9737-4102-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) (Types-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--9737-4102-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) (Types-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--9737-4102-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) (Types-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--10437-9505-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--checkAppWithC-44useImp-9526 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--10437-9505-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--10437-9505-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--10437-9224-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--checkAppWithC-44useImp-9245 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--10437-9224-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--10437-9224-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--10437-8927-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-Types-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--checkAppWithC-44useAutoImp-8965 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--10437-8927-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--10437-8927-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--16823-10394-updateElabInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-18)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-14 arg-17) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) ((App-Elab-TTImp-case--checkAppC-44updateElabInfo-10769 arg-0 arg-1 arg-2 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--16823-10391-isPrimName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-6)) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19))))))))(else (lambda (eta-0) (vector 1 arg-19)))))))(else (lambda (eta-0) (vector 1 arg-19))))))) +(define App-Elab-TTImp-n--9171-3578-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) (vector 0 (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-10 arg-11))))) arg-8 arg-9))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-2 e-5 arg-8 arg-9) ext-0)) (else (vector 1 (vector 0 )))))))))))) +(define App-Elab-TTImp-n--10437-9805-notInfer (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((31) 1) ((17) (let ((e-9 (vector-ref sc1 4))) (App-Elab-TTImp-n--10437-9805-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--16823-10393-normalisePrims (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((Context-Core-getFullName arg-14 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((App-Elab-TTImp-case--checkAppC-44normalisePrims-10443 arg-0 arg-1 arg-2 arg-3 arg-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--16823-10391-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--10412-5172-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--10406-4911-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--16823-10391-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))) (Basics-Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-16) e-2) (lambda () (App-Elab-TTImp-n--16823-10391-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--9171-3577-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--10428-5858-dotTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((18) arg-8) ((16) arg-8) ((31) arg-8) ((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-8) ((31) arg-8)(else (vector 17 e-7 e-8 e-9 (vector 18 e-7 (vector 3 ) arg-8))))))))))(else (vector 18 (TTImp-TTImp-getFC arg-8) (vector 3 ) arg-8)))))) +(define App-Elab-TTImp-n--10428-5857-countConstructors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (App-Elab-TTImp-case--dotErasedC-44countConstructors-5873 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-3 e-5 e-4 e-2 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased e-5) e-4))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-n--16823-10392-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))) (EqOrd-Prelude-C-60_Ord__Integer (Num-Prelude-abs_Abs__Integer e-0) 100)))(else 0)))))))) (define App-Elab-TTImp-onLHS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) (define App-Elab-TTImp-needsDelayLHS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) ((8) (let ((e-3 (vector-ref sc0 2))) (App-Elab-TTImp-needsDelayLHS arg-0 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (App-Elab-TTImp-needsDelayLHS arg-0 e-6))) ((12) (lambda (eta-0) (vector 1 0))) ((11) (lambda (eta-0) (vector 1 0))) ((27) (lambda (eta-0) (vector 1 0))) ((28) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) (define App-Elab-TTImp-needsDelayExpr (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (vector 1 1))) (else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-1 (let ((sc3 e-5)) (let ((e-28 (vector-ref sc3 1))) e-28))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((1) 0)(else 1)))))(else 1))))))))))))))))) ((8) (let ((e-3 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-3))) ((9) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-6))) ((2) (lambda (eta-0) (vector 1 0))) ((4) (lambda (eta-0) (vector 1 0))) ((5) (lambda (eta-0) (vector 1 0))) ((7) (lambda (eta-0) (vector 1 0))) ((12) (lambda (eta-0) (vector 1 0))) ((11) (lambda (eta-0) (vector 1 0))) ((13) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))))) (define App-Elab-TTImp-needsDelay (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (App-Elab-TTImp-needsDelayLHS arg-0 arg-3))(else (App-Elab-TTImp-needsDelayExpr arg-0 arg-2 arg-3)))))) (define App-Elab-TTImp-makeImplicit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((UnifyState-Core-genMVName arg-1 arg-3 arg-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-9 arg-13 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-10 arg-6 arg-9 e-6 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-10 arg-11 e-9))) (let ((act-29 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 e-9)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((sc7 (let ((sc8 arg-7)) (let ((e-12 (vector-ref sc8 4))) e-12)))) (cond ((equal? sc7 0) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 (set-box! arg-4 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-6 (vector 0 ) arg-9 e-9 e-8 e-11)))) (vector 1 act-31)))))))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 fntm e-10 (vector 0 e-2 (Types-Prelude-C-43_Num__Nat (Types-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--makeDefImplicit-5172 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--10592-5162-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--makeAutoImplicit-4911 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--10586-4901-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--makeDefImplicit-5182 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--10412-5172-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--makeAutoImplicit-4921 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--10406-4911-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--getVarType-4155 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-9) (lambda (arg-10) (Name-Core-C-61C-61_Eq__Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Name-Core-C-47C-61_Eq__Name arg-9 arg-10)))) 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--getNameType-3603 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 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (App-Elab-TTImp-case--dotErased-6268 'erased e-0 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 (Basics-Prelude-C-38C-38 (Basics-Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-8 arg-9))))) e-0)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-8 arg-9))))) arg-6))))))(else (lambda (eta-0) (vector 1 arg-7))))))) +(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--getVarType-4173 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-9) (lambda (arg-10) (Name-Core-C-61C-61_Eq__Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Name-Core-C-47C-61_Eq__Name arg-9 arg-10)))) 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--getNameType-3621 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 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (App-Elab-TTImp-case--dotErased-6278 'erased e-0 arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 (Basics-Prelude-C-38C-38 (Basics-Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-8 arg-9))))) e-0)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-8 arg-9))))) arg-6))))))(else (lambda (eta-0) (vector 1 arg-7))))))) (define App-Elab-TTImp-concrete (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((App-Elab-TTImp-concrete 'erased arg-1 arg-2 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))) ((2) (lambda (eta-0) (vector 1 0))) ((3) (lambda (eta-0) (vector 1 0))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) (define App-Elab-TTImp-checkVisibleNS (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isVisible arg-0 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (Context-Core-isAllPublic arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-getNS arg-0 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (Context-Core-getNestedNS arg-0 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((bind-0 0)) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkVisibleNS-3496 e-1 e-0 arg-3 arg-1 arg-0 bind-0 e-6 e-7 e-8 (Basics-Prelude-C-124C-124 e-6 (lambda () (Context-Core-visibleInAny (vector 1 e-7 e-8) (vector 0 e-0 e-1) arg-3)))) eta-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 8 arg-1 (vector 0 e-0 e-1) (vector 1 e-0)) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-checkRestApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((App-Elab-TTImp-dotErased 'erased arg-1 arg-13 e-2 e-3 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-6 arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-19)) (cond ((equal? sc3 0) (vector 1 0)) (else (let ((act-26 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 (vector 10 arg-10 1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((App-Elab-TTImp-concrete 'erased e-5 arg-9 e-7) eta-0))))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((App-Elab-TTImp-needsDelay arg-1 (let ((sc4 arg-7)) (let ((e-0 (vector-ref sc4 1))) e-0)) e-7 arg-16) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) ((App-Elab-TTImp-case--checkRestApp-6663 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 (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 (App-Elab-TTImp-isHole 'erased arg-13) (lambda () e-7)) (lambda () e-8))) eta-0))))))))))))))))))))))))))) -(define App-Elab-TTImp-checkPatTyValid (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 e-6) (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkPatTyValid-5664 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-8 arg-9))))) (let ((sc4 e-4)) (let ((e-22 (vector-ref sc4 8))) e-22)))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define App-Elab-TTImp-checkAppWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-12)) (case (vector-ref sc1 0) ((2) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((e-22 (vector-ref sc1 4))) (let ((sc2 e-21)) (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 ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-20))) (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-22 e-13 arg-12 e-29 e-30 arg-14 arg-15 arg-16)))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--checkAppWith-9917 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--10617-9881-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc3 arg-12)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 arg-13)) (let ((e-5 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((sc12 e-17)) (let ((e-18 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc13 act-31)) (case (vector-ref sc13 0) ((0) (let ((e-23 (vector-ref sc13 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc13 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-23 arg-8 e-16) eta-0))) (let ((sc14 act-32)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc14 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 arg-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc15 act-33)) (case (vector-ref sc15 0) ((0) (let ((e-25 (vector-ref sc15 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc15 1))) (let ((act-34 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc16 act-34)) (case (vector-ref sc16 0) ((0) (let ((e-26 (vector-ref sc16 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc16 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-24 (vector 0 e-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc17 act-35)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-23 arg-8 arg-11) expfnty) eta-0))) (let ((sc18 act-36)) (case (vector-ref sc18 0) ((0) (let ((e-28 (vector-ref sc18 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc18 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10255 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-23 e-24 expfnty e-25 e-26 e-27 e-28 (let ((sc19 e-28)) (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-34 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-20))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-34) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((ty (vector 0 e-10 e-11 (vector 2 e-19 e-20 (vector 0 ) e-22) 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-8 (vector-ref sc9 3))) (let ((sc10 e-8)) (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-34)) eta-0))(else ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-8333 arg-0 e-19 e-34 arg-15 arg-12 e-22 e-20 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 (Basics-Prelude-not (let ((sc10 arg-6)) (let ((e-16 (vector-ref sc10 5))) e-16)))) eta-0))))))(else ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-8333 arg-0 e-19 e-34 arg-15 arg-12 e-22 e-20 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 (Basics-Prelude-not (let ((sc9 arg-6)) (let ((e-8 (vector-ref sc9 5))) e-8)))) eta-0))))))(else ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-8333 arg-0 e-19 e-34 arg-15 arg-12 e-22 e-20 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 (Basics-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-20))) (App-Elab-TTImp-case--checkAppWith-9444 arg-0 e-19 e-22 e-20 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--10617-9282-useImp arg-0 e-19 e-22 e-20 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-20))) (App-Elab-TTImp-case--checkAppWith-9444 arg-0 e-19 e-22 e-20 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--10617-9282-useImp arg-0 e-19 e-22 e-20 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-20))) (App-Elab-TTImp-case--checkAppWith-9444 arg-0 e-19 e-22 e-20 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--10617-9282-useImp arg-0 e-19 e-22 e-20 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-38 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-20))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-38) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((ty (vector 0 e-10 e-11 (vector 2 e-19 e-20 (vector 2 ) e-22) 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-8 (vector-ref sc9 3))) (let ((sc10 e-8)) (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-38)) 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-22 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-38)) 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-22 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-38)) 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-22 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-38)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-20))) (App-Elab-TTImp-case--checkAppWith-9154 arg-0 e-19 e-22 e-20 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--10617-8975-useAutoImp arg-0 e-19 e-22 e-20 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-20))) (App-Elab-TTImp-case--checkAppWith-9154 arg-0 e-19 e-22 e-20 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--10617-8975-useAutoImp arg-0 e-19 e-22 e-20 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-20))) (App-Elab-TTImp-case--checkAppWith-9154 arg-0 e-19 e-22 e-20 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--10617-8975-useAutoImp arg-0 e-19 e-22 e-20 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-27 (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-42 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-20))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-42) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((ty (vector 0 e-10 e-11 (vector 2 e-19 e-20 (vector 3 e-27) e-22) 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-8 (vector-ref sc9 3))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((3) (let ((e-15 (vector-ref sc10 1))) (let ((act-26 (Normalise-Core-convert_Convert__NF arg-0 e-6 arg-8 e-27 e-15 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((sc12 e-16)) (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-42)) eta-0)) (else ((App-Elab-TTImp-makeDefImplicit 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-27 e-22 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-42)) eta-0)))))))))))(else ((App-Elab-TTImp-makeDefImplicit 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-27 e-22 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-42)) eta-0))))))(else ((App-Elab-TTImp-makeDefImplicit 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-27 e-22 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-42)) eta-0))))))(else ((App-Elab-TTImp-makeDefImplicit 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-27 e-22 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-42)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-20))) (App-Elab-TTImp-case--checkAppWith-9737 arg-0 e-19 e-27 e-22 e-20 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--10617-9573-useImp arg-0 e-19 e-27 e-22 e-20 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-20))) (App-Elab-TTImp-case--checkAppWith-9737 arg-0 e-19 e-27 e-22 e-20 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--10617-9573-useImp arg-0 e-19 e-27 e-22 e-20 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-20))) (App-Elab-TTImp-case--checkAppWith-9737 arg-0 e-19 e-27 e-22 e-20 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--10617-9573-useImp arg-0 e-19 e-27 e-22 e-20 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--checkAppWith-9917 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--10617-9881-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc10 1))) (let ((sc11 e-17)) (let ((e-18 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-23 (vector-ref sc12 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc12 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-23 arg-8 e-16) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-24 (vector-ref sc13 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc13 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 arg-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-25 (vector-ref sc14 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc14 1))) (let ((act-34 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-26 (vector-ref sc15 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-24 (vector 0 e-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-27 (vector-ref sc16 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc16 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-23 arg-8 arg-11) expfnty) eta-0))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-28 (vector-ref sc17 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10255 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-23 e-24 expfnty e-25 e-26 e-27 e-28 (let ((sc18 e-28)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--checkAppWith-9917 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--10617-9881-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc9 1))) (let ((sc10 e-17)) (let ((e-18 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-19 (vector-ref sc11 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc11 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-19 arg-8 e-16) eta-0))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc12 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 arg-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-34 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc14 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-20 (vector 0 e-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-19 arg-8 arg-11) expfnty) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-24 (vector-ref sc16 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc16 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10255 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-46 (vector-ref sc1 3))) (let ((sc2 e-46)) (case (vector-ref sc2 0) ((2) (App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 e-15 e-16 arg-10) e-17 arg-12 arg-13 arg-14 arg-15 arg-16))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--checkAppWith-9917 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--10617-9881-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc10 1))) (let ((sc11 e-13)) (let ((e-14 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-19 (vector-ref sc13 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc13 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 arg-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-20 (vector-ref sc14 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc14 1))) (let ((act-34 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-21 (vector-ref sc15 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-22 (vector-ref sc16 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc16 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-23 (vector-ref sc17 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10255 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc18 e-23)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--checkAppWith-9917 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--10617-9881-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((sc10 e-13)) (let ((e-14 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc12 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 arg-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) (let ((act-34 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc14 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-22 (vector-ref sc15 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc15 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-23 (vector-ref sc16 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc16 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10255 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc17 e-23)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--checkAppWith-9917 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--10617-9881-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-14 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-15 arg-8 e-12) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 arg-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-34 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 "elab.with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-16 (vector 0 e-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-15 arg-8 arg-11) expfnty) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-20 (vector-ref sc15 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc15 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10255 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-15 e-16 expfnty e-17 e-18 e-19 e-20 (let ((sc16 e-20)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define App-Elab-TTImp-checkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-1 (vector 1 e-2 arg-11) arg-12 arg-13))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-4 arg-11 (vector 1 (vector 0 e-5 e-6) arg-12) arg-13)))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-getVarType arg-0 arg-1 arg-2 arg-4 arg-5 arg-7 arg-8 arg-9 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-9) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-26 (Context-Core-fromIntegerName arg-1 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-fromStringName arg-1 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 (Context-Core-fromCharName arg-1 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-11 (vector 1 e-12 (vector 1 e-13 (vector 0 ))))))) (let ((act-29 ((App-Elab-TTImp-n--17109-10478-updateElabInfo arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 prims (let ((sc8 arg-6)) (let ((e-0 (vector-ref sc8 1))) e-0)) e-8 arg-11 arg-6) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-30 (Context-Core-logC arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-8 e-10 eta-1))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-32 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-32 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-33 (Normalise-Core-normaliseHoles arg-0 e-15 arg-8 e-17 eta-2))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-18 eta-2))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (vector 1 e-19)))))))))))))))))))) arg-13) eta-1))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-33 ((Context-Core-getFullName arg-1 e-8) eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-16 eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Checking application of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Types-Prelude-C-43C-43 ")" (Strings-Types-Prelude-C-43C-43 " to " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 "\u000a\u0009Function type " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-19) (Strings-Types-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-17)))))))))))))))))))))))))))))))))))))) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (let ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-9)))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32checkApp-11207 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-14) (lambda (arg-15) (Name-Core-C-61C-61_Eq__Name arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Name-Core-C-47C-61_Eq__Name arg-14 arg-15)))) e-8 arg-7))))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14 arg-7 arg-8 arg-9 e-2 e-10 (vector 0 (vector 1 fn) e-6) arg-11 arg-12 1 arg-13) eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (App-Elab-TTImp-n--17109-10477-normalisePrims arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 prims arg-8 e-16 eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 0 )) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 (vector 0 (vector 0 ) 0) arg-11 arg-12 1 arg-13) eta-0)))))))))))))))))))) -(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32checkAlternative-6631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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 (Basics-Prelude-not arg-17) arg-4 arg-5 eta-0))))))) -(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32checkAlternative-6509 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--caseC-32blockC-32inC-32checkAlternative-6414 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--checkAlternative-6334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-1 arg-1))(else (lambda (eta-0) (let ((act-24 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32checkAlternative-6414 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((expC-39 (let ((sc4 delayed)) (cond ((equal? sc4 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 eta-1)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-12 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Bool delayed) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\u000aTarget type "))))))) arg-5 expC-39 eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Basics-Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-31 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 ((Context-Core-log arg-12 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success"))) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32checkAlternative-6414 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((expC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 eta-1)))))))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-12 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Bool delayed) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\u000aTarget type "))))))) arg-5 expC-39 eta-1))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Basics-Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-32 ((Context-Core-log arg-12 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success"))) eta-2))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0))))))))))))) -(define Ambiguity-Elab-TTImp-case--checkAlternative-6094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22)) (lambda (eta-1) (let ((act-24 ((Context-Core-log arg-12 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default")) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName arg-1)) arg-7) arg-6 arg-5 arg-1 (vector 1 arg-20)) eta-1)))))) eta-0))) (else (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 0 arg-4 arg-5 (Types-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--checkAlternative-5933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--checkAlternative-5835 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--addAmbig-5784 (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--pruneByType-5626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 arg-11))))))) -(define Ambiguity-Elab-TTImp-case--pruneByType-5520 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-filterCore 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-notOverloadable arg-6 eta-1)) arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-log arg-5 "elab.prune" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Keep " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) e-5)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-5))))))))))))) (else (lambda (eta-0) (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-8)))))))) -(define Ambiguity-Elab-TTImp-case--filterCore-5387 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-1 arg-5)))) (else (lambda (eta-0) (vector 1 arg-5))))))) -(define Ambiguity-Elab-TTImp-case--notOverloadableC-44notOverloadableFn-5318 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (vector 1 0))))))) -(define Ambiguity-Elab-TTImp-case--couldBe-5231 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 0 arg-1))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Ambiguity-Elab-TTImp-case--couldBe-5165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 0 arg-2))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-2))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Ambiguity-Elab-TTImp-case--couldBe-5079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 0 arg-5))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-5))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Ambiguity-Elab-TTImp-case--couldBeName-5001 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-3 (vector 0 ) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-3 arg-2 e-5) eta-0))))))))))))) -(define Ambiguity-Elab-TTImp-case--mightMatch-4882 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32mightMatch-4786 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Ambiguity-Elab-TTImp-case--mightMatch-4753 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32mightMatch-4657 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Ambiguity-Elab-TTImp-case--mightMatch-4624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define Ambiguity-Elab-TTImp-case--mightMatchArgs-4544 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-5 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) -(define Ambiguity-Elab-TTImp-case--mightMatchArg-4494 (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) 1)(else 0))))) -(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-4189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp arg-5)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (Ambiguity-Elab-TTImp-n--9568-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9568-3057-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9568-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19))))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9568-3057-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9568-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19))))))))) -(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-4075 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "unambiguous: " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-1))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Ambiguity-Elab-TTImp-n--9568-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-1))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-1 (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-filterM 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9568-3056-visible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1)) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Context-Core-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp arg-5)))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 arg-5)))))) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Context-Core-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2))))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (Ambiguity-Elab-TTImp-n--9568-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2)))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9568-3057-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9568-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6)))))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9568-3057-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9568-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6)))))))))))))))))))))) -(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-3924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Defined in env " (Name-Core-show_Show__Name arg-1)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5))))))) (else (lambda (eta-0) (vector 1 (vector 18 arg-2 (vector 1 ) arg-5)))))))) -(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32expandAmbigName-3891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-3924 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 (Basics-Prelude-C-124C-124 (List-Data-isNil 'erased arg-4) (lambda () (Ambiguity-Elab-TTImp-n--9568-3063-notLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-8)))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-fromIntegerName arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-fromStringName arg-10 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-fromCharName arg-10 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (let ((primApp (Ambiguity-Elab-TTImp-n--9568-3059-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-4075 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--9568-3055-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--expandAmbigName-3808 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-10 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Nested " (Name-Core-show_Show__Name arg-1)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32expandAmbigName-3891 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 App-Elab-TTImp-checkRestApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((App-Elab-TTImp-dotErased 'erased arg-1 arg-13 e-2 e-3 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-6 arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-19)) (cond ((equal? sc3 0) (vector 1 0)) (else (let ((act-26 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 (vector 10 arg-10 1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((App-Elab-TTImp-concrete 'erased e-5 arg-9 e-7) eta-0))))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((App-Elab-TTImp-needsDelay arg-1 (let ((sc4 arg-7)) (let ((e-0 (vector-ref sc4 1))) e-0)) e-7 arg-16) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) ((App-Elab-TTImp-case--checkRestApp-6673 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 (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 (App-Elab-TTImp-isHole 'erased arg-13) (lambda () e-7)) (lambda () e-8))) eta-0))))))))))))))))))))))))))) +(define App-Elab-TTImp-checkPatTyValid (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 e-6) (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkPatTyValid-5674 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-8 arg-9))))) (let ((sc4 e-4)) (let ((e-22 (vector-ref sc4 8))) e-22)))) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define App-Elab-TTImp-checkAppWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-12)) (case (vector-ref sc1 0) ((2) (let ((e-19 (vector-ref sc1 1))) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-checkRestApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 e-28 e-29 arg-14 arg-15 arg-16)))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--checkAppWith-9841 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--10437-9805-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc3 arg-12)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 arg-13)) (let ((e-5 (vector-ref sc4 1))) (let ((e-6 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((sc12 e-17)) (let ((e-18 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc13 act-31)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc14 act-32)) (case (vector-ref sc14 0) ((0) (let ((e-23 (vector-ref sc14 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc14 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc15 act-33)) (case (vector-ref sc15 0) ((0) (let ((e-24 (vector-ref sc15 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc15 1))) (let ((act-34 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc16 act-34)) (case (vector-ref sc16 0) ((0) (let ((e-25 (vector-ref sc16 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc16 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc17 act-35)) (case (vector-ref sc17 0) ((0) (let ((e-26 (vector-ref sc17 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc17 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc18 act-36)) (case (vector-ref sc18 0) ((0) (let ((e-27 (vector-ref sc18 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc18 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10171 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc19 e-27)) (let ((e-0 (vector-ref sc19 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((0) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-33 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-33) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 0 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-33)) eta-0))(else ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-8315 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 (Basics-Prelude-not (let ((sc10 arg-6)) (let ((e-15 (vector-ref sc10 5))) e-15)))) eta-0))))))(else ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-8315 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 (Basics-Prelude-not (let ((sc9 arg-6)) (let ((e-8 (vector-ref sc9 5))) e-8)))) eta-0))))))(else ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-8315 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 (Basics-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--checkAppWith-9382 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--10437-9224-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--checkAppWith-9382 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--10437-9224-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--checkAppWith-9382 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--10437-9224-useImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14))))))) ((2) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-37) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 2 ) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((2) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-37)) eta-0))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0))))))(else ((App-Elab-TTImp-makeAutoImplicit arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 argRig arg-6 arg-7 arg-8 arg-9 arg-10 e-11 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-37)) eta-0)))))))))))))))))))(else (let ((argRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-5 e-19))) (App-Elab-TTImp-case--checkAppWith-9102 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--10437-8927-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--checkAppWith-9102 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--10437-8927-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--checkAppWith-9102 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--10437-8927-useAutoImp arg-0 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14))))))) ((3) (let ((e-26 (vector-ref sc2 1))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((1) (let ((e-41 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-5 e-19))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-1 e-41) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((ty (vector 0 e-10 e-11 (vector 2 e-19 (vector 3 e-26) e-21) e-13))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 3))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((2) (let ((e-7 (vector-ref sc9 2))) (let ((sc10 e-7)) (case (vector-ref sc10 0) ((3) (let ((e-14 (vector-ref sc10 1))) (let ((act-26 (Normalise-Core-convert_Convert__NF arg-0 e-6 arg-8 e-26 e-14 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-15)) (cond ((equal? sc12 0) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-6 arg-8 ty) (vector 1 e-41)) eta-0)) (else ((App-Elab-TTImp-makeDefImplicit 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-26 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0)))))))))))(else ((App-Elab-TTImp-makeDefImplicit 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-26 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeDefImplicit 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-26 e-21 e-13 arg-12 (vector 0 ) (vector 0 ) arg-15 (vector 1 e-41)) eta-0))))))(else ((App-Elab-TTImp-makeDefImplicit 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-26 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--checkAppWith-9665 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--10437-9505-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--checkAppWith-9665 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--10437-9505-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--checkAppWith-9665 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--10437-9505-useImp arg-0 e-26 e-21 e-19 e-13 e-11 e-10 arg-16 arg-15 arg-14 arg-13 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-14))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--checkAppWith-9841 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--10437-9805-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc10 1))) (let ((sc11 e-17)) (let ((e-18 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-22 (vector-ref sc12 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc12 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-23 (vector-ref sc13 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc13 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc14 1))) (let ((act-34 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-25 (vector-ref sc15 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-23 (vector 0 e-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-26 (vector-ref sc16 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc16 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-22 arg-8 arg-11) expfnty) eta-0))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10171 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-22 e-23 expfnty e-24 e-25 e-26 e-27 (let ((sc18 e-27)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--checkAppWith-9841 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--10437-9805-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc9 1))) (let ((sc10 e-17)) (let ((e-18 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-18))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-19 (vector-ref sc11 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc11 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-19 arg-8 e-16) eta-0))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc12 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-15) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-16))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-34 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc14 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-20 (vector 0 e-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-19 arg-8 arg-11) expfnty) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-24 (vector-ref sc16 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc16 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10171 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-14 e-15 argTyG e-16 e-18 e-4 _-0 fntm e-19 e-20 expfnty e-21 e-22 e-23 e-24 (let ((sc17 e-24)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 3))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((2) (App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 8 e-15 e-16 arg-10) e-17 arg-12 arg-13 arg-14 arg-15 arg-16))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--checkAppWith-9841 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--10437-9805-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc2 arg-12)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 arg-13)) (let ((e-5 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc10 1))) (let ((sc11 e-13)) (let ((e-14 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (let ((sc13 act-32)) (case (vector-ref sc13 0) ((0) (let ((e-19 (vector-ref sc13 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc13 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-20 (vector-ref sc14 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc14 1))) (let ((act-34 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc15 act-34)) (case (vector-ref sc15 0) ((0) (let ((e-21 (vector-ref sc15 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc15 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc16 act-35)) (case (vector-ref sc16 0) ((0) (let ((e-22 (vector-ref sc16 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc16 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (let ((sc17 act-36)) (case (vector-ref sc17 0) ((0) (let ((e-23 (vector-ref sc17 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10171 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc18 e-23)) (let ((e-0 (vector-ref sc18 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--checkAppWith-9841 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--10437-9805-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 arg-13)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((sc10 e-13)) (let ((e-14 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (let ((sc12 act-32)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc12 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc13 act-33)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) (let ((act-34 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc14 act-34)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc14 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-19 (vector 0 e-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-22 (vector-ref sc15 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc15 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-18 arg-8 arg-11) expfnty) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-23 (vector-ref sc16 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc16 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10171 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-18 e-19 expfnty e-20 e-21 e-22 e-23 (let ((sc17 e-23)) (let ((e-0 (vector-ref sc17 1))) e-0))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 arg-10 (Normalise-Core-glueBack arg-0 e-5 arg-8 arg-11) arg-16) eta-0))))))))(else (App-Elab-TTImp-case--checkAppWith-9841 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--10437-9805-notInfer arg-0 arg-16 arg-15 arg-14 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0)) arg-14))))))(else (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-13)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function type") arg-8 arg-11 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Function ") arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-29 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 (vector 1 argTyG)) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-14 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((fntm (vector 4 arg-9 arg-10 e-14))) (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-32 ((Normalise-Core-nf arg-0 e-15 arg-8 e-12) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((expfnty (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-9 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-11) (TT-Core-weaken_Weaken__Term e-9 arg-0 e-12))))) (let ((act-33 (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected function type") arg-8 expfnty eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-34 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (Normalise-Core-logGlue arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expected result type") arg-8 eta-1 eta-2)))) arg-16) eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-35 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 fntm e-16 (vector 0 e-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) e-3)) e-6 arg-14 arg-15 arg-16) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-36 ((Check-Elab-TTImp-convert arg-0 arg-1 arg-3 arg-4 arg-9 arg-6 arg-8 (Normalise-Core-glueBack arg-0 e-15 arg-8 arg-11) expfnty) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-20 (vector-ref sc15 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc15 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--caseC-32blockC-32inC-32checkAppWith-10171 e-2 e-3 e-5 e-6 arg-0 arg-16 arg-15 arg-14 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-8 e-9 e-10 e-11 argTyG e-12 e-14 e-4 _-0 fntm e-15 e-16 expfnty e-17 e-18 e-19 e-20 (let ((sc16 e-20)) (let ((e-0 (vector-ref sc16 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define App-Elab-TTImp-checkApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-1 (vector 1 e-2 arg-11) arg-12 arg-13))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (App-Elab-TTImp-checkApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-4 arg-11 (vector 1 (vector 0 e-5 e-6) arg-12) arg-13)))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((App-Elab-TTImp-getVarType arg-0 arg-1 arg-2 arg-4 arg-5 arg-7 arg-8 arg-9 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-9) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-26 (Context-Core-fromIntegerName arg-1 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-fromStringName arg-1 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 (Context-Core-fromCharName arg-1 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-11 (vector 1 e-12 (vector 1 e-13 (vector 0 ))))))) (let ((act-29 ((App-Elab-TTImp-n--16823-10394-updateElabInfo arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 prims (let ((sc8 arg-6)) (let ((e-0 (vector-ref sc8 1))) e-0)) e-8 arg-11 arg-6) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-30 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-8 e-10 eta-1))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-32 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (vector 1 (vector 0 )))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-32 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-33 (Normalise-Core-normaliseHoles arg-0 e-15 arg-8 e-17 eta-2))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-18 eta-2))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (vector 1 e-19)))))))))))))))))))) arg-13) eta-1))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-33 ((Context-Core-getFullName arg-1 e-8) eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-34 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-16 eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-19 (vector-ref sc13 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Checking application of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Types-Prelude-C-43C-43 ")" (Strings-Types-Prelude-C-43C-43 " to " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 "\u000a\u0009Function type " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-19) (Strings-Types-Prelude-C-43C-43 "\u000a\u0009Expected app type " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-0 d x)))) e-17)))))))))))))))))))))))))))))))))))))) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc9 1))) (let ((fn (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-9)))) (App-Elab-TTImp-case--caseC-32blockC-32inC-32checkApp-11121 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-14) (lambda (arg-15) (Name-Core-C-61C-61_Eq__Name arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (Name-Core-C-47C-61_Eq__Name arg-14 arg-15)))) e-8 arg-7))))) (let ((act-31 ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14 arg-7 arg-8 arg-9 e-2 e-10 (vector 0 (vector 1 fn) e-6) arg-11 arg-12 1 arg-13) eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (App-Elab-TTImp-n--16823-10393-normalisePrims arg-0 e-8 e-7 arg-13 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 prims arg-8 e-16 eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 (vector 0 )) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((App-Elab-TTImp-checkAppWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 (vector 0 (vector 0 ) 0) arg-11 arg-12 1 arg-13) eta-0)))))))))))))))))))) +(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32checkAlternative-6603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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 (Basics-Prelude-not arg-17) arg-4 arg-5 eta-0))))))) +(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32checkAlternative-6483 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--caseC-32blockC-32inC-32checkAlternative-6388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--checkAlternative-6308 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 e-1 arg-1))(else (lambda (eta-0) (let ((act-24 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32checkAlternative-6388 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((expC-39 (let ((sc4 delayed)) (cond ((equal? sc4 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 eta-1)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Bool delayed) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\u000aTarget type "))))))) arg-5 expC-39 eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Basics-Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-31 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-24 (UnifyState-Core-genName arg-12 arg-10 "altTy" eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-5 e-6)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32checkAlternative-6388 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 arg-8 arg-5 e-5 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-12))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-5) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((expC-39 (let ((sc3 delayed)) (cond ((equal? sc3 0) (Normalise-Core-gnf arg-0 arg-5 e-7)) (else e-5))))) (let ((act-27 (let ((act-27 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-12 arg-10 arg-5 e-8 arg-2 eta-1)))))))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Normalise-Core-logGlueNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Bool delayed) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) "\u000aTarget type "))))))) arg-5 expC-39 eta-1))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-12 arg-11 arg-10 arg-9 arg-4 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 (Basics-Prelude-not delayed) arg-4 arg-5 eta-2))))))) ((tryall (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-29 ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-8 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 expC-39)) eta-2))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-32 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (vector 1 e-10))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0))))))))))))) +(define Ambiguity-Elab-TTImp-case--checkAlternative-6070 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName t)) arg-7) arg-6 arg-5 t (vector 1 arg-20)))) arg-22)) (lambda (eta-1) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 ((Ambiguity-Elab-TTImp-addAmbig 'erased arg-22 (Ambiguity-Elab-TTImp-getName arg-1)) arg-7) arg-6 arg-5 arg-1 (vector 1 arg-20)) eta-1)))))) eta-0))) (else (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-12 arg-11 arg-10 arg-9 0 arg-4 arg-5 (Types-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--checkAlternative-5913 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--checkAlternative-5815 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--addAmbig-5764 (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--pruneByType-5606 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-1))) (else (lambda (eta-0) (vector 1 arg-11))))))) +(define Ambiguity-Elab-TTImp-case--pruneByType-5502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-filterCore 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-notOverloadable arg-6 eta-1)) arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Keep " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-5))))))))))))) (else (lambda (eta-0) (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-8)))))))) +(define Ambiguity-Elab-TTImp-case--filterCore-5373 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-1 arg-5)))) (else (lambda (eta-0) (vector 1 arg-5))))))) +(define Ambiguity-Elab-TTImp-case--notOverloadableC-44notOverloadableFn-5304 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (vector 1 0))))))) +(define Ambiguity-Elab-TTImp-case--couldBe-5217 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 0 arg-1))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Ambiguity-Elab-TTImp-case--couldBe-5151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 0 arg-2))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-2))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Ambiguity-Elab-TTImp-case--couldBe-5065 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 0 arg-5))))) ((1) (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-5))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Ambiguity-Elab-TTImp-case--couldBeName-4987 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-3 (vector 0 ) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-3 arg-2 e-5) eta-0))))))))))))) +(define Ambiguity-Elab-TTImp-case--mightMatch-4868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32mightMatch-4772 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Ambiguity-Elab-TTImp-case--mightMatch-4739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32mightMatch-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) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Ambiguity-Elab-TTImp-case--mightMatch-4610 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 (vector 0 ))) (else (vector 1 (vector 2 )))))))))))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define Ambiguity-Elab-TTImp-case--mightMatchArgs-4532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-5 arg-2 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) +(define Ambiguity-Elab-TTImp-case--mightMatchArg-4482 (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) 1)(else 0))))) +(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-4183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp arg-5))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (Ambiguity-Elab-TTImp-n--9379-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9379-3057-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9379-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19))))))))))(else (lambda (eta-0) (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9379-3057-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9379-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) arg-19))))))))) +(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-4071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "unambiguous: " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-1)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (Ambiguity-Elab-TTImp-n--9379-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-1))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-1 (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-filterM 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9379-3056-visible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 eta-1)) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Failed to find " (TTImp-TTImp-show_Show__RawImp arg-5))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 arg-5)))))) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((act-26 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Only one " (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased e-2)))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (Ambiguity-Elab-TTImp-n--9379-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 e-2)))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9379-3057-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9379-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6)))))))))(else (vector 1 (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--9379-3057-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--9379-3062-mkAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-17 arg-12 eta-1)) e-6)))))))))))))))))))))) +(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-3922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Defined in env " (Name-Core-show_Show__Name arg-1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5))))))) (else (lambda (eta-0) (vector 1 (vector 18 arg-2 (vector 1 ) arg-5)))))))) +(define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32expandAmbigName-3889 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-3922 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 (Basics-Prelude-C-124C-124 (List-Data-isNil 'erased arg-4) (lambda () (Ambiguity-Elab-TTImp-n--9379-3063-notLHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-8)))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-fromIntegerName arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-fromStringName arg-10 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-fromCharName arg-10 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((prims (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (let ((primApp (Ambiguity-Elab-TTImp-n--9379-3059-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandAmbigName-4071 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--9379-3055-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--expandAmbigName-3808 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Nested " (Name-Core-show_Show__Name arg-1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-5))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32expandAmbigName-3889 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--caseC-32blockC-32inC-32expandAmbigNameC-44mkTerm-3676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) arg-15)(else (vector 26 arg-2 (vector 14 arg-2 arg-15))))))) (define Ambiguity-Elab-TTImp-case--expandAmbigNameC-44mkTerm-3639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) arg-15)(else (vector 26 arg-2 (vector 14 arg-2 arg-15)))))) (else arg-15))))) (define Ambiguity-Elab-TTImp-case--expandAmbigNameC-44wrapDot-3531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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)))))) @@ -5125,141 +5052,141 @@ (define Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32expandAmbigNameC-44visible-3128 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-getNS arg-10 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-getNestedNS arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (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)))))))))))))))) (else (lambda (eta-0) (vector 1 1))))))) (define Ambiguity-Elab-TTImp-case--expandAmbigNameC-44visible-3091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isVisible arg-10 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (Context-Core-getNS arg-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-getNestedNS arg-10 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (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))))))))))))))) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 0))))))) (define Ambiguity-Elab-TTImp-case--expandAmbigName-2997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 18 arg-3 (vector 0 ) arg-6)))) (else (lambda (eta-0) (vector 1 arg-6))))))) -(define Ambiguity-Elab-TTImp-n--9568-3060-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--expandAmbigNameC-44wrapDot-3442 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 (Basics-Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 8 (let ((sc3 arg-12)) (let ((e-15 (vector-ref sc3 2))) e-15)))) (lambda () arg-11))))(else (Ambiguity-Elab-TTImp-case--expandAmbigNameC-44wrapDot-3531 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 8 (let ((sc2 arg-12)) (let ((e-15 (vector-ref sc2 2))) e-15)))))))))))(else (Ambiguity-Elab-TTImp-case--expandAmbigNameC-44wrapDot-3531 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 8 (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 2))) e-2))))))))))(else arg-17)))))))) -(define Ambiguity-Elab-TTImp-n--9568-3056-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--expandAmbigNameC-44visible-3091 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--9568-3057-uniqType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 2))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (let ((e-46 (vector-ref sc3 2))) (let ((sc4 e-46)) (case (vector-ref sc4 0) ((27) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((sc5 e-48)) (case (vector-ref sc5 0) ((1) (let ((e-49 (vector-ref sc5 1))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-47 (vector 1 e-49))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-29 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((27) (let ((e-30 (vector-ref sc10 1))) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-31)) (case (vector-ref sc11 0) ((6) (let ((e-32 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-15)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((e-4 (vector-ref sc13 2))) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 2))) (let ((sc15 e-8)) (case (vector-ref sc15 0) ((0) (let ((e-12 (vector-ref sc15 2))) (let ((sc16 e-12)) (case (vector-ref sc16 0) ((27) (let ((e-13 (vector-ref sc16 1))) (let ((e-14 (vector-ref sc16 2))) (let ((sc17 e-14)) (case (vector-ref sc17 0) ((7) (let ((e-15 (vector-ref sc17 1))) (let ((sc18 e-4)) (case (vector-ref sc18 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-29 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((27) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((6) (let ((e-32 (vector-ref sc10 1))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-29 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((27) (let ((e-30 (vector-ref sc8 1))) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((6) (let ((e-32 (vector-ref sc9 1))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-29 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((27) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-31)) (case (vector-ref sc8 0) ((6) (let ((e-32 (vector-ref sc8 1))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-29 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((27) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((6) (let ((e-32 (vector-ref sc7 1))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((27) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-31)) (case (vector-ref sc6 0) ((6) (let ((e-32 (vector-ref sc6 1))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (let ((e-29 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((27) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-31)) (case (vector-ref sc5 0) ((6) (let ((e-32 (vector-ref sc5 1))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((27) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((7) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))) -(define Ambiguity-Elab-TTImp-n--12190-5305-notOverloadableFn (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-1 (let ((sc1 arg-2)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 1)) (else (vector 1 0))))))))))))(else (lambda (eta-0) (vector 1 0))))))) -(define Ambiguity-Elab-TTImp-n--9568-3063-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--9568-3061-mkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((tm (Ambiguity-Elab-TTImp-n--9568-3060-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 (Types-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--9568-3058-buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 arg-2 arg-13) arg-4)))) (Ambiguity-Elab-TTImp-case--expandAmbigNameC-44mkTerm-3639 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-14 arg-13 arg-12 arg-11 tm (Types-Prelude-elem 'erased (vector 0 (lambda (arg-15) (lambda (arg-16) (Context-Core-C-61C-61_Eq__DefFlag arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Context-Core-C-47C-61_Eq__DefFlag arg-15 arg-16)))) (vector 6 ) (let ((sc0 arg-14)) (let ((e-11 (vector-ref sc0 12))) e-11))))))) -(define Ambiguity-Elab-TTImp-n--9568-3062-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--9568-3061-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 8 e-6) e-7)))))))) -(define Ambiguity-Elab-TTImp-n--9568-3055-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--9568-3059-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))) (Basics-Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-12) e-2) (lambda () (Ambiguity-Elab-TTImp-n--9568-3059-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--9568-3058-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--9568-3058-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--9568-3058-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-n--9379-3060-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--expandAmbigNameC-44wrapDot-3442 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 (Basics-Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name arg-14 (vector 8 (let ((sc3 arg-12)) (let ((e-15 (vector-ref sc3 2))) e-15)))) (lambda () arg-11))))(else (Ambiguity-Elab-TTImp-case--expandAmbigNameC-44wrapDot-3531 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 8 (let ((sc2 arg-12)) (let ((e-15 (vector-ref sc2 2))) e-15)))))))))))(else (Ambiguity-Elab-TTImp-case--expandAmbigNameC-44wrapDot-3531 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 8 (let ((sc1 arg-12)) (let ((e-2 (vector-ref sc1 2))) e-2))))))))))(else arg-17)))))))) +(define Ambiguity-Elab-TTImp-n--9379-3056-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--expandAmbigNameC-44visible-3091 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--9379-3057-uniqType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (let ((e-38 (vector-ref sc1 2))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((0) (let ((e-42 (vector-ref sc2 2))) (let ((sc3 e-42)) (case (vector-ref sc3 0) ((0) (let ((e-46 (vector-ref sc3 2))) (let ((sc4 e-46)) (case (vector-ref sc4 0) ((27) (let ((e-47 (vector-ref sc4 1))) (let ((e-48 (vector-ref sc4 2))) (let ((sc5 e-48)) (case (vector-ref sc5 0) ((1) (let ((e-49 (vector-ref sc5 1))) (let ((sc6 e-38)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-47 (vector 1 e-49))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-29 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((27) (let ((e-30 (vector-ref sc10 1))) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-31)) (case (vector-ref sc11 0) ((6) (let ((e-32 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((sc13 arg-15)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((e-4 (vector-ref sc13 2))) (let ((sc14 e-3)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 2))) (let ((sc15 e-8)) (case (vector-ref sc15 0) ((0) (let ((e-12 (vector-ref sc15 2))) (let ((sc16 e-12)) (case (vector-ref sc16 0) ((27) (let ((e-13 (vector-ref sc16 1))) (let ((e-14 (vector-ref sc16 2))) (let ((sc17 e-14)) (case (vector-ref sc17 0) ((7) (let ((e-15 (vector-ref sc17 1))) (let ((sc18 e-4)) (case (vector-ref sc18 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-29 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((27) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((6) (let ((e-32 (vector-ref sc10 1))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((sc12 arg-15)) (case (vector-ref sc12 0) ((1) (let ((e-3 (vector-ref sc12 1))) (let ((e-4 (vector-ref sc12 2))) (let ((sc13 e-3)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 2))) (let ((sc14 e-8)) (case (vector-ref sc14 0) ((0) (let ((e-12 (vector-ref sc14 2))) (let ((sc15 e-12)) (case (vector-ref sc15 0) ((27) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((7) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-29 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((27) (let ((e-30 (vector-ref sc8 1))) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((6) (let ((e-32 (vector-ref sc9 1))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((sc11 arg-15)) (case (vector-ref sc11 0) ((1) (let ((e-3 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((sc12 e-3)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 2))) (let ((sc13 e-8)) (case (vector-ref sc13 0) ((0) (let ((e-12 (vector-ref sc13 2))) (let ((sc14 e-12)) (case (vector-ref sc14 0) ((27) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((7) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-29 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((27) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-31)) (case (vector-ref sc8 0) ((6) (let ((e-32 (vector-ref sc8 1))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-15)) (case (vector-ref sc10 0) ((1) (let ((e-3 (vector-ref sc10 1))) (let ((e-4 (vector-ref sc10 2))) (let ((sc11 e-3)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 2))) (let ((sc12 e-8)) (case (vector-ref sc12 0) ((0) (let ((e-12 (vector-ref sc12 2))) (let ((sc13 e-12)) (case (vector-ref sc13 0) ((27) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((7) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-29 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((27) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((6) (let ((e-32 (vector-ref sc7 1))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-15)) (case (vector-ref sc9 0) ((1) (let ((e-3 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 2))) (let ((sc11 e-8)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 2))) (let ((sc12 e-12)) (case (vector-ref sc12 0) ((27) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((7) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-29 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((27) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-31)) (case (vector-ref sc6 0) ((6) (let ((e-32 (vector-ref sc6 1))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-15)) (case (vector-ref sc8 0) ((1) (let ((e-3 (vector-ref sc8 1))) (let ((e-4 (vector-ref sc8 2))) (let ((sc9 e-3)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 2))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 2))) (let ((sc11 e-12)) (case (vector-ref sc11 0) ((27) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((7) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-25)) (case (vector-ref sc3 0) ((0) (let ((e-29 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((27) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-31)) (case (vector-ref sc5 0) ((6) (let ((e-32 (vector-ref sc5 1))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-30 (vector 6 e-32))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-15)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 2))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 2))) (let ((sc10 e-12)) (case (vector-ref sc10 0) ((27) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((7) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-3 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 2))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((27) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((7) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-15)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 2))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 2))) (let ((sc8 e-12)) (case (vector-ref sc8 0) ((27) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((7) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 2))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((27) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 2))) (let ((sc6 e-12)) (case (vector-ref sc6 0) ((27) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))))(else (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((27) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((7) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 ))))))))(else (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((27) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((7) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 27 e-13 (vector 7 e-15))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 ))))))(else (vector 1 ))))))(else (vector 1 )))))))(else (vector 1 )))))(else (vector 1 )))))))))))) +(define Ambiguity-Elab-TTImp-n--11987-5291-notOverloadableFn (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-1 (let ((sc1 arg-2)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 1)) (else (vector 1 0))))))))))))(else (lambda (eta-0) (vector 1 0))))))) +(define Ambiguity-Elab-TTImp-n--9379-3063-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--9379-3061-mkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((tm (Ambiguity-Elab-TTImp-n--9379-3060-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 (Types-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--9379-3058-buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 0 arg-2 arg-13) arg-4)))) (Ambiguity-Elab-TTImp-case--expandAmbigNameC-44mkTerm-3639 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-14 arg-13 arg-12 arg-11 tm (Types-Prelude-elem 'erased (vector 0 (lambda (arg-15) (lambda (arg-16) (Context-Core-C-61C-61_Eq__DefFlag arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Context-Core-C-47C-61_Eq__DefFlag arg-15 arg-16)))) (vector 6 ) (let ((sc0 arg-14)) (let ((e-11 (vector-ref sc0 12))) e-11))))))) +(define Ambiguity-Elab-TTImp-n--9379-3062-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--9379-3061-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 8 e-6) e-7)))))))) +(define Ambiguity-Elab-TTImp-n--9379-3055-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--9379-3059-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))) (Basics-Prelude-C-124C-124 (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS arg-12) e-2) (lambda () (Ambiguity-Elab-TTImp-n--9379-3059-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--9379-3058-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--9379-3058-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--9379-3058-buildAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 9 e-6 arg-11 e-14 e-11) e-3)))))))))))))))))) (define Ambiguity-Elab-TTImp-stripDelay (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((5) (let ((e-3 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-stripDelay 'erased e-3)))(else arg-1))))) -(define Ambiguity-Elab-TTImp-pruneByType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Ambiguity-Elab-TTImp-couldBe arg-0 e-5 (Ambiguity-Elab-TTImp-stripDelay 'erased arg-4) eta-0)) arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((matches (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 "elab.prune" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Prune by") arg-3 arg-4 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Context-Core-log arg-1 "elab.prun" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) matches))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Ambiguity-Elab-TTImp-case--pruneByType-5520 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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) matches))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((Ambiguity-Elab-TTImp-case--pruneByType-5626 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 e-9 (List-Data-isNil 'erased e-9)) ext-0))))))))))))))))))))))))))))) -(define Ambiguity-Elab-TTImp-notOverloadable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 0)))(else (Ambiguity-Elab-TTImp-n--12190-5305-notOverloadableFn e-2 e-3 arg-0 (TTImp-TTImp-getFn e-3)))))))))) +(define Ambiguity-Elab-TTImp-pruneByType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Ambiguity-Elab-TTImp-couldBe arg-0 e-5 (Ambiguity-Elab-TTImp-stripDelay 'erased arg-4) eta-0)) arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((matches (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Prune by") arg-3 arg-4 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Bool x-0)) (lambda (d) (lambda (x-0) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Bool x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__Bool d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) matches)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 ((Ambiguity-Elab-TTImp-case--pruneByType-5502 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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) matches))) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((Ambiguity-Elab-TTImp-case--pruneByType-5606 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 matches e-7 e-8 e-9 (List-Data-isNil 'erased e-9)) ext-0))))))))))))))))))))))))))))) +(define Ambiguity-Elab-TTImp-notOverloadable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 0)))(else (Ambiguity-Elab-TTImp-n--11987-5291-notOverloadableFn e-2 e-3 arg-0 (TTImp-TTImp-getFn e-3)))))))))) (define Ambiguity-Elab-TTImp-mightMatchD (lambda (arg-0 arg-1 arg-2 arg-3) (Ambiguity-Elab-TTImp-mightMatch arg-0 arg-1 (Ambiguity-Elab-TTImp-stripDelay 'erased arg-2) (Ambiguity-Elab-TTImp-stripDelay 'erased arg-3)))) (define Ambiguity-Elab-TTImp-mightMatchArgs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-mightMatchArg arg-0 arg-1 e-2 e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-1 e-3 e-7) eta-0)) (else (vector 1 1)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) (define Ambiguity-Elab-TTImp-mightMatchArg (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-evalClosure (vector 0 ) arg-1 arg-3) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 e-5 e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-7)) (case (vector-ref sc3 0) ((2) 1)(else 0))))))))))))))))))))) -(define Ambiguity-Elab-TTImp-mightMatch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-49 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 3))) (let ((e-52 (vector-ref sc0 4))) (let ((sc1 e-51)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-52 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-49 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((3) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((e-11 (vector-ref sc1 4))) (let ((e-12 (vector-ref sc1 5))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-32 (vector-ref sc2 1))) (let ((e-33 (vector-ref sc2 2))) (let ((e-34 (vector-ref sc2 3))) (let ((e-35 (vector-ref sc2 4))) (let ((e-36 (vector-ref sc2 5))) (Ambiguity-Elab-TTImp-case--mightMatch-4624 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((2) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 4))) (let ((e-18 (vector-ref sc1 5))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((2) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((e-40 (vector-ref sc2 3))) (let ((e-41 (vector-ref sc2 4))) (let ((e-42 (vector-ref sc2 5))) (Ambiguity-Elab-TTImp-case--mightMatch-4753 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (EqOrd-Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-44 (vector-ref sc2 1))) (let ((e-45 (vector-ref sc2 2))) (Ambiguity-Elab-TTImp-case--mightMatch-4882 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (let ((e-35 (vector-ref sc1 4))) (let ((e-36 (vector-ref sc1 5))) (Ambiguity-Elab-TTImp-case--mightMatch-4624 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((2) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((e-42 (vector-ref sc1 5))) (Ambiguity-Elab-TTImp-case--mightMatch-4753 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (EqOrd-Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--mightMatch-4882 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) +(define Ambiguity-Elab-TTImp-mightMatch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-49 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 3))) (let ((e-52 (vector-ref sc0 4))) (let ((sc1 e-51)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-52 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-49 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((3) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((e-11 (vector-ref sc1 4))) (let ((e-12 (vector-ref sc1 5))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-32 (vector-ref sc2 1))) (let ((e-33 (vector-ref sc2 2))) (let ((e-34 (vector-ref sc2 3))) (let ((e-35 (vector-ref sc2 4))) (let ((e-36 (vector-ref sc2 5))) (Ambiguity-Elab-TTImp-case--mightMatch-4610 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((2) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 4))) (let ((e-18 (vector-ref sc1 5))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((2) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((e-40 (vector-ref sc2 3))) (let ((e-41 (vector-ref sc2 4))) (let ((e-42 (vector-ref sc2 5))) (Ambiguity-Elab-TTImp-case--mightMatch-4739 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (EqOrd-Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-44 (vector-ref sc2 1))) (let ((e-45 (vector-ref sc2 2))) (Ambiguity-Elab-TTImp-case--mightMatch-4868 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (let ((e-35 (vector-ref sc1 4))) (let ((e-36 (vector-ref sc1 5))) (Ambiguity-Elab-TTImp-case--mightMatch-4610 arg-0 e-32 e-8 e-12 e-11 e-10 e-9 e-36 e-35 e-34 e-33 arg-1 (Name-Core-C-61C-61_Eq__Name e-9 e-33))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((2) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((e-40 (vector-ref sc1 3))) (let ((e-41 (vector-ref sc1 4))) (let ((e-42 (vector-ref sc1 5))) (Ambiguity-Elab-TTImp-case--mightMatch-4739 arg-0 e-38 e-14 e-18 e-17 e-16 e-15 e-42 e-41 e-40 e-39 arg-1 (EqOrd-Prelude-C-61C-61_Eq__Int e-16 e-40))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 ))))))))))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (Ambiguity-Elab-TTImp-case--mightMatch-4868 arg-0 e-44 e-20 e-21 e-45 arg-1 (TT-Core-C-61C-61_Eq__Constant e-21 e-45)))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))) ((10) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((9) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))))))))) (define Ambiguity-Elab-TTImp-getName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1))) ((8) (let ((e-3 (vector-ref sc0 2))) (Ambiguity-Elab-TTImp-getName e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Ambiguity-Elab-TTImp-getName e-6)))(else (vector 0 )))))) (define Ambiguity-Elab-TTImp-filterCore (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((arg-1 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Ambiguity-Elab-TTImp-filterCore 'erased arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 1 (vector 1 e-2 e-6))) (else (vector 1 e-6)))))))))))))))))))))) -(define Ambiguity-Elab-TTImp-expandAmbigName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((16) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Ambiguity-Elab-TTImp-case--expandAmbigName-2997 arg-0 e-9 e-11 e-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-2 arg-1 e-5 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) (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--expandAmbigName-3808 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-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-show_Show__RawImp arg-6)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-6))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Ambiguity-Elab-TTImp-case--expandAmbigName-3808 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-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-show_Show__RawImp arg-6)))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-6)))))))))))))) +(define Ambiguity-Elab-TTImp-expandAmbigName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((16) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Ambiguity-Elab-TTImp-case--expandAmbigName-2997 arg-0 e-9 e-11 e-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-2 arg-1 e-5 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) (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--expandAmbigName-3808 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-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-show_Show__RawImp arg-6))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 arg-6))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Ambiguity-Elab-TTImp-case--expandAmbigName-3808 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-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) e-1 arg-4))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-2 (vector 0 (vector 0 ) e-4)) arg-7) e-3 arg-9))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Ambiguity-Elab-TTImp-expandAmbigName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-5 (vector 0 (vector 1 e-7) e-8)) arg-7) e-6 arg-9))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "No ambiguity " (TTImp-TTImp-show_Show__RawImp arg-6))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-6)))))))))))))) (define Ambiguity-Elab-TTImp-couldBeName (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-lookupTyExact arg-3 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 1 ))) (else (let ((e-2 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 0 ) e-2) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 arg-2 e-6) ext-0))))))))))))))))) (define Ambiguity-Elab-TTImp-couldBeFn (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Ambiguity-Elab-TTImp-couldBeName arg-0 arg-1 arg-2 e-1 eta-0)))) ((12) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 )))))))) (define Ambiguity-Elab-TTImp-couldBe (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn arg-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (vector 0 0 arg-3)))) ((1) (vector 1 (vector 1 (vector 0 1 arg-3)))) (else (vector 1 (vector 0 )))))))))))) ((8) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn arg-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (vector 0 0 arg-3)))) ((1) (vector 1 (vector 1 (vector 0 1 arg-3)))) (else (vector 1 (vector 0 )))))))))))) ((10) (lambda (eta-0) (let ((act-24 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn arg-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 (vector 0 0 arg-3)))) ((1) (vector 1 (vector 1 (vector 0 1 arg-3)))) (else (vector 1 (vector 0 ))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 1 arg-3))))))))) (define Ambiguity-Elab-TTImp-checkAmbigDepth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-getAmbigLimit arg-1 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((ambs (let ((sc1 arg-4)) (let ((e-6 (vector-ref sc1 6))) e-6)))) (let ((sc1 (Types-Prelude-C-62_Ord__Nat (List-Types-Prelude-length 'erased ambs) e-5))) (cond ((equal? sc1 0) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 20 arg-3 (vector 8 (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 2))) e-2))) ambs) ext-0))))))) (else (vector 1 (vector 0 ))))))))))))) -(define Ambiguity-Elab-TTImp-checkAlternative (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 arg-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 arg-9) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-7)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--checkAlternative-5835 arg-0 e-0 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (let ((sc3 arg-6)) (let ((e-8 (vector-ref sc3 1))) e-8))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-6 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-26 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((Normalise-Core-getTerm 'erased e-6) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-6))))) (let ((act-29 (Normalise-Core-logGlueNF arg-0 arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aWith default. Target type "))))) arg-8 expC-39 eta-1))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-11 arg-11 eta-1)))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 ((Context-Core-log arg-1 "elab.prun" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Pruned alts (" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat (List-Types-Prelude-length 'erased e-11)) (Strings-Types-Prelude-C-43C-43 ") " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-11)))))) eta-1))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((sc9 delayed)) (cond ((equal? sc9 0) (Check-Elab-TTImp-try 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 1 arg-9 arg-8 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) (lambda (eta-2) (let ((act-32 ((Context-Core-log arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default")) eta-2))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName e-0)) arg-6) arg-7 arg-8 e-0 (vector 1 expC-39)) eta-2)))))) eta-1)) (else ((Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 0 arg-9 arg-8 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) eta-1))))))))))))))))))))))))))))))))) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 arg-6 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (exp) (lambda (eta-1) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 exp) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-6 arg-11 eta-1))))))))) arg-12) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-12) eta-0))(else (let ((act-26 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32checkAlternative-6414 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-1)))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Bool delayed) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aTarget type "))))))) arg-8 expC-39 eta-1))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Basics-Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-33 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-34 ((Context-Core-log arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success"))) eta-2))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0)))))))))))))(else (let ((act-26 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32checkAlternative-6414 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((expC-39 (let ((sc5 delayed)) (cond ((equal? sc5 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-1)))))))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 "elab.ambiguous" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Bool delayed) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aTarget type "))))))) arg-8 expC-39 eta-1))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Basics-Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-34 ((Context-Core-log arg-1 "elab" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success"))) eta-2))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0)))))))))))))))))))))))))) +(define Ambiguity-Elab-TTImp-checkAlternative (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 arg-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 arg-9) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-7)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--checkAlternative-5815 arg-0 e-0 arg-12 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (let ((sc3 arg-6)) (let ((e-8 (vector-ref sc3 1))) e-8))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-6 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-26 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 ((Normalise-Core-getTerm 'erased e-6) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-6))))) (let ((act-29 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aWith default. Target type "))))) arg-8 expC-39 eta-1))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-11 arg-11 eta-1)))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Pruned alts (" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat (List-Types-Prelude-length 'erased e-11)) (Strings-Types-Prelude-C-43C-43 ") " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-11))))) eta-1))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((sc9 delayed)) (cond ((equal? sc9 0) (Check-Elab-TTImp-try 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 1 arg-9 arg-8 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) (lambda (eta-2) (let ((act-32 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-2))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName e-0)) arg-6) arg-7 arg-8 e-0 (vector 1 expC-39)) eta-2)))))) eta-1)) (else ((Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 0 arg-9 arg-8 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-11 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)))) e-11)) eta-1))))))))))))))))))))))))))))))))) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 arg-6 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (exp) (lambda (eta-1) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 exp) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-6 arg-11 eta-1))))))))) arg-12) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 arg-12) eta-0))(else (let ((act-26 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32checkAlternative-6388 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((expC-39 (let ((sc6 delayed)) (cond ((equal? sc6 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-1)))))))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Bool delayed) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aTarget type "))))))) arg-8 expC-39 eta-1))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((tryall (let ((sc8 arg-10)) (case (vector-ref sc8 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Basics-Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-33 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0)))))))))))))(else (let ((act-26 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-26 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-8)))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) arg-12) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--caseC-32blockC-32inC-32checkAlternative-6388 arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-7 (lambda (eta-1) (Delayed-Elab-TTImp-ambiguous eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (delayed) (lambda (eta-1) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((expC-39 (let ((sc5 delayed)) (cond ((equal? sc5 0) (Normalise-Core-gnf arg-0 arg-8 e-9)) (else e-7))))) (let ((act-29 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (Ambiguity-Elab-TTImp-pruneByType arg-0 arg-1 arg-3 arg-8 e-10 arg-11 eta-1)))))))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Ambiguous elaboration " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Bool delayed) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-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-Types-Prelude-C-43C-43 " at " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-9) "\u000aTarget type "))))))) arg-8 expC-39 eta-1))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((tryall (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((0) (lambda (eta-2) (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 eta-2)))(else (lambda (eta-2) (Check-Elab-TTImp-exactlyOneC-39 arg-0 arg-1 arg-2 arg-3 arg-4 (Basics-Prelude-not delayed) arg-9 arg-8 eta-2))))))) ((tryall (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (Ambiguity-Elab-TTImp-getName t) (lambda (eta-2) (let ((act-31 ((Check-Elab-TTImp-checkImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ((Ambiguity-Elab-TTImp-addAmbig 'erased e-10 (Ambiguity-Elab-TTImp-getName t)) arg-6) arg-7 arg-8 t (vector 1 expC-39)) eta-2))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-33 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Ambiguity-Elab-TTImp-getName t)) " success")) eta-2))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (vector 1 e-12))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0)))))))))))))))))))))))))) (define Ambiguity-Elab-TTImp-addAmbig (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) ((1) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) eta-0))(else (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (lambda (rec-0) (let ((sc2 rec-0)) (let ((e-0 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-7 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 6))) (vector 0 e-0 e-8 e-2 e-3 e-7 (vector 1 e-1 e-6)))))))))))))))))(else (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) (lambda (rec-0) (let ((sc1 rec-0)) (let ((e-0 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (vector 0 e-0 e-6 e-2 e-3 e-4 (vector 1 e-1 e-5)))))))))))))))))))) -(define LinearCheck-Core-case--linearCheck-11152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-7 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-7)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (let ((sc3 (Basics-Prelude-not arg-3))) (cond ((equal? sc3 0) ((LinearCheck-Core-checkEnvUsage arg-0 (vector 0 ) arg-7 arg-6 arg-5 arg-4 arg-2 e-7 e-2) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))) -(define LinearCheck-Core-case--checkEnvUsage-11002 (lambda (arg-0 arg-1 arg-2 arg-3 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-Types-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 arg-1)) arg-10 arg-9 (Types-Prelude-C-61C-61_Eq__Nat arg-12 (Types-Prelude-fromInteger_Num__Nat 0)) arg-11 (vector 0 ) arg-5)) (else (lambda (eta-0) (vector 1 1))))))) -(define LinearCheck-Core-case--checkEnvUsage-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) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Types-Prelude-fromInteger_Num__Nat 1)) (else arg-12))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckMeta-10680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-6 (LinearCheck-Core-C-43C-43 'erased arg-22 e-7))))))))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckMeta-10553 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (vector 10 arg-13 1)) (else arg-20))))) -(define LinearCheck-Core-case--lcheckMeta-10480 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-18))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((arg-9 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-14 e-2)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckMeta-10553 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-6 e-7 _-0 e-5 e-8 (Basics-Prelude-C-38C-38 arg-15 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-21) (lambda (arg-22) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-21 arg-22))))) arg-8))))))) (let ((act-26 ((LinearCheck-Core-lcheckMeta arg-0 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-6 (vector 1 aerased arg-10) e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (vector 1 (vector 0 e-10 (vector 0 e-12 (LinearCheck-Core-C-43C-43 'erased e-7 e-11))))))))))))))))))))))))))))))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-10118 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-getArgUsage arg-6 arg-5 (TT-Core-getLoc 'erased (let ((sc1 arg-9)) (let ((e-23 (vector-ref sc1 3))) e-23))) arg-3 (let ((sc1 arg-9)) (let ((e-23 (vector-ref sc1 3))) e-23)) e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-log arg-6 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Overall arg usage " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (LinearCheck-Core-show_Show__ArgUsage x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__ArgUsage d x)))) e-5)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((tyC-39 (LinearCheck-Core-n--8595-9770-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-5 (let ((sc3 arg-9)) (let ((e-25 (vector-ref sc3 3))) e-25))))) (let ((act-26 (Context-Core-updateTy arg-6 arg-8 tyC-39 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 (Context-Core-setLinearCheck arg-6 arg-8 0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (Context-Core-logTerm (vector 0 ) arg-6 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New type of " (Name-Core-show_Show__Name (let ((sc5 arg-9)) (let ((e-28 (vector-ref sc5 2))) e-28))))) tyC-39 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-29 (Context-Core-logTerm (vector 0 ) arg-6 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Updated from " (Name-Core-show_Show__Name (let ((sc6 arg-9)) (let ((e-29 (vector-ref sc6 2))) e-29))))) (let ((sc6 arg-9)) (let ((e-28 (vector-ref sc6 3))) e-28)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (vector 1 tyC-39))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-10063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (else (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-10118 '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--caseC-32blockC-32inC-32lcheckDef-10034 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-n--8595-9771-rigSafe 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-10063 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 e-5 (let ((sc2 e-1)) (let ((e-16 (vector-ref sc2 17))) e-16))) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0))))))) -(define LinearCheck-Core-case--lcheckDef-10005 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 e-1) (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (LinearCheck-Core-n--8595-9771-rigSafe 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc3 e-2)) (let ((e-7 (vector-ref sc3 8))) e-7)) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-10063 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-2 _-0 e-6 (let ((sc4 e-2)) (let ((e-16 (vector-ref sc4 17))) e-16))) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0))))))) -(define LinearCheck-Core-case--lcheckDefC-44updateUsage-9789 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) arg-12) ((3) arg-12) (else arg-12))))) -(define LinearCheck-Core-case--lcheckDef-9725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0))))))) -(define LinearCheck-Core-case--getArgUsageC-44getPUsage-9375 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-7)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((args (TT-Core-getArgs 'erased arg-8))) (let ((act-25 ((LinearCheck-Core-n--8590-8282-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-2 arg-7 e-7 args e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 ((LinearCheck-Core-n--8590-8279-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-6 arg-10 arg-7 args e-7 arg-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Context-Core-log arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Arg usage: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-9)))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 e-9))))))))))))))))))))))))))) -(define LinearCheck-Core-case--getArgUsageC-44checkEnvUsage-9169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-Types-Prelude-C-43C-43 'erased arg-10 (vector 1 arg-6 arg-7)) arg-5 arg-4 (Types-Prelude-C-61C-61_Eq__Nat arg-16 (Types-Prelude-fromInteger_Num__Nat 0)) arg-15 (vector 0 ) arg-11)) (else (lambda (eta-0) (vector 1 1))))))) -(define LinearCheck-Core-case--getArgUsageC-44checkEnvUsage-9055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Types-Prelude-fromInteger_Num__Nat 1)) (else arg-16))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-8707 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 2 )))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-8584 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (vector 4 )) (else (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-8707 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 'erased arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 'erased arg-24 arg-25 arg-26 arg-27 (Types-Prelude-C-61C-61_Eq__Nat arg-26 (Types-Prelude-fromInteger_Num__Nat 0)))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-8503 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8590-8279-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-14 arg-19 arg-16 arg-18 arg-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((used_in (LinearCheck-Core-count 'erased e-4 arg-18))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-8584 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 'erased e-2 e-3 arg-16 arg-17 arg-18 arg-19 e-4 'erased arg e-5 used_in e-6 (Basics-Prelude-C-38C-38 e-6 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-13 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--12536-8331-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 eta-0))))))) -(define LinearCheck-Core-case--getArgUsageC-44getCaseUsage-8458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8590-8279-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-14 arg-19 arg-16 arg-18 arg-17) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased e-4 arg-18))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-17) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-8584 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 'erased e-2 e-3 arg-16 arg-17 arg-18 arg-19 e-4 'erased arg e-5 used_in e-6 (Basics-Prelude-C-38C-38 e-6 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-13 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--12536-8331-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 eta-0)))))) (else (lambda (eta-0) (LinearCheck-Core-n--12536-8331-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 eta-0))))))) -(define LinearCheck-Core-case--getArgUsageC-44getCaseUsageC-44elseCase-8350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-13 (vector 1 )) arg-20)) (else (vector 1 (vector 0 arg-13 (vector 3 )) arg-20)))))) -(define LinearCheck-Core-case--lcheckBinder-8059 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckBinder-7989 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 (vector 0 (vector 4 arg-4 arg-3 e-2 arg-11) (vector 0 arg-12 e-7))))))))))) -(define LinearCheck-Core-case--lcheckBinder-7945 (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-7 arg-3) arg-6 arg-5 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 4 arg-4 arg-3 e-8 e-2) (vector 0 e-6 e-9))))))))))))))))))))) -(define LinearCheck-Core-case--lcheckBinder-7883 (lambda (arg-0 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))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-5 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) -(define LinearCheck-Core-case--lcheckBinder-7820 (lambda (arg-0 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))) (lambda (eta-0) (vector 1 (vector 0 (vector 2 arg-5 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckBinder-7750 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (vector 1 (vector 0 (vector 1 arg-4 arg-3 e-2 arg-11) (vector 0 arg-12 e-7))))))))))) -(define LinearCheck-Core-case--lcheckBinder-7706 (lambda (arg-0 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))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-7 arg-3) arg-6 arg-5 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 1 arg-4 arg-3 e-8 e-2) (vector 0 e-6 e-9))))))))))))))))))))) -(define LinearCheck-Core-case--lcheckBinder-7644 (lambda (arg-0 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))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-5 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-7486 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-9) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3) arg-11))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed type") eta-0))))))) -(define LinearCheck-Core-case--lcheck-7449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((5) (let ((e-8 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 8 arg-3 e-8 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-9 arg-4 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed type") eta-0)))))))))))))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-7378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 7 arg-4 arg-3 arg-12 e-2) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-5)) e-7))))))))))))))))) -(define LinearCheck-Core-case--lcheck-7334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 7 arg-4 arg-3 e-2 e-8) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-11)) e-9)))))))))))))))))))))))))) -(define LinearCheck-Core-case--lcheck-7276 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-3 arg-2 e-2) (vector 0 (Normalise-Core-gType 'erased arg-3) e-7))))))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-7213 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-4 arg-3 arg-12 e-2) (vector 0 e-6 e-7)))))))))))) -(define LinearCheck-Core-case--lcheck-7169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 5 arg-4 arg-3 e-2 e-8) (vector 0 e-10 e-9))))))))))))))))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6981 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-17) eta-0))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (vector 10 arg-3 1)) (else arg-23))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (((arg-20 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-2)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6747 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-6 e-7 _-0 e-5 (Basics-Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-24) (lambda (arg-25) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-24 arg-25))))) arg-19))))))) (let ((act-25 (Context-Core-getSession arg-8 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((sc4 (let ((sc5 e-8)) (let ((e-13 (vector-ref sc5 8))) e-13)))) (cond ((equal? sc4 0) (let ((act-26 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-9 arg-18 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 (Basics-Prelude-not e-10))) (cond ((equal? sc7 0) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 arg-18 eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-9 eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-11 e-12) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-5) (LinearCheck-Core-C-43C-43 'erased arg-11 e-7)))))))))))))))))))))))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-6620 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-11 arg-6))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((fty (vector 0 e-1 e-2 (vector 2 e-10 e-11 e-12 e-13) e-4))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-25 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-7)) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-14 (vector-ref sc5 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc5 1))) (let ((aerased (let ((_-0 (vector 0 e-7 (vector 0 e-9 e-8)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6747 arg-0 arg-1 arg-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-10 e-12 e-13 e-11 e-4 fty checkRig e-7 e-9 e-8 _-0 e-14 (Basics-Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) e-11))))))) (let ((act-26 (Context-Core-getSession arg-8 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((act-27 (let ((sc7 (let ((sc8 e-15)) (let ((e-20 (vector-ref sc8 8))) e-20)))) (cond ((equal? sc7 0) (let ((act-27 ((Normalise-Core-getNF 'erased arg-8 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (let ((act-28 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-16 e-13 eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((sc10 (Basics-Prelude-not e-17))) (cond ((equal? sc10 0) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-13 eta-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-16 eta-0))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc12 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-18 e-19) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-16 (vector-ref sc7 1))) (vector 0 e-16))) (else (vector 1 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-14) (LinearCheck-Core-C-43C-43 'erased arg-11 e-8))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-16 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-16 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-16) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-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--lcheck-6574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((2) (let ((e-14 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((e-13 (vector-ref sc5 4))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-11 arg-6))) (let ((act-26 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((fty (vector 0 e-1 e-10 (vector 2 e-14 e-11 e-12 e-13) e-4))) (let ((sc7 e-15)) (let ((e-17 (vector-ref sc7 1))) (let ((e-16 (vector-ref sc7 2))) (let ((sc8 e-16)) (let ((e-19 (vector-ref sc8 1))) (let ((e-18 (vector-ref sc8 2))) (let ((act-27 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-17)) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-20 (vector-ref sc9 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc9 1))) (let ((aerased (let ((_-1 (vector 0 e-17 (vector 0 e-19 e-18)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6747 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-14 e-12 e-13 e-11 e-4 fty checkRig e-17 e-19 e-18 _-1 e-20 (Basics-Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-10 arg-11))))) e-11))))))) (let ((act-28 (Context-Core-getSession arg-8 eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-21 (vector-ref sc10 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc10 1))) (let ((act-29 (let ((sc11 (let ((sc12 e-21)) (let ((e-26 (vector-ref sc12 8))) e-26)))) (cond ((equal? sc11 0) (let ((act-29 ((Normalise-Core-getNF 'erased arg-8 e-19) eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-22 (vector-ref sc12 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-convert_Convert__NF arg-0 e-5 arg-4 e-22 e-13 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-23 (vector-ref sc13 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc13 1))) (let ((sc14 (Basics-Prelude-not e-23))) (cond ((equal? sc14 0) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-13 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-24 (vector-ref sc15 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc15 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-22 eta-0))) (let ((sc16 act-32)) (case (vector-ref sc16 0) ((0) (let ((e-25 (vector-ref sc16 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc16 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-24 e-25) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-22 (vector-ref sc11 1))) (vector 0 e-22))) (else (vector 1 (vector 0 (vector 4 arg-3 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-20) (LinearCheck-Core-C-43C-43 'erased e-7 e-18)))))))))))))))))))))))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-16 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-lookupCtxtExact e-16 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((1) (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-16) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-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--lcheck-6500 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((14) (LinearCheck-Core-lcheckBinder arg-0 arg-9 arg-8 (LinearCheck-Core-n--8574-5639-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 arg-5 (TT-Core-setMultiplicity 'erased arg-3 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-10 eta-0))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (LinearCheck-Core-n--8574-5641-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--caseC-32blockC-32inC-32lcheck-6371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (LinearCheck-Core-n--8574-5641-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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 (Types-Prelude-C-61C-61_Eq__Nat arg-20 (Types-Prelude-fromInteger_Num__Nat 0)) 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-1 arg-0 eta-0)) (LinearCheck-Core-n--8574-5640-getZeroes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-0 arg-14)) arg-15)) (else (lambda (eta-0) (vector 1 1))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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) (Types-Prelude-fromInteger_Num__Nat 1)) (else arg-20))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-6044 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-7))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6250 arg-0 arg-1 arg-2 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 (Basics-Prelude-C-38C-38 (Basics-Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((used (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6119 arg-0 arg-1 arg-2 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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8574-5639-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Basics-Prelude-C-38C-38 e-8 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-26 (let ((sc4 (Basics-Prelude-not arg-6))) (cond ((equal? sc4 0) ((LinearCheck-Core-n--8574-5642-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--8574-5639-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (unbox arg-9))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) ((LinearCheck-Core-discharge arg-0 e-10 arg-5 arg-4 arg-1 arg-10 arg-11 e-2 e-6 (LinearCheck-Core-C-43C-43 'erased arg-12 (LinearCheck-Core-doneScope 'erased 'erased e-7))) eta-0))))))))))))))))))))))))))))))) -(define LinearCheck-Core-case--lcheck-5996 (lambda (arg-0 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--caseC-32blockC-32inC-32lcheck-6371 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck (vector 1 arg-1 arg-0) arg-9 arg-8 (LinearCheck-Core-n--8574-5639-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 (vector 1 e-2 envC-39) arg-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-9))) (let ((act-26 (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6250 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 (Basics-Prelude-C-38C-38 (Basics-Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-11 arg-12))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((used (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6119 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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-11 arg-12))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8574-5639-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Basics-Prelude-C-38C-38 e-12 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-27 (let ((sc7 (Basics-Prelude-not arg-6))) (cond ((equal? sc7 0) ((LinearCheck-Core-n--8574-5642-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--8574-5639-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((act-28 (let ((act-28 (unbox arg-9))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) ((LinearCheck-Core-discharge arg-0 e-14 arg-5 arg-4 arg-1 e-2 e-6 e-8 e-10 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased e-9))) eta-0)))))))))))))))))))))))))))))))))))))))))))) -(define LinearCheck-Core-case--lcheckC-44eraseLinear-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) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 (TT-Core-setMultiplicity 'erased arg-13 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (LinearCheck-Core-n--8574-5641-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--8574-5641-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--lcheckC-44getZeroes-5777 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8574-5640-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8574-5640-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--caseC-32blockC-32inC-32lcheckC-44rig-5706 (lambda (arg-0 arg-1 arg-2 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define LinearCheck-Core-case--lcheckC-44rig-5646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((2) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckC-44rig-5706 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-10 arg-11))))) arg-7))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5515 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-5))))))))))(else (lambda (eta-0) (vector 1 ""))))))))(else (lambda (eta-0) (vector 1 ""))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-5430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--8574-5094-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--caseC-32blockC-32inC-32lcheck-5368 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-5430 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14 expand (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5) eta-0))))))))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5258 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--caseC-32blockC-32inC-32lcheck-5196 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((10) (lambda () 0))(else (lambda () 1)))))) -(define LinearCheck-Core-case--lcheck-5159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5196 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5258 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5515 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 expand (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) eta-1)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-7) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Types-Prelude-C-43C-43 "\u000a" (Show-Prelude-show_Show__String e-5)))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (let ((sc2 expand)) (cond ((equal? sc2 0) ((LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) arg-1) eta-0)) (else (let ((ty (let ((expand-0 1)) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-5430 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 e-5 expand-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-6) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0))))))) -(define LinearCheck-Core-case--lcheckC-44used-4975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 1 arg-0 (vector 0 ))) (else (vector 0 )))))) -(define LinearCheck-Core-case--updateHoleUsage-4717 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-3))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-2 e-3))))))))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32updateHoleUsage-4510 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((7) (let ((ty (let ((sc1 arg-11)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 ty arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-updateTy arg-9 arg-2 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-9 "quantity.hole.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New type of " (Name-Core-show_Show__Name (let ((sc3 arg-11)) (let ((e-23 (vector-ref sc3 2))) e-23))))) e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-logTerm (vector 0 ) arg-9 "quantity.hole.update" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Updated from " (Name-Core-show_Show__Name (let ((sc4 arg-11)) (let ((e-24 (vector-ref sc4 2))) e-24))))) (let ((sc4 arg-11)) (let ((e-2 (vector-ref sc4 3))) e-2)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))))))))))(else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1)))))) -(define LinearCheck-Core-case--updateHoleUsage-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) (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--caseC-32blockC-32inC-32updateHoleUsage-4510 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--caseC-32blockC-32inC-32updateHoleType-3950 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-19 arg-18 arg-17 arg-16 arg-12 arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 arg-13 arg-11 (vector 2 arg-10 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7) e-5))))))))) (else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-19 arg-18 arg-17 arg-16 arg-12 arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 arg-13 arg-11 (vector 2 arg-10 arg-9 arg-8 arg-7) e-5))))))))))))) -(define LinearCheck-Core-case--caseC-32blockC-32inC-32updateHoleType-3808 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-18)) (cond ((equal? sc0 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define LinearCheck-Core-case--updateHoleType-3755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-19 1 arg-17 arg-16 arg-12 arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((cC-39 (let ((sc2 arg-18)) (cond ((equal? sc2 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (vector 1 (vector 3 arg-13 arg-11 (vector 2 arg-10 cC-39 arg-8 arg-7) e-5)))))))))) (else (LinearCheck-Core-case--caseC-32blockC-32inC-32updateHoleType-3950 '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 arg-19 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-21) (lambda (arg-22) (Types-Prelude-C-61C-61_Eq__Nat arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (Types-Prelude-C-47C-61_Eq__Nat arg-21 arg-22)))) arg-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-varIdx 'erased eta-0)) arg-16)))))))) +(define LinearCheck-Core-case--linearCheck-11030 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-7))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (let ((sc3 (Basics-Prelude-not arg-3))) (cond ((equal? sc3 0) ((LinearCheck-Core-checkEnvUsage arg-0 (vector 0 ) arg-7 arg-6 arg-5 arg-4 arg-2 e-7 e-2) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))) +(define LinearCheck-Core-case--checkEnvUsage-10884 (lambda (arg-0 arg-1 arg-2 arg-3 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-Types-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 arg-1)) arg-10 arg-9 (Types-Prelude-C-61C-61_Eq__Nat arg-12 (Types-Prelude-fromInteger_Num__Nat 0)) arg-11 (vector 0 ) arg-5)) (else (lambda (eta-0) (vector 1 1))))))) +(define LinearCheck-Core-case--checkEnvUsage-10791 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Types-Prelude-fromInteger_Num__Nat 1)) (else arg-12))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckMeta-10564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-6 (LinearCheck-Core-C-43C-43 'erased arg-21 e-7))))))))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckMeta-10441 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--lcheckMeta-10370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-17))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckMeta-10441 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Basics-Prelude-C-38C-38 arg-14 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-20) (lambda (arg-21) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-20 arg-21))))) arg-7))))))) (let ((act-26 ((LinearCheck-Core-lcheckMeta arg-0 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-10 arg-5 (vector 1 aerased arg-9) e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (vector 1 (vector 0 e-10 (vector 0 e-12 (LinearCheck-Core-C-43C-43 'erased e-7 e-11))))))))))))))))))))))))))))))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-10020 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-getArgUsage arg-6 arg-5 (TT-Core-getLoc 'erased (let ((sc1 arg-9)) (let ((e-23 (vector-ref sc1 3))) e-23))) arg-3 (let ((sc1 arg-9)) (let ((e-23 (vector-ref sc1 3))) e-23)) e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Overall arg usage " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (LinearCheck-Core-show_Show__ArgUsage x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__ArgUsage d x)))) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((tyC-39 (LinearCheck-Core-n--8390-9682-updateUsage 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-5 (let ((sc3 arg-9)) (let ((e-25 (vector-ref sc3 3))) e-25))))) (let ((act-26 (Context-Core-updateTy arg-6 arg-8 tyC-39 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((act-27 (Context-Core-setLinearCheck arg-6 arg-8 0 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-28 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New type of " (Name-Core-show_Show__Name (let ((sc5 arg-9)) (let ((e-28 (vector-ref sc5 2))) e-28))))) tyC-39 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-29 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Updated from " (Name-Core-show_Show__Name (let ((sc6 arg-9)) (let ((e-29 (vector-ref sc6 2))) e-29))))) (let ((sc6 arg-9)) (let ((e-28 (vector-ref sc6 3))) e-28)) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (vector 1 tyC-39))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 3))) e-2))))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-9965 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (else (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-10020 '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--caseC-32blockC-32inC-32lcheckDef-9936 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-n--8390-9683-rigSafe 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-9965 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 e-5 (let ((sc2 e-1)) (let ((e-16 (vector-ref sc2 17))) e-16))) eta-0)))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0))))))) +(define LinearCheck-Core-case--lcheckDef-9907 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (vector 8 e-1) (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (LinearCheck-Core-n--8390-9683-rigSafe 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (let ((sc3 e-2)) (let ((e-7 (vector-ref sc3 8))) e-7)) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheckDef-9965 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 e-2 _-0 e-6 (let ((sc4 e-2)) (let ((e-16 (vector-ref sc4 17))) e-16))) eta-0))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0))))))) +(define LinearCheck-Core-case--lcheckDefC-44updateUsage-9701 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) arg-12) ((3) arg-12) (else arg-12))))) +(define LinearCheck-Core-case--lcheckDef-9637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-1) eta-0))))))) +(define LinearCheck-Core-case--getArgUsageC-44getPUsage-9291 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-7))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((args (TT-Core-getArgs 'erased arg-8))) (let ((act-25 ((LinearCheck-Core-n--8385-8228-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-6 arg-2 arg-7 e-7 args e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 ((LinearCheck-Core-n--8385-8225-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-6 arg-10 arg-7 args e-7 arg-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Arg usage: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-9))) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 e-9))))))))))))))))))))))))))) +(define LinearCheck-Core-case--getArgUsageC-44checkEnvUsage-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) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (LinearCheck-Core-updateHoleUsage (List-Types-Prelude-C-43C-43 'erased arg-10 (vector 1 arg-6 arg-7)) arg-5 arg-4 (Types-Prelude-C-61C-61_Eq__Nat arg-16 (Types-Prelude-fromInteger_Num__Nat 0)) arg-15 (vector 0 ) arg-11)) (else (lambda (eta-0) (vector 1 1))))))) +(define LinearCheck-Core-case--getArgUsageC-44checkEnvUsage-8977 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Types-Prelude-fromInteger_Num__Nat 1)) (else arg-16))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-8637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-8518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-8637 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 (Types-Prelude-C-61C-61_Eq__Nat arg-25 (Types-Prelude-fromInteger_Num__Nat 0)))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-8439 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8385-8225-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-8518 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 (Basics-Prelude-C-38C-38 e-6 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--12288-8273-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))) +(define LinearCheck-Core-case--getArgUsageC-44getCaseUsage-8396 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8385-8225-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-7 arg-5 arg-4 (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)) e-4 (vector 0 ) arg-16) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgUsageC-44getCaseUsage-8518 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 (Basics-Prelude-C-38C-38 e-6 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)))))))) (vector 1 (vector 1 (vector 0 arg-12 ause) e-5)))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--12288-8273-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)))))) (else (lambda (eta-0) (LinearCheck-Core-n--12288-8273-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0))))))) +(define LinearCheck-Core-case--getArgUsageC-44getCaseUsageC-44elseCase-8292 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--lcheckBinder-8007 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckBinder-7939 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 4 arg-3 e-2 arg-10) (vector 0 arg-11 e-7))))))))))) +(define LinearCheck-Core-case--lcheckBinder-7897 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 4 arg-3 e-8 e-2) (vector 0 e-6 e-9))))))))))))))))))))) +(define LinearCheck-Core-case--lcheckBinder-7837 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) +(define LinearCheck-Core-case--lcheckBinder-7776 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 2 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckBinder-7708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-3 e-2 arg-10) (vector 0 arg-11 e-7))))))))))) +(define LinearCheck-Core-case--lcheckBinder-7666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-3) arg-5 arg-4 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 1 arg-3 e-8 e-2) (vector 0 e-6 e-9))))))))))))))))))))) +(define LinearCheck-Core-case--lcheckBinder-7606 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))))))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 8 arg-3 e-2 arg-9) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3) arg-11))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed type") eta-0))))))) +(define LinearCheck-Core-case--lcheck-7411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((5) (let ((e-8 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 8 arg-3 e-8 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-9 arg-4 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed type") eta-0)))))))))))))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-7340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 7 arg-4 arg-3 arg-12 e-2) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-5)) e-7))))))))))))))))) +(define LinearCheck-Core-case--lcheck-7296 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 7 arg-4 arg-3 e-2 e-8) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 arg-4 arg-3 e-11)) e-9)))))))))))))))))))))))))) +(define LinearCheck-Core-case--lcheck-7238 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 6 arg-3 arg-2 e-2) (vector 0 (Normalise-Core-gType 'erased arg-3) e-7))))))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-7175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 5 arg-4 arg-3 arg-12 e-2) (vector 0 e-6 e-7)))))))))))) +(define LinearCheck-Core-case--lcheck-7131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (vector 1 (vector 0 (vector 5 arg-4 arg-3 e-2 e-8) (vector 0 e-10 e-9))))))))))))))))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6943 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-17) eta-0))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6713 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6644 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (((arg-19 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-2)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((aerased (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6713 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 (Basics-Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-23) (lambda (arg-24) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-23 arg-24))))) arg-18))))))) (let ((act-25 (Context-Core-getSession arg-8 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((sc4 (let ((sc5 e-8)) (let ((e-13 (vector-ref sc5 8))) e-13)))) (cond ((equal? sc4 0) (let ((act-26 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-9 arg-17 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 (Basics-Prelude-not e-10))) (cond ((equal? sc7 0) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 arg-17 eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-9 eta-0))) (let ((sc9 act-29)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-11 e-12) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-5) (LinearCheck-Core-C-43C-43 'erased arg-11 e-7)))))))))))))))))))))))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-6590 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-6))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((fty (vector 0 e-1 e-2 (vector 2 e-10 e-11 e-12) e-4))) (let ((sc3 e-5)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-25 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-7)) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (let ((aerased (let ((_-0 (vector 0 e-7 (vector 0 e-9 e-8)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6713 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-1 e-2 e-11 e-12 e-10 e-4 fty checkRig e-7 e-9 e-8 _-0 e-13 (Basics-Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) e-10))))))) (let ((act-26 (Context-Core-getSession arg-8 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-27 (let ((sc7 (let ((sc8 e-14)) (let ((e-19 (vector-ref sc8 8))) e-19)))) (cond ((equal? sc7 0) (let ((act-27 ((Normalise-Core-getNF 'erased arg-8 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-28 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-15 e-12 eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((sc10 (Basics-Prelude-not e-16))) (cond ((equal? sc10 0) (let ((act-29 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-12 eta-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-30 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-15 eta-0))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-17 e-18) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (vector 1 (vector 0 (vector 4 arg-3 arg-9 aerased) (vector 0 (Normalise-Core-glueBack arg-0 arg-13 arg-4 e-13) (LinearCheck-Core-C-43C-43 'erased arg-11 e-8)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-15 (let ((sc2 arg-13)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((act-25 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-9) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5) " not a function type)"))))) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 arg-9) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-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--lcheck-6544 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((2) (let ((e-13 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-13 arg-6))) (let ((act-26 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc6 1))) (let ((fty (vector 0 e-1 e-10 (vector 2 e-13 e-11 e-12) e-4))) (let ((sc7 e-14)) (let ((e-16 (vector-ref sc7 1))) (let ((e-15 (vector-ref sc7 2))) (let ((sc8 e-15)) (let ((e-18 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((act-27 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-16)) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-19 (vector-ref sc9 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc9 1))) (let ((aerased (let ((_-1 (vector 0 e-16 (vector 0 e-18 e-17)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6713 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-6 e-7 _-0 e-5 e-1 e-10 e-11 e-12 e-13 e-4 fty checkRig e-16 e-18 e-17 _-1 e-19 (Basics-Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-10 arg-11))))) e-13))))))) (let ((act-28 (Context-Core-getSession arg-8 eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-20 (vector-ref sc10 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-29 (let ((sc11 (let ((sc12 e-20)) (let ((e-25 (vector-ref sc12 8))) e-25)))) (cond ((equal? sc11 0) (let ((act-29 ((Normalise-Core-getNF 'erased arg-8 e-18) eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-21 (vector-ref sc12 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-convert_Convert__NF arg-0 e-5 arg-4 e-21 e-12 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Basics-Prelude-not e-22))) (cond ((equal? sc14 0) (let ((act-31 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-12 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-21 eta-0))) (let ((sc16 act-32)) (case (vector-ref sc16 0) ((0) (let ((e-24 (vector-ref sc16 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc16 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 arg-3 arg-4 e-23 e-24) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-21 (vector-ref sc11 1))) (vector 0 e-21))) (else (vector 1 (vector 0 (vector 4 arg-3 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-4 e-19) (LinearCheck-Core-C-43C-43 'erased e-7 e-17))))))))))))))))))))))))))))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 2))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (let ((e-15 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-lookupCtxtExact e-15 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((1) (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 e-15) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))))(else (let ((act-26 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-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--lcheck-6470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((14) (LinearCheck-Core-lcheckBinder arg-0 arg-9 arg-8 (LinearCheck-Core-n--8369-5613-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 arg-5 (TT-Core-setMultiplicity 'erased arg-3 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-10 eta-0))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6376 (lambda (arg-0 arg-1 arg-2 arg-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--8369-5615-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--caseC-32blockC-32inC-32lcheck-6343 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--8369-5615-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-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 (Types-Prelude-C-61C-61_Eq__Nat arg-20 (Types-Prelude-fromInteger_Num__Nat 0)) 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-1 arg-0 eta-0)) (LinearCheck-Core-n--8369-5614-getZeroes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-0 arg-14)) arg-15)) (else (lambda (eta-0) (vector 1 1))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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) (Types-Prelude-fromInteger_Num__Nat 1)) (else arg-20))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-6016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-7))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6222 arg-0 arg-1 arg-2 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 (Basics-Prelude-C-38C-38 (Basics-Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((used (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6091 arg-0 arg-1 arg-2 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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8369-5613-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Basics-Prelude-C-38C-38 e-8 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-26 (let ((sc4 (Basics-Prelude-not arg-6))) (cond ((equal? sc4 0) ((LinearCheck-Core-n--8369-5616-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--8369-5613-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (unbox arg-9))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) ((LinearCheck-Core-discharge arg-0 e-10 arg-5 arg-4 arg-1 arg-10 arg-11 e-2 e-6 (LinearCheck-Core-C-43C-43 'erased arg-12 (LinearCheck-Core-doneScope 'erased 'erased e-7))) eta-0))))))))))))))))))))))))))))))) +(define LinearCheck-Core-case--lcheck-5968 (lambda (arg-0 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--caseC-32blockC-32inC-32lcheck-6343 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-6 e-7 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck (vector 1 arg-1 arg-0) arg-9 arg-8 (LinearCheck-Core-n--8369-5613-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) arg-6 (vector 1 e-2 envC-39) arg-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((sc4 e-4)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-9))) (let ((act-26 (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6222 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 (Basics-Prelude-C-38C-38 (Basics-Prelude-not arg-6) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-11 arg-12))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((used (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6091 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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-11 arg-12))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8369-5613-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) (lambda () (Basics-Prelude-C-38C-38 e-12 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-27 (let ((sc7 (Basics-Prelude-not arg-6))) (cond ((equal? sc7 0) ((LinearCheck-Core-n--8369-5616-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--8369-5613-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((act-28 (let ((act-28 (unbox arg-9))) (vector 1 act-28)))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) ((LinearCheck-Core-discharge arg-0 e-14 arg-5 arg-4 arg-1 e-2 e-6 e-8 e-10 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased e-9))) eta-0)))))))))))))))))))))))))))))))))))))))))))) +(define LinearCheck-Core-case--lcheckC-44eraseLinear-5860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (LinearCheck-Core-n--8369-5615-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--8369-5615-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--lcheckC-44getZeroes-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) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8369-5614-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var arg-10 arg-11 eta-0)) (LinearCheck-Core-n--8369-5614-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--caseC-32blockC-32inC-32lcheckC-44rig-5678 (lambda (arg-0 arg-1 arg-2 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define LinearCheck-Core-case--lcheckC-44rig-5620 (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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckC-44rig-5678 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-10 arg-11))))) arg-7))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-5))))))))))(else (lambda (eta-0) (vector 1 ""))))))))(else (lambda (eta-0) (vector 1 ""))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-5404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--8369-5070-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--caseC-32blockC-32inC-32lcheck-5342 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-5404 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14 expand (let ((sc1 arg-11)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-5) eta-0))))))))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5234 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (lambda () 0))(else (lambda () 1)))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5172 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((10) (lambda () 0))(else (lambda () 1)))))) +(define LinearCheck-Core-case--lcheck-5135 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5172 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5234 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5489 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 expand (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))) eta-1)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-7) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC arg-4) (Strings-Types-Prelude-C-43C-43 "\u000a" (Show-Prelude-show_Show__String e-5)))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) (let ((sc2 expand)) (cond ((equal? sc2 0) ((LinearCheck-Core-expandMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3 arg-2 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) arg-1) eta-0)) (else (let ((ty (let ((expand-0 1)) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-5404 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 e-5 expand-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)))))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) e-6) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0))))))) +(define LinearCheck-Core-case--lcheckC-44used-4951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--updateHoleUsage-4693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 e-3))(else (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 1)))(else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 (vector 1 e-2 e-3))))))))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32updateHoleUsage-4490 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((7) (let ((ty (let ((sc1 arg-11)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 ty arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-updateTy arg-9 arg-2 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New type of " (Name-Core-show_Show__Name (let ((sc3 arg-11)) (let ((e-23 (vector-ref sc3 2))) e-23))))) e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-logTerm (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Updated from " (Name-Core-show_Show__Name (let ((sc4 arg-11)) (let ((e-24 (vector-ref sc4 2))) e-24))))) (let ((sc4 arg-11)) (let ((e-2 (vector-ref sc4 3))) e-2)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 0)))))))))))))))))))))(else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1)))))) +(define LinearCheck-Core-case--updateHoleUsage-4463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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--caseC-32blockC-32inC-32updateHoleUsage-4490 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--caseC-32blockC-32inC-32updateHoleType-3942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 arg-12 arg-10 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7) e-5))))))))) (else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 arg-17 arg-16 arg-15 arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 arg-12 arg-10 (vector 2 arg-9 arg-8 arg-7) e-5))))))))))))) +(define LinearCheck-Core-case--caseC-32blockC-32inC-32updateHoleType-3806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define LinearCheck-Core-case--updateHoleType-3755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 1 arg-16 arg-15 arg-11 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((cC-39 (let ((sc2 arg-17)) (cond ((equal? sc2 0) arg-9) (else (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (vector 1 (vector 3 arg-12 arg-10 (vector 2 cC-39 arg-8 arg-7) e-5)))))))))) (else (LinearCheck-Core-case--caseC-32blockC-32inC-32updateHoleType-3942 '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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-20) (lambda (arg-21) (Types-Prelude-C-61C-61_Eq__Nat arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (Types-Prelude-C-47C-61_Eq__Nat arg-20 arg-21)))) arg-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-varIdx 'erased eta-0)) arg-15)))))))) (define LinearCheck-Core-case--localPrf-3651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (+ 1 arg-4))) (define LinearCheck-Core-case--count-3601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Types-Prelude-C-43_Num__Nat (Types-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--8574-4861-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--lcheckC-44used-4975 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) arg-11)))) -(define LinearCheck-Core-n--8595-9770-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 ((e-12 (vector-ref sc2 4))) (let ((scC-39 (LinearCheck-Core-n--8595-9770-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) e-10) ((3) e-10) (else e-10))))) (vector 3 e-4 e-5 (vector 2 e-9 cC-39 e-11 e-12) scC-39))))))))(else arg-9))))))))(else arg-9))))))(else arg-9))))) -(define LinearCheck-Core-n--8574-5094-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-12 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((3) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((e-16 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 4))) (let ((sc2 e-16)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 3))) (let ((e-22 (vector-ref sc2 4))) (vector 3 e-14 e-15 (vector 2 e-19 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-21 e-22) (LinearCheck-Core-n--8574-5094-unusedHoleArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 'erased e-12 e-17))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((e-8 (vector-ref sc3 3))) (let ((e-9 (vector-ref sc3 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (LinearCheck-Core-n--8574-5094-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))) (let ((e-9 (vector-ref sc2 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (LinearCheck-Core-n--8574-5094-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))) (let ((e-9 (vector-ref sc1 4))) (vector 3 e-1 e-2 (vector 1 e-6 e-7 e-8 e-9) (LinearCheck-Core-n--8574-5094-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--8599-10329-substMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-17)) (case (vector-ref sc2 0) ((1) (let ((e-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (LinearCheck-Core-n--8599-10329-substMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 e-5 e-18 (vector 1 e-17 arg-18)))))(else (let ((sc2 arg-17)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))) ((1) (let ((e-14 (vector-ref sc1 3))) (LinearCheck-Core-n--8599-10329-substMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (SubstEnv-TT-Core-subst (List-Types-Prelude-C-43C-43 'erased arg-14 arg-15) e-3 e-14 e-5) arg-17 arg-18)))(else (let ((sc1 arg-17)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))))))(else (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0)))))))))) -(define LinearCheck-Core-n--7076-3471-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-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2) (Strings-Types-Prelude-C-43C-43 ", " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-3))))))))))))) -(define LinearCheck-Core-n--8595-9771-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((Context-Core-getFullName arg-6 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) (vector 0 (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-9 arg-10))))) arg-7 arg-8))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-4 e-5 arg-7 arg-8) ext-0)) (else (vector 1 (vector 0 )))))))))))) -(define LinearCheck-Core-n--8574-4860-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) 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--8574-4859-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-0 arg-2 'erased) arg-11 arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define LinearCheck-Core-n--8574-5639-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckC-44rig-5706 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-10 arg-11))))) arg-7))))))) -(define LinearCheck-Core-n--8590-8281-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-8 (vector-ref sc1 3))) (Basics-Prelude-C-124C-124 (Types-Prelude-C-61C-61_Eq__Nat e-8 (TT-Core-varIdx 'erased arg-7)) (lambda () (LinearCheck-Core-n--8590-8281-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3))))) ((5) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (LinearCheck-Core-n--8590-8281-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--8590-8281-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3))))))))))) -(define LinearCheck-Core-n--8574-5640-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--lcheckC-44getZeroes-5777 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) (TT-Core-multiplicity 'erased e-8))))))))))))) -(define LinearCheck-Core-n--8590-8283-getPUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Env" e-6 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-logTerm e-2 arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-logTerm e-2 arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linear check in case RHS") e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-27 ((LinearCheck-Core-lcheck e-2 arg-5 arg-4 arg-2 1 e-6 e-11) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (let ((e-13 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-4)) (let ((e-14 (vector-ref sc8 2))) (let ((act-28 ((Context-Core-log arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-14)))) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((args (TT-Core-getArgs 'erased e-10))) (let ((act-29 ((LinearCheck-Core-n--8590-8282-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 arg-2 e-6 e-14 args e-13) eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((act-30 ((LinearCheck-Core-n--8590-8279-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-2 arg-6 e-6 args e-14 e-11) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-31 ((Context-Core-log arg-5 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Arg usage: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-18)))) eta-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (vector 1 e-18))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define LinearCheck-Core-n--8574-4859-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--8574-4859-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--8590-8279-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-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((5) (let ((e-20 (vector-ref sc1 4))) (LinearCheck-Core-n--8590-8279-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-9 (vector 1 e-20 e-15) arg-11 arg-12)))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-9 (vector-ref sc2 4))) (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (LinearCheck-Core-case--getArgUsageC-44getCaseUsage-8458 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-6 e-8 e-9 e-7 e-2 e-4 e-11 e-12 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) e-7)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (LinearCheck-Core-case--getArgUsageC-44getCaseUsage-8458 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-1 e-6 e-8 e-9 e-7 e-2 e-4 e-11 e-12 arg-12 arg-11 arg-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) e-7)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) -(define LinearCheck-Core-n--8574-5641-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--lcheckC-44eraseLinear-5888 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) (TT-Core-multiplicity 'erased e-4)))))))))) -(define LinearCheck-Core-n--12536-8331-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 arg-19 ext-0) (let ((act-24 ((LinearCheck-Core-n--8590-8279-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-14 arg-19 arg-16 arg-18 arg-17) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (LinearCheck-Core-case--getArgUsageC-44getCaseUsageC-44elseCase-8350 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 arg-19 e-5 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-20) (lambda (arg-21) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-20 arg-21))))) arg-12)))))))))) -(define LinearCheck-Core-n--8590-8285-combineUsages (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8590-8284-combineUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((LinearCheck-Core-n--8590-8285-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-7) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-8))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0))))))) -(define LinearCheck-Core-n--8590-8284-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-Types-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-31 (vector-ref sc2 2))) (let ((sc3 e-31)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))) ((0) (lambda (eta-0) (vector 1 (vector 0 e-22 (vector 0 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))))))) -(define LinearCheck-Core-n--8590-8286-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8590-8286-combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-n--8590-8285-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0))))))))))))))))) -(define LinearCheck-Core-n--15398-10859-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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) arg-12) (lambda () (Types-Prelude-C-47C-61_Eq__Nat arg-11 (Types-Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-8 arg-11 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define LinearCheck-Core-n--8590-8280-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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-11 arg-12))))) arg-10) (lambda () (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 arg-9 (lambda () (Types-Prelude-C-62_Ord__Nat arg-7 (Types-Prelude-fromInteger_Num__Nat 1)))) (lambda () (Basics-Prelude-C-38C-38 (Basics-Prelude-not arg-9) (lambda () (Types-Prelude-C-47C-61_Eq__Nat arg-7 (Types-Prelude-fromInteger_Num__Nat 1)))))))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-6 arg-7 arg-8) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define LinearCheck-Core-n--8574-5642-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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) arg-11) (lambda () (Types-Prelude-C-47C-61_Eq__Nat arg-10 (Types-Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-4 arg-10 arg-1) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define LinearCheck-Core-n--8590-8282-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-6))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-10))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--getArgUsageC-44checkEnvUsage-9169 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) (TT-Core-multiplicity 'erased e-8))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used (LinearCheck-Core-case--getArgUsageC-44checkEnvUsage-9055 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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-8)) (lambda () (Basics-Prelude-C-38C-38 e-5 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--8590-8280-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--8590-8281-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased pos arg-11) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-8)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((LinearCheck-Core-n--8590-8282-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-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-n--8369-4837-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--lcheckC-44used-4951 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) arg-11)))) +(define LinearCheck-Core-n--8390-9682-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--8390-9682-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (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--8369-5070-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19 e-20) (LinearCheck-Core-n--8369-5070-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--8369-5070-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--8369-5070-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--8369-5070-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--8394-10225-substMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-17)) (case (vector-ref sc2 0) ((1) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (LinearCheck-Core-n--8394-10225-substMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 1 e-3 arg-14) arg-15 e-5 e-16 (vector 1 e-15 arg-18)))))(else (let ((sc2 arg-17)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))) ((1) (let ((e-12 (vector-ref sc1 2))) (LinearCheck-Core-n--8394-10225-substMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (SubstEnv-TT-Core-subst (List-Types-Prelude-C-43C-43 'erased arg-14 arg-15) e-3 e-12 e-5) arg-17 arg-18)))(else (let ((sc1 arg-17)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0))))))))))))(else (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 " " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-5))))) eta-0)))))))))) +(define LinearCheck-Core-n--6898-3471-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-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased e-2) (Strings-Types-Prelude-C-43C-43 ", " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-3))))))))))))) +(define LinearCheck-Core-n--8390-9683-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((Context-Core-getFullName arg-6 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) (vector 0 (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-9 arg-10))))) arg-7 arg-8))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 14 arg-4 e-5 arg-7 arg-8) ext-0)) (else (vector 1 (vector 0 )))))))))))) +(define LinearCheck-Core-n--8369-4836-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) 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--8369-4835-getName arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased arg-0 arg-2 'erased) arg-11 arg-12) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define LinearCheck-Core-n--8369-5613-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckC-44rig-5678 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-10 arg-11))))) arg-7))))))) +(define LinearCheck-Core-n--8385-8227-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-8 (vector-ref sc1 3))) (Basics-Prelude-C-124C-124 (Types-Prelude-C-61C-61_Eq__Nat e-8 (TT-Core-varIdx 'erased arg-7)) (lambda () (LinearCheck-Core-n--8385-8227-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3))))) ((5) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (LinearCheck-Core-n--8385-8227-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--8385-8227-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3))))))))))) +(define LinearCheck-Core-n--8369-5614-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--lcheckC-44getZeroes-5749 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) (TT-Core-multiplicity 'erased e-8))))))))))))) +(define LinearCheck-Core-n--8385-8229-getPUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Env" e-6 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-10 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-logTerm e-2 arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linear check in case RHS") e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-27 ((LinearCheck-Core-lcheck e-2 arg-5 arg-4 arg-2 1 e-6 e-11) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (let ((e-13 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((sc8 e-4)) (let ((e-14 (vector-ref sc8 2))) (let ((act-28 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-14))) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((args (TT-Core-getArgs 'erased e-10))) (let ((act-29 ((LinearCheck-Core-n--8385-8228-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-2 arg-2 e-6 e-14 args e-13) eta-0))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((act-30 ((LinearCheck-Core-n--8385-8225-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-2 arg-6 e-6 args e-14 e-11) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-31 (Context-Core-log arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Arg usage: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (LinearCheck-Core-show_Show__ArgUsage x-0)) (lambda (d-0) (lambda (x-0) (LinearCheck-Core-showPrec_Show__ArgUsage d-0 x-0))))) d x)))) e-18))) eta-0))) (let ((sc12 act-31)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (vector 1 e-18))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define LinearCheck-Core-n--8369-4835-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--8369-4835-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--8385-8225-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--8385-8225-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--getArgUsageC-44getCaseUsage-8396 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (LinearCheck-Core-case--getArgUsageC-44getCaseUsage-8396 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) e-6)))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) +(define LinearCheck-Core-n--8369-5615-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--lcheckC-44eraseLinear-5860 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) (TT-Core-multiplicity 'erased e-4)))))))))) +(define LinearCheck-Core-n--12288-8273-elseCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((LinearCheck-Core-n--8385-8225-getCaseUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-13 arg-18 arg-15 arg-17 arg-16) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (LinearCheck-Core-case--getArgUsageC-44getCaseUsageC-44elseCase-8292 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-19) (lambda (arg-20) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-19 arg-20))))) arg-11)))))))))) +(define LinearCheck-Core-n--8385-8231-combineUsages (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8385-8230-combineUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((LinearCheck-Core-n--8385-8231-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-7) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 e-8))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Argument usage lists inconsistent") eta-0))))))) +(define LinearCheck-Core-n--8385-8230-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-Types-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))) ((2) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-31 (vector-ref sc2 2))) (let ((sc3 e-31)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 (Strings-Types-Prelude-C-43C-43 "Inconsistent usage of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) " in case branches"))) eta-0)))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((sc4 e-19)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (let ((e-7 (vector-ref sc6 2))) (let ((sc7 e-7)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-18 (vector-ref sc2 1))) (let ((e-19 (vector-ref sc2 2))) (let ((sc3 e-19)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((sc7 e-3)) (case (vector-ref sc7 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))) ((0) (lambda (eta-0) (vector 1 (vector 0 e-22 (vector 0 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((sc2 e-19)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (case (vector-ref sc4 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (case (vector-ref sc6 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 e-18 (vector 0 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-14 (vector 3 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 e-10 (vector 3 )))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-6 (vector 4 )))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((4) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 4 )))))(else (lambda (eta-0) (vector 1 arg-6))))))))(else (lambda (eta-0) (vector 1 arg-6)))))))))))))))))))))) +(define LinearCheck-Core-n--8385-8232-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8385-8232-combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-n--8385-8231-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0))))))))))))))))) +(define LinearCheck-Core-n--15077-10741-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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) arg-12) (lambda () (Types-Prelude-C-47C-61_Eq__Nat arg-11 (Types-Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-8 arg-11 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define LinearCheck-Core-n--8385-8226-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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-11 arg-12))))) arg-10) (lambda () (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 arg-9 (lambda () (Types-Prelude-C-62_Ord__Nat arg-7 (Types-Prelude-fromInteger_Num__Nat 1)))) (lambda () (Basics-Prelude-C-38C-38 (Basics-Prelude-not arg-9) (lambda () (Types-Prelude-C-47C-61_Eq__Nat arg-7 (Types-Prelude-fromInteger_Num__Nat 1)))))))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-6 arg-7 arg-8) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define LinearCheck-Core-n--8369-5616-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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) arg-11) (lambda () (Types-Prelude-C-47C-61_Eq__Nat arg-10 (Types-Prelude-fromInteger_Num__Nat 1)))))) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-4 arg-10 arg-1) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define LinearCheck-Core-n--8385-8228-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-6))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-10))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--getArgUsageC-44checkEnvUsage-9091 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) (TT-Core-multiplicity 'erased e-8))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used (LinearCheck-Core-case--getArgUsageC-44checkEnvUsage-8977 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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-13 arg-14))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-8)) (lambda () (Basics-Prelude-C-38C-38 e-5 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--8385-8226-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--8385-8227-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased pos arg-11) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-8)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((LinearCheck-Core-n--8385-8228-checkEnvUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-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-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (LinearCheck-Core-n--7076-3471-showAll 'erased arg-1 'erased arg-1) "]")))) +(define LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 (lambda (arg-0 arg-1) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (LinearCheck-Core-n--6898-3471-showAll 'erased arg-1 'erased arg-1) "]")))) (define LinearCheck-Core-showPrec_Show__ArgUsage (lambda (arg-0 arg-1) (LinearCheck-Core-show_Show__ArgUsage arg-1))) (define LinearCheck-Core-showPrec_Show__C-40UsageC-32C-36varsC-41 (lambda (arg-0 arg-1 arg-2) (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased arg-2))) (define LinearCheck-Core-__Impl_Show_ArgUsage (lambda () (vector 0 (lambda (x) (LinearCheck-Core-show_Show__ArgUsage x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__ArgUsage d x)))))) (define LinearCheck-Core-__Impl_Show_C-40UsageC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (x) (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased x)) (lambda (d) (lambda (x) (LinearCheck-Core-showPrec_Show__C-40UsageC-32C-36varsC-41 'erased d x)))))) (define LinearCheck-Core-updateHoleUsageArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LinearCheck-Core-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Basics-Prelude-C-124C-124 e-5 (lambda () e-6))))))))))))))))))))) -(define LinearCheck-Core-updateHoleUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-35) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (TT-Core-weaken_Weaken__Var e-29 arg-0 eta-1)) arg-5) e-31) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Basics-Prelude-C-124C-124 e-5 (lambda () e-6))))))))))))))))(else (LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-29 arg-0 eta-0)) arg-5) e-31))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-7))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32updateHoleUsage-4510 arg-0 e-4 e-3 e-2 e-1 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-7 _-0 (let ((sc4 e-7)) (let ((e-17 (vector-ref sc4 18))) e-17))) eta-0)))) (else ((LinearCheck-Core-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4) eta-0)))))))))))))))))))) ((5) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (Basics-Prelude-C-124C-124 e-5 (lambda () e-10)))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-13))) ((7) (let ((e-18 (vector-ref sc0 4))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18))) ((8) (let ((e-22 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22)))(else (LinearCheck-Core-case--updateHoleUsage-4717 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 ((e-9 (vector-ref sc1 4))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((0) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((e-17 (vector-ref sc3 3))) (LinearCheck-Core-case--updateHoleType-3755 'erased arg-1 arg-2 'erased e-15 e-17 'erased e-9 e-8 e-7 e-6 e-2 e-4 e-1 e-16 e-12 arg-6 arg-5 arg-4 arg-3 (Types-Prelude-C-61C-61_Eq__Nat (TT-Core-varIdx 'erased arg-5) e-17))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-1 arg-2 arg-3 1 arg-5 arg-6 e-11) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((act-25 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-12) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8 e-9) e-10))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (vector 1 arg-7))))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (vector 1 arg-7))))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-7))))))))))) +(define LinearCheck-Core-updateHoleUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-34) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (TT-Core-weaken_Weaken__Var e-29 arg-0 eta-1)) arg-5) e-31) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Basics-Prelude-C-124C-124 e-5 (lambda () e-6))))))))))))))))(else (LinearCheck-Core-updateHoleUsage (vector 1 e-29 arg-0) arg-1 arg-2 arg-3 (+ 1 arg-4) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-29 arg-0 eta-0)) arg-5) e-31))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-7))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32updateHoleUsage-4490 arg-0 e-4 e-3 e-2 e-1 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-7 _-0 (let ((sc4 e-7)) (let ((e-17 (vector-ref sc4 18))) e-17))) eta-0)))) (else ((LinearCheck-Core-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4) eta-0)))))))))))))))))))) ((5) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (Basics-Prelude-C-124C-124 e-5 (lambda () e-10)))))))))))))))) ((6) (let ((e-13 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-13))) ((7) (let ((e-18 (vector-ref sc0 4))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18))) ((8) (let ((e-22 (vector-ref sc0 3))) (LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22)))(else (LinearCheck-Core-case--updateHoleUsage-4693 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--updateHoleType-3755 '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 (Types-Prelude-C-61C-61_Eq__Nat (TT-Core-varIdx 'erased arg-5) e-16))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsage arg-1 arg-2 arg-3 1 arg-5 arg-6 e-10) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((act-25 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4 e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (vector 1 (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-9))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (vector 1 arg-7)))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (vector 1 arg-7))))))))))))))(else (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 arg-7))))))))))) (define LinearCheck-Core-localPrf (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--localPrf-3651 e-2 e-3 'erased 'erased (LinearCheck-Core-localPrf 'erased 'erased e-3))))))))) -(define LinearCheck-Core-linearCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-1 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linearity check on ") arg-7 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logEnv arg-0 arg-1 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-6 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 arg-7) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (let ((e-8 (vector-ref sc4 2))) (let ((act-27 ((Context-Core-log arg-1 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-8)))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((sc6 (Basics-Prelude-not arg-5))) (cond ((equal? sc6 0) ((LinearCheck-Core-checkEnvUsage arg-0 (vector 0 ) arg-1 arg-2 arg-3 arg-4 arg-6 e-8 e-2) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))))))))))))))) -(define LinearCheck-Core-lcheckMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-13 (vector-ref sc2 4))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-11 arg-3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 checkRig arg-4 arg-5 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-15 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-16 (vector-ref sc6 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-16) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-4)) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-17 (vector-ref sc7 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc7 1))) (let ((aerased (let ((_-0 (vector 0 e-4 (vector 0 e-15 e-14)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckMeta-10553 arg-0 e-5 e-6 e-10 e-12 e-1 e-2 e-13 e-11 e-8 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 checkRig e-4 e-15 e-14 _-0 e-16 e-17 (Basics-Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) e-11))))))) (let ((act-27 ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 (vector 1 aerased arg-10) e-17) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-18 (vector-ref sc8 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc8 1))) (let ((sc9 e-18)) (let ((e-20 (vector-ref sc9 1))) (let ((e-19 (vector-ref sc9 2))) (let ((sc10 e-19)) (let ((e-22 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (vector 1 (vector 0 e-20 (vector 0 e-22 (LinearCheck-Core-C-43C-43 'erased e-14 e-21))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-9 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-10 arg-5 arg-11 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on metavar\u000a " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-5 arg-11 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on metavar\u000a " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) " not a function type)"))))) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 2 arg-6 arg-7 arg-8 (List-Data-reverse 'erased arg-10)) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-5 arg-11) (vector 0 ))))))))))))))) -(define LinearCheck-Core-lcheckDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-case--lcheckDef-10005 '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))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (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))) (vector 1 (vector 0 (vector 0 e-1 e-2 e-3 e-7) (vector 0 e-9 (vector 0 )))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (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 ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-7) arg-4 arg-5 e-8) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc4 1))) (let ((sc5 e-12)) (let ((e-13 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-14 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 1 e-6 e-7 e-13 e-2) (vector 0 e-11 e-14))))))))))))))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 2 e-11 e-12 e-13 e-2) (vector 0 e-6 (vector 0 )))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 3 e-16 e-17 e-18 e-2) (vector 0 e-6 (vector 0 )))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-22) arg-4 arg-5 e-23) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 4 e-21 e-22 e-9 e-2) (vector 0 e-6 e-10))))))))))))))))))))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 5 e-26 e-27 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))))))) -(define LinearCheck-Core-lcheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((b (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3641) (TT-Core-weaken_Weaken__Term n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (TT-Core-weakenNs_Weaken__Term vars ns arg-3645))))) arg-0 e-4 'erased arg-5))) (let ((rigb (TT-Core-multiplicity 'erased b))) (let ((ty (TT-Core-binderType 'erased b))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Basics-Prelude-not arg-4))) (cond ((equal? sc1 0) ((LinearCheck-Core-n--8574-4860-rigSafe e-4 'erased arg-0 'erased e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 rigb arg-3) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (vector 1 (vector 0 (vector 0 e-2 e-3 e-4) (vector 0 (Normalise-Core-gnf arg-0 arg-5 ty) (LinearCheck-Core-n--8574-4861-used e-4 'erased arg-0 'erased e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3)))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheckDef 'erased arg-1 arg-2 e-7 arg-3 arg-4 arg-5 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 1 e-7 e-8 e-9) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-5)) (vector 0 )))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-7 arg-8))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5196 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5258 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17)))) arg-3))) (let ((act-26 (Context-Core-logC arg-1 "quantity" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5515 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 expand (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17))) eta-1)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-3) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-11) (Strings-Types-Prelude-C-43C-43 "\u000a" (Show-Prelude-show_Show__String e-7)))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) (let ((sc5 expand)) (cond ((equal? sc5 0) ((LinearCheck-Core-expandMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-12 e-13 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) e-14) eta-0)) (else (let ((ty (let ((expand-0 1)) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-5430 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 e-7 expand-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-11 e-12 e-13 e-14 (vector 0 ) e-8) eta-0)))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-11 e-12) eta-0)))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-handleUnify 'erased arg-1 arg-2 (LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8574-5639-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 arg-5 e-18) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((14) (LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8574-5639-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 arg-5 (TT-Core-setMultiplicity 'erased e-18 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-6371 arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((act-25 ((LinearCheck-Core-lcheck (vector 1 e-17 arg-0) arg-1 arg-2 (LinearCheck-Core-n--8574-5639-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 (vector 1 e-2 envC-39) e-19) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-10))) (let ((act-27 (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6250 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 (Basics-Prelude-C-38C-38 (Basics-Prelude-not arg-4) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-7 arg-8))))) (TT-Core-multiplicity 'erased e-18))))) eta-0)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((used (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6119 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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-7 arg-8))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8574-5639-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) (lambda () (Basics-Prelude-C-38C-38 e-13 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-28 (let ((sc9 (Basics-Prelude-not arg-4))) (cond ((equal? sc9 0) ((LinearCheck-Core-n--8574-5642-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--8574-5639-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) ((LinearCheck-Core-discharge arg-0 e-15 arg-5 e-16 e-17 e-2 e-6 e-9 e-11 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased e-10))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((e-1 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((e-10 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((2) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((e-12 (vector-ref sc7 3))) (let ((e-13 (vector-ref sc7 4))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-14 arg-3))) (let ((act-27 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 checkRig arg-4 arg-5 e-23) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (let ((fty (vector 0 e-1 e-11 (vector 2 e-15 e-14 e-12 e-13) e-4))) (let ((sc9 e-16)) (let ((e-18 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((sc10 e-17)) (let ((e-20 (vector-ref sc10 1))) (let ((e-19 (vector-ref sc10 2))) (let ((act-28 (((e-4 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-18)) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-24 (vector-ref sc11 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc11 1))) (let ((aerased (let ((_-1 (vector 0 e-18 (vector 0 e-20 e-19)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6747 arg-0 e-23 e-22 e-21 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 e-8 e-1 e-11 e-15 e-12 e-13 e-14 e-4 fty checkRig e-18 e-20 e-19 _-1 e-24 (Basics-Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-7 arg-8))))) e-14))))))) (let ((act-29 (Context-Core-getSession arg-1 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc12 1))) (let ((act-30 (let ((sc13 (let ((sc14 e-25)) (let ((e-30 (vector-ref sc14 8))) e-30)))) (cond ((equal? sc13 0) (let ((act-30 ((Normalise-Core-getNF 'erased arg-1 e-20) eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-26 (vector-ref sc14 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-convert_Convert__NF arg-0 e-8 arg-5 e-26 e-13 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-27 (vector-ref sc15 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc15 1))) (let ((sc16 (Basics-Prelude-not e-27))) (cond ((equal? sc16 0) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-13 eta-0))) (let ((sc17 act-32)) (case (vector-ref sc17 0) ((0) (let ((e-28 (vector-ref sc17 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc17 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-26 eta-0))) (let ((sc18 act-33)) (case (vector-ref sc18 0) ((0) (let ((e-29 (vector-ref sc18 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc18 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 e-21 arg-5 e-28 e-29) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (vector 0 e-26))) (else (vector 1 (vector 0 (vector 4 e-21 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-8 arg-5 e-24) (LinearCheck-Core-C-43C-43 'erased e-7 e-19)))))))))))))))))))))))))))))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))))))) ((1) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-16 (vector-ref sc7 2))) (let ((act-27 ((Context-Core-lookupCtxtExact e-16 (let ((sc8 e-8)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (case (vector-ref sc9 0) ((1) (let ((act-28 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-14) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-21 e-16) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-10) " not a function type)"))))) eta-0)))))))))))))))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 5 e-25 e-26 e-2 e-9) (vector 0 e-11 e-10))))))))))))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-7 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 6 e-30 e-31 e-2) (vector 0 (Normalise-Core-gType 'erased e-30) e-7)))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-36) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-37) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 7 e-34 e-35 e-2 e-9) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 e-34 e-35 e-12)) e-10)))))))))))))))))))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((5) (let ((e-9 (vector-ref sc5 2))) (let ((e-4 (vector-ref sc5 3))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 8 e-39 e-9 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-10 arg-5 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-39 "Not a delayed type") eta-0)))))))))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-43 e-44) (vector 0 (Normalise-Core-gErased 'erased e-43) (vector 0 )))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 10 e-46 e-47) (vector 0 (Normalise-Core-gErased 'erased e-46) (vector 0 )))))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 11 e-49) (vector 0 (Normalise-Core-gType 'erased e-49) (vector 0 ))))))))))) -(define LinearCheck-Core-getArgUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (LinearCheck-Core-n--8590-8283-getPUsage arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 eta-0)) arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((LinearCheck-Core-n--8590-8286-combine arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-6)))))))))))))) -(define LinearCheck-Core-expandMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8599-10329-substMeta arg-0 e-0 e-3 e-4 e-7 e-8 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-0 (TT-Core-embed 'erased 'erased e-8) arg-9 (vector 0 )) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Types-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-Types-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Types-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-Types-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Types-Prelude-C-43C-43 " " (Context-Core-show_Show__Def arg-8))))) eta-0))))))) +(define LinearCheck-Core-linearCheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linearity check on ") arg-7 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-6 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 arg-7) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (let ((e-8 (vector-ref sc4 2))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Used: " (LinearCheck-Core-show_Show__C-40UsageC-32C-36varsC-41 'erased e-8))) ext-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((sc6 (Basics-Prelude-not arg-5))) (cond ((equal? sc6 0) ((LinearCheck-Core-checkEnvUsage arg-0 (vector 0 ) arg-1 arg-2 arg-3 arg-4 arg-6 e-8 e-2) ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))))))))))))))))) +(define LinearCheck-Core-lcheckMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 checkRig arg-4 arg-5 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-15 (vector-ref sc6 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-15) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-4)) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-16 (vector-ref sc7 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc7 1))) (let ((aerased (let ((_-0 (vector 0 e-4 (vector 0 e-14 e-13)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheckMeta-10441 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 (Basics-Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) e-10))))))) (let ((act-27 ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 (vector 1 aerased arg-10) e-16) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (let ((sc9 e-17)) (let ((e-19 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((sc10 e-18)) (let ((e-21 (vector-ref sc10 1))) (let ((e-20 (vector-ref sc10 2))) (vector 1 (vector 0 e-19 (vector 0 e-21 (LinearCheck-Core-C-43C-43 'erased e-13 e-20)))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-9 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-10 arg-5 arg-11 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on metavar\u000a " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-11) " not a function type)"))))) eta-0)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-5 arg-11 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on metavar\u000a " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) " not a function type)"))))) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 2 arg-6 arg-7 arg-8 (List-Data-reverse 'erased arg-10)) (vector 0 (Normalise-Core-glueBack arg-0 e-5 arg-5 arg-11) (vector 0 ))))))))))))))) +(define LinearCheck-Core-lcheckDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-case--lcheckDef-9907 'erased arg-7 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 (Context-Core-getNameID arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0)))))))))))) +(define LinearCheck-Core-lcheckBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((sc3 e-4)) (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 0 e-1 e-2 e-6) (vector 0 e-8 (vector 0 ))))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-10 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-5) arg-4 arg-5 e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc4 1))) (let ((sc5 e-11)) (let ((e-12 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-13 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 1 e-5 e-12 e-2) (vector 0 e-10 e-13)))))))))))))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 2 e-9 e-10 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 3 e-13 e-14 e-2) (vector 0 e-6 (vector 0 ))))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-3 e-17) arg-4 arg-5 e-18) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 4 e-17 e-9 e-2) (vector 0 e-6 e-10)))))))))))))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 5 e-21 e-2) (vector 0 e-6 (vector 0 )))))))))))))))))))))) +(define LinearCheck-Core-lcheck (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((b (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3584) (TT-Core-weaken_Weaken__Term n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (TT-Core-weakenNs_Weaken__Term vars ns arg-3588))))) arg-0 e-4 'erased arg-5))) (let ((rigb (TT-Core-multiplicity 'erased b))) (let ((ty (TT-Core-binderType 'erased b))) (lambda (eta-0) (let ((act-24 (let ((sc1 (Basics-Prelude-not arg-4))) (cond ((equal? sc1 0) ((LinearCheck-Core-n--8369-4836-rigSafe e-4 'erased arg-0 'erased e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 rigb arg-3) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (vector 1 (vector 0 (vector 0 e-2 e-3 e-4) (vector 0 (Normalise-Core-gnf arg-0 arg-5 ty) (LinearCheck-Core-n--8369-4837-used e-4 'erased arg-0 'erased e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3)))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheckDef 'erased arg-1 arg-2 e-7 arg-3 arg-4 arg-5 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 1 e-7 e-8 e-9) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-5)) (vector 0 )))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 e-13) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((expand (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-7 arg-8))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5172 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5234 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17)))) arg-3))) (let ((act-26 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-26 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-5489 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 expand (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17))) eta-1)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-3) (Strings-Types-Prelude-C-43C-43 ": " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (FC-Core-show_Show__FC e-11) (Strings-Types-Prelude-C-43C-43 "\u000a" (Show-Prelude-show_Show__String e-7)))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) (let ((sc5 expand)) (cond ((equal? sc5 0) ((LinearCheck-Core-expandMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-12 e-13 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)) e-14) eta-0)) (else (let ((ty (let ((expand-0 1)) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-5404 arg-0 e-14 e-13 e-12 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 _-0 e-7 expand-0 (let ((sc6 e-1)) (let ((e-17 (vector-ref sc6 18))) e-17)))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) ((LinearCheck-Core-lcheckMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-11 e-12 e-13 e-14 (vector 0 ) e-8) eta-0)))))))))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-11 e-12) eta-0)))))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (UnifyState-Core-handleUnify 'erased arg-1 arg-2 (LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8369-5613-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 arg-5 e-18) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((14) (LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--8369-5613-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 arg-5 (TT-Core-setMultiplicity 'erased e-18 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((envC-39 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32lcheck-6343 arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-7 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((act-25 ((LinearCheck-Core-lcheck (vector 1 e-17 arg-0) arg-1 arg-2 (LinearCheck-Core-n--8369-5613-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 (vector 1 e-2 envC-39) e-19) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-10))) (let ((act-27 (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) ((LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6222 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 (Basics-Prelude-C-38C-38 (Basics-Prelude-not arg-4) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-7 arg-8))))) (TT-Core-multiplicity 'erased e-18))))) eta-0)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((used (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6091 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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-7 arg-8))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8369-5613-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) (lambda () (Basics-Prelude-C-38C-38 e-13 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0)))))))))) (let ((act-28 (let ((sc9 (Basics-Prelude-not arg-4))) (cond ((equal? sc9 0) ((LinearCheck-Core-n--8369-5616-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--8369-5613-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) ((LinearCheck-Core-discharge arg-0 e-15 arg-5 e-16 e-17 e-2 e-6 e-9 e-11 (LinearCheck-Core-C-43C-43 'erased e-7 (LinearCheck-Core-doneScope 'erased 'erased e-10))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-getNF 'erased arg-1 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((e-1 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((e-10 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((2) (let ((e-14 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((e-12 (vector-ref sc7 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-14 arg-3))) (let ((act-27 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 checkRig arg-4 arg-5 e-23) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (let ((fty (vector 0 e-1 e-11 (vector 2 e-14 e-13 e-12) e-4))) (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 1))) (let ((e-16 (vector-ref sc9 2))) (let ((sc10 e-16)) (let ((e-19 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (let ((act-28 (((e-4 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-17)) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-20 (vector-ref sc11 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc11 1))) (let ((aerased (let ((_-1 (vector 0 e-17 (vector 0 e-19 e-18)))) (LinearCheck-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32lcheck-6713 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 (Basics-Prelude-C-38C-38 arg-4 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-7 arg-8))))) e-14))))))) (let ((act-29 (Context-Core-getSession arg-1 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-24 (vector-ref sc12 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc12 1))) (let ((act-30 (let ((sc13 (let ((sc14 e-24)) (let ((e-29 (vector-ref sc14 8))) e-29)))) (cond ((equal? sc13 0) (let ((act-30 ((Normalise-Core-getNF 'erased arg-1 e-19) eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-25 (vector-ref sc14 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-convert_Convert__NF arg-0 e-8 arg-5 e-25 e-12 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-26 (vector-ref sc15 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc15 1))) (let ((sc16 (Basics-Prelude-not e-26))) (cond ((equal? sc16 0) (let ((act-32 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-12 eta-0))) (let ((sc17 act-32)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc17 1))) (let ((act-33 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-25 eta-0))) (let ((sc18 act-33)) (case (vector-ref sc18 0) ((0) (let ((e-28 (vector-ref sc18 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc18 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 1 arg-0 e-21 arg-5 e-27 e-28) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 1))) (vector 0 e-25))) (else (vector 1 (vector 0 (vector 4 e-21 e-2 aerased) (vector 0 (Normalise-Core-glueBack arg-0 e-8 arg-5 e-20) (LinearCheck-Core-C-43C-43 'erased e-7 e-18))))))))))))))))))))))))))))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-12) " not a function type)"))))) eta-0)))))))))))))) ((1) (let ((e-11 (vector-ref sc6 2))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-15 (vector-ref sc7 2))) (let ((act-27 ((Context-Core-lookupCtxtExact e-15 (let ((sc8 e-8)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (case (vector-ref sc9 0) ((1) (let ((act-28 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-16) " not a function type)"))))) eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-21 e-15) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-13) " not a function type)"))))) eta-0)))))))))))(else (let ((act-27 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 (Strings-Types-Prelude-C-43C-43 "Linearity checking failed on " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-2) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-10) " not a function type)"))))) eta-0)))))))))))))))))))))))))))))))))))) ((5) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (let ((e-28 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (vector 1 (vector 0 (vector 5 e-25 e-26 e-2 e-9) (vector 0 e-11 e-10))))))))))))))))))))))))))))) ((6) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-7 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 6 e-30 e-31 e-2) (vector 0 (Normalise-Core-gType 'erased e-30) e-7)))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-36) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((act-25 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-37) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((sc6 e-4)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 7 e-34 e-35 e-2 e-9) (vector 0 (Normalise-Core-gnf arg-0 arg-5 (vector 6 e-34 e-35 e-12)) e-10)))))))))))))))))))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-25 ((Normalise-Core-getNF 'erased arg-1 e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((5) (let ((e-9 (vector-ref sc5 2))) (let ((e-4 (vector-ref sc5 3))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 8 e-39 e-9 e-2) (vector 0 (Normalise-Core-glueBack arg-0 e-10 arg-5 e-4) e-7)))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-39 "Not a delayed type") eta-0)))))))))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 9 e-43 e-44) (vector 0 (Normalise-Core-gErased 'erased e-43) (vector 0 )))))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 10 e-46 e-47) (vector 0 (Normalise-Core-gErased 'erased e-46) (vector 0 )))))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 (vector 11 e-49) (vector 0 (Normalise-Core-gType 'erased e-49) (vector 0 ))))))))))) +(define LinearCheck-Core-getArgUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (LinearCheck-Core-n--8385-8229-getPUsage arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 eta-0)) arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((LinearCheck-Core-n--8385-8232-combine arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-6)))))))))))))) +(define LinearCheck-Core-expandMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-n--8394-10225-substMeta arg-0 e-0 e-3 e-4 e-7 e-8 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (vector 0 ) arg-0 (TT-Core-embed 'erased 'erased e-8) arg-9 (vector 0 )) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Types-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-Types-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Types-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-Types-Prelude-C-43C-43 "Badly formed metavar solution " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-6) (Strings-Types-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))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 0 e-1 e-2 e-3 e-4) 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-4) e-5)) arg-9)))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 1 e-6 e-7 e-8 e-9) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 1 e-6 e-7 e-8 e-9) e-5)) arg-9)))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 2 e-11 e-12 e-13 e-14) arg-7) (vector 0 arg-6 arg-9))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 3 e-16 e-17 e-18 e-19) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 5 e-16 e-17 e-19) e-5)) arg-9)))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 4 e-21 e-22 e-23 e-24) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 4 e-21 e-22 e-23 e-24) e-5)) arg-9)))))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 5 e-26 e-27 e-28) arg-7) (vector 0 arg-6 arg-9)))))))))))) +(define LinearCheck-Core-discharge (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 0 e-1 e-2 e-3) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 2 e-1 e-2 e-3) e-5)) arg-9))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 1 e-5 e-6 e-7) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 1 e-5 e-6 e-7) e-8)) arg-9))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 2 e-9 e-10 e-11) arg-7) (vector 0 arg-6 arg-9)))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 3 e-13 e-14 e-15) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 5 e-13 e-15) e-5)) arg-9))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 4 e-17 e-18 e-19) arg-7) (vector 0 (Normalise-Core-gnf arg-0 arg-2 (vector 3 arg-3 arg-4 (vector 4 e-17 e-18 e-19) e-5)) arg-9))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 3 arg-3 arg-4 (vector 5 e-21 e-22) arg-7) (vector 0 arg-6 arg-9))))))))))) (define LinearCheck-Core-count (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--count-3601 'erased e-3 e-2 arg-1 (Types-Prelude-C-61C-61_Eq__Nat arg-1 (TT-Core-varIdx 'erased e-2)))))))))) -(define LinearCheck-Core-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-1))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-7))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--checkEnvUsage-11002 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-9 arg-10))))) (TT-Core-multiplicity 'erased e-8))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used (LinearCheck-Core-case--checkEnvUsage-10909 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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-9 arg-10))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-5)) (lambda () (Basics-Prelude-C-38C-38 e-5 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--15398-10859-checkUsageOK e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-5)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((LinearCheck-Core-checkEnvUsage e-3 (List-Types-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-checkEnvUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((pos (LinearCheck-Core-localPrf 'erased 'erased arg-1))) (let ((used_in (LinearCheck-Core-count 'erased (TT-Core-varIdx 'erased pos) arg-7))) (lambda (eta-0) (let ((act-24 ((LinearCheck-Core-case--checkEnvUsage-10884 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-9 arg-10))))) (TT-Core-multiplicity 'erased e-8))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used (LinearCheck-Core-case--checkEnvUsage-10791 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 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-9 arg-10))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-5)) (lambda () (Basics-Prelude-C-38C-38 e-5 (lambda () (Types-Prelude-C-61C-61_Eq__Nat used_in (Types-Prelude-fromInteger_Num__Nat 0))))))))) (let ((act-25 ((LinearCheck-Core-n--15077-10741-checkUsageOK e-2 e-3 e-9 e-8 arg-1 arg-8 arg-7 arg-5 arg-4 arg-3 arg-2 used (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-8) arg-5)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((LinearCheck-Core-checkEnvUsage e-3 (List-Types-Prelude-C-43C-43 'erased arg-1 (vector 1 e-2 (vector 0 ))) arg-2 arg-3 arg-4 arg-5 e-9 arg-7 arg-8) eta-0)))))))))))))))))))))))) (define LinearCheck-Core-C-43C-43 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (LinearCheck-Core-C-43C-43 'erased e-3 arg-2))))))))) (define BindImplicits-TTImp-case--bindTypeNamesUsed-4458 (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-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-61C-61_Eq__String arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-47C-61_Eq__String arg-7 arg-8)))) (vector 0 (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-61C-61_Eq__String arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-47C-61_Eq__String arg-7 arg-8)))) arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-61C-61_Eq__String arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-47C-61_Eq__String arg-7 arg-8)))) (vector 0 (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-61C-61_Eq__String arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-47C-61_Eq__String arg-7 arg-8)))) arg-5 arg-6)))) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 arg-0)))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-doBind ns arg-0))))) (else (lambda (eta-0) (vector 1 arg-0))))))) (define BindImplicits-TTImp-case--bindTypeNames-4416 (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-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-61C-61_Eq__String arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-47C-61_Eq__String arg-7 arg-8)))) (vector 0 (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-61C-61_Eq__String arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-47C-61_Eq__String arg-7 arg-8)))) arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-61C-61_Eq__String arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-47C-61_Eq__String arg-7 arg-8)))) (vector 0 (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-61C-61_Eq__String arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (EqOrd-Prelude-C-47C-61_Eq__String arg-7 arg-8)))) arg-5 arg-6)))) (Utils-TTImp-findBindableNames 0 arg-1 (vector 0 ) arg-0)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-0))) (lambda (eta-0) (vector 1 (BindImplicits-TTImp-addUsing arg-2 btm)))))) (else (lambda (eta-0) (vector 1 arg-0))))))) @@ -5268,34 +5195,34 @@ (define BindImplicits-TTImp-case--bindNames-4131 (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-4) (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) arg-4 arg-5)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-0)))) (lambda (eta-0) (vector 1 (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) ns)) (BindImplicits-TTImp-doBind ns arg-0)))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-0)))))))) (define BindImplicits-TTImp-case--doBind-4062 (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) (EqOrd-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--doBind-4017 (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) (EqOrd-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--renameIBinds-3915 (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-Types-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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) 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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-2)) (lambda (_-3939) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (vector 16 arg-1 arg-0) eta-0))))))) -(define BindImplicits-TTImp-case--renameIBinds-3461 (lambda (arg-0 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-Types-Prelude-C-43C-43 'erased arg-7 arg-6) arg-0))) (let ((scC-39 (Utils-TTImp-substNames (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Data-filter 'erased (lambda (arg-9) (EqOrd-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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) 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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-4)) (lambda (_-3538) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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--6504-4348-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--6504-4348-tag arg-0 arg-1 'erased (b+ arg-3 1 63) e-3))))))))) -(define BindImplicits-TTImp-n--5556-3845-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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) arg-5 eta-0))))))) -(define BindImplicits-TTImp-n--6104-4113-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--renameIBinds-3461 e-43 e-5 e-4 e-2 e-1 e-0 arg-1 arg-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) 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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (BindImplicits-TTImp-n--5556-3845-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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (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-46) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func-0 arg-46))))) func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a-0) (lambda (arg-156) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-156))) (lambda (b) (lambda (a-0) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a-0) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a-0) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) arg-155 eta-2)))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a-0) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b-0) (lambda (a-0) (lambda (arg-157) (lambda (arg-159) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-157 arg-159)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a-0) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) arg-156 arg-158 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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) (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--renameIBinds-3915 e-40 e-39 arg-1 arg-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) 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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))) arg-2 eta-0))))))) +(define BindImplicits-TTImp-case--renameIBinds-3915 (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-Types-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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) 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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-2)) (lambda (_-3939) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (vector 16 arg-1 arg-0) eta-0))))))) +(define BindImplicits-TTImp-case--renameIBinds-3461 (lambda (arg-0 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-Types-Prelude-C-43C-43 'erased arg-7 arg-6) arg-0))) (let ((scC-39 (Utils-TTImp-substNames (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (List-Data-filter 'erased (lambda (arg-9) (EqOrd-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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) 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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-4)) (lambda (_-3538) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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--6321-4348-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--6321-4348-tag arg-0 arg-1 'erased (b+ arg-3 1 63) e-3))))))))) +(define BindImplicits-TTImp-n--5373-3845-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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) arg-5 eta-0))))))) +(define BindImplicits-TTImp-n--5921-4113-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--renameIBinds-3461 e-43 e-5 e-4 e-2 e-1 e-0 arg-1 arg-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) 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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (BindImplicits-TTImp-n--5373-3845-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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (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-46) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func-0 arg-46))))) func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a-0) (lambda (arg-113) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-113))) (lambda (b) (lambda (a-0) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a-0) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a-0) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) arg-112 eta-2)))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a-0) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b-0) (lambda (a-0) (lambda (arg-114) (lambda (arg-116) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-114 arg-116)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a-0) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) arg-113 arg-115 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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) (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--renameIBinds-3915 e-40 e-39 arg-1 arg-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) 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-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))) 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-Types-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--getUsing-4207 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-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (Utils-TTImp-findIBindVars e-11)))) (BindImplicits-TTImp-case--getUsing-4273 e-6 e-11 e-3 arg-0 ns (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) arg-0 ns))))))))))))))))))) -(define BindImplicits-TTImp-doBind (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-45 (vector-ref sc1 1))) (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 e-0 (vector 1 e-45))) (lambda () (lambda (nC-39) (vector 16 e-0 nC-39))) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) e-45 arg-0))))(else arg-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((nsC-39 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (EqOrd-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) (EqOrd-Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 2 e-8 e-9 e-10 e-11 (BindImplicits-TTImp-doBind nsC-39 e-12) (BindImplicits-TTImp-doBind nsC-39 e-13)))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (vector 8 e-14 (BindImplicits-TTImp-doBind arg-0 e-15) (BindImplicits-TTImp-doBind arg-0 e-16)))))) ((9) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (vector 9 e-17 (BindImplicits-TTImp-doBind arg-0 e-18) e-19 (BindImplicits-TTImp-doBind arg-0 e-20))))))) ((10) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 10 e-21 (BindImplicits-TTImp-doBind arg-0 e-22) (BindImplicits-TTImp-doBind arg-0 e-23)))))) ((17) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (vector 17 e-24 e-25 e-26 (BindImplicits-TTImp-doBind arg-0 e-27))))))) ((18) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (vector 18 e-28 e-29 (BindImplicits-TTImp-doBind arg-0 e-30)))))) ((19) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (vector 19 e-31 e-32 (BindImplicits-TTImp-doBind arg-0 e-33)))))) ((20) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (vector 20 e-34 (BindImplicits-TTImp-doBind arg-0 e-35))))) ((21) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (vector 21 e-36 (BindImplicits-TTImp-doBind arg-0 e-37))))) ((22) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (vector 22 e-38 (BindImplicits-TTImp-doBind arg-0 e-39))))) ((25) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 25 e-40 (BindImplicits-TTImp-doBind arg-0 e-41))))) ((12) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 12 e-42 (BindImplicits-TTImp-n--6104-4113-doBindAlt e-44 e-43 e-42 arg-0 e-43) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (BindImplicits-TTImp-doBind arg-0 eta-0)) e-44))))))(else arg-1)))))))) +(define BindImplicits-TTImp-doBind (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-45 (vector-ref sc1 1))) (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 e-0 (vector 1 e-45))) (lambda () (lambda (nC-39) (vector 16 e-0 nC-39))) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) e-45 arg-0))))(else arg-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((nsC-39 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (List-Data-filter 'erased (lambda (x) (EqOrd-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) (EqOrd-Prelude-C-47C-61_Eq__String (Builtin-fst 'erased 'erased x) e-2)) arg-0)))(else arg-0)))))(else arg-0))))) (vector 2 e-8 e-9 e-10 e-11 (BindImplicits-TTImp-doBind nsC-39 e-12) (BindImplicits-TTImp-doBind nsC-39 e-13)))))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (vector 8 e-14 (BindImplicits-TTImp-doBind arg-0 e-15) (BindImplicits-TTImp-doBind arg-0 e-16)))))) ((9) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (vector 9 e-17 (BindImplicits-TTImp-doBind arg-0 e-18) e-19 (BindImplicits-TTImp-doBind arg-0 e-20))))))) ((10) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 10 e-21 (BindImplicits-TTImp-doBind arg-0 e-22) (BindImplicits-TTImp-doBind arg-0 e-23)))))) ((17) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (vector 17 e-24 e-25 e-26 (BindImplicits-TTImp-doBind arg-0 e-27))))))) ((18) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (vector 18 e-28 e-29 (BindImplicits-TTImp-doBind arg-0 e-30)))))) ((19) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (vector 19 e-31 e-32 (BindImplicits-TTImp-doBind arg-0 e-33)))))) ((20) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (vector 20 e-34 (BindImplicits-TTImp-doBind arg-0 e-35))))) ((21) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (vector 21 e-36 (BindImplicits-TTImp-doBind arg-0 e-37))))) ((22) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (vector 22 e-38 (BindImplicits-TTImp-doBind arg-0 e-39))))) ((25) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 25 e-40 (BindImplicits-TTImp-doBind arg-0 e-41))))) ((12) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (vector 12 e-42 (BindImplicits-TTImp-n--5921-4113-doBindAlt e-44 e-43 e-42 arg-0 e-43) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (BindImplicits-TTImp-doBind arg-0 eta-0)) e-44))))))(else arg-1)))))))) (define BindImplicits-TTImp-bindUsings (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 (TTImp-TTImp-getFC e-15) e-6 e-10 e-14 e-15 (BindImplicits-TTImp-bindUsings e-3 arg-1)))))))))))))))))) (define BindImplicits-TTImp-bindTypeNamesUsed (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) arg-4 arg-5)))) (Utils-TTImp-findBindableNames 0 arg-2 arg-1 arg-3)))) (vector 1 (BindImplicits-TTImp-doBind ns arg-3)))) (else (vector 1 arg-3))))))))))) (define BindImplicits-TTImp-bindTypeNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__String arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) arg-4 arg-5)))) (Utils-TTImp-findBindableNames 0 arg-2 (vector 0 ) arg-3)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-3))) (vector 1 (BindImplicits-TTImp-addUsing arg-1 btm))))) (else (vector 1 arg-3))))))))))) (define BindImplicits-TTImp-bindNames (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__String arg-5 arg-6)))) (vector 0 (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__String arg-5 arg-6)))) arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-3) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__String arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) (vector 0 (lambda (arg-3) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__String arg-3 arg-6))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) arg-4 arg-5)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-2)))) (vector 1 (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ns)) (BindImplicits-TTImp-doBind ns arg-2))))) (else (vector 1 (vector 0 (vector 0 ) arg-2)))))))))))) -(define BindImplicits-TTImp-addUsing (lambda (arg-0 arg-1) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (Utils-TTImp-findIBindVars arg-1)))) (let ((bs (List-Data-nubBy 'erased (lambda (x) (lambda (y) (EqOrd-Prelude-C-61C-61_Eq__Int (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (BindImplicits-TTImp-getUsings ns (BindImplicits-TTImp-n--6504-4348-tag arg-1 arg-0 'erased 0 arg-0))))) (BindImplicits-TTImp-bindUsings (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) bs) arg-1))))) +(define BindImplicits-TTImp-addUsing (lambda (arg-0 arg-1) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (Utils-TTImp-findIBindVars arg-1)))) (let ((bs (List-Data-nubBy 'erased (lambda (x) (lambda (y) (EqOrd-Prelude-C-61C-61_Eq__Int (Builtin-fst 'erased 'erased x) (Builtin-fst 'erased 'erased y)))) (BindImplicits-TTImp-getUsings ns (BindImplicits-TTImp-n--6321-4348-tag arg-1 arg-0 'erased 0 arg-0))))) (BindImplicits-TTImp-bindUsings (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) bs) arg-1))))) (define State-Monad-Control-case--caseC-32blockC-32inC-32C-62C-62C-61-807 (lambda (arg-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--C-62C-62C-61-771 (lambda (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--caseC-32blockC-32inC-32C-62C-62C-61-807 '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--caseC-32blockC-32inC-32C-60C-42C-62-610 (lambda (arg-0 arg-1 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--C-60C-42C-62-564 (lambda (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--1709-411-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-n--1600-411-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--1709-411-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--1600-411-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-45) (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-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-155 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (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-156 arg-158 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (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-317 arg-318 eta-0)))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-320 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-45) (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-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-155 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (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-156 arg-158 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (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-317 arg-318 eta-0)))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-320 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-280) (lambda (eta-0) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 arg-280 eta-0)))))) +(define State-Monad-Control-__Impl_Monad_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (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-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-112 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (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-113 arg-115 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (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-274 arg-275 eta-0)))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-277 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-45) (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-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-112 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (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-113 arg-115 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (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-274 arg-275 eta-0)))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-277 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-280) (lambda (eta-0) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 arg-280 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-45) (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-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-155 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (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-156 arg-158 eta-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-45) (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-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-112 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (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-113 arg-115 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--caseC-32blockC-32inC-32C-62C-62C-61-807 '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)) @@ -5305,136 +5232,136 @@ (define Identity-Monad-Control-pure_Applicative__Identity (lambda (arg-0 arg-1) arg-1)) (define Identity-Monad-Control-map_Functor__Identity (lambda (arg-0 arg-1 arg-2 arg-3) (arg-2 arg-3))) (define Identity-Monad-Control-join_Monad__Identity (lambda (arg-0 arg-1) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-1 (lambda (eta-0) eta-0)))) -(define Identity-Monad-Control-__Impl_Monad_Identity (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-317 arg-318))))) (lambda (a) (lambda (arg-320) (Identity-Monad-Control-join_Monad__Identity 'erased arg-320)))))) +(define Identity-Monad-Control-__Impl_Monad_Identity (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-274 arg-275))))) (lambda (a) (lambda (arg-277) (Identity-Monad-Control-join_Monad__Identity 'erased arg-277)))))) (define Identity-Monad-Control-__Impl_Functor_Identity (lambda (ext-0 ext-1 ext-2 ext-3) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased ext-2 ext-3))) -(define Identity-Monad-Control-__Impl_Applicative_Identity (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-156 arg-158)))))))) +(define Identity-Monad-Control-__Impl_Applicative_Identity (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-113 arg-115)))))))) (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--processTransform-9548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-6 arg-10 "" (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Core-Core-wrapError 'erased (lambda (eta-1) (vector 59 arg-4 arg-3 eta-1)) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-6 arg-10 arg-9 arg-8 arg-12 (vector 2 ) (vector 1 (vector 3 ) arg-7) e-18 e-14 arg-5 e-10 arg-1 (Normalise-Core-gnf e-6 e-14 e-23) eta-1)) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-9 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-27 (Context-Core-logTerm e-6 arg-10 "" (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-8 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (Context-Core-addTransform arg-10 arg-4 (vector 0 e-6 arg-11 e-14 e-22 e-8) eta-0)))))))))))))))))))))))))))))))))))))) -(define ProcessTransform-TTImp-processTransform (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolveName arg-1 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 0 e-6 arg-4 arg-5 arg-6 arg-7 arg-9 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (let ((e-18 (vector-ref sc7 1))) (let ((e-19 (vector-ref sc7 2))) (let ((sc8 e-19)) (let ((e-22 (vector-ref sc8 1))) (let ((e-23 (vector-ref sc8 2))) (let ((act-27 (Context-Core-logTerm e-9 arg-1 "" (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 ext-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-28 (Core-Core-wrapError 'erased (lambda (eta-0) (vector 59 arg-7 arg-8 eta-0)) (lambda (eta-0) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 e-6 (vector 2 ) (vector 1 (vector 3 ) arg-4) e-18 e-14 arg-6 e-10 arg-10 (Normalise-Core-gnf e-9 e-14 e-23) eta-0)) ext-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-29 (Metadata-Core-clearHoleLHS arg-2 ext-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-30 (Context-Core-logTerm e-9 arg-1 "" (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-13 ext-0))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Context-Core-addTransform arg-1 arg-7 (vector 0 e-9 e-5 e-14 e-22 e-13) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-with--withC-32blockC-32inC-32nameListEq-17156 (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--nameListEq-17149 (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--withC-32blockC-32inC-32nameListEq-17156 arg-4 arg-3 (ProcessDef-TTImp-nameListEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) -(define ProcessDef-TTImp-with--extendEnv-12056 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (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-14 arg-13 arg-11 arg-12) arg-19) (vector 1 arg-18) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-17) arg-15 arg-16)))))))) -(define ProcessDef-TTImp-with--extendEnv-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 arg-18) (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-13 arg-12 arg-11 arg-10) arg-18) (vector 1 arg-17) (TTImp-TTImp-weaken_Weaken__NestedNames arg-0 arg-4 arg-16) arg-14 arg-15)))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDef-20327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDef-20247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-12)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) arg-20 arg-21 arg-21 arg-19) e-18 e-19 e-20)))))))))))))))))))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDef-19951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-logC arg-9 "declare.def" (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Case tree for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Types-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-8))))))))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-addDef arg-9 (vector 8 arg-17) (let ((sc4 arg-12)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-26 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-24 (vector-ref sc4 6))) (let ((e-23 (vector-ref sc4 7))) (let ((e-22 (vector-ref sc4 8))) (let ((e-21 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-0 e-1 e-26 e-25 e-4 e-24 e-23 e-22 e-21 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-6 e-6 arg-19) e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (let ((sc5 (TT-Core-C-61C-61_Eq__Visibility (let ((sc6 arg-12)) (let ((e-21 (vector-ref sc6 10))) e-21)) (vector 2 )))) (cond ((equal? sc5 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-6))) (lambda () (lambda (eta-1) (let ((act-27 ((Context-Core-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas))))))) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((sc6 (Basics-Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc7 arg-12)) (let ((e-22 (vector-ref sc7 10))) e-22)) (vector 0 )))))) (cond ((equal? sc6 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc7 arg-12)) (let ((e-28 (vector-ref sc7 3))) e-28))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-addToSave arg-9 arg-10 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-9))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 (set-box! arg-9 (let ((sc9 e-13)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-36 (vector-ref sc9 3))) (let ((e-35 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-34 (vector-ref sc9 6))) (let ((e-33 (vector-ref sc9 7))) (let ((e-32 (vector-ref sc9 8))) (let ((e-31 (vector-ref sc9 9))) (let ((e-30 (vector-ref sc9 10))) (let ((e-29 (vector-ref sc9 11))) (let ((e-28 (vector-ref sc9 12))) (let ((e-27 (vector-ref sc9 13))) (let ((e-26 (vector-ref sc9 14))) (let ((e-14 (vector-ref sc9 15))) (let ((e-15 (vector-ref sc9 16))) (let ((e-16 (vector-ref sc9 17))) (let ((e-17 (vector-ref sc9 18))) (let ((e-18 (vector-ref sc9 19))) (let ((e-19 (vector-ref sc9 20))) (let ((e-20 (vector-ref sc9 21))) (let ((e-21 (vector-ref sc9 22))) (let ((e-22 (vector-ref sc9 23))) (let ((e-23 (vector-ref sc9 24))) (let ((e-24 (vector-ref sc9 25))) (let ((e-25 (vector-ref sc9 26))) (vector 0 e-0 e-1 e-36 e-35 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (let ((sc11 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-21) (lambda (arg-22) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-21 arg-22)))) (vector 1 ) arg-6)))) (cond ((equal? sc11 0) (let ((act-33 (ProcessDef-TTImp-calcRefs arg-9 1 e-15 (vector 8 arg-17) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-34 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-35 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-17 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (let ((act-34 (unbox arg-8))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-35 (ProcessDef-TTImp-n--21894-18561-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-17 arg-14 arg-16 arg-18 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-36 (Context-Core-setCovering arg-9 arg-3 arg-10 e-18 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (set-box! arg-8 e-17))) (vector 1 act-37)))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((sc16 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-21) (lambda (arg-22) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-21 arg-22)))) (vector 1 ) arg-6)))) (cond ((equal? sc16 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-15 eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDef-19842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDef-19796 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDef-19842 arg-0 arg-1 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) (let ((sc1 arg-12)) (let ((e-7 (vector-ref sc1 8))) e-7)))))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-9 arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-checkClause arg-0 arg-9 arg-8 arg-7 mult (let ((sc2 arg-12)) (let ((e-9 (vector-ref sc2 10))) e-9)) hashit e-5 arg-6 arg-5 arg-4 eta-1)) arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((pats (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-toPats eta-1)) (Either-Data-rights 'erased 'erased e-6)))) (let ((act-26 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 mult) arg-10 ty (Either-Data-rights 'erased 'erased e-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) e-8) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-logC arg-9 "declare.def" (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-28 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-9 eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Case tree for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Types-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-11))))))))))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-addDef arg-9 (vector 8 e-5) (let ((sc8 arg-12)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-29 (vector-ref sc8 3))) (let ((e-28 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-27 (vector-ref sc8 6))) (let ((e-26 (vector-ref sc8 7))) (let ((e-25 (vector-ref sc8 8))) (let ((e-24 (vector-ref sc8 9))) (let ((e-23 (vector-ref sc8 10))) (let ((e-22 (vector-ref sc8 11))) (let ((e-21 (vector-ref sc8 12))) (let ((e-12 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-1 e-29 e-28 e-4 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-9 e-9 pats) e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-30 (let ((sc9 (TT-Core-C-61C-61_Eq__Visibility (let ((sc10 arg-12)) (let ((e-24 (vector-ref sc10 10))) e-24)) (vector 2 )))) (cond ((equal? sc9 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-9))) (lambda () (lambda (eta-1) (let ((act-30 ((Context-Core-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas))))))) eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-31 (let ((sc10 (Basics-Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc11 arg-12)) (let ((e-25 (vector-ref sc11 10))) e-25)) (vector 0 )))))) (cond ((equal? sc10 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc11 arg-12)) (let ((e-31 (vector-ref sc11 3))) e-31))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-addToSave arg-9 arg-10 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-9))) (vector 1 act-33)))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-34 (let ((act-34 (set-box! arg-9 (let ((sc13 e-16)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-39 (vector-ref sc13 3))) (let ((e-38 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-37 (vector-ref sc13 6))) (let ((e-36 (vector-ref sc13 7))) (let ((e-35 (vector-ref sc13 8))) (let ((e-34 (vector-ref sc13 9))) (let ((e-33 (vector-ref sc13 10))) (let ((e-32 (vector-ref sc13 11))) (let ((e-31 (vector-ref sc13 12))) (let ((e-30 (vector-ref sc13 13))) (let ((e-29 (vector-ref sc13 14))) (let ((e-28 (vector-ref sc13 15))) (let ((e-27 (vector-ref sc13 16))) (let ((e-26 (vector-ref sc13 17))) (let ((e-17 (vector-ref sc13 18))) (let ((e-18 (vector-ref sc13 19))) (let ((e-19 (vector-ref sc13 20))) (let ((e-20 (vector-ref sc13 21))) (let ((e-21 (vector-ref sc13 22))) (let ((e-22 (vector-ref sc13 23))) (let ((e-23 (vector-ref sc13 24))) (let ((e-24 (vector-ref sc13 25))) (let ((e-25 (vector-ref sc13 26))) (vector 0 e-0 e-1 e-39 e-38 e-4 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-34)))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-35 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-36 (let ((sc15 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-15) (lambda (arg-16) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-15 arg-16)))) (vector 1 ) arg-6)))) (cond ((equal? sc15 0) (let ((act-36 (ProcessDef-TTImp-calcRefs arg-9 1 e-18 (vector 8 e-5) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-37 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc17 1))) (let ((act-38 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-20 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (unbox arg-8))) (vector 1 act-37)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-38 (ProcessDef-TTImp-n--21894-18561-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 ty mult e-6 eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-39 (Context-Core-setCovering arg-9 arg-3 arg-10 e-21 eta-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((act-40 (let ((act-40 (set-box! arg-8 e-20))) (vector 1 act-40)))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((sc20 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-15) (lambda (arg-16) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-15 arg-16)))) (vector 1 ) arg-6)))) (cond ((equal? sc20 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-18 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-10) eta-0))))))) -(define ProcessDef-TTImp-case--processDef-19766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--caseC-32blockC-32inC-32processDef-19796 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDefC-44checkCoverage-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) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Covering arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Covering arg-5319 arg-5320)))) (vector 2 arg-26) eta-0))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-19514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Coverage-Core-getNonCoveringRefs arg-9 arg-3 (vector 8 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Covering arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Covering arg-5319 arg-5320)))) (vector 2 e-5) eta-0))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-25)))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-19399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Catch all case in " (Show-Prelude-show_Show__Int arg-13)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (Coverage-Core-getMissing arg-17 arg-9 arg-3 (vector 8 arg-13) arg-18 eta-0))))))) -(define ProcessDef-TTImp-case--processDefC-44checkCoverage-19230 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Context-Core-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-5)))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-19399 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-2 e-6 _-0 e-5 ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-1) (ProcessDef-TTImp-n--21894-18558-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1))) arg-15)) eta-0)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-logC arg-9 "declare.def" (+ 1 (+ 1 (+ 1 0))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) eta-2 eta-3))) e-8) eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Context-Core-getFullName arg-9 (vector 8 arg-13)) eta-1))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Initially missing in " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-17) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-17)) e-9))))))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-n--21894-18559-checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-11 eta-1 eta-2))) e-8) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-checkMatched arg-9 arg-15 eta-1 eta-2))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-10)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-11))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-19514 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-2 e-6 _-0 e-5 e-8 e-9 e-10 e-11 miss (List-Data-isNil 'erased miss)) eta-0))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--processDefC-44checkImpossible-19044 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10)))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDefC-44checkImpossible-18884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-9 arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-n--21913-18617-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-9 arg-14))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 1 e-6)))))))))))))))))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkImpossible-18806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-5 (vector 0 ) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (let ((act-27 (set-box! arg-9 arg-14))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))) (else (let ((act-27 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-6) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) ((ProcessDef-TTImp-n--21913-18617-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-8 e-9) eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (set-box! arg-9 arg-14))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 1 e-9))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--processDefC-44checkImpossible-18735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-9 arg-16 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-12 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-28 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-8 (vector 0 ) e-9) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (cond ((equal? sc7 0) (let ((act-29 (let ((act-29 (set-box! arg-9 arg-14))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (vector 1 (vector 0 ))))))) (else (let ((act-29 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-9) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) ((ProcessDef-TTImp-n--21913-18617-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-11 e-12) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-31 (let ((act-31 (set-box! arg-9 arg-14))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (vector 1 (vector 1 e-12)))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--compileRunTime-18498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 0 ) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-18270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-14 arg-10 arg-13 arg-20 arg-12) e-18 e-19 e-20)))))))))))))))))))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-18184 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-4 arg-0 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-5 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-14 arg-10 arg-13 arg-21 arg-12) e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "WAT") eta-0))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-18102 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-4 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Types-Prelude-C-43C-43 ":\u000aRuntime tree for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc2 arg-7)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Types-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-6))))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-18184 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-7 e-2 e-6 _-0 e-5 (ProcessDef-TTImp-nameListEq arg-10 e-2)) eta-0)))))))))))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-18015 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (ProcessDef-TTImp-n--20936-17714-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-17))(else arg-17))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32mkRunTime-17980 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((ty (let ((sc1 arg-7)) (let ((e-23 (vector-ref sc1 3))) e-23)))) (lambda () (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--20936-17716-toErased arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (let ((e-25 (vector-ref sc1 1))) e-25)) (ProcessDef-TTImp-n--20936-17715-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (let ((e-11 (vector-ref sc1 12))) e-11))) eta-1)) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((clauses_init (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--20936-17717-toClause arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) eta-1)) e-5))) (let ((clauses (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (ProcessDef-TTImp-n--20936-17714-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 clauses_init))(else clauses_init))))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) (vector 1 ) arg-0 ty clauses) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-26 ((Context-Core-log arg-4 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Types-Prelude-C-43C-43 ":\u000aRuntime tree for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc5 arg-7)) (let ((e-30 (vector-ref sc5 2))) e-30))) (Strings-Types-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-8 e-10))))))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-8 (vector 0 e-10 e-9)))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-18184 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-3 e-4 e-2 e-0 ty e-5 clauses_init clauses e-9 e-8 e-10 _-0 e-11 (ProcessDef-TTImp-nameListEq e-1 e-8)) eta-0))))))))))))))))))))))))))))))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))))))) -(define ProcessDef-TTImp-case--mkRunTime-17952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((cov (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2)))) (let ((sc1 (Basics-Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-8 arg-9))))) (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--caseC-32blockC-32inC-32mkRunTime-17980 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 cov (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32calcRefs-17607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32calcRefs-17569 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32calcRefs-17433 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32calcRefs-17405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((tree (let ((sc1 arg-2)) (cond ((equal? sc1 0) arg-9) (else arg-10))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased metas)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--20321-17192-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 refs_all)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 e-6) e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1))) (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 (vector 1 e-6) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32calcRefs-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) (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--caseC-32blockC-32inC-32calcRefs-17339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((refs (let ((sc1 arg-2)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (let ((e-13 (vector-ref sc2 14))) e-13))) (else (let ((sc2 arg-5)) (let ((e-12 (vector-ref sc2 13))) e-12))))))) (let ((sc1 refs)) (case (vector-ref sc1 0) ((0) (let ((tree (let ((sc2 arg-2)) (cond ((equal? sc2 0) e-3) (else e-2))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased metas)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--20321-17192-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 refs_all)))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc4 arg-5)) (let ((e-27 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((e-23 (vector-ref sc4 5))) (let ((e-22 (vector-ref sc4 6))) (let ((e-21 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 e-6) e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1))) (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc4 arg-5)) (let ((e-27 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((e-23 (vector-ref sc4 5))) (let ((e-22 (vector-ref sc4 6))) (let ((e-21 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-7 e-8 e-9 e-10 e-11 (vector 1 e-6) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1)))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--calcRefs-17324 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32calcRefs-17339 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32calcRefsC-44dropErased-17246 (lambda (arg-0 arg-1 arg-2 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--20321-17192-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)) (else (ProcessDef-TTImp-n--20321-17192-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 (NameMap-Data-delete 'erased arg-4 arg-6))))))) -(define ProcessDef-TTImp-case--calcRefsC-44dropErased-17219 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32calcRefsC-44dropErased-17246 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (ProcessDef-TTImp-n--20321-17192-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-17035 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 2 )))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-16517 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50 arg-51 arg-52 arg-53 arg-54 arg-55 arg-56 arg-57 arg-58 arg-59 arg-60 arg-61 arg-62 arg-63) (vector 1 arg-63 arg-7))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-16276 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50 arg-51 arg-52 arg-53 arg-54 arg-55 arg-56 arg-57) (let ((sc0 arg-57)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15934 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (let ((sc0 arg-50)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((wargNames (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) e-5) (vector 1 (vector 0 ) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) arg-45))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-15 "declare.def.clause" (+ 1 (+ 1 (+ 1 0))) (lambda () "With function type") e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-log arg-15 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Argument names " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) wargNames)))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (let ((act-26 (Context-Core-toFullNames 'erased arg-15 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (vector 8 arg-9) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((Context-Core-prettyName arg-15 e-11) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (UnifyState-Core-genWithName arg-15 arg-13 e-12 eta-0))))))))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-addDef arg-15 e-11 (Context-Core-newDef arg-4 e-11 (ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-16276 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 e-5 e-9 e-10 wargNames e-7 e-8 e-11 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-51) (lambda (arg-52) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-51 arg-52))) (lambda (arg-51) (lambda (arg-52) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-51 arg-52))))) arg-12)) arg-5 e-10 arg-11 (vector 0 )) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((rhs_in (TTImp-TTImp-apply (vector 0 arg-4 e-11) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 arg-4 eta-1)) e-9) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Types-Prelude-maybe 'erased 'erased (lambda () arg-2) (lambda () (lambda (pn) (vector 0 arg-4 (Builtin-snd 'erased 'erased pn)))) eta-1)) wargNames))))) (let ((act-28 ((Context-Core-log arg-15 "declare.def.clause" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Applying to with argument " (TTImp-TTImp-show_Show__RawImp rhs_in)))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 ((Context-Core-getFullName arg-15 (vector 8 arg-9)) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-5 arg-17 arg-15 arg-14 arg-13 arg-9 arg-24 arg-8 arg-20 arg-19 arg-6 arg-18 rhs_in (Normalise-Core-gnf arg-17 arg-19 arg-22) eta-1))) eta-0)))))))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--16196-14653-mkClauseWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (+ 1 0) e-11 wargNames arg-16 eta-1)) arg-0) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-31 ((Context-Core-log arg-15 "declare.def.clause" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "With clauses: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-15)))) eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-32 (ProcessDef-TTImp-applyEnv arg-5 arg-15 arg-6 e-11 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc11 1))) (let ((nestC-39C-39 (vector 1 e-17 arg-7))) (let ((wdef (vector 2 arg-4 e-11 e-15))) (let ((act-33 ((Check-Elab-TTImp-processDecl arg-5 arg-15 arg-14 arg-13 (vector 0 ) nestC-39C-39 arg-6 wdef) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-17 arg-19 arg-21 e-14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #4") eta-0))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-clearDefs arg-32 eta-0))) (else (lambda (eta-0) (vector 1 arg-32))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41) (let ((sc0 arg-41)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((wargn (vector 2 "warg" 0))) (let ((scenv (vector 1 (vector 2 arg-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-1))) (let ((bnr (Utils-Elab-TTImp-bindNotReq 'erased arg-17 arg-4 0 arg-19 arg-36 (vector 0 ) arg-22))) (let ((notreqns (Builtin-fst 'erased 'erased bnr))) (let ((notreqty (Builtin-snd 'erased 'erased bnr))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15735 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 e-1 wargn scenv bnr notreqns notreqty (Types-Prelude-elem 'erased (vector 0 (lambda (arg-42) (lambda (arg-43) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-42 arg-43))) (lambda (arg-42) (lambda (arg-43) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-42 arg-43)))) (vector 0 ) arg-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 arg-39)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 notreqty)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Normalise-Core-replace (vector 1 wargn arg-35) e-5 scenv e-6 (vector 0 arg-4 (vector 1 1) 0) e-7 eta-0))))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((bNotReq (vector 3 arg-4 wargn (vector 2 arg-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-6))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15934 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 e-1 wargn scenv bnr notreqns notreqty e-5 e-6 bNotReq (Utils-Elab-TTImp-bindReq 'erased arg-17 arg-4 arg-19 arg-36 (vector 0 ) bNotReq)) eta-0)))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #3") eta-0))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15475 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40) (let ((sc0 arg-40)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15564 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 e-1 (Env-Core-shrinkEnv 'erased 'erased arg-19 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #2") eta-0))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39) (let ((sc0 arg-39)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15475 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 e-1 (TT-Core-shrinkTerm 'erased 'erased arg-34 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #1") eta-0))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15274 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35) (let ((sc0 arg-35)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-17 arg-15 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value type") arg-34 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-log arg-15 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Using vars " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-2)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15388 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 e-2 e-3 e-5 e-6 (TT-Core-shrinkTerm 'erased 'erased arg-33 e-3)) eta-0))))))))))))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-15147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-clearHoleLHS arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-17 arg-15 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTerm arg-17 arg-15 "declare.def.clause" (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") arg-22 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-15))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 e-2 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 e-8 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15274 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (ProcessDef-TTImp-n--16196-14652-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased arg-17 arg-18 (let ((sc8 (Env-Core-findSubEnv arg-17 arg-19 e-10))) (let ((e-4 (vector-ref sc8 2))) e-4)))) eta-0))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--checkClause-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) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-17035 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-6 e-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-17) (lambda (arg-18) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-17 arg-18))))) arg-12))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-15 (vector 8 arg-9)) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-5 eta-1))) (Elab-TTImp-elabTermSub arg-5 e-6 arg-15 arg-14 arg-13 arg-9 wmode arg-8 e-18 e-14 arg-6 e-10 arg-2 (vector 0 ))) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc7 e-5)) (let ((e-8 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-25 (Metadata-Core-clearHoleLHS arg-14 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (Context-Core-logTerm e-6 arg-15 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-8 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-27 (Context-Core-logTerm e-6 arg-15 "declare.def.clause" (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-29 (let ((act-29 (unbox arg-15))) (vector 1 act-29)))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-8 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) (let ((act-31 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-16 eta-0))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc14 1))) (let ((_-1 (vector 0 e-8 e-4))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15274 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-6 e-10 e-14 e-18 e-22 e-23 _-0 wmode e-8 e-4 _-1 e-9 e-12 e-13 e-16 e-17 e-20 e-21 (ProcessDef-TTImp-n--16196-14652-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-6 e-10 (let ((sc15 (Env-Core-findSubEnv e-6 e-14 e-20))) (let ((e-24 (vector-ref sc15 2))) e-24)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-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 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-16 e-2) (vector 2 e-3))))))) -(define ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3))))))) -(define ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14780 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3))))))) -(define ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14698 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 1 e-3))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-14560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--caseC-32blockC-32inC-32checkClause-14420 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (Metadata-Core-addLHS arg-15 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) arg-17 arg-19 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--checkClause-14242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((rhsMode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-14560 arg-0 arg-1 arg-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) arg-10))))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-13 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp arg-0)))) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logEnv e-6 arg-13 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-13 (vector 8 arg-7)) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-6 (lambda (eta-1) (vector 59 arg-2 e-9 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-3 e-6 arg-13 arg-12 arg-11 arg-7 rhsMode arg-6 e-18 e-14 arg-4 e-10 arg-0 (Normalise-Core-gnf e-6 e-14 e-23) eta-1))) eta-0)))))))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 (Metadata-Core-clearHoleLHS arg-12 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-logTerm e-6 arg-13 "declare.def.clause" (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-9 eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-29 (let ((sc11 arg-8)) (cond ((equal? sc11 0) (let ((act-29 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-22 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-9 eta-0)))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-30 (let ((sc12 e-9)) (case (vector-ref sc12 0) ((2) (Metadata-Core-addLHS e-6 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) e-14 e-22 eta-0))(else (vector 1 (vector 0 ))))))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (vector 0 e-6 e-14 e-22 e-9)))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-14151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0))))))) -(define ProcessDef-TTImp-case--checkClause-14064 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((6) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessDef-TTImp-impossibleErrOK arg-12 e-5 arg-14) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0)))))))))))))))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-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 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 arg-26)) eta-0))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-13869 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-3 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-5 arg-3 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-6)) eta-0)))))))))))))))))))))))) -(define ProcessDef-TTImp-case--checkClause-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 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Context-Core-log arg-12 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-3)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-logEnv arg-0 arg-12 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 ((Elab-TTImp-elabTerm arg-0 arg-12 arg-11 arg-10 arg-6 (vector 1 arg-9) arg-5 arg-4 arg-3 (vector 15 arg-2 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (unbox arg-12))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-0 e-10 arg-3 e-9 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-10 arg-3 e-11) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (cond ((equal? sc9 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-11)) eta-0))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkLHS-13420 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-2 arg-12 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-12))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-27 (Normalise-Core-normaliseHoles arg-2 e-7 lhsenv e-2 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-normaliseHoles arg-2 e-7 arg-3 e-6 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-8) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-logTerm arg-2 arg-12 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-8 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Context-Core-log arg-12 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Linearity of names in " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-6) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-10)))))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 ((ProcessDef-TTImp-combineLinear arg-1 e-10) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-8))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-9))) (let ((act-33 (Context-Core-logTerm arg-2 arg-12 "declare.def.lhs" (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-logTerm arg-2 arg-12 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-36 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (vector 1 (vector 0 arg-21 e-17)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkLHS-13335 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-18))) (else (TTImp-TTImp-implicitsAs arg-13 arg-2 arg-18)))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkLHS-13187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--checkLHS-13113 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((sc2 arg-9)) (cond ((equal? sc2 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs arg-13 arg-2 e-3) eta-0)))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-12 (vector 8 arg-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((Context-Core-log arg-12 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking LHS of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp e-6)))))) eta-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (Normalise-Core-logEnv arg-2 arg-12 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((lhsMode (let ((sc5 arg-9)) (cond ((equal? sc5 0) (vector 3 )) (else (vector 1 arg-8)))))) (let ((act-28 (let ((act-28 ((Context-Core-getFullName arg-12 (vector 8 arg-6)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-5 (lambda (eta-1) (vector 58 arg-1 e-9 eta-1))) (Elab-TTImp-elabTerm arg-2 arg-12 arg-11 arg-10 arg-6 lhsMode arg-5 arg-4 arg-3 (vector 15 arg-1 (vector 1 ) e-6) (vector 0 ))) eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 (Context-Core-logTerm arg-2 arg-12 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-10 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-30 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 (unbox arg-12))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-32 (Normalise-Core-normaliseHoles arg-2 e-13 lhsenv e-10 eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-33 (Normalise-Core-normaliseHoles arg-2 e-13 arg-3 e-12 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-34 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-14) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-35 (Context-Core-logTerm arg-2 arg-12 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-14 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-17 (vector-ref sc13 1))) (vector 0 e-17))) (else (let ((act-36 ((Context-Core-log arg-12 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Linearity of names in " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-6) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-16)))))) eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (vector 0 e-18))) (else (let ((act-37 ((ProcessDef-TTImp-combineLinear arg-1 e-16) eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-19 (vector-ref sc15 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc15 1))) (let ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-14))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-15))) (let ((act-38 (Context-Core-logTerm arg-2 arg-12 "declare.def.lhs" (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((act-39 (Context-Core-logTerm arg-2 arg-12 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((act-40 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((act-41 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc19 1))) (vector 1 (vector 0 e-6 e-23))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-case--checkLHS-13054 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (TTImp-TTImp-lhsInCurrentNS 'erased arg-12 arg-4 arg-0)))))) -(define ProcessDef-TTImp-case--combineLinear-12948 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-combineLinear arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-0 arg-1) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--15156-12796-combineAll arg-0 arg-1 arg-2 arg-3 arg-1 arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessDef-TTImp-combineLinear arg-3 (List-Data-filter 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15156-12793-notN arg-0 arg-1 arg-2 arg-3 eta-1)) arg-2)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-0 e-5) e-6)))))))))))))))))) -(define ProcessDef-TTImp-case--combineLinearC-44combine-12893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) arg-5 arg-4)))))))) -(define ProcessDef-TTImp-case--combineLinearC-44lookupAll-12827 (lambda (arg-0 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--15156-12794-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))) (else (ProcessDef-TTImp-n--15156-12794-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6)))))) -(define ProcessDef-TTImp-case--setLinear-12730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 3 arg-7 arg-4 (TT-Core-setMultiplicity 'erased arg-6 e-1) (ProcessDef-TTImp-setLinear 'erased arg-8 arg-5))))(else (vector 3 arg-7 arg-4 arg-6 (ProcessDef-TTImp-setLinear 'erased arg-8 arg-5))))))) -(define ProcessDef-TTImp-case--setLinear-12660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 3 arg-8 arg-5 (TT-Core-setMultiplicity 'erased arg-7 e-1) (ProcessDef-TTImp-setLinear 'erased arg-9 arg-6))))(else (vector 3 arg-8 arg-5 arg-7 (ProcessDef-TTImp-setLinear 'erased arg-9 arg-6))))))) -(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32findLinear-12560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-10 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14448-12167-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-2) e-5 arg-9) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--findLinear-12496 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupTyExact e-7 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-1) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14448-12167-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-2) e-10 e-3) eta-0)))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessDef-TTImp-case--findLinearC-44findLinArg-12274 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (((arg-13 arg-21) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-18 (vector 0 ) arg-14))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-20 e-5 arg-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-22 (ZeroOneOmega-Algebra-rigMult arg-12 arg-20)) e-6)))))))))))))) (else (lambda (eta-0) (let ((act-24 (((arg-13 arg-21) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-18 (vector 0 ) arg-14))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-20 e-5 arg-19) eta-0)))))))))))) -(define ProcessDef-TTImp-case--findLinearC-44accessible-12174 (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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define ProcessDef-TTImp-case--recoverable-11686 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-7 arg-9)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Basics-Prelude-not e-5))))))))))))) -(define ProcessDef-TTImp-case--recoverable-11598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-3 arg-7)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Basics-Prelude-not e-5))))))))))))) -(define ProcessDef-TTImp-case--impossibleOK-11363 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) -(define ProcessDef-TTImp-case--impossibleOK-11281 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7))) (else (lambda (eta-0) (vector 1 1))))))) -(define ProcessDef-TTImp-case--mismatchNF-11111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) -(define ProcessDef-TTImp-case--mismatchNF-11029 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8))))))) -(define ProcessDef-TTImp-n--20936-17716-toErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Transform-Core-applyTransforms 'erased arg-4 e-6 e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((PartialEval-TTImp-applySpecialise e-2 arg-4 arg-3 arg-2 e-6 arg-6 e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-5 e-12)))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-n--20936-17717-toClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 e-6 e-10 e-11)))))))))))) -(define ProcessDef-TTImp-n--21894-18557-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--21894-18557-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--15156-12793-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--20936-17711-mkCrash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TT-Core-apply 'erased arg-1 (vector 1 arg-1 (vector 1 ) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "idris_crash"))) (vector 1 (vector 10 arg-1 1) (vector 1 (vector 9 arg-1 (vector 6 arg-6)) (vector 0 )))))) -(define ProcessDef-TTImp-n--16196-14653-mkClauseWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-0 arg-16 arg-7 arg-17 arg-18 arg-19 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-0 arg-16 arg-17 arg-18 e-2 arg-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-5 e-6))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-3 arg-16 arg-7 arg-17 arg-18 arg-19 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-3 arg-16 arg-17 arg-18 e-5 arg-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--16196-14653-mkClauseWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (+ 1 arg-16) arg-17 arg-18 arg-19 eta-1)) e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-8 arg-16 arg-7 arg-17 arg-18 arg-19 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-8 e-5))))))))))))))) -(define ProcessDef-TTImp-n--20936-17712-matchAny (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 4 e-1 (ProcessDef-TTImp-n--20936-17712-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2) (vector 10 e-1 1)))))(else arg-6))))) -(define ProcessDef-TTImp-n--20936-17713-makeErrorClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-5 arg-6 (ProcessDef-TTImp-n--20936-17712-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7) (ProcessDef-TTImp-n--20936-17711-mkCrash arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Strings-Types-Prelude-C-43C-43 "Unhandled input for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Types-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-1)))))))) -(define ProcessDef-TTImp-n--15156-12794-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--combineLinearC-44lookupAll-12827 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--16196-14652-keepOldEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-18)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14698 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-1 e-2 e-6 e-14 (ProcessDef-TTImp-n--16196-14652-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-6 e-14)))) (else (let ((e-18 (vector-ref sc2 1))) (ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14780 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-6 e-18 (ProcessDef-TTImp-n--16196-14652-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-6 e-18)))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14862 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-10 e-22 (ProcessDef-TTImp-n--16196-14652-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-10 e-22)))) (else (let ((e-26 (vector-ref sc2 1))) (ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14944 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1 e-2 'erased 'erased e-10 e-26 (ProcessDef-TTImp-n--16196-14652-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-10 e-26))))))))))))))))))))) -(define ProcessDef-TTImp-n--20936-17715-getSpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDef-TTImp-n--20936-17715-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) -(define ProcessDef-TTImp-n--21894-18560-getClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Impossible-TTImp-getImpossibleTerm arg-0 arg-9 arg-4 arg-5 e-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Generated impossible LHS: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5)))) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (vector 1 (vector 0 (vector 0 ) (vector 0 ) e-5 (vector 10 (TTImp-TTImp-getFC e-2) 0)))))))))))))) (lambda (e) (lambda (eta-1) (let ((act-24 ((Context-Core-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Error in getClause " (Core-Core-show_Show__Error e)))) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-5))))))))) -(define ProcessDef-TTImp-n--14448-12168-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-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((5) (let ((e-28 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 3))) (let ((e-30 (vector-ref sc1 4))) (let ((sc2 e-28)) (case (vector-ref sc2 0) ((0) (ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-30 e-25))) ((1) (ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-29 e-25)))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((e-7 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((2) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-15 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-15)) (case (vector-ref sc5 0) ((0) (let ((e-19 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-21 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-21 'erased))) ((ProcessDef-TTImp-case--findLinearC-44findLinArg-12274 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20 e-5 e-10 e-12 e-13 e-11 e-8 e-6 e-21 'erased 'erased e-19 e-16 arg-7 e-9 a (Types-Prelude-C-60_Ord__Nat e-21 arg-3)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-11 arg-7) e-15) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc7 1))) (let ((act-27 ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 e-16) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc8 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-14 e-18)))))))))))))))))))))))))))))(else (let ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc6 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-14)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-13 (vector-ref sc2 4))) (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((0) (let ((e-19 (vector-ref sc4 1))) (let ((e-20 (vector-ref sc4 2))) (let ((e-21 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-21 'erased))) ((ProcessDef-TTImp-case--findLinearC-44findLinArg-12274 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20 e-5 e-10 e-12 e-13 e-11 e-8 e-6 e-21 'erased 'erased e-19 e-16 arg-7 e-9 a (Types-Prelude-C-60_Ord__Nat e-21 arg-3)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-11 arg-7) e-15) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc5 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc6 1))) (let ((act-27 ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 e-16) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc7 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-14 e-18)))))))))))))))))))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc5 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-14)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-13 (vector-ref sc1 4))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((sc3 e-15)) (case (vector-ref sc3 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-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-21 'erased))) ((ProcessDef-TTImp-case--findLinearC-44findLinArg-12274 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20 e-5 e-10 e-12 e-13 e-11 e-8 e-6 e-21 'erased 'erased e-19 e-16 arg-7 e-9 a (Types-Prelude-C-60_Ord__Nat e-21 arg-3)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-11 arg-7) e-15) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc4 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc5 1))) (let ((act-27 ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 e-16) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc6 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-14 e-18)))))))))))))))))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-14 (vector-ref sc4 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-14)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessDef-TTImp-n--14448-12168-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))) -(define ProcessDef-TTImp-n--20321-17192-dropErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32calcRefsC-44dropErased-17246 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))) (else ((ProcessDef-TTImp-n--20321-17192-dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5) eta-0)))))))))))))))))))))) -(define ProcessDef-TTImp-n--15156-12796-combineAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--15156-12795-combine arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--15156-12796-combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3) eta-0)))))))))))))) -(define ProcessDef-TTImp-n--15156-12795-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessDef-TTImp-case--combineLinearC-44combine-12893 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (Basics-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 () (Basics-Prelude-C-38C-38 (Basics-Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-6) (lambda (arg-7) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-6 arg-7))))) (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) arg-4 arg-5))) (lambda () (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))) -(define ProcessDef-TTImp-n--21913-18617-closeEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (let ((act-24 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-3 (vector 0 ) e-2))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessDef-TTImp-n--21913-18617-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5) eta-0))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0)))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0))))))) -(define ProcessDef-TTImp-n--21894-18559-checkImpossible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (Unelab-TTImp-unelabNoPatvars (vector 0 ) arg-9 (vector 0 ) arg-12 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (UnifyState-Core-handleUnify 'erased arg-9 arg-7 (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-log arg-9 "declare.def.impossible" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking for impossibility: " (TTImp-TTImp-show_Show__RawImp e-5)))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-isUnboundImplicits arg-9 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-setUnboundImplicits arg-9 0 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (BindImplicits-TTImp-bindNames arg-9 1 e-5 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (let ((e-3 (vector-ref sc6 2))) (let ((act-30 (Context-Core-setUnboundImplicits arg-9 e-8 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-10 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (let ((e-13 (vector-ref sc9 1))) (let ((act-32 (let ((act-32 (unbox arg-9))) (vector 1 act-32)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-33 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) e-13 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-34 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-14 (vector 0 ) e-15) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc12 1))) (let ((sc13 e-16)) (cond ((equal? sc13 0) (let ((act-35 (let ((act-35 (set-box! arg-9 e-6))) (vector 1 act-35)))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (vector 1 (vector 0 ))))))) (else (let ((act-35 (Context-Core-clearDefs e-6 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc14 1))) (let ((act-36 (let ((act-36 ((Normalise-Core-nf (vector 0 ) e-17 (vector 0 ) e-15) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc15 1))) ((ProcessDef-TTImp-n--21913-18617-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-11 arg-10 e-17 e-18) eta-0)))))))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc15 1))) (let ((act-37 (let ((act-37 (set-box! arg-9 e-6))) (vector 1 act-37)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (vector 1 (vector 1 e-18))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessDef-TTImp-recoverableErr arg-9 e-6 err) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessDef-TTImp-case--processDefC-44checkImpossible-19044 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-11 arg-10 e-5 err e-6 e-7 (Basics-Prelude-not e-7)) eta-0))))))))))))) ext-0)))))))) -(define ProcessDef-TTImp-n--21894-18561-checkCoverage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDef-TTImp-n--21894-18560-getClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) arg-13) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((covcs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 arg-12) (vector 8 arg-10) arg-11 covcs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-26 (let ((act-26 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-8 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) ((Context-Core-log arg-9 "declare.def" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-9)))) ext-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-19399 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-12 arg-11 arg-10 e-5 covcs e-7 e-2 e-8 _-0 e-9 ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--21894-18558-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0))) covcs)) ext-0)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (Context-Core-logC arg-9 "declare.def" (+ 1 (+ 1 (+ 1 0))) (lambda (eta-0) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) eta-1 eta-2))) e-10) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 ((Context-Core-getFullName arg-9 (vector 8 arg-10)) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Initially missing in " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-14)) e-11))))))))))))))))) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-n--21894-18559-checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 eta-0 eta-1))) e-10) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-checkMatched arg-9 covcs eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12)) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-13))) (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-19514 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-12 arg-11 arg-10 e-5 covcs e-7 e-2 e-8 _-0 e-9 e-10 e-11 e-12 e-13 miss (List-Data-isNil 'erased miss)) ext-0))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-n--21894-18558-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))) ((Interfaces-Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--21894-18557-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--20936-17714-addErrorCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-4 e-5 e-6 e-7) (vector 1 (ProcessDef-TTImp-n--20936-17713-makeErrorClause arg-0 arg-1 arg-2 arg-3 arg-4 e-4 e-5 e-6) (vector 0 ))))(else (vector 1 e-2 (ProcessDef-TTImp-n--20936-17714-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))(else (vector 1 e-2 (ProcessDef-TTImp-n--20936-17714-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))) -(define ProcessDef-TTImp-n--14448-12167-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))(else arg-7))))) +(define ProcessTransform-TTImp-case--processTransform-9482 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Core-Core-wrapError 'erased (lambda (eta-1) (vector 59 arg-4 arg-3 eta-1)) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-6 arg-10 arg-9 arg-8 arg-12 (vector 2 ) (vector 1 (vector 3 ) arg-7) e-18 e-14 arg-5 e-10 arg-1 (Normalise-Core-gnf e-6 e-14 e-23) eta-1)) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-9 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-27 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-8 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (Context-Core-addTransform arg-10 arg-4 (vector 0 e-6 arg-11 e-14 e-22 e-8) eta-0)))))))))))))))))))))))))))))))))))))) +(define ProcessTransform-TTImp-processTransform (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 ext-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolveName arg-1 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 0 e-6 arg-4 arg-5 arg-6 arg-7 arg-9 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-11)) (let ((e-14 (vector-ref sc6 1))) (let ((e-15 (vector-ref sc6 2))) (let ((sc7 e-15)) (let ((e-18 (vector-ref sc7 1))) (let ((e-19 (vector-ref sc7 2))) (let ((sc8 e-19)) (let ((e-22 (vector-ref sc8 1))) (let ((e-23 (vector-ref sc8 2))) (let ((act-27 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 ext-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-28 (Core-Core-wrapError 'erased (lambda (eta-0) (vector 59 arg-7 arg-8 eta-0)) (lambda (eta-0) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 e-6 (vector 2 ) (vector 1 (vector 3 ) arg-4) e-18 e-14 arg-6 e-10 arg-10 (Normalise-Core-gnf e-9 e-14 e-23) eta-0)) ext-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-29 (Metadata-Core-clearHoleLHS arg-2 ext-0))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-30 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-13 ext-0))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Context-Core-addTransform arg-1 arg-7 (vector 0 e-9 e-5 e-14 e-22 e-13) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-with--withC-32blockC-32inC-32nameListEq-17072 (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--nameListEq-17065 (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--withC-32blockC-32inC-32nameListEq-17072 arg-4 arg-3 (ProcessDef-TTImp-nameListEq arg-3 arg-4) arg-0)))) (else (vector 0 )))))) +(define ProcessDef-TTImp-with--extendEnv-12050 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--extendEnv-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) (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDef-20221 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDef-20141 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-12)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) arg-20 arg-21 arg-21 arg-19) e-18 e-19 e-20)))))))))))))))))))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDef-19849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Case tree for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Types-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-8))))))))))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (Context-Core-addDef arg-9 (vector 8 arg-17) (let ((sc4 arg-12)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-26 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-24 (vector-ref sc4 6))) (let ((e-23 (vector-ref sc4 7))) (let ((e-22 (vector-ref sc4 8))) (let ((e-21 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-0 e-1 e-26 e-25 e-4 e-24 e-23 e-22 e-21 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-6 e-6 arg-19) e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (let ((sc5 (TT-Core-C-61C-61_Eq__Visibility (let ((sc6 arg-12)) (let ((e-21 (vector-ref sc6 10))) e-21)) (vector 2 )))) (cond ((equal? sc5 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-6))) (lambda () (lambda (eta-1) (let ((act-27 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas)))))) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (let ((sc6 (Basics-Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc7 arg-12)) (let ((e-22 (vector-ref sc7 10))) e-22)) (vector 0 )))))) (cond ((equal? sc6 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc7 arg-12)) (let ((e-28 (vector-ref sc7 3))) e-28))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-addToSave arg-9 arg-10 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-9))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 (set-box! arg-9 (let ((sc9 e-13)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-36 (vector-ref sc9 3))) (let ((e-35 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-34 (vector-ref sc9 6))) (let ((e-33 (vector-ref sc9 7))) (let ((e-32 (vector-ref sc9 8))) (let ((e-31 (vector-ref sc9 9))) (let ((e-30 (vector-ref sc9 10))) (let ((e-29 (vector-ref sc9 11))) (let ((e-28 (vector-ref sc9 12))) (let ((e-27 (vector-ref sc9 13))) (let ((e-26 (vector-ref sc9 14))) (let ((e-14 (vector-ref sc9 15))) (let ((e-15 (vector-ref sc9 16))) (let ((e-16 (vector-ref sc9 17))) (let ((e-17 (vector-ref sc9 18))) (let ((e-18 (vector-ref sc9 19))) (let ((e-19 (vector-ref sc9 20))) (let ((e-20 (vector-ref sc9 21))) (let ((e-21 (vector-ref sc9 22))) (let ((e-22 (vector-ref sc9 23))) (let ((e-23 (vector-ref sc9 24))) (let ((e-24 (vector-ref sc9 25))) (let ((e-25 (vector-ref sc9 26))) (vector 0 e-0 e-1 e-36 e-35 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 (let ((sc11 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-21) (lambda (arg-22) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-21 arg-22)))) (vector 1 ) arg-6)))) (cond ((equal? sc11 0) (let ((act-33 (ProcessDef-TTImp-calcRefs arg-9 1 e-15 (vector 8 arg-17) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-34 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-35 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-17 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (let ((act-34 (unbox arg-8))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-35 (ProcessDef-TTImp-n--21605-18473-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-17 arg-14 arg-16 arg-18 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-36 (Context-Core-setCovering arg-9 arg-3 arg-10 e-18 eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (set-box! arg-8 e-17))) (vector 1 act-37)))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((sc16 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-21) (lambda (arg-22) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-21 arg-22))) (lambda (arg-21) (lambda (arg-22) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-21 arg-22)))) (vector 1 ) arg-6)))) (cond ((equal? sc16 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-15 eta-0)) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDef-19740 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDef-19694 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDef-19740 arg-0 arg-1 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) (let ((sc1 arg-12)) (let ((e-7 (vector-ref sc1 8))) e-7)))))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-9 arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-checkClause arg-0 arg-9 arg-8 arg-7 mult (let ((sc2 arg-12)) (let ((e-9 (vector-ref sc2 10))) e-9)) hashit e-5 arg-6 arg-5 arg-4 eta-1)) arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((pats (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-toPats eta-1)) (Either-Data-rights 'erased 'erased e-6)))) (let ((act-26 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 mult) arg-10 ty (Either-Data-rights 'erased 'erased e-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) e-8) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-28 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-9 eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Case tree for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Types-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-11))))))))))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-addDef arg-9 (vector 8 e-5) (let ((sc8 arg-12)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-29 (vector-ref sc8 3))) (let ((e-28 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-27 (vector-ref sc8 6))) (let ((e-26 (vector-ref sc8 7))) (let ((e-25 (vector-ref sc8 8))) (let ((e-24 (vector-ref sc8 9))) (let ((e-23 (vector-ref sc8 10))) (let ((e-22 (vector-ref sc8 11))) (let ((e-21 (vector-ref sc8 12))) (let ((e-12 (vector-ref sc8 13))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (vector 0 e-0 e-1 e-29 e-28 e-4 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-12 e-13 e-14 e-15 e-16 (vector 1 (Context-Core-defaultPI) e-2 e-9 e-9 pats) e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-30 (let ((sc9 (TT-Core-C-61C-61_Eq__Visibility (let ((sc10 arg-12)) (let ((e-24 (vector-ref sc10 10))) e-24)) (vector 2 )))) (cond ((equal? sc9 0) (((let ((rmetas (CaseTree-Core-getMetas 'erased e-9))) (lambda () (lambda (eta-1) (let ((act-30 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased rmetas)))))) eta-1))) (let ((sc10 act-30)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-addToSave arg-9 eta-2 eta-3))) (NameMap-Data-keys 'erased rmetas)) eta-1))))))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-31 (let ((sc10 (Basics-Prelude-C-38C-38 (Name-Core-isUserName arg-10) (lambda () (TT-Core-C-47C-61_Eq__Visibility (let ((sc11 arg-12)) (let ((e-25 (vector-ref sc11 10))) e-25)) (vector 0 )))))) (cond ((equal? sc10 0) (((let ((tymetas (TT-Core-getMetas 'erased (let ((sc11 arg-12)) (let ((e-31 (vector-ref sc11 3))) e-31))))) (lambda () (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-9 eta-1 eta-2))) (NameMap-Data-keys 'erased tymetas))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-addToSave arg-9 arg-10 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 (unbox arg-9))) (vector 1 act-33)))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-34 (let ((act-34 (set-box! arg-9 (let ((sc13 e-16)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-39 (vector-ref sc13 3))) (let ((e-38 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-37 (vector-ref sc13 6))) (let ((e-36 (vector-ref sc13 7))) (let ((e-35 (vector-ref sc13 8))) (let ((e-34 (vector-ref sc13 9))) (let ((e-33 (vector-ref sc13 10))) (let ((e-32 (vector-ref sc13 11))) (let ((e-31 (vector-ref sc13 12))) (let ((e-30 (vector-ref sc13 13))) (let ((e-29 (vector-ref sc13 14))) (let ((e-28 (vector-ref sc13 15))) (let ((e-27 (vector-ref sc13 16))) (let ((e-26 (vector-ref sc13 17))) (let ((e-17 (vector-ref sc13 18))) (let ((e-18 (vector-ref sc13 19))) (let ((e-19 (vector-ref sc13 20))) (let ((e-20 (vector-ref sc13 21))) (let ((e-21 (vector-ref sc13 22))) (let ((e-22 (vector-ref sc13 23))) (let ((e-23 (vector-ref sc13 24))) (let ((e-24 (vector-ref sc13 25))) (let ((e-25 (vector-ref sc13 26))) (vector 0 e-0 e-1 e-39 e-38 e-4 e-37 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-17 e-18 e-19 (vector 1 arg-10 e-20) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-34)))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-35 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-36 (let ((sc15 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-15) (lambda (arg-16) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-15 arg-16)))) (vector 1 ) arg-6)))) (cond ((equal? sc15 0) (let ((act-36 (ProcessDef-TTImp-calcRefs arg-9 1 e-18 (vector 8 e-5) eta-0))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((act-37 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (let ((sc17 act-37)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc17 1))) (let ((act-38 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-20 eta-0))) (let ((sc18 act-38)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))))))) (else (vector 1 (vector 0 ))))))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-37 (let ((act-37 (unbox arg-8))) (vector 1 act-37)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-38 (ProcessDef-TTImp-n--21605-18473-checkCoverage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 ty mult e-6 eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-39 (Context-Core-setCovering arg-9 arg-3 arg-10 e-21 eta-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((act-40 (let ((act-40 (set-box! arg-8 e-20))) (vector 1 act-40)))) (let ((sc19 act-40)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((sc20 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-15) (lambda (arg-16) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-15 arg-16)))) (vector 1 ) arg-6)))) (cond ((equal? sc20 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-18 eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-10) eta-0))))))) +(define ProcessDef-TTImp-case--processDef-19664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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--caseC-32blockC-32inC-32processDef-19694 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDefC-44checkCoverage-19476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Covering arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Covering arg-5319 arg-5320)))) (vector 2 arg-26) eta-0))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-19412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Coverage-Core-getNonCoveringRefs arg-9 arg-3 (vector 8 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Covering arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Covering arg-5319 arg-5320)))) (vector 2 e-5) eta-0))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-25)))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-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 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Catch all case in " (Show-Prelude-show_Show__Int arg-13))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (Coverage-Core-getMissing arg-17 arg-9 arg-3 (vector 8 arg-13) arg-18 eta-0))))))) +(define ProcessDef-TTImp-case--processDefC-44checkCoverage-19134 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-5))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-19299 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-2 e-6 _-0 e-5 ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-1) (ProcessDef-TTImp-n--21605-18470-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1))) arg-15)) eta-0)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) eta-2 eta-3))) e-8) eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Context-Core-getFullName arg-9 (vector 8 arg-13)) eta-1))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Initially missing in " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-10) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-17) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-17)) e-9))))))))))))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-n--21605-18471-checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-11 eta-1 eta-2))) e-8) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-checkMatched arg-9 arg-15 eta-1 eta-2))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-10)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-11))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-19412 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-7 e-2 e-6 _-0 e-5 e-8 e-9 e-10 e-11 miss (List-Data-isNil 'erased miss)) eta-0))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--processDefC-44checkImpossible-18952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 arg-10)))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processDefC-44checkImpossible-18792 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-9 arg-14))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-n--21624-18529-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (set-box! arg-9 arg-14))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 1 e-6)))))))))))))))))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkImpossible-18714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-5 (vector 0 ) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (let ((act-27 (set-box! arg-9 arg-14))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))) (else (let ((act-27 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-6) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) ((ProcessDef-TTImp-n--21624-18529-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-8 e-9) eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (set-box! arg-9 arg-14))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (vector 1 (vector 1 e-9))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--processDefC-44checkImpossible-18643 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-9 arg-16 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-12 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 (unbox arg-9))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-28 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-8 (vector 0 ) e-9) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (cond ((equal? sc7 0) (let ((act-29 (let ((act-29 (set-box! arg-9 arg-14))) (vector 1 act-29)))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (vector 1 (vector 0 ))))))) (else (let ((act-29 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-9) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) ((ProcessDef-TTImp-n--21624-18529-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-11 e-12) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-31 (let ((act-31 (set-box! arg-9 arg-14))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (vector 1 (vector 1 e-12)))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--compileRunTime-18410 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 0 ) e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-18182 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-14 arg-10 arg-13 arg-20 arg-12) e-18 e-19 e-20)))))))))))))))))))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-18096 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-4 arg-0 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-5 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 arg-14 arg-10 arg-13 arg-21 arg-12) e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "WAT") eta-0))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-18016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Types-Prelude-C-43C-43 ":\u000aRuntime tree for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc2 arg-7)) (let ((e-1 (vector-ref sc2 2))) e-1))) (Strings-Types-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-6)))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-18096 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 e-7 e-2 e-6 _-0 e-5 (ProcessDef-TTImp-nameListEq arg-10 e-2)) eta-0)))))))))))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-17929 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (ProcessDef-TTImp-n--20651-17630-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-17))(else arg-17))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32mkRunTime-17894 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((ty (let ((sc1 arg-7)) (let ((e-23 (vector-ref sc1 3))) e-23)))) (lambda () (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--20651-17632-toErased arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (let ((e-25 (vector-ref sc1 1))) e-25)) (ProcessDef-TTImp-n--20651-17631-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc1 arg-7)) (let ((e-11 (vector-ref sc1 12))) e-11))) eta-1)) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((clauses_init (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--20651-17633-toClause arg-0 arg-1 arg-2 arg-3 arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) eta-1)) e-5))) (let ((clauses (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (ProcessDef-TTImp-n--20651-17630-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 clauses_init))(else clauses_init))))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-4 (let ((sc2 arg-7)) (let ((e-26 (vector-ref sc2 1))) e-26)) (vector 1 ) arg-0 ty clauses) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-26 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__Covering arg-9) (Strings-Types-Prelude-C-43C-43 ":\u000aRuntime tree for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc5 arg-7)) (let ((e-30 (vector-ref sc5 2))) e-30))) (Strings-Types-Prelude-C-43C-43 ": " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-8 e-10)))))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-8 (vector 0 e-10 e-9)))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkRunTime-18096 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 e-3 e-4 e-2 e-0 ty e-5 clauses_init clauses e-9 e-8 e-10 _-0 e-11 (ProcessDef-TTImp-nameListEq e-1 e-8)) eta-0))))))))))))))))))))))))))))))))))(else (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))))))) +(define ProcessDef-TTImp-case--mkRunTime-17866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((cov (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2)))) (let ((sc1 (Basics-Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-8 arg-9))))) (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--caseC-32blockC-32inC-32mkRunTime-17894 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 cov (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32calcRefs-17523 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32calcRefs-17485 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32calcRefs-17349 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32calcRefs-17321 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((tree (let ((sc1 arg-2)) (cond ((equal? sc1 0) arg-9) (else arg-10))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased metas)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--20036-17108-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 refs_all)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 e-6) e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1))) (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc3 arg-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-22 e-21 e-7 e-8 e-9 e-10 e-11 (vector 1 e-6) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32calcRefs-17273 (lambda (arg-0 arg-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--caseC-32blockC-32inC-32calcRefs-17255 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((refs (let ((sc1 arg-2)) (cond ((equal? sc1 0) (let ((sc2 arg-5)) (let ((e-13 (vector-ref sc2 14))) e-13))) (else (let ((sc2 arg-5)) (let ((e-12 (vector-ref sc2 13))) e-12))))))) (let ((sc1 refs)) (case (vector-ref sc1 0) ((0) (let ((tree (let ((sc2 arg-2)) (cond ((equal? sc2 0) e-3) (else e-2))))) (let ((metas (CaseTree-Core-getMetas 'erased tree))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-3 eta-1 eta-2))) (NameMap-Data-keys 'erased metas)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-25 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--20036-17108-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (vector 1 refs_all)))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc4 arg-5)) (let ((e-27 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((e-23 (vector-ref sc4 5))) (let ((e-22 (vector-ref sc4 6))) (let ((e-21 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 e-6) e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1))) (lambda () (lambda (eta-1) (Context-Core-addDef arg-3 arg-0 (let ((sc4 arg-5)) (let ((e-27 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (let ((e-25 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((e-23 (vector-ref sc4 5))) (let ((e-22 (vector-ref sc4 6))) (let ((e-21 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (vector 0 e-27 e-26 e-25 e-24 e-23 e-22 e-21 e-7 e-8 e-9 e-10 e-11 (vector 1 e-6) e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-1)))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-calcRefs arg-3 arg-2 arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased e-6)) eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--calcRefs-17240 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32calcRefs-17255 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32calcRefsC-44dropErased-17162 (lambda (arg-0 arg-1 arg-2 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--20036-17108-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)) (else (ProcessDef-TTImp-n--20036-17108-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 (NameMap-Data-delete 'erased arg-4 arg-6))))))) +(define ProcessDef-TTImp-case--calcRefsC-44dropErased-17135 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32calcRefsC-44dropErased-17162 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (ProcessDef-TTImp-n--20036-17108-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-16951 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 2 )))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-16433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50 arg-51 arg-52 arg-53 arg-54 arg-55 arg-56 arg-57 arg-58 arg-59 arg-60 arg-61 arg-62 arg-63) (vector 1 arg-63 arg-7))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-16192 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50 arg-51 arg-52 arg-53 arg-54 arg-55 arg-56 arg-57) (let ((sc0 arg-57)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 arg-50) (let ((sc0 arg-50)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((wargNames (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) e-5) (vector 1 (vector 0 ) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) arg-45))))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "With function type") e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Argument names " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) wargNames))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (let ((act-26 (Context-Core-toFullNames 'erased arg-15 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (vector 8 arg-9) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((Context-Core-prettyName arg-15 e-11) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (UnifyState-Core-genWithName arg-15 arg-13 e-12 eta-0))))))))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-addDef arg-15 e-11 (Context-Core-newDef arg-4 e-11 (ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-16192 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48 arg-49 e-5 e-9 e-10 wargNames e-7 e-8 e-11 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-51) (lambda (arg-52) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-51 arg-52))) (lambda (arg-51) (lambda (arg-52) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-51 arg-52))))) arg-12)) arg-5 e-10 arg-11 (vector 0 )) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((rhs_in (TTImp-TTImp-apply (vector 0 arg-4 e-11) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 arg-4 eta-1)) e-9) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Types-Prelude-maybe 'erased 'erased (lambda () arg-2) (lambda () (lambda (pn) (vector 0 arg-4 (Builtin-snd 'erased 'erased pn)))) eta-1)) wargNames))))) (let ((act-28 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Applying to with argument " (TTImp-TTImp-show_Show__RawImp rhs_in))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 ((Context-Core-getFullName arg-15 (vector 8 arg-9)) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-5 arg-17 arg-15 arg-14 arg-13 arg-9 arg-24 arg-8 arg-20 arg-19 arg-6 arg-18 rhs_in (Normalise-Core-gnf arg-17 arg-19 arg-22) eta-1))) eta-0)))))))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15937-14585-mkClauseWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (+ 1 0) e-11 wargNames arg-16 eta-1)) arg-0) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-31 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "With clauses: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-15))) eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-32 (ProcessDef-TTImp-applyEnv arg-5 arg-15 arg-6 e-11 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc11 1))) (let ((nestC-39C-39 (vector 1 e-17 arg-7))) (let ((wdef (vector 2 arg-4 e-11 e-15))) (let ((act-33 ((Check-Elab-TTImp-processDecl arg-5 arg-15 arg-14 arg-13 (vector 0 ) nestC-39C-39 arg-6 wdef) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-17 arg-19 arg-21 e-14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #4") eta-0))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15659 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-clearDefs arg-32 eta-0))) (else (lambda (eta-0) (vector 1 arg-32))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15488 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41) (let ((sc0 arg-41)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((wargn (vector 2 "warg" 0))) (let ((scenv (vector 1 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-1))) (let ((bnr (Utils-Elab-TTImp-bindNotReq 'erased arg-17 arg-4 0 arg-19 arg-36 (vector 0 ) arg-22))) (let ((notreqns (Builtin-fst 'erased 'erased bnr))) (let ((notreqty (Builtin-snd 'erased 'erased bnr))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15659 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 e-1 wargn scenv bnr notreqns notreqty (Types-Prelude-elem 'erased (vector 0 (lambda (arg-42) (lambda (arg-43) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-42 arg-43))) (lambda (arg-42) (lambda (arg-43) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-42 arg-43)))) (vector 0 ) arg-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 arg-39)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf (vector 1 wargn arg-35) e-5 scenv (TT-Core-weaken_Weaken__Term wargn arg-35 notreqty)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Normalise-Core-replace (vector 1 wargn arg-35) e-5 scenv e-6 (vector 0 arg-4 (vector 1 1) 0) e-7 eta-0))))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((bNotReq (vector 3 arg-4 wargn (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-40) e-6))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15858 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 e-1 wargn scenv bnr notreqns notreqty e-5 e-6 bNotReq (Utils-Elab-TTImp-bindReq 'erased arg-17 arg-4 arg-19 arg-36 (vector 0 ) bNotReq)) eta-0)))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #3") eta-0))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40) (let ((sc0 arg-40)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15488 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 e-1 (Env-Core-shrinkEnv 'erased 'erased arg-19 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #2") eta-0))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15312 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39) (let ((sc0 arg-39)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15399 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 e-1 (TT-Core-shrinkTerm 'erased 'erased arg-34 arg-36)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Impossible happened: With abstraction failure #1") eta-0))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15202 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35) (let ((sc0 arg-35)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value type") arg-34 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Using vars " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-2))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15312 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 e-2 e-3 e-5 e-6 (TT-Core-shrinkTerm 'erased 'erased arg-33 e-3)) eta-0))))))))))))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-15079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Metadata-Core-clearHoleLHS arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTerm arg-17 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") arg-22 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-15))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 e-2 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Normalise-Core-normaliseHoles arg-17 e-9 arg-19 e-8 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15202 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e-2 e-3 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (ProcessDef-TTImp-n--15937-14584-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased arg-17 arg-18 (let ((sc8 (Env-Core-findSubEnv arg-17 arg-19 e-10))) (let ((e-4 (vector-ref sc8 2))) e-4)))) eta-0))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--checkClause-14997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-16951 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-6 e-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-17) (lambda (arg-18) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-17 arg-18))))) arg-12))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-15 (vector 8 arg-9)) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 arg-4 e-5 eta-1))) (Elab-TTImp-elabTermSub arg-5 e-6 arg-15 arg-14 arg-13 arg-9 wmode arg-8 e-18 e-14 arg-6 e-10 arg-2 (vector 0 ))) eta-0)))))))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc7 e-5)) (let ((e-8 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-25 (Metadata-Core-clearHoleLHS arg-14 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-26 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-8 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-27 (Context-Core-logTerm e-6 arg-15 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-29 (let ((act-29 (unbox arg-15))) (vector 1 act-29)))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-30 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-8 eta-0))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) (let ((act-31 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-16 eta-0))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc14 1))) (let ((_-1 (vector 0 e-8 e-4))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15202 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-2 e-6 e-10 e-14 e-18 e-22 e-23 _-0 wmode e-8 e-4 _-1 e-9 e-12 e-13 e-16 e-17 e-20 e-21 (ProcessDef-TTImp-n--15937-14584-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-6 e-10 (let ((sc15 (Env-Core-findSubEnv e-6 e-14 e-20))) (let ((e-24 (vector-ref sc15 2))) e-24)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-16 e-2) (vector 2 e-3))))))) +(define ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3))))))) +(define ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 1 arg-17 e-2) (vector 2 e-3))))))) +(define ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 e-2 (vector 1 e-3))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-14492 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--caseC-32blockC-32inC-32checkClause-14352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (Metadata-Core-addLHS arg-15 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) arg-17 arg-19 eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--checkClause-14180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((sc5 e-19)) (let ((e-22 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 2))) (let ((rhsMode (let ((_-0 (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-14492 arg-0 arg-1 arg-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-15 arg-16))))) arg-10))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp arg-0))) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logEnv e-6 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-13 (vector 8 arg-7)) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-6 (lambda (eta-1) (vector 59 arg-2 e-9 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-3 e-6 arg-13 arg-12 arg-11 arg-7 rhsMode arg-6 e-18 e-14 arg-4 e-10 arg-0 (Normalise-Core-gnf e-6 e-14 e-23) eta-1))) eta-0)))))))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 (Metadata-Core-clearHoleLHS arg-12 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-logTerm e-6 arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-9 eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-29 (let ((sc11 arg-8)) (cond ((equal? sc11 0) (let ((act-29 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-22 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-9 eta-0)))))) (else (vector 1 (vector 0 ))))))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-30 (let ((sc12 e-9)) (case (vector-ref sc12 0) ((2) (Metadata-Core-addLHS e-6 arg-13 arg-12 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) e-14 e-22 eta-0))(else (vector 1 (vector 0 ))))))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (vector 0 e-6 e-14 e-22 e-9)))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-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 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0))))))) +(define ProcessDef-TTImp-case--checkClause-14002 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((6) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessDef-TTImp-impossibleErrOK arg-12 e-5 arg-14) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-14)) eta-0)))))))))))))))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-13879 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-13)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 arg-26)) eta-0))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-13807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-3 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-5 arg-3 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-6)) eta-0)))))))))))))))))))))))) +(define ProcessDef-TTImp-case--checkClause-13717 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-3))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-logEnv arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 ((Elab-TTImp-elabTerm arg-0 arg-12 arg-11 arg-10 arg-6 (vector 1 arg-9) arg-5 arg-4 arg-3 (vector 15 arg-2 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (unbox arg-12))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-0 e-10 arg-3 e-9 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-30 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-12 e-10 arg-3 e-11) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (cond ((equal? sc9 0) (vector 1 (vector 0 arg-13))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 e-11)) eta-0))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkLHS-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 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-12))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-27 (Normalise-Core-normaliseHoles arg-2 e-7 lhsenv e-2 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-normaliseHoles arg-2 e-7 arg-3 e-6 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-8) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-8 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Linearity of names in " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-6) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-10))))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 ((ProcessDef-TTImp-combineLinear arg-1 e-10) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-8))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-13 e-9))) (let ((act-33 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-36 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc13 1))) (vector 1 (vector 0 arg-21 e-17)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkLHS-13289 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-18))) (else (TTImp-TTImp-implicitsAs arg-13 arg-2 arg-18)))))) +(define ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkLHS-13143 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--checkLHS-13071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-12 arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((sc2 arg-9)) (cond ((equal? sc2 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs arg-13 arg-2 e-3) eta-0)))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-12 (vector 8 arg-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking LHS of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp e-6))))) eta-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (Normalise-Core-logEnv arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((lhsMode (let ((sc5 arg-9)) (cond ((equal? sc5 0) (vector 3 )) (else (vector 1 arg-8)))))) (let ((act-28 (let ((act-28 ((Context-Core-getFullName arg-12 (vector 8 arg-6)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-5 (lambda (eta-1) (vector 58 arg-1 e-9 eta-1))) (Elab-TTImp-elabTerm arg-2 arg-12 arg-11 arg-10 arg-6 lhsMode arg-5 arg-4 arg-3 (vector 15 arg-1 (vector 1 ) e-6) (vector 0 ))) eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((act-29 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-10 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((act-30 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-31 (let ((act-31 (unbox arg-12))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-32 (Normalise-Core-normaliseHoles arg-2 e-13 lhsenv e-10 eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-33 (Normalise-Core-normaliseHoles arg-2 e-13 arg-3 e-12 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-34 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-14) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-35 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-14 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-17 (vector-ref sc13 1))) (vector 0 e-17))) (else (let ((act-36 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Linearity of names in " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-6) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-16))))) eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (vector 0 e-18))) (else (let ((act-37 ((ProcessDef-TTImp-combineLinear arg-1 e-16) eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-19 (vector-ref sc15 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc15 1))) (let ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-14))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-19 e-15))) (let ((act-38 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((act-39 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((act-40 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((act-41 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc19 1))) (vector 1 (vector 0 e-6 e-23))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-case--checkLHS-13012 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (TTImp-TTImp-lhsInCurrentNS 'erased arg-12 arg-4 arg-0)))))) +(define ProcessDef-TTImp-case--combineLinear-12906 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-combineLinear arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-0 arg-1) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14913-12754-combineAll arg-0 arg-1 arg-2 arg-3 arg-1 arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessDef-TTImp-combineLinear arg-3 (List-Data-filter 'erased (lambda (eta-1) (ProcessDef-TTImp-n--14913-12751-notN arg-0 arg-1 arg-2 arg-3 eta-1)) arg-2)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 arg-0 e-5) e-6)))))))))))))))))) +(define ProcessDef-TTImp-case--combineLinearC-44combine-12851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 13 arg-3 (+ 1 (+ 1 0)) arg-0) eta-0))) (else (lambda (eta-0) (vector 1 (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) arg-5 arg-4)))))))) +(define ProcessDef-TTImp-case--combineLinearC-44lookupAll-12785 (lambda (arg-0 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--14913-12752-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))) (else (ProcessDef-TTImp-n--14913-12752-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6)))))) +(define ProcessDef-TTImp-case--setLinear-12693 (lambda (arg-0 arg-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--setLinear-12635 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32findLinear-12542 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-10 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14240-12157-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-2) e-5 arg-9) eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--findLinear-12478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupTyExact e-7 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-1) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14240-12157-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-2) e-10 e-3) eta-0)))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessDef-TTImp-case--findLinearC-44findLinArg-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 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-13))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-19 e-5 arg-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 arg-21 (ZeroOneOmega-Algebra-rigMult arg-11 arg-19)) e-6)))))))))))))) (else (lambda (eta-0) (let ((act-24 (((arg-12 arg-20) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-17 (vector 0 ) arg-13))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--14240-12158-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--findLinearC-44accessible-12164 (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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) +(define ProcessDef-TTImp-case--recoverable-11688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-7 arg-9)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Basics-Prelude-not e-5))))))))))))) +(define ProcessDef-TTImp-case--recoverable-11600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 1))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-anyM 'erased (lambda (eta-1) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-1)) (List-Data-zip 'erased 'erased arg-3 arg-7)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Basics-Prelude-not e-5))))))))))))) +(define ProcessDef-TTImp-case--impossibleOK-11365 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) +(define ProcessDef-TTImp-case--impossibleOK-11283 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-3 arg-7))) (else (lambda (eta-0) (vector 1 1))))))) +(define ProcessDef-TTImp-case--mismatchNF-11113 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-7 arg-9))))))) +(define ProcessDef-TTImp-case--mismatchNF-11031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-mismatch arg-0 arg-11 eta-0)) (List-Data-zip 'erased 'erased arg-5 arg-8))))))) +(define ProcessDef-TTImp-n--20651-17632-toErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Transform-Core-applyTransforms 'erased arg-4 e-6 e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((PartialEval-TTImp-applySpecialise e-2 arg-4 arg-3 arg-2 e-6 arg-6 e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-5 e-12)))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-n--20651-17633-toClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 0 e-2 e-6 e-10 e-11)))))))))))) +(define ProcessDef-TTImp-n--21605-18469-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--21605-18469-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--14913-12751-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--20651-17627-mkCrash (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (TT-Core-apply 'erased arg-1 (vector 1 arg-1 (vector 1 ) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "idris_crash"))) (vector 1 (vector 10 arg-1 1) (vector 1 (vector 9 arg-1 (vector 6 arg-6)) (vector 0 )))))) +(define ProcessDef-TTImp-n--15937-14585-mkClauseWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-0 arg-16 arg-7 arg-17 arg-18 arg-19 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-0 arg-16 arg-17 arg-18 e-2 arg-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 e-5 e-6))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-3 arg-16 arg-7 arg-17 arg-18 arg-19 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-withRHS arg-15 e-3 arg-16 arg-17 arg-18 e-5 arg-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--15937-14585-mkClauseWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (+ 1 arg-16) arg-17 arg-18 arg-19 eta-1)) e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-3 e-8 e-9 e-6 e-10)))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (WithClause-TTImp-getNewLHS 'erased arg-15 e-8 arg-16 arg-7 arg-17 arg-18 arg-19 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-8 e-5))))))))))))))) +(define ProcessDef-TTImp-n--20651-17628-matchAny (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 4 e-1 (ProcessDef-TTImp-n--20651-17628-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2) (vector 10 e-1 1)))))(else arg-6))))) +(define ProcessDef-TTImp-n--20651-17629-makeErrorClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 arg-5 arg-6 (ProcessDef-TTImp-n--20651-17628-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7) (ProcessDef-TTImp-n--20651-17627-mkCrash arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Strings-Types-Prelude-C-43C-43 "Unhandled input for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) (Strings-Types-Prelude-C-43C-43 " at " (FC-Core-show_Show__FC arg-1)))))))) +(define ProcessDef-TTImp-n--14913-12752-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--combineLinearC-44lookupAll-12785 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--15937-14584-keepOldEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (vector 0 arg-18 (vector 0 )))(else (let ((sc0 arg-18)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-19)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14630 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-1 e-2 e-6 e-14 (ProcessDef-TTImp-n--15937-14584-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-6 e-14)))) (else (let ((e-18 (vector-ref sc2 1))) (ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14712 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-6 e-18 (ProcessDef-TTImp-n--15937-14584-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-6 e-18)))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased e-1 e-2 'erased e-10 e-22 (ProcessDef-TTImp-n--15937-14584-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-10 e-22)))) (else (let ((e-26 (vector-ref sc2 1))) (ProcessDef-TTImp-case--checkClauseC-44keepOldEnv-14876 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-1 e-2 'erased 'erased e-10 e-26 (ProcessDef-TTImp-n--15937-14584-keepOldEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 'erased 'erased e-2 e-10 e-26))))))))))))))))))))) +(define ProcessDef-TTImp-n--20651-17631-getSpec (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (ProcessDef-TTImp-n--20651-17631-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) +(define ProcessDef-TTImp-n--21605-18472-getClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Impossible-TTImp-getImpossibleTerm arg-0 arg-9 arg-4 arg-5 e-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Generated impossible LHS: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5))) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (vector 1 (vector 0 (vector 0 ) (vector 0 ) e-5 (vector 10 (TTImp-TTImp-getFC e-2) 0)))))))))))))) (lambda (e) (lambda (eta-1) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Error in getClause " (Core-Core-show_Show__Error e))) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 0 )))))))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-5))))))))) +(define ProcessDef-TTImp-n--14240-12158-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--14240-12158-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--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (vector 1 e-28 e-24)))(else (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((e-7 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((2) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-14 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((0) (let ((e-18 (vector-ref sc5 1))) (let ((e-19 (vector-ref sc5 2))) (let ((e-20 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--findLinearC-44findLinArg-12262 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 (Types-Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc7 1))) (let ((act-27 ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc4 arg-9)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-25 ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc6 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))(else (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((0) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (let ((e-20 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--findLinearC-44findLinArg-12262 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 (Types-Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc5 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc6 1))) (let ((act-27 ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc7 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc3 arg-9)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc5 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((2) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((0) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (let ((e-20 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--findLinearC-44findLinArg-12262 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 (Types-Prelude-C-60_Ord__Nat e-20 arg-3)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-7) e-14) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc4 1))) (let ((act-26 (((e-8 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-5 (vector 0 ) e-6))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc5 1))) (let ((act-27 ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-16 e-15) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc6 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-13 e-17)))))))))))))))))))))))))))))(else (let ((sc2 arg-9)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-25 ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc4 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))(else (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessDef-TTImp-n--14240-12158-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-5 e-6)))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))) +(define ProcessDef-TTImp-n--20036-17108-dropErased (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32calcRefsC-44dropErased-17162 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))) (else ((ProcessDef-TTImp-n--20036-17108-dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5) eta-0)))))))))))))))))))))) +(define ProcessDef-TTImp-n--14913-12754-combineAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessDef-TTImp-n--14913-12753-combine arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--14913-12754-combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3) eta-0)))))))))))))) +(define ProcessDef-TTImp-n--14913-12753-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessDef-TTImp-case--combineLinearC-44combine-12851 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (Basics-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 () (Basics-Prelude-C-38C-38 (Basics-Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-6) (lambda (arg-7) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-6 arg-7))))) (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) arg-4 arg-5))) (lambda () (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-237 arg-238))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-240) (lambda (arg-242) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-240 arg-242))))))) arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))))) +(define ProcessDef-TTImp-n--21624-18529-closeEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (let ((act-24 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 arg-3 (vector 0 ) e-2))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessDef-TTImp-n--21624-18529-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5) eta-0))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0)))))))))(else (lambda (eta-0) (Normalise-Core-quote_Quote__NF (vector 0 ) arg-13 (vector 0 ) arg-14 eta-0))))))) +(define ProcessDef-TTImp-n--21605-18471-checkImpossible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (Unelab-TTImp-unelabNoPatvars (vector 0 ) arg-9 (vector 0 ) arg-12 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (UnifyState-Core-handleUnify 'erased arg-9 arg-7 (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking for impossibility: " (TTImp-TTImp-show_Show__RawImp e-5))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (Context-Core-isUnboundImplicits arg-9 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-setUnboundImplicits arg-9 0 eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (BindImplicits-TTImp-bindNames arg-9 1 e-5 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (let ((e-3 (vector-ref sc6 2))) (let ((act-30 (Context-Core-setUnboundImplicits arg-9 e-8 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Elab-TTImp-elabTerm (vector 0 ) arg-9 arg-8 arg-7 arg-10 (vector 1 arg-11) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (let ((e-13 (vector-ref sc9 1))) (let ((act-32 (let ((act-32 (unbox arg-9))) (vector 1 act-32)))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-33 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) e-13 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-34 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-14 (vector 0 ) e-15) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc12 1))) (let ((sc13 e-16)) (cond ((equal? sc13 0) (let ((act-35 (let ((act-35 (set-box! arg-9 e-6))) (vector 1 act-35)))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (vector 1 (vector 0 ))))))) (else (let ((act-35 (Context-Core-clearDefs e-6 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc14 1))) (let ((act-36 (let ((act-36 ((Normalise-Core-nf (vector 0 ) e-17 (vector 0 ) e-15) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc15 1))) ((ProcessDef-TTImp-n--21624-18529-closeEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-11 arg-10 e-17 e-18) eta-0)))))))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc15 1))) (let ((act-37 (let ((act-37 (set-box! arg-9 e-6))) (vector 1 act-37)))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (vector 1 (vector 1 e-18))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessDef-TTImp-recoverableErr arg-9 e-6 err) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessDef-TTImp-case--processDefC-44checkImpossible-18952 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-12 arg-11 arg-10 e-5 err e-6 e-7 (Basics-Prelude-not e-7)) eta-0))))))))))))) ext-0)))))))) +(define ProcessDef-TTImp-n--21605-18473-checkCoverage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDef-TTImp-n--21605-18472-getClause arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0)) arg-13) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((covcs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5))) (let ((act-25 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 arg-12) (vector 8 arg-10) arg-11 covcs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((act-26 (let ((act-26 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-8 ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Working from " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-2 e-9))) ext-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-19299 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-12 arg-11 arg-10 e-5 covcs e-7 e-2 e-8 _-0 e-9 ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--21605-18470-catchAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-0))) covcs)) ext-0)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-0) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) eta-1 eta-2))) e-10) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 ((Context-Core-getFullName arg-9 (vector 8 arg-10)) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Initially missing in " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-14)) e-11))))))))))))))))) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-n--21605-18471-checkImpossible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 eta-0 eta-1))) e-10) ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-checkMatched arg-9 covcs eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12)) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc8 1))) (let ((miss (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-13))) (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDefC-44checkCoverage-19412 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-13 arg-12 arg-11 arg-10 e-5 covcs e-7 e-2 e-8 _-0 e-9 e-10 e-11 e-12 e-13 miss (List-Data-isNil 'erased miss)) ext-0))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-n--21605-18470-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))) ((Interfaces-Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (ProcessDef-TTImp-n--21605-18469-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--20651-17630-addErrorCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 e-4 e-5 e-6 e-7) (vector 1 (ProcessDef-TTImp-n--20651-17629-makeErrorClause arg-0 arg-1 arg-2 arg-3 arg-4 e-4 e-5 e-6) (vector 0 ))))(else (vector 1 e-2 (ProcessDef-TTImp-n--20651-17630-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))(else (vector 1 e-2 (ProcessDef-TTImp-n--20651-17630-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))) +(define ProcessDef-TTImp-n--14240-12157-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))(else arg-7))))) (define ProcessDef-TTImp-warnUnreachable (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (Context-Core-recordWarning arg-0 (vector 0 e-0 (TT-Core-getLoc 'erased e-2) e-1 e-2) eta-0)))))))) (define ProcessDef-TTImp-toPats (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 (vector 0 e-1 (vector 0 e-2 e-3)))))))))) -(define ProcessDef-TTImp-setLinear (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((b (vector 3 e-6 e-7 e-8 e-9))) (ProcessDef-TTImp-case--setLinear-12660 'erased e-6 e-7 e-8 e-9 e-2 e-4 b e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Name-Core-C-61C-61_Eq__Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-2 arg-1)))))))) ((5) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((b (vector 5 e-11 e-12 e-13))) (ProcessDef-TTImp-case--setLinear-12730 'erased e-11 e-12 e-13 e-2 e-4 b e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Name-Core-C-61C-61_Eq__Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-2 arg-1)))))))(else arg-2))))))))(else arg-2))))) +(define ProcessDef-TTImp-setLinear (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (ProcessDef-TTImp-case--setLinear-12635 'erased e-8 e-7 e-6 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Name-Core-C-61C-61_Eq__Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-2 arg-1)))))) ((5) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (ProcessDef-TTImp-case--setLinear-12693 'erased e-11 e-10 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Name-Core-C-61C-61_Eq__Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-2 arg-1)))))(else arg-2))))))))(else arg-2))))) (define ProcessDef-TTImp-recoverableErr (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf e-0 arg-1 e-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-0 arg-1 e-2 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-recoverable e-0 arg-1 e-5 e-6) eta-0))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf e-5 arg-1 e-7 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-5 arg-1 e-7 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) ((ProcessDef-TTImp-recoverable e-5 arg-1 e-10 e-11) eta-0))))))))))))))))) ((44) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((4) (lambda (eta-0) (vector 1 0))) ((21) (let ((e-21 (vector-ref sc0 1))) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-recoverableErr arg-0 arg-1 eta-0)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-21)))) ((5) (let ((e-27 (vector-ref sc0 6))) (ProcessDef-TTImp-recoverableErr arg-0 arg-1 e-27)))(else (lambda (eta-0) (vector 1 1))))))) -(define ProcessDef-TTImp-recoverable (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 3))) (let ((e-23 (vector-ref sc1 4))) (let ((e-24 (vector-ref sc1 5))) (ProcessDef-TTImp-case--recoverable-11598 arg-0 e-20 e-1 e-5 e-4 e-3 e-2 e-24 e-23 e-22 e-21 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-21))))))))(else (lambda (eta-0) (vector 1 0))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (ProcessDef-TTImp-case--recoverable-11686 arg-0 e-26 e-27 e-29 e-7 e-8 e-10 e-11 e-9 e-30 e-28 arg-1 (EqOrd-Prelude-C-47C-61_Eq__Int e-9 e-28))))))))(else (lambda (eta-0) (vector 1 0))))))))))) ((1) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-36 (vector-ref sc2 2))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-18 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-43 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-18 e-43))))) ((2) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define ProcessDef-TTImp-processDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-lookupCtxtExact e-5 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDef-19796 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-1 _-0 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17))) ext-0)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-7 e-5) ext-0))))))))))))))))))))) -(define ProcessDef-TTImp-nameListEq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 )))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-with--nameListEq-17149 e-2 e-6 (Name-Core-nameEq e-2 e-6) e-3 e-7))))(else (vector 0 )))))))(else (vector 0 )))))) -(define ProcessDef-TTImp-mkRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Making run time definition for " (Name-Core-show_Show__Name e-5)))) ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((cov (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-2 (vector-ref sc4 2))) e-2)))) (let ((sc4 (Basics-Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-5 arg-6))))) (let ((sc5 e-1)) (let ((e-21 (vector-ref sc5 8))) e-21)))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32mkRunTime-17980 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-1 _-0 cov (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))))) ext-0)) (else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))))))))) -(define ProcessDef-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (ProcessDef-TTImp-case--mismatchNF-11029 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (ProcessDef-TTImp-case--mismatchNF-11111 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (EqOrd-Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define ProcessDef-TTImp-recoverable (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 3))) (let ((e-23 (vector-ref sc1 4))) (let ((e-24 (vector-ref sc1 5))) (ProcessDef-TTImp-case--recoverable-11600 arg-0 e-20 e-1 e-5 e-4 e-3 e-2 e-24 e-23 e-22 e-21 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-21))))))))(else (lambda (eta-0) (vector 1 0))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (ProcessDef-TTImp-case--recoverable-11688 arg-0 e-26 e-27 e-29 e-7 e-8 e-10 e-11 e-9 e-30 e-28 arg-1 (EqOrd-Prelude-C-47C-61_Eq__Int e-9 e-28))))))))(else (lambda (eta-0) (vector 1 0))))))))))) ((1) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-36 (vector-ref sc2 2))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))(else (lambda (eta-0) (vector 1 1))))))) ((8) (let ((e-18 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-43 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-18 e-43))))) ((2) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define ProcessDef-TTImp-processDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-lookupCtxtExact e-5 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32processDef-19694 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-1 _-0 (let ((sc4 e-1)) (let ((e-17 (vector-ref sc4 18))) e-17))) ext-0)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 37 arg-7 e-5) ext-0))))))))))))))))))))) +(define ProcessDef-TTImp-nameListEq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 )))(else (vector 0 ))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-with--nameListEq-17065 e-2 e-6 (Name-Core-nameEq e-2 e-6) e-3 e-7))))(else (vector 0 )))))))(else (vector 0 )))))) +(define ProcessDef-TTImp-mkRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Making run time definition for " (Name-Core-show_Show__Name e-5))) ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((cov (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-2 (vector-ref sc4 2))) e-2)))) (let ((sc4 (Basics-Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-5 arg-6))))) (let ((sc5 e-1)) (let ((e-21 (vector-ref sc5 8))) e-21)))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-1))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32mkRunTime-17894 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-1 _-0 cov (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))))) ext-0)) (else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))))))))) +(define ProcessDef-TTImp-mismatchNF (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (let ((e-28 (vector-ref sc1 4))) (let ((e-29 (vector-ref sc1 5))) (ProcessDef-TTImp-case--mismatchNF-11031 arg-0 e-25 e-28 e-1 e-4 e-5 e-3 e-2 e-29 e-27 e-26 arg-1 (Name-Core-C-47C-61_Eq__Name e-2 e-26))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (let ((e-35 (vector-ref sc1 5))) (ProcessDef-TTImp-case--mismatchNF-11113 arg-0 e-31 e-32 e-34 e-7 e-8 e-10 e-11 e-9 e-35 e-33 arg-1 (EqOrd-Prelude-C-47C-61_Eq__Int e-9 e-33))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-38 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-38)))))(else (lambda (eta-0) (vector 1 1))))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((5) (let ((e-42 (vector-ref sc1 3))) (ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-18 e-42)))(else (lambda (eta-0) (vector 1 1))))))) ((6) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((6) (let ((e-47 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) (define ProcessDef-TTImp-mismatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-1 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-1 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-mismatchNF arg-0 arg-1 e-5 e-6) eta-0))))))))))))))))) -(define ProcessDef-TTImp-impossibleOK (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (ProcessDef-TTImp-case--impossibleOK-11281 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-61C-61_Eq__Name e-2 e-17))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (ProcessDef-TTImp-case--impossibleOK-11363 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (EqOrd-Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define ProcessDef-TTImp-impossibleOK (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (ProcessDef-TTImp-case--impossibleOK-11283 arg-0 e-16 e-1 e-5 e-4 e-3 e-2 e-20 e-19 e-18 e-17 arg-1 (Name-Core-C-61C-61_Eq__Name e-2 e-17))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (ProcessDef-TTImp-case--impossibleOK-11365 arg-0 e-22 e-23 e-25 e-7 e-8 e-10 e-11 e-9 e-26 e-24 arg-1 (EqOrd-Prelude-C-47C-61_Eq__Int e-9 e-24)))))))) ((8) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-32 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-32))))) ((2) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) (define ProcessDef-TTImp-impossibleErrOK (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf e-0 arg-1 e-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-0 arg-1 e-2 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-impossibleOK e-0 arg-1 e-5 e-6) eta-0))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf e-5 arg-1 e-7 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-5 arg-1 e-7 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) ((ProcessDef-TTImp-impossibleOK e-5 arg-1 e-10 e-11) eta-0))))))))))))))))) ((44) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((4) (lambda (eta-0) (vector 1 0))) ((21) (let ((e-21 (vector-ref sc0 1))) (Core-Core-anyM 'erased (lambda (eta-0) (ProcessDef-TTImp-impossibleErrOK arg-0 arg-1 eta-0)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-21)))) ((5) (let ((e-27 (vector-ref sc0 6))) (ProcessDef-TTImp-impossibleErrOK arg-0 arg-1 e-27)))(else (lambda (eta-0) (vector 1 1))))))) (define ProcessDef-TTImp-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3)))))) -(define ProcessDef-TTImp-hasEmptyPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 arg-3 e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Coverage-Core-isEmpty arg-0 arg-1 arg-2 arg-3 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 ((ProcessDef-TTImp-hasEmptyPat (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (vector 1 (Basics-Prelude-C-124C-124 e-10 (lambda () e-11)))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define ProcessDef-TTImp-findLinear (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 4))) (ProcessDef-TTImp-findLinear (vector 1 e-2 arg-0) arg-1 arg-2 (+ 1 arg-3) arg-4 e-4)))) ((5) (let ((e-9 (vector-ref sc0 4))) (ProcessDef-TTImp-findLinear arg-0 arg-1 arg-2 arg-3 arg-4 e-9)))(else (ProcessDef-TTImp-case--findLinear-12496 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 ((e-9 (vector-ref sc1 4))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((sc3 e-18)) (case (vector-ref sc3 0) ((5) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (ProcessDef-TTImp-with--extendEnv-11975 e-2 e-17 (Name-Core-nameEq e-2 e-17) 'erased arg-1 e-16 e-21 e-22 e-23 e-1 e-9 e-8 e-7 e-6 e-4 e-19 arg-4 arg-3 arg-2)))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6))))))))))))))) ((4) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (let ((e-27 (vector-ref sc2 3))) (let ((e-28 (vector-ref sc2 4))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((4) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (let ((e-32 (vector-ref sc3 3))) (let ((e-33 (vector-ref sc3 4))) (ProcessDef-TTImp-with--extendEnv-12056 e-2 e-26 (Name-Core-nameEq e-2 e-26) 'erased arg-1 e-25 e-30 e-31 e-33 e-32 e-1 e-13 e-14 e-12 e-11 e-4 e-28 arg-4 arg-3 arg-2))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))) +(define ProcessDef-TTImp-hasEmptyPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 arg-3 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Coverage-Core-isEmpty arg-0 arg-1 arg-2 arg-3 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 ((ProcessDef-TTImp-hasEmptyPat (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 (vector 3 e-6 e-7 e-8) arg-3) e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (Basics-Prelude-C-124C-124 e-9 (lambda () e-10)))))))))))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define ProcessDef-TTImp-findLinear (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 4))) (ProcessDef-TTImp-findLinear (vector 1 e-2 arg-0) arg-1 arg-2 (+ 1 arg-3) arg-4 e-4)))) ((5) (let ((e-9 (vector-ref sc0 4))) (ProcessDef-TTImp-findLinear arg-0 arg-1 arg-2 arg-3 arg-4 e-9)))(else (ProcessDef-TTImp-case--findLinear-12478 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--extendEnv-11975 e-2 e-15 (Name-Core-nameEq e-2 e-15) 'erased arg-1 e-14 e-19 e-20 e-1 e-8 e-7 e-6 e-4 e-17 arg-4 arg-3 arg-2))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))) ((4) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((4) (let ((e-27 (vector-ref sc3 1))) (let ((e-28 (vector-ref sc3 2))) (let ((e-29 (vector-ref sc3 3))) (ProcessDef-TTImp-with--extendEnv-12050 e-2 e-23 (Name-Core-nameEq e-2 e-23) 'erased arg-1 e-22 e-27 e-29 e-28 e-1 e-11 e-12 e-10 e-4 e-25 arg-4 arg-3 arg-2)))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))))))))) (define ProcessDef-TTImp-compileRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-mkRunTime arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (let ((sc1 e-5)) (let ((e-20 (vector-ref sc1 21))) e-20))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-calcRefs arg-0 0 arg-4 eta-0 eta-1))) (let ((sc2 e-5)) (let ((e-20 (vector-ref sc2 21))) e-20))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (set-box! arg-0 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-29 (vector-ref sc4 6))) (let ((e-28 (vector-ref sc4 7))) (let ((e-27 (vector-ref sc4 8))) (let ((e-26 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 0 ) e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-28)))))))))))))))))))))) -(define ProcessDef-TTImp-combineLinear (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-case--combineLinear-12948 e-6 e-7 e-3 arg-0 (ProcessDef-TTImp-n--15156-12794-lookupAll e-6 e-7 e-3 arg-0 e-6 e-3)))))))))))) -(define ProcessDef-TTImp-checkLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 1 arg-12)) (else ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 arg-12) ext-0)))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-isUnboundImplicits arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-setUnboundImplicits arg-1 0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (BindImplicits-TTImp-bindNames arg-1 1 e-6 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-3 (vector-ref sc5 2))) (let ((act-29 (Context-Core-setUnboundImplicits arg-1 e-7 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (let ((sc7 arg-4)) (cond ((equal? sc7 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs e-5 arg-0 e-3) ext-0)))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 ((Context-Core-getFullName arg-1 (vector 8 arg-7)) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) ((Context-Core-log arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking LHS of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp e-11)))))) ext-0)))))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Normalise-Core-logEnv arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((lhsMode (let ((sc10 arg-4)) (cond ((equal? sc10 0) (vector 3 )) (else (vector 1 arg-5)))))) (let ((act-33 (let ((act-33 ((Context-Core-getFullName arg-1 (vector 8 arg-7)) ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-0) (vector 58 arg-11 e-14 eta-0))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 lhsMode arg-8 arg-9 arg-10 (vector 15 arg-11 (vector 1 ) e-11) (vector 0 ))) ext-0)))))))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((sc11 e-14)) (let ((e-15 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((act-34 (Context-Core-logTerm arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-15 ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((act-35 ((Normalise-Core-getTerm 'erased e-4) ext-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-17 (vector-ref sc13 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-36 (let ((act-36 (unbox arg-1))) (vector 1 act-36)))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc14 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-10))) (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-18 lhsenv e-15 ext-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-19 (vector-ref sc15 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-38 (Normalise-Core-normaliseHoles arg-0 e-18 arg-10 e-17 ext-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-39 ((ProcessDef-TTImp-findLinear arg-0 arg-1 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19) ext-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-40 (Context-Core-logTerm arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-19 ext-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((act-41 ((Context-Core-log arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Linearity of names in " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-7) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-21)))))) ext-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((act-42 ((ProcessDef-TTImp-combineLinear arg-11 e-21) ext-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc20 1))) (let ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-19))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-20))) (let ((act-43 (Context-Core-logTerm arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin ext-0))) (let ((sc21 act-43)) (case (vector-ref sc21 0) ((0) (let ((e-25 (vector-ref sc21 1))) (vector 0 e-25))) (else (let ((act-44 (Context-Core-logTerm arg-0 arg-1 "declare.def.lhs" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin ext-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-26 (vector-ref sc22 1))) (vector 0 e-26))) (else (let ((act-45 (Metadata-Core-setHoleLHS arg-2 (Env-Core-bindEnv arg-0 arg-11 arg-10 lhstm_lin) ext-0))) (let ((sc23 act-45)) (case (vector-ref sc23 0) ((0) (let ((e-27 (vector-ref sc23 1))) (vector 0 e-27))) (else (let ((act-46 ((ProcessDef-TTImp-extendEnv 'erased arg-0 arg-10 (vector 0 ) arg-9 lhstm_lin lhsty_lin) ext-0))) (let ((sc24 act-46)) (case (vector-ref sc24 0) ((0) (let ((e-28 (vector-ref sc24 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc24 1))) (vector 1 (vector 0 e-11 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-checkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (UnifyState-Core-handleUnify 'erased arg-1 arg-3 (lambda (eta-1) (let ((act-25 (Context-Core-isUnboundImplicits arg-1 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-setUnboundImplicits arg-1 0 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 e-5 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-1 e-6 eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 ((Context-Core-log arg-1 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-3)))) eta-1))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (Normalise-Core-logEnv arg-0 arg-1 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 ((Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 (vector 1 arg-4) arg-8 arg-9 arg-10 (vector 15 e-0 (vector 1 ) e-3) (vector 0 )) eta-1))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((sc10 e-12)) (let ((e-13 (vector-ref sc10 1))) (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-33 (Normalise-Core-normaliseHoles arg-0 e-14 arg-10 e-13 eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-34 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-1 e-14 arg-10 e-15) eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((sc14 e-16)) (cond ((equal? sc14 0) (vector 1 (vector 0 e-5))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 0 e-15)) eta-1))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((6) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-impossibleErrOK arg-1 e-6 err) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 e-5))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 1 err)) eta-1))))))))))))))))))) eta-0)))))))))) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((rhsMode (let ((_-0 (vector 0 e-7 (vector 0 e-9 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-14560 e-4 e-3 e-2 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-9 e-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) arg-4))))) (let ((act-25 ((Context-Core-log arg-1 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp e-4)))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((act-26 (Normalise-Core-logEnv e-9 arg-1 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((act-27 (let ((act-27 ((Context-Core-getFullName arg-1 (vector 8 arg-7)) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-2 e-16 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 arg-7 rhsMode arg-8 e-18 e-14 arg-10 e-10 e-4 (Normalise-Core-gnf e-9 e-14 e-23) eta-1))) eta-0)))))))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-28 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((act-29 (Context-Core-logTerm e-9 arg-1 "declare.def.clause" (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-16 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((act-30 (let ((sc13 arg-6)) (cond ((equal? sc13 0) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-22 eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-16 eta-0)))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((act-31 (let ((sc14 e-16)) (case (vector-ref sc14 0) ((2) (Metadata-Core-addLHS e-9 arg-1 arg-2 (TTImp-TTImp-getFC e-3) (Env-Core-length 'erased 'erased arg-10) e-14 e-22 eta-0))(else (vector 1 (vector 0 ))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (vector 0 e-24))) (else (vector 1 (vector 1 (vector 0 e-9 e-14 e-22 e-16))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 e-10)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-12 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (let ((e-14 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (let ((e-16 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-17035 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) arg-4))))) (let ((act-25 (let ((act-25 ((Context-Core-getFullName arg-1 (vector 8 arg-7)) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-5 e-17 eta-1))) (Elab-TTImp-elabTermSub arg-0 e-12 arg-1 arg-2 arg-3 arg-7 wmode arg-8 e-18 e-16 arg-10 e-14 e-7 (vector 0 ))) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc9 e-17)) (let ((e-20 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-21 (vector-ref sc10 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc10 1))) (let ((act-27 (Context-Core-logTerm e-12 arg-1 "declare.def.clause" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-20 eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-24 (vector-ref sc11 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc11 1))) (let ((act-28 (Context-Core-logTerm e-12 arg-1 "declare.def.clause" (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc12 1))) (let ((act-29 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc13 act-29)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc13 1))) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-27 (vector-ref sc14 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-20 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-28 (vector-ref sc15 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc15 1))) (let ((act-32 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-26 eta-0))) (let ((sc16 act-32)) (case (vector-ref sc16 0) ((0) (let ((e-29 (vector-ref sc16 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc16 1))) (let ((_-1 (vector 0 e-20 e-4))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15274 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 wmode e-20 e-4 _-1 e-21 e-24 e-25 e-26 e-27 e-28 e-29 (ProcessDef-TTImp-n--16196-14652-keepOldEnv e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-12 e-14 (let ((sc17 (Env-Core-findSubEnv e-12 e-16 e-28))) (let ((e-30 (vector-ref sc17 2))) e-30)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessDef-TTImp-calcRefs (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32calcRefs-17339 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (vector 1 (vector 0 ))))))))))))))))) +(define ProcessDef-TTImp-combineLinear (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ProcessDef-TTImp-case--combineLinear-12906 e-6 e-7 e-3 arg-0 (ProcessDef-TTImp-n--14913-12752-lookupAll e-6 e-7 e-3 arg-0 e-6 e-3)))))))))))) +(define ProcessDef-TTImp-checkLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 arg-4)) (cond ((equal? sc1 0) (vector 1 arg-12)) (else ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 arg-12) ext-0)))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-isUnboundImplicits arg-1 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-setUnboundImplicits arg-1 0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (BindImplicits-TTImp-bindNames arg-1 1 e-6 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-3 (vector-ref sc5 2))) (let ((act-29 (Context-Core-setUnboundImplicits arg-1 e-7 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (let ((sc7 arg-4)) (cond ((equal? sc7 0) (vector 1 e-3)) (else ((TTImp-TTImp-implicitsAs e-5 arg-0 e-3) ext-0)))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (let ((act-31 ((Context-Core-getFullName arg-1 (vector 8 arg-7)) ext-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking LHS of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-12) (Strings-Types-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__RawImp e-11))))) ext-0)))))))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 ext-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((lhsMode (let ((sc10 arg-4)) (cond ((equal? sc10 0) (vector 3 )) (else (vector 1 arg-5)))))) (let ((act-33 (let ((act-33 ((Context-Core-getFullName arg-1 (vector 8 arg-7)) ext-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-0) (vector 58 arg-11 e-14 eta-0))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 lhsMode arg-8 arg-9 arg-10 (vector 15 arg-11 (vector 1 ) e-11) (vector 0 ))) ext-0)))))))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (let ((sc11 e-14)) (let ((e-15 (vector-ref sc11 1))) (let ((e-4 (vector-ref sc11 2))) (let ((act-34 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-15 ext-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (vector 0 e-16))) (else (let ((act-35 ((Normalise-Core-getTerm 'erased e-4) ext-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-17 (vector-ref sc13 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-36 (let ((act-36 (unbox arg-1))) (vector 1 act-36)))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc14 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-10))) (let ((act-37 (Normalise-Core-normaliseHoles arg-0 e-18 lhsenv e-15 ext-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-19 (vector-ref sc15 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-38 (Normalise-Core-normaliseHoles arg-0 e-18 arg-10 e-17 ext-0))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-39 ((ProcessDef-TTImp-findLinear arg-0 arg-1 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19) ext-0))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-40 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Checked LHS term after normalise") e-19 ext-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (vector 0 e-22))) (else (let ((act-41 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Linearity of names in " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-7) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-0)) (lambda (d-0) (lambda (x-0) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-0))))) d x)))) e-21))))) ext-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (vector 0 e-23))) (else (let ((act-42 ((ProcessDef-TTImp-combineLinear arg-11 e-21) ext-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc20 1))) (let ((lhstm_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-19))) (let ((lhsty_lin (ProcessDef-TTImp-setLinear 'erased e-24 e-20))) (let ((act-43 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin ext-0))) (let ((sc21 act-43)) (case (vector-ref sc21 0) ((0) (let ((e-25 (vector-ref sc21 1))) (vector 0 e-25))) (else (let ((act-44 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin ext-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-26 (vector-ref sc22 1))) (vector 0 e-26))) (else (let ((act-45 (Metadata-Core-setHoleLHS arg-2 (Env-Core-bindEnv arg-0 arg-11 arg-10 lhstm_lin) ext-0))) (let ((sc23 act-45)) (case (vector-ref sc23 0) ((0) (let ((e-27 (vector-ref sc23 1))) (vector 0 e-27))) (else (let ((act-46 ((ProcessDef-TTImp-extendEnv 'erased arg-0 arg-10 (vector 0 ) arg-9 lhstm_lin lhsty_lin) ext-0))) (let ((sc24 act-46)) (case (vector-ref sc24 0) ((0) (let ((e-28 (vector-ref sc24 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc24 1))) (vector 1 (vector 0 e-11 e-28)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-checkClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (UnifyState-Core-handleUnify 'erased arg-1 arg-3 (lambda (eta-1) (let ((act-25 (Context-Core-isUnboundImplicits arg-1 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-setUnboundImplicits arg-1 0 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 e-5 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-3 (vector-ref sc5 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-1 e-6 eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-29 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-3))) eta-1))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 ((Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-7 (vector 1 arg-4) arg-8 arg-9 arg-10 (vector 15 e-0 (vector 1 ) e-3) (vector 0 )) eta-1))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc9 1))) (let ((sc10 e-12)) (let ((e-13 (vector-ref sc10 1))) (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-33 (Normalise-Core-normaliseHoles arg-0 e-14 arg-10 e-13 eta-1))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-34 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-1 e-14 arg-10 e-15) eta-1))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc13 1))) (let ((sc14 e-16)) (cond ((equal? sc14 0) (vector 1 (vector 0 e-5))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 0 e-15)) eta-1))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((6) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-impossibleErrOK arg-1 e-6 err) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (vector 1 (vector 0 e-5))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-10 (vector 1 err)) eta-1))))))))))))))))))) eta-0)))))))))) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((sc4 e-8)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((rhsMode (let ((_-0 (vector 0 e-7 (vector 0 e-9 (vector 0 e-10 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-14492 e-4 e-3 e-2 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 e-9 e-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) arg-4))))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking RHS " (TTImp-TTImp-show_Show__RawImp e-4))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((act-26 (Normalise-Core-logEnv e-9 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((act-27 (let ((act-27 ((Context-Core-getFullName arg-1 (vector 8 arg-7)) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-2 e-16 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 arg-7 rhsMode arg-8 e-18 e-14 arg-10 e-10 e-4 (Normalise-Core-gnf e-9 e-14 e-23) eta-1))) eta-0)))))))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-28 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((act-29 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-16 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (vector 0 e-20))) (else (let ((act-30 (let ((sc13 arg-6)) (cond ((equal? sc13 0) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-22 eta-0))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-16 eta-0)))))) (else (vector 1 (vector 0 ))))))) (let ((sc13 act-30)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((act-31 (let ((sc14 e-16)) (case (vector-ref sc14 0) ((2) (Metadata-Core-addLHS e-9 arg-1 arg-2 (TTImp-TTImp-getFC e-3) (Env-Core-length 'erased 'erased arg-10) e-14 e-22 eta-0))(else (vector 1 (vector 0 ))))))) (let ((sc14 act-31)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (vector 0 e-24))) (else (vector 1 (vector 1 (vector 0 e-9 e-14 e-22 e-16))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 e-10)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-12 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (let ((sc4 e-11)) (let ((e-14 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-13)) (let ((e-16 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((sc7 e-19)) (let ((e-22 (vector-ref sc7 1))) (let ((e-23 (vector-ref sc7 2))) (let ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--caseC-32blockC-32inC-32checkClause-16951 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-12 arg-13))))) arg-4))))) (let ((act-25 (let ((act-25 ((Context-Core-getFullName arg-1 (vector 8 arg-7)) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 59 e-5 e-17 eta-1))) (Elab-TTImp-elabTermSub arg-0 e-12 arg-1 arg-2 arg-3 arg-7 wmode arg-8 e-18 e-16 arg-10 e-14 e-7 (vector 0 ))) eta-0)))))))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-12 (vector 0 e-14 (vector 0 e-16 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc9 e-17)) (let ((e-20 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((act-26 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-21 (vector-ref sc10 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc10 1))) (let ((act-27 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-20 eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-24 (vector-ref sc11 1))) (vector 0 e-24))) (else (let ((e-24 (vector-ref sc11 1))) (let ((act-28 (Context-Core-logTerm e-12 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 1))) (vector 0 e-25))) (else (let ((e-25 (vector-ref sc12 1))) (let ((act-29 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc13 act-29)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (vector 0 e-26))) (else (let ((e-26 (vector-ref sc13 1))) (let ((act-30 (let ((act-30 (unbox arg-1))) (vector 1 act-30)))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-27 (vector-ref sc14 1))) (vector 0 e-27))) (else (let ((e-27 (vector-ref sc14 1))) (let ((act-31 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-20 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-28 (vector-ref sc15 1))) (vector 0 e-28))) (else (let ((e-28 (vector-ref sc15 1))) (let ((act-32 (Normalise-Core-normaliseHoles e-12 e-27 e-16 e-26 eta-0))) (let ((sc16 act-32)) (case (vector-ref sc16 0) ((0) (let ((e-29 (vector-ref sc16 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc16 1))) (let ((_-1 (vector 0 e-20 e-4))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkClause-15202 e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-12 e-14 e-16 e-18 e-22 e-23 _-0 wmode e-20 e-4 _-1 e-21 e-24 e-25 e-26 e-27 e-28 e-29 (ProcessDef-TTImp-n--15937-14584-keepOldEnv e-9 e-8 e-7 e-6 e-5 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-12 e-14 (let ((sc17 (Env-Core-findSubEnv e-12 e-16 e-28))) (let ((e-30 (vector-ref sc17 2))) e-30)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessDef-TTImp-calcRefs (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((ProcessDef-TTImp-case--caseC-32blockC-32inC-32calcRefs-17255 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (vector 1 (vector 0 ))))))))))))))))) (define ProcessDef-TTImp-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-resolveName arg-1 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 arg-3 (vector 0 (vector 1 arg-3) (vector 0 (List-Data-reverse 'erased (Env-Core-allVarsNoLet arg-0 arg-2)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyTo arg-0 fc (vector 1 fc nt (vector 8 e-5)) arg-2)))))))))))))) -(define WithClause-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNewLHS-4411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-8 "with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-15) (Strings-Types-Prelude-C-43C-43 " against " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-18) (Strings-Types-Prelude-C-43C-43 " dropping " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (vector 1 e-1 e-2)))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((WithClause-TTImp-getMatch 0 arg-15 arg-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-log arg-8 "with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Matches: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) e-6)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((newlhs (TTImp-TTImp-apply (vector 0 arg-7 arg-4) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 1 e-1 e-6 eta-1)) arg-3) e-2)))) (let ((act-27 ((Context-Core-log arg-8 "with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp newlhs)))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 newlhs)))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0))))))) +(define WithClause-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNewLHS-4411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-15) (Strings-Types-Prelude-C-43C-43 " against " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-18) (Strings-Types-Prelude-C-43C-43 " dropping " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (vector 1 e-1 e-2))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 ((WithClause-TTImp-getMatch 0 arg-15 arg-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Matches: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) e-6))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((newlhs (TTImp-TTImp-apply (vector 0 arg-7 arg-4) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 1 e-1 e-6 eta-1)) arg-3) e-2)))) (let ((act-27 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp newlhs))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 newlhs)))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0))))))) (define WithClause-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNewLHS-4360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setUnboundImplicits arg-8 arg-12 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) ((WithClause-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNewLHS-4411 '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--caseC-32blockC-32inC-32getNewLHS-4316 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindNames arg-8 1 arg-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setUnboundImplicits arg-8 arg-12 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-1 (vector 0 e-6 e-4))) ((WithClause-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNewLHS-4411 '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--getNewLHS-4273 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-isUnboundImplicits arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setUnboundImplicits arg-8 0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (BindImplicits-TTImp-bindNames arg-8 1 arg-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc4 e-7)) (let ((e-8 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-8 1 e-2 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-1 (vector 0 e-8 e-4))) (let ((sc6 e-9)) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((act-28 (Context-Core-setUnboundImplicits arg-8 e-5 eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((_-2 (vector 0 e-11 e-10))) ((WithClause-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNewLHS-4411 '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))))))))))))))))))))))))))))))))))))))))) @@ -5448,707 +5375,708 @@ (define WithClause-TTImp-case--getMatch-3588 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-3 eta-0))))))) (define WithClause-TTImp-case--getMatch-3547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-4 eta-0))))))) (define WithClause-TTImp-case--getMatch-3501 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-5 eta-0))))))) -(define WithClause-TTImp-n--6772-4607-wrhsC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) -(define WithClause-TTImp-n--6772-4606-wrhs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-0 e-1 e-2 e-3 e-6 e-7)))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc2 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-5 e-12)))))))))))))))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((e-17 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-12 e-13 e-14 e-5 e-6 e-7))))))))))))))))))))))))) ((4) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (WithClause-TTImp-n--6772-4607-wrhsC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-21) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-18 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-22 e-23 e-5)))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-25 e-26 e-5)))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-30) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-28 e-5 e-6))))))))))))))))) ((9) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-31 e-5 e-33 e-6)))))))))))))))))) ((10) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (WithClause-TTImp-n--6772-4605-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-35 e-36 (vector 1 e-37 (vector 0 ))))))) ((13) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-38 e-5 e-6))))))))))))))))) ((19) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-43) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-41 e-42 e-5)))))))))))) ((20) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-44 e-5))))))))))) ((21) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6772-4606-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-47) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 21 e-46 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) -(define WithClause-TTImp-n--6772-4604-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--6772-4604-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--6772-4605-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--6772-4605-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 (vector 1 e-6 arg-9)))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' application") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-6 "with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "With-app: Matching " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-0) (Strings-Types-Prelude-C-43C-43 " against " (TTImp-TTImp-show_Show__RawImp arg-8)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((WithClause-TTImp-getMatch 1 arg-0 arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-log arg-6 "with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Result: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) e-6)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((newrhs (TTImp-TTImp-apply (vector 0 arg-7 arg-3) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 0 e-2 e-6 eta-1)) arg-2)))) (let ((act-27 ((Context-Core-log arg-6 "with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "With args for RHS: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) arg-2)))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 ((Context-Core-log arg-6 "with" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New RHS: " (TTImp-TTImp-show_Show__RawImp newrhs)))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (WithClause-TTImp-n--6772-4604-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 newrhs e-3))))))))))))))))))))))))))))))))))) -(define WithClause-TTImp-n--5477-3619-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--6282-4193-dropWithArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-10 (vector 0 )))))(else (let ((e-0 (- arg-9 1))) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6282-4193-dropWithArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 0 e-6 (vector 1 e-3 e-4)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0))))))))))) -(define WithClause-TTImp-withRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (WithClause-TTImp-n--6772-4606-wrhs arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5))) +(define WithClause-TTImp-n--6583-4601-wrhsC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) +(define WithClause-TTImp-n--6583-4600-wrhs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 e-0 e-1 e-2 e-3 e-6 e-7)))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc2 1))) (vector 1 (vector 2 e-6 e-7 e-8 e-9 e-5 e-12)))))))))))))))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((e-17 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-16) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-12 e-13 e-14 e-5 e-6 e-7))))))))))))))))))))))))) ((4) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (let ((e-21 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (WithClause-TTImp-n--6583-4601-wrhsC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-21) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-18 e-5 e-6 e-7))))))))))))))))))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-22 e-23 e-5)))))))))))) ((7) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-27) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-25 e-26 e-5)))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-30) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-28 e-5 e-6))))))))))))))))) ((9) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 9 e-31 e-5 e-33 e-6)))))))))))))))))) ((10) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (WithClause-TTImp-n--6583-4599-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-35 e-36 (vector 1 e-37 (vector 0 ))))))) ((13) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 13 e-38 e-5 e-6))))))))))))))))) ((19) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-43) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-41 e-42 e-5)))))))))))) ((20) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-44 e-5))))))))))) ((21) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6583-4600-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-47) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 21 e-46 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) +(define WithClause-TTImp-n--6583-4598-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--6583-4598-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--6583-4599-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--6583-4599-updateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 (vector 1 e-6 arg-9)))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' application") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "With-app: Matching " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp arg-0) (Strings-Types-Prelude-C-43C-43 " against " (TTImp-TTImp-show_Show__RawImp arg-8))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((WithClause-TTImp-getMatch 1 arg-0 arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Result: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) e-6))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((newrhs (TTImp-TTImp-apply (vector 0 arg-7 arg-3) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (WithClause-TTImp-getArgMatch arg-7 0 e-2 e-6 eta-1)) arg-2)))) (let ((act-27 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "With args for RHS: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-1) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-2)))) x-1)) (lambda (d-1) (lambda (x-1) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2)))) d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) d x)))) arg-2))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New RHS: " (TTImp-TTImp-show_Show__RawImp newrhs))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (WithClause-TTImp-n--6583-4598-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 newrhs e-3))))))))))))))))))))))))))))))))))) +(define WithClause-TTImp-n--5294-3619-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--6099-4193-dropWithArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-10 (vector 0 )))))(else (let ((e-0 (- arg-9 1))) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-n--6099-4193-dropWithArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 0 e-6 (vector 1 e-3 e-4)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-7 "Badly formed 'with' clause") eta-0))))))))))) +(define WithClause-TTImp-withRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (WithClause-TTImp-n--6583-4600-wrhs arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5))) (define WithClause-TTImp-mergeMatches (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-mergeMatches arg-0 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((WithClause-TTImp-case--mergeMatches-4036 e-6 e-7 e-3 arg-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) 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-matchAny (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-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-catch_Catchable__Core_Error 'erased (WithClause-TTImp-getMatch arg-1 e-6 e-7) (lambda (err) (WithClause-TTImp-matchAny arg-0 arg-1 e-3)) eta-0)))))))))))) (define WithClause-TTImp-matchAll (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-matchAll arg-0 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((WithClause-TTImp-getMatch arg-0 e-6 e-7) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (List-Types-Prelude-C-43C-43 'erased e-8 e-5)) eta-0)))))))))))))))))))))) -(define WithClause-TTImp-getNewLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((WithClause-TTImp-n--6282-4193-dropWithArgs 'erased arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Context-Core-isUnboundImplicits arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-setUnboundImplicits arg-1 0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 arg-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (BindImplicits-TTImp-bindNames arg-1 1 e-2 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((_-1 (vector 0 e-9 e-4))) (let ((sc7 e-10)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 (Context-Core-setUnboundImplicits arg-1 e-6 ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((_-2 (vector 0 e-12 e-11))) ((WithClause-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNewLHS-4411 'erased arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 e-7 e-9 e-4 _-1 e-12 e-11 _-2 e-13 (List-Data-reverse 'erased e-3)) ext-0))))))))))))))))))))))))))))))))))))))))))))) -(define WithClause-TTImp-getMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((16) (let ((e-39 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-39 arg-2) (vector 0 )))))) ((31) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (let ((e-62 (vector-ref sc1 1))) (let ((e-63 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-64 (vector-ref sc2 1))) (let ((e-65 (vector-ref sc2 2))) (let ((sc3 e-65)) (case (vector-ref sc3 0) ((0) (let ((e-66 (vector-ref sc3 1))) (let ((e-67 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3501 e-42 e-63 e-62 e-67 e-66 e-64 arg-0 (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-63 e-67) (lambda () (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) e-66 e-62)))))))(else (WithClause-TTImp-case--getMatch-3547 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--getMatch-3588 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-10 (vector-ref sc3 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc3 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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--getMatch-3588 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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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--getMatch-3660 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 (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-45 e-69) (lambda () (Basics-Prelude-C-38C-38 (WithClause-TTImp-n--5477-3619-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 () (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Name-Core-C-61C-61_Eq__Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) 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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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--getMatch-3764 e-53 e-56 e-55 e-54 e-80 e-79 e-78 e-77 arg-0 (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Name-Core-C-61C-61_Eq__Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) 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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc0 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-21 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 3))) (let ((e-24 (vector-ref sc2 4))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((e-25 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-9 (vector-ref sc0 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((28) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((27) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-getNewLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((WithClause-TTImp-n--6099-4193-dropWithArgs 'erased arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Context-Core-isUnboundImplicits arg-1 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-setUnboundImplicits arg-1 0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (BindImplicits-TTImp-bindNames arg-1 1 arg-7 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-28 (BindImplicits-TTImp-bindNames arg-1 1 e-2 ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((_-1 (vector 0 e-9 e-4))) (let ((sc7 e-10)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (let ((act-29 (Context-Core-setUnboundImplicits arg-1 e-6 ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((_-2 (vector 0 e-12 e-11))) ((WithClause-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getNewLHS-4411 'erased arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 e-7 e-9 e-4 _-1 e-12 e-11 _-2 e-13 (List-Data-reverse 'erased e-3)) ext-0))))))))))))))))))))))))))))))))))))))))))))) +(define WithClause-TTImp-getMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((16) (let ((e-39 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-39 arg-2) (vector 0 )))))) ((31) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (let ((e-62 (vector-ref sc1 1))) (let ((e-63 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((0) (let ((e-64 (vector-ref sc2 1))) (let ((e-65 (vector-ref sc2 2))) (let ((sc3 e-65)) (case (vector-ref sc3 0) ((0) (let ((e-66 (vector-ref sc3 1))) (let ((e-67 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3501 e-42 e-63 e-62 e-67 e-66 e-64 arg-0 (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-63 e-67) (lambda () (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) e-66 e-62)))))))(else (WithClause-TTImp-case--getMatch-3547 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--getMatch-3588 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-10 (vector-ref sc3 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc3 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-9 (vector-ref sc4 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc4 arg-1)) (case (vector-ref sc4 0) ((28) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc3 3))) (let ((e-16 (vector-ref sc3 4))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((17) (let ((e-21 (vector-ref sc5 1))) (let ((e-23 (vector-ref sc5 3))) (let ((e-24 (vector-ref sc5 4))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((1) (let ((e-25 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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--getMatch-3588 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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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--getMatch-3660 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 (Basics-Prelude-C-38C-38 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-45 e-69) (lambda () (Basics-Prelude-C-38C-38 (WithClause-TTImp-n--5294-3619-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 () (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Name-Core-C-61C-61_Eq__Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) 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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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--getMatch-3764 e-53 e-56 e-55 e-54 e-80 e-79 e-78 e-77 arg-0 (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Name-Core-C-61C-61_Eq__Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) 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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc2 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-9 (vector-ref sc3 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((28) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc2 3))) (let ((e-16 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((17) (let ((e-21 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 3))) (let ((e-24 (vector-ref sc4 4))) (let ((sc5 e-23)) (case (vector-ref sc5 0) ((1) (let ((e-25 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc1 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-9 (vector-ref sc2 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((28) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc1 3))) (let ((e-16 (vector-ref sc1 4))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((17) (let ((e-21 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 3))) (let ((e-24 (vector-ref sc3 4))) (let ((sc4 e-23)) (case (vector-ref sc4 0) ((1) (let ((e-25 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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-10 (vector-ref sc0 1))) (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-matchAny e-10 arg-0 (List-Data-zip 'erased 'erased e-12 e-19))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-9 (vector-ref sc1 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((28) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0))))))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))))))))))) ((17) (let ((e-15 (vector-ref sc0 3))) (let ((e-16 (vector-ref sc0 4))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 1))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((17) (let ((e-21 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 3))) (let ((e-24 (vector-ref sc2 4))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((e-25 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 (vector 16 e-21 e-25)) e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-24 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((WithClause-TTImp-mergeMatches arg-0 (vector 1 (vector 0 e-20 arg-2) e-5)) eta-0))))))))))))(else (WithClause-TTImp-getMatch arg-0 e-16 arg-2)))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-9 (vector-ref sc0 4))) (WithClause-TTImp-getMatch arg-0 arg-1 e-9)))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((28) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((28) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((27) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((27) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (WithClause-TTImp-case--getMatch-3943 e-2 e-1 e-5 e-4 arg-0 (TT-Core-C-61C-61_Eq__Constant e-2 e-5)))))(else (lambda (eta-0) (WithClause-TTImp-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--getArgMatch-4099 e-14 arg-3 arg-2 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__String arg-5 arg-6)))) e-14 arg-3))))(else (vector 11 arg-0 (Types-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--getArgMatch-4152 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__String arg-5 arg-6)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-6 (vector-ref sc4 1))) (WithClause-TTImp-case--getArgMatch-4152 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__String arg-5 arg-6)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0)))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (WithClause-TTImp-case--getArgMatch-4152 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__String arg-5 arg-6)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 1))) (WithClause-TTImp-case--getArgMatch-4152 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__String arg-5 arg-6)))) e-6 arg-3))))(else (vector 31 arg-0 0)))))))(else (vector 31 arg-0 0))))))(else (vector 31 arg-0 0)))))))))))) -(define PartialEval-TTImp-case--quoteGenNF-15917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-13))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-3) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-13))))))))))))) -(define PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32quoteGenNF-15572 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5))))))))))))) -(define PartialEval-TTImp-case--caseC-32blockC-32inC-32quoteGenNF-15449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-7 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((PartialEval-TTImp-specialise (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1) arg-11 arg-10 arg-9 arg-4 (PartialEval-TTImp-n--12781-15383-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 arg-4 t)) e-6)) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 e-1))) (else (let ((act-27 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-5 arg-6 arg-5 arg-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-8))))))))))))))))))))))))))))))) -(define PartialEval-TTImp-case--quoteGenNF-15419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--caseC-32blockC-32inC-32quoteGenNF-15449 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 _-0 (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 6))) e-5)))))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5))))))))))))) -(define PartialEval-TTImp-case--quoteHead-14975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2))))))))) -(define PartialEval-TTImp-case--quoteHeadC-44findName-14924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--caseC-32blockC-32inC-32quoteHeadC-44findName-14858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--quoteHeadC-44findName-14769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12757-14753-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--quoteHead-14705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (vector 1 (vector 0 arg-8 arg-4 arg-14)))) -(define PartialEval-TTImp-case--quoteHeadC-44addLater-14645 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--caseC-32blockC-32inC-32findSpecs-14226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))))))) -(define PartialEval-TTImp-case--findSpecs-14193 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-specialise arg-0 arg-7 arg-6 arg-5 arg-2 arg-4 e-1 arg-1 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))))))) -(define PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialise-14051 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-1) (PartialEval-TTImp-mkSpecDef 'erased arg-8 arg-7 arg-6 arg-5 arg-3 arg-14 arg-11 arg-2 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define PartialEval-TTImp-case--caseC-32blockC-32inC-32specialise-13978 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-getStatic eta-0)) (Types-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-Types-Prelude-C-43C-43 "PE_" (Strings-Types-Prelude-C-43C-43 (Name-Core-nameRoot arg-10) (Strings-Types-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialise-14051 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 nhash pename e-5 (NameMap-Data-lookup 'erased pename (let ((sc2 e-5)) (let ((e-23 (vector-ref sc2 24))) e-23)))) eta-0)))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define PartialEval-TTImp-case--specialise-13917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-8 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-2 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((PartialEval-TTImp-n--11732-13596-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9 arg-1) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-getStatic eta-1)) (Types-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-Types-Prelude-C-43C-43 "PE_" (Strings-Types-Prelude-C-43C-43 (Name-Core-nameRoot e-5) (Strings-Types-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (let ((act-26 (let ((act-26 (unbox arg-8))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialise-14051 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-1 _-0 nhash pename e-7 (NameMap-Data-lookup 'erased pename (let ((sc4 e-7)) (let ((e-23 (vector-ref sc4 24))) e-23)))) eta-0))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) -(define PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialiseC-44getSpecArgs-13744 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 0 e-1)) arg-14)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define PartialEval-TTImp-case--caseC-32blockC-32inC-32specialiseC-44getSpecArgs-13684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-4 arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PartialEval-TTImp-eraseInferred 'erased arg-8 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialiseC-44getSpecArgs-13744 arg-0 arg-1 arg-2 arg-3 arg-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--11732-13595-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 e-7)) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 1 )) arg-14))))))))) -(define PartialEval-TTImp-case--specialiseC-44getSpecArgs-13648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--caseC-32blockC-32inC-32specialiseC-44getSpecArgs-13684 arg-0 arg-1 arg-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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-15) (lambda (arg-16) (Types-Prelude-C-61C-61_Eq__Nat arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Types-Prelude-C-47C-61_Eq__Nat arg-15 arg-16)))) arg-13 arg-12))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define PartialEval-TTImp-case--caseC-32blockC-32inC-32eraseInferred-13501 (lambda (arg-0 arg-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--11487-13388-dropErased 'erased arg-1 arg-2 arg-4 0 (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 7))) e-6)) arg-5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-3) e-5))))))))))) (else (lambda (eta-0) (vector 1 arg-1))))))) -(define PartialEval-TTImp-case--eraseInferred-13456 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((argsE (PartialEval-TTImp-n--11487-13388-dropErased 'erased arg-1 arg-2 e-5 0 (let ((sc6 e-1)) (let ((e-24 (vector-ref sc6 7))) e-24)) e-3))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 1 ) e-7) e-10)))))))))) (else (vector 1 arg-1))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3)))))))))))))))))) -(define PartialEval-TTImp-case--eraseInferredC-44dropErased-13404 (lambda (arg-0 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--11487-13388-dropErased 'erased arg-1 arg-2 arg-7 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (PartialEval-TTImp-n--11487-13388-dropErased 'erased arg-1 arg-2 arg-7 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4))))))) -(define PartialEval-TTImp-case--mkSpecDef-13331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (NameMap-Data-insert 'erased arg-4 (vector 0 ) e-23) e-24 e-25)))))))))))))))))))))))))))))) -(define PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkSpecDef-13157 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define PartialEval-TTImp-case--caseC-32blockC-32inC-32mkSpecDef-13097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-5))))))))) (else (vector 1 (vector 1 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-5)))))))))))))) -(define PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkSpecDef-12843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31) (let ((sc0 arg-31)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-9 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New patterns for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--10254-12259-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-1))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 8 arg-18) e-1)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-setAllPublic arg-9 1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 arg-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))) -(define PartialEval-TTImp-case--caseC-32blockC-32inC-32mkSpecDef-12739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--10254-12258-unelabDef 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-4) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Attempting to specialise:\u000a" (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--10254-12259-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-5)))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-22 (vector 0 ) (let ((sc2 arg-5)) (let ((e-24 (vector-ref sc2 3))) e-24))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((PartialEval-TTImp-getSpecPats 'erased arg-9 arg-6 arg-4 arg-2 arg-1 e-6 arg-3 arg-12 e-4) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Context-Core-log arg-9 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New patterns for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--10254-12259-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-7))))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-27 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 8 arg-18) e-7)) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-28 (Context-Core-setAllPublic arg-9 1 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (vector 1 arg-13))))))))))))))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))) -(define PartialEval-TTImp-case--mkSpecDef-12548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (lambda (eta-2) (let ((act-25 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-0 eta-2))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 0 e-6))))))))) (else (vector 1 (vector 1 ))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-6))))))))))))) arg-3) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Specialising " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Types-Prelude-C-43C-43 ") by " (Name-Core-showSep ", " e-6)))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 arg-12 (let ((sc2 arg-5)) (let ((e-2 (vector-ref sc2 3))) e-2))))) (let ((act-25 ((Normalise-Core-logTermNF (vector 0 ) arg-9 "specialise" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-4))) (vector 0 ) sty) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-9 arg-4 (Context-Core-newDef arg-6 arg-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) sty (vector 2 ) (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addToSave arg-9 (vector 8 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((specnames (PartialEval-TTImp-n--10254-12256-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (NameMap-Data-empty 'erased) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased specnames)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (unbox arg-9))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 ((PartialEval-TTImp-getReducible (vector 1 arg-2 (vector 0 )) (NameMap-Data-empty 'erased) e-10) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-setFlag arg-9 arg-6 (vector 8 e-7) (vector 7 (List-Types-Prelude-C-43C-43 'erased e-9 (NameMap-Data-toList 'erased e-11))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32mkSpecDef-12739 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 _-0 e-5 sty e-6 e-7 e-8 specnames e-9 e-10 e-11 e-12 (let ((sc9 arg-5)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-0)))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-9 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Already specialised " (Name-Core-show_Show__Name arg-4)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 arg-13))))))))))) -(define PartialEval-TTImp-case--caseC-32blockC-32inC-32mkSpecDef-12466 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--mkSpecDef-12435 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32getReducible-12205 (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 (Types-Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) (PartialEval-TTImp-getReducible (List-Types-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased calls) arg-1) refsC-39 arg-2))))))))) -(define PartialEval-TTImp-case--getReducible-12186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-0 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((PartialEval-TTImp-getReducible arg-1 arg-3 arg-2) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Types-Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) ((PartialEval-TTImp-getReducible (List-Types-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--getSpecPats-12090 (lambda (arg-0 arg-1 arg-2 arg-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--9668-11696-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 arg-8 eta-0)) dynnames)))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-4 (vector 0 arg-8 arg-6) dynnames arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 1 (vector 0 arg-8 lhs e-5) (vector 0 ))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9668-11701-unelabPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-7 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))))))) -(define PartialEval-TTImp-case--dropSpec-11638 (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 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2))) (else (PartialEval-TTImp-dropSpec 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2)))))) -(define PartialEval-TTImp-case--specPatByVar-11528 (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))) (Types-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))) (Types-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--caseC-32blockC-32inC-32mkSubsts-11352 (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--mkSubsts-11313 (lambda (arg-0 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--substLoc-11152 (lambda (arg-0 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--specialiseTy-11070 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 3 arg-7 arg-5 (vector 2 arg-4 arg-3 (vector 1 ) arg-1) (PartialEval-TTImp-specialiseTy (vector 1 arg-5 arg-0) (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-9) arg-8 arg-6))) (else (let ((e-2 (vector-ref sc0 1))) (PartialEval-TTImp-specialiseTy arg-0 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-9) arg-8 (SubstEnv-TT-Core-subst arg-0 arg-5 (TT-Core-embed 'erased 'erased e-2) arg-6)))))))) -(define PartialEval-TTImp-n--9668-11701-unelabPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((lhsC-39 (PartialEval-TTImp-n--9668-11700-dropArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 arg-8 lhsC-39 e-12))))))))))))))))))))))))))))))))))) -(define PartialEval-TTImp-n--10254-12258-unelabDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 arg-6 e-5 e-12)))))))))))))))))))))))))))))))))) -(define PartialEval-TTImp-n--10254-12259-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-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-1) (Strings-Types-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp e-2))))))(else "Can't happen"))))) -(define PartialEval-TTImp-n--9668-11699-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--9668-11699-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--9668-11699-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--9668-11697-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-18 (vector-ref sc1 3))) (let ((sc2 e-18)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-49 (vector-ref sc3 1))) (let ((e-50 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-52 (vector-ref sc4 1))) (let ((e-53 (vector-ref sc4 2))) (let ((sc5 e-52)) (case (vector-ref sc5 0) ((0) (let ((e-57 (vector-ref sc5 2))) (let ((sc6 e-57)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9668-11697-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-49))) e-50 e-53) eta-0)))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-38 (vector-ref sc6 1))) (let ((e-39 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((0) (let ((e-46 (vector-ref sc8 2))) (let ((sc9 e-46)) (case (vector-ref sc9 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 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-38))) e-39 e-42) eta-0)))))))))))))(else (let ((sc9 e-18)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-30 (vector-ref sc10 1))) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-30)) (case (vector-ref sc11 0) ((0) (let ((e-35 (vector-ref sc11 2))) (let ((sc12 e-35)) (case (vector-ref sc12 0) ((0) (let ((e-36 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((sc13 e-21)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 2))) (let ((sc14 e-26)) (case (vector-ref sc14 0) ((0) (let ((e-27 (vector-ref sc14 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc15 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc16 act-25)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc16 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc17 act-26)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc17 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 2))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 2))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 2))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-30)) (case (vector-ref sc10 0) ((0) (let ((e-35 (vector-ref sc10 2))) (let ((sc11 e-35)) (case (vector-ref sc11 0) ((0) (let ((e-36 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 2))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 2))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 2))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc7 e-18)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-30 (vector-ref sc8 1))) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-30)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 2))) (let ((sc10 e-35)) (case (vector-ref sc10 0) ((0) (let ((e-36 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 2))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 2))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-18)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-30)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 2))) (let ((sc9 e-35)) (case (vector-ref sc9 0) ((0) (let ((e-36 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 2))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 2))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-38 (vector-ref sc5 1))) (let ((e-39 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (let ((sc7 e-41)) (case (vector-ref sc7 0) ((0) (let ((e-46 (vector-ref sc7 2))) (let ((sc8 e-46)) (case (vector-ref sc8 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 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-38))) e-39 e-42) eta-0)))))))))))))(else (let ((sc8 e-18)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-30)) (case (vector-ref sc10 0) ((0) (let ((e-35 (vector-ref sc10 2))) (let ((sc11 e-35)) (case (vector-ref sc11 0) ((0) (let ((e-36 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 2))) (let ((sc13 e-26)) (case (vector-ref sc13 0) ((0) (let ((e-27 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 2))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 2))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc7 e-18)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-30 (vector-ref sc8 1))) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-30)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 2))) (let ((sc10 e-35)) (case (vector-ref sc10 0) ((0) (let ((e-36 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 2))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 2))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-18)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-30)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 2))) (let ((sc9 e-35)) (case (vector-ref sc9 0) ((0) (let ((e-36 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 2))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 2))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-18)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-30)) (case (vector-ref sc7 0) ((0) (let ((e-35 (vector-ref sc7 2))) (let ((sc8 e-35)) (case (vector-ref sc8 0) ((0) (let ((e-36 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 2))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 2))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-38 (vector-ref sc4 1))) (let ((e-39 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (let ((sc6 e-41)) (case (vector-ref sc6 0) ((0) (let ((e-46 (vector-ref sc6 2))) (let ((sc7 e-46)) (case (vector-ref sc7 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 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-38))) e-39 e-42) eta-0)))))))))))))(else (let ((sc7 e-18)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-30 (vector-ref sc8 1))) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-30)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 2))) (let ((sc10 e-35)) (case (vector-ref sc10 0) ((0) (let ((e-36 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 2))) (let ((sc12 e-26)) (case (vector-ref sc12 0) ((0) (let ((e-27 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 2))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc6 e-18)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-30)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 2))) (let ((sc9 e-35)) (case (vector-ref sc9 0) ((0) (let ((e-36 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 2))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 2))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-18)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-30)) (case (vector-ref sc7 0) ((0) (let ((e-35 (vector-ref sc7 2))) (let ((sc8 e-35)) (case (vector-ref sc8 0) ((0) (let ((e-36 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 2))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 2))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-18)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-30)) (case (vector-ref sc6 0) ((0) (let ((e-35 (vector-ref sc6 2))) (let ((sc7 e-35)) (case (vector-ref sc7 0) ((0) (let ((e-36 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 2))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 2))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 2))) (let ((sc6 e-26)) (case (vector-ref sc6 0) ((0) (let ((e-27 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-38 (vector-ref sc3 1))) (let ((e-39 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (let ((sc5 e-41)) (case (vector-ref sc5 0) ((0) (let ((e-46 (vector-ref sc5 2))) (let ((sc6 e-46)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 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-38))) e-39 e-42) eta-0)))))))))))))(else (let ((sc6 e-18)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-30)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 2))) (let ((sc9 e-35)) (case (vector-ref sc9 0) ((0) (let ((e-36 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 2))) (let ((sc11 e-26)) (case (vector-ref sc11 0) ((0) (let ((e-27 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 2))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc5 e-18)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-30)) (case (vector-ref sc7 0) ((0) (let ((e-35 (vector-ref sc7 2))) (let ((sc8 e-35)) (case (vector-ref sc8 0) ((0) (let ((e-36 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 2))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 2))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-18)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-30)) (case (vector-ref sc6 0) ((0) (let ((e-35 (vector-ref sc6 2))) (let ((sc7 e-35)) (case (vector-ref sc7 0) ((0) (let ((e-36 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 2))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 2))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 2))) (let ((sc6 e-26)) (case (vector-ref sc6 0) ((0) (let ((e-27 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-30)) (case (vector-ref sc5 0) ((0) (let ((e-35 (vector-ref sc5 2))) (let ((sc6 e-35)) (case (vector-ref sc6 0) ((0) (let ((e-36 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 2))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 2))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 2))) (let ((sc6 e-26)) (case (vector-ref sc6 0) ((0) (let ((e-27 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (case (vector-ref sc4 0) ((0) (let ((e-26 (vector-ref sc4 2))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((0) (let ((e-27 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (let ((sc4 e-41)) (case (vector-ref sc4 0) ((0) (let ((e-46 (vector-ref sc4 2))) (let ((sc5 e-46)) (case (vector-ref sc5 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 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-38))) e-39 e-42) eta-0)))))))))))))(else (let ((sc5 e-18)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-30)) (case (vector-ref sc7 0) ((0) (let ((e-35 (vector-ref sc7 2))) (let ((sc8 e-35)) (case (vector-ref sc8 0) ((0) (let ((e-36 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 0) ((0) (let ((e-27 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 2))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 2))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc4 e-18)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-30)) (case (vector-ref sc6 0) ((0) (let ((e-35 (vector-ref sc6 2))) (let ((sc7 e-35)) (case (vector-ref sc7 0) ((0) (let ((e-36 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 2))) (let ((sc9 e-26)) (case (vector-ref sc9 0) ((0) (let ((e-27 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 2))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 2))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 2))) (let ((sc6 e-26)) (case (vector-ref sc6 0) ((0) (let ((e-27 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-18)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-30)) (case (vector-ref sc5 0) ((0) (let ((e-35 (vector-ref sc5 2))) (let ((sc6 e-35)) (case (vector-ref sc6 0) ((0) (let ((e-36 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 2))) (let ((sc8 e-26)) (case (vector-ref sc8 0) ((0) (let ((e-27 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 2))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 2))) (let ((sc6 e-26)) (case (vector-ref sc6 0) ((0) (let ((e-27 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (case (vector-ref sc4 0) ((0) (let ((e-26 (vector-ref sc4 2))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((0) (let ((e-27 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc2 e-18)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-30 (vector-ref sc3 1))) (let ((e-31 (vector-ref sc3 2))) (let ((sc4 e-30)) (case (vector-ref sc4 0) ((0) (let ((e-35 (vector-ref sc4 2))) (let ((sc5 e-35)) (case (vector-ref sc5 0) ((0) (let ((e-36 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-36 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9668-11697-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-31) eta-0)))))))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 2))) (let ((sc7 e-26)) (case (vector-ref sc7 0) ((0) (let ((e-27 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((sc5 e-21)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 2))) (let ((sc6 e-26)) (case (vector-ref sc6 0) ((0) (let ((e-27 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((sc4 e-21)) (case (vector-ref sc4 0) ((0) (let ((e-26 (vector-ref sc4 2))) (let ((sc5 e-26)) (case (vector-ref sc5 0) ((0) (let ((e-27 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((sc3 e-21)) (case (vector-ref sc3 0) ((0) (let ((e-26 (vector-ref sc3 2))) (let ((sc4 e-26)) (case (vector-ref sc4 0) ((0) (let ((e-27 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-27 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) ((PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) e-7) arg-12 e-22) 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--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((1) (PartialEval-TTImp-n--9668-11697-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))) -(define PartialEval-TTImp-n--9668-11696-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-Types-Prelude-C-43C-43 "_pe" (Show-Prelude-show_Show__Int arg-10)) (PartialEval-TTImp-n--9668-11696-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (b+ 1 arg-10 63) e-3)))(else (PartialEval-TTImp-n--9668-11696-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--9668-11696-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--11732-13596-getSpecArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--11732-13596-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-9) arg-10 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32specialiseC-44getSpecArgs-13684 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-61C-61_Eq__Nat arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-47C-61_Eq__Nat arg-12 arg-13)))) arg-9 arg-10)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))) -(define PartialEval-TTImp-n--9668-11698-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--9668-11698-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--9668-11698-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--10254-12256-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--10254-12256-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--10254-12256-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--12757-14753-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--quoteHeadC-44findName-14769 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 (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12757-14753-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--12781-15383-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 arg-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-4 1)) (PartialEval-TTImp-n--12781-15383-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--11487-13388-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--eraseInferredC-44dropErased-13404 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-61C-61_Eq__Nat arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-47C-61_Eq__Nat arg-7 arg-8)))) arg-4 arg-5))))))))) -(define PartialEval-TTImp-n--9668-11700-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--9668-11699-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--9668-11698-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--11732-13594-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--11732-13594-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--11732-13595-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--11732-13594-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--12757-14616-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--quoteHeadC-44addLater-14645 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--12757-14616-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-case--quoteGenNF-15895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((6) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-1 e-6 arg-13))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-3) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-13))))))))))))) +(define PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32quoteGenNF-15550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5))))))))))))) +(define PartialEval-TTImp-case--caseC-32blockC-32inC-32quoteGenNF-15427 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-7 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((PartialEval-TTImp-specialise (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1) arg-11 arg-10 arg-9 arg-4 (PartialEval-TTImp-n--12566-15361-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 arg-4 t)) e-6)) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 e-1))) (else (let ((act-27 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-5 arg-6 arg-5 arg-3) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-8))))))))))))))))))))))))))))))) +(define PartialEval-TTImp-case--quoteGenNF-15397 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--caseC-32blockC-32inC-32quoteGenNF-15427 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-1 _-0 (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 6))) e-5)))))) (else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5))))))))))))) +(define PartialEval-TTImp-case--quoteHead-14953 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 0 ) e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2))))))))) +(define PartialEval-TTImp-case--quoteHeadC-44findName-14902 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--caseC-32blockC-32inC-32quoteHeadC-44findName-14836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--quoteHeadC-44findName-14747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12542-14731-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--quoteHead-14683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (vector 1 (vector 0 arg-8 arg-4 arg-14)))) +(define PartialEval-TTImp-case--quoteHeadC-44addLater-14623 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--caseC-32blockC-32inC-32findSpecs-14204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))))))) +(define PartialEval-TTImp-case--findSpecs-14171 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-specialise arg-0 arg-7 arg-6 arg-5 arg-2 arg-4 e-1 arg-1 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))))))) +(define PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialise-14029 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-1) (PartialEval-TTImp-mkSpecDef 'erased arg-8 arg-7 arg-6 arg-5 arg-3 arg-14 arg-11 arg-2 arg-1 eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define PartialEval-TTImp-case--caseC-32blockC-32inC-32specialise-13956 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (PartialEval-TTImp-getStatic eta-0)) (Types-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-Types-Prelude-C-43C-43 "PE_" (Strings-Types-Prelude-C-43C-43 (Name-Core-nameRoot arg-10) (Strings-Types-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialise-14029 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-1 _-0 nhash pename e-5 (NameMap-Data-lookup 'erased pename (let ((sc2 e-5)) (let ((e-23 (vector-ref sc2 24))) e-23)))) eta-0)))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define PartialEval-TTImp-case--specialise-13895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-8 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-2 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((PartialEval-TTImp-n--11517-13574-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 0 arg-9 arg-1) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((nhash (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-getStatic eta-1)) (Types-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-Types-Prelude-C-43C-43 "PE_" (Strings-Types-Prelude-C-43C-43 (Name-Core-nameRoot e-5) (Strings-Types-Prelude-C-43C-43 "_" (Hex-Utils-asHex nhash)))))))) (let ((act-26 (let ((act-26 (unbox arg-8))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialise-14029 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-1 _-0 nhash pename e-7 (NameMap-Data-lookup 'erased pename (let ((sc4 e-7)) (let ((e-23 (vector-ref sc4 24))) e-23)))) eta-0))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))) +(define PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialiseC-44getSpecArgs-13722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 0 e-1)) arg-14)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define PartialEval-TTImp-case--caseC-32blockC-32inC-32specialiseC-44getSpecArgs-13662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-4 arg-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PartialEval-TTImp-eraseInferred 'erased arg-8 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32specialiseC-44getSpecArgs-13722 arg-0 arg-1 arg-2 arg-3 arg-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--11517-13573-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-0 e-7)) eta-0)))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 0 arg-13 (vector 1 )) arg-14))))))))) +(define PartialEval-TTImp-case--specialiseC-44getSpecArgs-13626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--caseC-32blockC-32inC-32specialiseC-44getSpecArgs-13662 arg-0 arg-1 arg-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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-15) (lambda (arg-16) (Types-Prelude-C-61C-61_Eq__Nat arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Types-Prelude-C-47C-61_Eq__Nat arg-15 arg-16)))) arg-13 arg-12))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define PartialEval-TTImp-case--caseC-32blockC-32inC-32eraseInferred-13479 (lambda (arg-0 arg-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--11272-13366-dropErased 'erased arg-1 arg-2 arg-4 0 (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 7))) e-6)) arg-5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-3) e-5))))))))))) (else (lambda (eta-0) (vector 1 arg-1))))))) +(define PartialEval-TTImp-case--eraseInferred-13434 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 e-2)))(else (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((argsE (PartialEval-TTImp-n--11272-13366-dropErased 'erased arg-1 arg-2 e-5 0 (let ((sc6 e-1)) (let ((e-24 (vector-ref sc6 7))) e-24)) e-3))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 1 ) e-7) e-10)))))))))) (else (vector 1 arg-1))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3)))))))))))))))))) +(define PartialEval-TTImp-case--eraseInferredC-44dropErased-13382 (lambda (arg-0 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--11272-13366-dropErased 'erased arg-1 arg-2 arg-7 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (PartialEval-TTImp-n--11272-13366-dropErased 'erased arg-1 arg-2 arg-7 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4))))))) +(define PartialEval-TTImp-case--mkSpecDef-13309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (NameMap-Data-insert 'erased arg-4 (vector 0 ) e-23) e-24 e-25)))))))))))))))))))))))))))))) +(define PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkSpecDef-13137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5)))))))))) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define PartialEval-TTImp-case--caseC-32blockC-32inC-32mkSpecDef-13077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-5))))))))) (else (vector 1 (vector 1 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-5)))))))))))))) +(define PartialEval-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkSpecDef-12825 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31) (let ((sc0 arg-31)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New patterns for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--10051-12249-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-1)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 8 arg-18) e-1)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (Context-Core-setAllPublic arg-9 1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 arg-13)))))))))))))))) (else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))) +(define PartialEval-TTImp-case--caseC-32blockC-32inC-32mkSpecDef-12723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--10051-12248-unelabDef 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-4) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Attempting to specialise:\u000a" (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--10051-12249-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-2)) e-5)))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-22 (vector 0 ) (let ((sc2 arg-5)) (let ((e-24 (vector-ref sc2 3))) e-24))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((PartialEval-TTImp-getSpecPats 'erased arg-9 arg-6 arg-4 arg-2 arg-1 e-6 arg-3 arg-12 e-4) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((act-26 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "New patterns for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Types-Prelude-C-43C-43 ":\u000a" (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--10051-12249-showPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 eta-1)) e-7)))))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((act-27 ((Check-Elab-TTImp-processDecl (vector 0 ) arg-9 arg-8 arg-7 (vector 1 (vector 2 ) (vector 0 )) (vector 0 ) (vector 0 ) (vector 2 arg-6 (vector 8 arg-18) e-7)) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((act-28 (Context-Core-setAllPublic arg-9 1 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (vector 1 arg-13))))))))))))))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))))))))) +(define PartialEval-TTImp-case--mkSpecDef-12536 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-2 eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (lambda (eta-2) (let ((act-25 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-0 eta-2))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 0 e-6))))))))) (else (vector 1 (vector 1 ))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-6))))))))))))) arg-3) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Specialising " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Types-Prelude-C-43C-43 ") by " (Name-Core-showSep ", " e-6)))))))))))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 arg-12 (let ((sc2 arg-5)) (let ((e-2 (vector-ref sc2 3))) e-2))))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-4))) (vector 0 ) sty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-addDef arg-9 arg-4 (Context-Core-newDef arg-6 arg-4 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) sty (vector 2 ) (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addToSave arg-9 (vector 8 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((specnames (PartialEval-TTImp-n--10051-12246-getAllRefs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (NameMap-Data-empty 'erased) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased specnames)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (unbox arg-9))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 ((PartialEval-TTImp-getReducible (vector 1 arg-2 (vector 0 )) (NameMap-Data-empty 'erased) e-10) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-setFlag arg-9 arg-6 (vector 8 e-7) (vector 7 (List-Types-Prelude-C-43C-43 'erased e-9 (NameMap-Data-toList 'erased e-11))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32mkSpecDef-12723 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 _-0 e-5 sty e-6 e-7 e-8 specnames e-9 e-10 e-11 e-12 (let ((sc9 arg-5)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-0)))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Already specialised " (Name-Core-show_Show__Name arg-4))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 arg-13))))))))))) +(define PartialEval-TTImp-case--caseC-32blockC-32inC-32mkSpecDef-12454 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--mkSpecDef-12423 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32getReducible-12195 (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 (Types-Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) (PartialEval-TTImp-getReducible (List-Types-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased calls) arg-1) refsC-39 arg-2))))))))) +(define PartialEval-TTImp-case--getReducible-12176 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-0 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((PartialEval-TTImp-getReducible arg-1 arg-3 arg-2) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((refsC-39 (NameMap-Data-insert 'erased arg-0 (Types-Prelude-fromInteger_Num__Nat 65536) arg-3))) (let ((calls (Context-Core-refersTo e-2))) ((PartialEval-TTImp-getReducible (List-Types-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--getSpecPats-12080 (lambda (arg-0 arg-1 arg-2 arg-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--9473-11694-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 arg-8 eta-0)) dynnames)))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-4 (vector 0 arg-8 arg-6) dynnames arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 1 (vector 0 arg-8 lhs e-5) (vector 0 ))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--9473-11699-unelabPat 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-7 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5)))))))))))))) +(define PartialEval-TTImp-case--dropSpec-11636 (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 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2))) (else (PartialEval-TTImp-dropSpec 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2)))))) +(define PartialEval-TTImp-case--specPatByVar-11526 (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))) (Types-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))) (Types-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--caseC-32blockC-32inC-32mkSubsts-11350 (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--mkSubsts-11311 (lambda (arg-0 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--substLoc-11150 (lambda (arg-0 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--specialiseTy-11072 (lambda (arg-0 arg-1 arg-2 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) (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (PartialEval-TTImp-specialiseTy arg-0 (Types-Prelude-C-43_Num__Nat (Types-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--9473-11699-unelabPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((lhsC-39 (PartialEval-TTImp-n--9473-11698-dropArgs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 arg-8 lhsC-39 e-12))))))))))))))))))))))))))))))))))) +(define PartialEval-TTImp-n--10051-12248-unelabDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (unbox arg-9))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 arg-6 e-5 e-12)))))))))))))))))))))))))))))))))) +(define PartialEval-TTImp-n--10051-12249-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-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-1) (Strings-Types-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp e-2))))))(else "Can't happen"))))) +(define PartialEval-TTImp-n--9473-11697-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--9473-11697-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--9473-11697-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--9473-11695-mkRHSargs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((2) (let ((e-17 (vector-ref sc1 2))) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-48 (vector-ref sc3 1))) (let ((e-49 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((0) (let ((e-56 (vector-ref sc5 2))) (let ((sc6 e-56)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-48))) e-49 e-52) eta-0)))))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-37 (vector-ref sc6 1))) (let ((e-38 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-40 (vector-ref sc7 1))) (let ((e-41 (vector-ref sc7 2))) (let ((sc8 e-40)) (case (vector-ref sc8 0) ((0) (let ((e-45 (vector-ref sc8 2))) (let ((sc9 e-45)) (case (vector-ref sc9 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc9 e-17)) (case (vector-ref sc9 0) ((1) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-29 (vector-ref sc10 1))) (let ((e-30 (vector-ref sc10 2))) (let ((sc11 e-29)) (case (vector-ref sc11 0) ((0) (let ((e-34 (vector-ref sc11 2))) (let ((sc12 e-34)) (case (vector-ref sc12 0) ((0) (let ((e-35 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-20 (vector-ref sc12 1))) (let ((e-21 (vector-ref sc12 2))) (let ((sc13 e-20)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 2))) (let ((sc14 e-25)) (case (vector-ref sc14 0) ((0) (let ((e-26 (vector-ref sc14 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc15 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc16 act-25)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc16 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc17 act-26)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc17 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc13 arg-12)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((e-2 (vector-ref sc13 2))) (let ((sc14 arg-13)) (case (vector-ref sc14 0) ((1) (let ((e-4 (vector-ref sc14 1))) (let ((e-5 (vector-ref sc14 2))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (let ((e-9 (vector-ref sc15 2))) (let ((sc16 e-9)) (case (vector-ref sc16 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((0) (let ((e-45 (vector-ref sc7 2))) (let ((sc8 e-45)) (case (vector-ref sc8 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc8 e-17)) (case (vector-ref sc8 0) ((1) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-29 (vector-ref sc9 1))) (let ((e-30 (vector-ref sc9 2))) (let ((sc10 e-29)) (case (vector-ref sc10 0) ((0) (let ((e-34 (vector-ref sc10 2))) (let ((sc11 e-34)) (case (vector-ref sc11 0) ((0) (let ((e-35 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-20 (vector-ref sc11 1))) (let ((e-21 (vector-ref sc11 2))) (let ((sc12 e-20)) (case (vector-ref sc12 0) ((0) (let ((e-25 (vector-ref sc12 2))) (let ((sc13 e-25)) (case (vector-ref sc13 0) ((0) (let ((e-26 (vector-ref sc13 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc12 arg-12)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((sc13 arg-13)) (case (vector-ref sc13 0) ((1) (let ((e-4 (vector-ref sc13 1))) (let ((e-5 (vector-ref sc13 2))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (let ((e-9 (vector-ref sc14 2))) (let ((sc15 e-9)) (case (vector-ref sc15 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-37 (vector-ref sc4 1))) (let ((e-38 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-40 (vector-ref sc5 1))) (let ((e-41 (vector-ref sc5 2))) (let ((sc6 e-40)) (case (vector-ref sc6 0) ((0) (let ((e-45 (vector-ref sc6 2))) (let ((sc7 e-45)) (case (vector-ref sc7 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc7 e-17)) (case (vector-ref sc7 0) ((1) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-29 (vector-ref sc8 1))) (let ((e-30 (vector-ref sc8 2))) (let ((sc9 e-29)) (case (vector-ref sc9 0) ((0) (let ((e-34 (vector-ref sc9 2))) (let ((sc10 e-34)) (case (vector-ref sc10 0) ((0) (let ((e-35 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-20 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((sc11 e-20)) (case (vector-ref sc11 0) ((0) (let ((e-25 (vector-ref sc11 2))) (let ((sc12 e-25)) (case (vector-ref sc12 0) ((0) (let ((e-26 (vector-ref sc12 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc11 arg-12)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((sc12 arg-13)) (case (vector-ref sc12 0) ((1) (let ((e-4 (vector-ref sc12 1))) (let ((e-5 (vector-ref sc12 2))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (let ((e-9 (vector-ref sc13 2))) (let ((sc14 e-9)) (case (vector-ref sc14 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-37 (vector-ref sc3 1))) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-40 (vector-ref sc4 1))) (let ((e-41 (vector-ref sc4 2))) (let ((sc5 e-40)) (case (vector-ref sc5 0) ((0) (let ((e-45 (vector-ref sc5 2))) (let ((sc6 e-45)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-29 (vector-ref sc7 1))) (let ((e-30 (vector-ref sc7 2))) (let ((sc8 e-29)) (case (vector-ref sc8 0) ((0) (let ((e-34 (vector-ref sc8 2))) (let ((sc9 e-34)) (case (vector-ref sc9 0) ((0) (let ((e-35 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-20 (vector-ref sc9 1))) (let ((e-21 (vector-ref sc9 2))) (let ((sc10 e-20)) (case (vector-ref sc10 0) ((0) (let ((e-25 (vector-ref sc10 2))) (let ((sc11 e-25)) (case (vector-ref sc11 0) ((0) (let ((e-26 (vector-ref sc11 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc10 arg-12)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((sc11 arg-13)) (case (vector-ref sc11 0) ((1) (let ((e-4 (vector-ref sc11 1))) (let ((e-5 (vector-ref sc11 2))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (let ((e-9 (vector-ref sc12 2))) (let ((sc13 e-9)) (case (vector-ref sc13 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-37 (vector-ref sc2 1))) (let ((e-38 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-40 (vector-ref sc3 1))) (let ((e-41 (vector-ref sc3 2))) (let ((sc4 e-40)) (case (vector-ref sc4 0) ((0) (let ((e-45 (vector-ref sc4 2))) (let ((sc5 e-45)) (case (vector-ref sc5 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 9 arg-8 arg-11 (vector 1 e-12) (vector 0 arg-8 (vector 1 e-37))) e-38 e-41) eta-0)))))))))))))(else (let ((sc5 e-17)) (case (vector-ref sc5 0) ((1) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-29 (vector-ref sc6 1))) (let ((e-30 (vector-ref sc6 2))) (let ((sc7 e-29)) (case (vector-ref sc7 0) ((0) (let ((e-34 (vector-ref sc7 2))) (let ((sc8 e-34)) (case (vector-ref sc8 0) ((0) (let ((e-35 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-20 (vector-ref sc8 1))) (let ((e-21 (vector-ref sc8 2))) (let ((sc9 e-20)) (case (vector-ref sc9 0) ((0) (let ((e-25 (vector-ref sc9 2))) (let ((sc10 e-25)) (case (vector-ref sc10 0) ((0) (let ((e-26 (vector-ref sc10 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc9 arg-12)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((sc10 arg-13)) (case (vector-ref sc10 0) ((1) (let ((e-4 (vector-ref sc10 1))) (let ((e-5 (vector-ref sc10 2))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (let ((e-9 (vector-ref sc11 2))) (let ((sc12 e-9)) (case (vector-ref sc12 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))))(else (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (case (vector-ref sc6 0) ((0) (let ((e-34 (vector-ref sc6 2))) (let ((sc7 e-34)) (case (vector-ref sc7 0) ((0) (let ((e-35 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-21 (vector-ref sc7 2))) (let ((sc8 e-20)) (case (vector-ref sc8 0) ((0) (let ((e-25 (vector-ref sc8 2))) (let ((sc9 e-25)) (case (vector-ref sc9 0) ((0) (let ((e-26 (vector-ref sc9 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc8 arg-12)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((sc9 arg-13)) (case (vector-ref sc9 0) ((1) (let ((e-4 (vector-ref sc9 1))) (let ((e-5 (vector-ref sc9 2))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((sc11 e-9)) (case (vector-ref sc11 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc3 e-17)) (case (vector-ref sc3 0) ((1) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-29 (vector-ref sc4 1))) (let ((e-30 (vector-ref sc4 2))) (let ((sc5 e-29)) (case (vector-ref sc5 0) ((0) (let ((e-34 (vector-ref sc5 2))) (let ((sc6 e-34)) (case (vector-ref sc6 0) ((0) (let ((e-35 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-20 (vector-ref sc6 1))) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-20)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 2))) (let ((sc8 e-25)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc7 arg-12)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 arg-13)) (case (vector-ref sc8 0) ((1) (let ((e-4 (vector-ref sc8 1))) (let ((e-5 (vector-ref sc8 2))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((sc10 e-9)) (case (vector-ref sc10 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))(else (let ((sc2 e-17)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-29 (vector-ref sc3 1))) (let ((e-30 (vector-ref sc3 2))) (let ((sc4 e-29)) (case (vector-ref sc4 0) ((0) (let ((e-34 (vector-ref sc4 2))) (let ((sc5 e-34)) (case (vector-ref sc5 0) ((0) (let ((e-35 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-6 (vector 8 arg-8 arg-11 e-7) arg-12 e-30) eta-0)))))))))))))))))))(else (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-20 (vector-ref sc5 1))) (let ((e-21 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((e-25 (vector-ref sc6 2))) (let ((sc7 e-25)) (case (vector-ref sc7 0) ((0) (let ((e-26 (vector-ref sc7 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc6 arg-12)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((sc7 arg-13)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (let ((e-5 (vector-ref sc7 2))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((sc9 e-9)) (case (vector-ref sc9 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))(else (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-20 (vector-ref sc4 1))) (let ((e-21 (vector-ref sc4 2))) (let ((sc5 e-20)) (case (vector-ref sc5 0) ((0) (let ((e-25 (vector-ref sc5 2))) (let ((sc6 e-25)) (case (vector-ref sc6 0) ((0) (let ((e-26 (vector-ref sc6 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc5 arg-12)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((sc6 arg-13)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((e-5 (vector-ref sc6 2))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((sc8 e-9)) (case (vector-ref sc8 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))))(else (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-20)) (case (vector-ref sc4 0) ((0) (let ((e-25 (vector-ref sc4 2))) (let ((sc5 e-25)) (case (vector-ref sc5 0) ((0) (let ((e-26 (vector-ref sc5 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-20 (vector-ref sc2 1))) (let ((e-21 (vector-ref sc2 2))) (let ((sc3 e-20)) (case (vector-ref sc3 0) ((0) (let ((e-25 (vector-ref sc3 2))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (let ((e-26 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) ((PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-4)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))))))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-4)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((1) (PartialEval-TTImp-n--9473-11695-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))))) +(define PartialEval-TTImp-n--9473-11694-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-Types-Prelude-C-43C-43 "_pe" (Show-Prelude-show_Show__Int arg-10)) (PartialEval-TTImp-n--9473-11694-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (b+ 1 arg-10 63) e-3)))(else (PartialEval-TTImp-n--9473-11694-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--9473-11694-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--11517-13574-getSpecArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-n--11517-13574-getSpecArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-9) arg-10 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32specialiseC-44getSpecArgs-13662 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-61C-61_Eq__Nat arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-47C-61_Eq__Nat arg-12 arg-13)))) arg-9 arg-10)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))))))) +(define PartialEval-TTImp-n--9473-11696-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--9473-11696-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--9473-11696-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--10051-12246-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--10051-12246-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--10051-12246-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--12542-14731-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--quoteHeadC-44findName-14747 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 (EqOrd-Prelude-C-61C-61_Eq__Int arg-2 e-5)))))(else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-n--12542-14731-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--12566-15361-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--12566-15361-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--11272-13366-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--eraseInferredC-44dropErased-13382 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-61C-61_Eq__Nat arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-47C-61_Eq__Nat arg-7 arg-8)))) arg-4 arg-5))))))))) +(define PartialEval-TTImp-n--9473-11698-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--9473-11697-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--9473-11696-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--11517-13572-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--11517-13572-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--11517-13573-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--11517-13572-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--12542-14594-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--quoteHeadC-44addLater-14623 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--12542-14594-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-Types-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--substLoc-11152 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (Types-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) (Types-Prelude-C-43_Num__Nat (Types-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 (Types-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))) (let ((e-9 (vector-ref sc1 4))) (PartialEval-TTImp-case--specialiseTy-11070 arg-0 e-9 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-4) (lambda (arg-5) (Types-Prelude-C-61C-61_Eq__Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-47C-61_Eq__Nat arg-4 arg-5)))) 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--specialise-13917 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--specPatByVar-11528 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--substLoc-11150 arg-0 'erased e-4 'erased e-3 e-2 arg-2 arg-1 (Types-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) (Types-Prelude-C-43_Num__Nat (Types-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 (Types-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--specialiseTy-11072 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-4) (lambda (arg-5) (Types-Prelude-C-61C-61_Eq__Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-47C-61_Eq__Nat arg-4 arg-5)))) 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--specialise-13895 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--specPatByVar-11526 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) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-specPatByVar arg-0 e-2) (lambda (pC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-specByVar arg-0 e-3) (lambda (psC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 pC-39 psC-39))))))))))))) (define PartialEval-TTImp-quotePi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) -(define PartialEval-TTImp-quoteHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (PartialEval-TTImp-case--quoteHead-14705 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--12757-14616-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--quoteHead-14975 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--12757-14753-findName arg-0 arg-1 e-13 e-12 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased arg-8)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-7 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-7 e-6 e-7))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 arg-7 e-9 e-10 e-5)))))))))))))))) -(define PartialEval-TTImp-quoteGenNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (PartialEval-TTImp-bName arg-5 "qv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (((e-4 arg-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-8 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((PartialEval-TTImp-quoteGenNF (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 e-5 arg-7) arg-8 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PartialEval-TTImp-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-1 e-2 e-7 e-6))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-49 (vector-ref sc1 1))) (let ((e-50 (vector-ref sc1 2))) (let ((sc2 e-49)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-50 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32quoteGenNF-15449 arg-0 arg-1 e-50 e-8 e-6 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-1 _-0 (let ((sc5 e-1)) (let ((e-24 (vector-ref sc5 6))) e-24))) eta-0)))) (else (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (TT-Core-apply 'erased e-6 (vector 1 e-6 (vector 1 ) e-50) e-9)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-6 e-5 e-9)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 e-5 e-9)))))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-10 (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-16 (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5)))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-6 e-34) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-1 arg-6 e-33) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-31 e-32 e-8 e-6)))))))))))))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure arg-1 arg-6 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))))) ((8) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-41 e-42)))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-44 e-45)))))) (else (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-47))))))))) -(define PartialEval-TTImp-quoteBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 e-2 e-6 e-5)))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 1 e-6 e-7 e-5 e-10)))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-11 e-12 e-6 e-5)))))))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-16 e-17 e-6 e-5)))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((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 ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-21 e-22 e-5 e-6)))))))))))))))))) (else (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-26 e-27 e-5)))))))))))))))) +(define PartialEval-TTImp-quoteHead (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (PartialEval-TTImp-case--quoteHead-14683 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--12542-14594-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--quoteHead-14953 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--12542-14731-findName arg-0 arg-1 e-13 e-12 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 'erased arg-8)))))(else (lambda (eta-0) (vector 1 (vector 1 arg-7 e-6 e-7)))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-7 e-6 e-7))))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 arg-7 e-9 e-10 e-5)))))))))))))))) +(define PartialEval-TTImp-quoteGenNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (PartialEval-TTImp-bName arg-5 "qv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (((e-4 arg-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-8 (vector 1 e-1 (vector 0 ) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) ((PartialEval-TTImp-quoteGenNF (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 e-5 arg-7) arg-8 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PartialEval-TTImp-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 3 e-1 e-2 e-7 e-6))))))))))))))))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((1) (let ((e-49 (vector-ref sc1 1))) (let ((e-50 (vector-ref sc1 2))) (let ((sc2 e-49)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-50 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32quoteGenNF-15427 arg-0 arg-1 e-50 e-8 e-6 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-1 _-0 (let ((sc5 e-1)) (let ((e-24 (vector-ref sc5 6))) e-24))) eta-0)))) (else (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (TT-Core-apply 'erased e-6 (vector 1 e-6 (vector 1 ) e-50) e-9)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-6 e-5 e-9)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteHead arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 arg-7 arg-8 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-6 e-5 e-9)))))))))))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-10 (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5)))))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased e-16 (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5)))))))))))))) ((4) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-24) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-25) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 5 e-22 e-23 e-5 e-6)))))))))))))))))) ((5) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-28 e-5)))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-6 e-34) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-evalClosure arg-1 arg-6 e-33) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 7 e-31 e-32 e-8 e-6)))))))))))))))))))))))))))) ((7) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((6) (let ((e-1 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 4))) (let ((act-25 ((Normalise-Core-evalClosure arg-1 arg-6 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased e-1 e-7 e-5)))))))))))))))(else (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5))))))))))))))))))))) ((8) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-41 e-42)))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-44 e-45)))))) (else (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-47))))))))) +(define PartialEval-TTImp-quoteBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 e-6 e-5))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-8 e-9))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-11) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-9 e-6 e-5))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-13 e-6 e-5))))))))))))))))) ((4) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-18) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-17 e-5 e-6))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-21 e-5))))))))))))))) (define PartialEval-TTImp-quoteArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-1 arg-6 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((PartialEval-TTImp-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 e-6 e-7))))))))))))))))))))))))) -(define PartialEval-TTImp-mkSubsts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 e-3 arg-4) (lambda (subs) (PartialEval-TTImp-case--mkSubsts-11313 'erased e-2 e-3 arg-4 arg-2 arg-1 subs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Types-Prelude-C-61C-61_Eq__Nat arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Types-Prelude-C-47C-61_Eq__Nat arg-5 arg-6)))) arg-1 arg-2))))))))))) -(define PartialEval-TTImp-mkSpecDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (UnifyState-Core-handleUnify 'erased arg-1 arg-3 (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-setAllPublic arg-1 0 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((staticargs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 e-0)))))))))) arg-7))) (let ((peapp (PartialEval-TTImp-unload 'erased (PartialEval-TTImp-dropSpec 'erased 0 staticargs arg-9) (vector 1 arg-4 (vector 1 ) arg-6)))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-6 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((act-27 (Context-Core-logC arg-1 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-8 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (lambda (eta-2) (let ((act-28 (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-0 eta-2))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (vector 1 (vector 0 e-9))))))))) (else (vector 1 (vector 1 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-9))))))))))))) arg-7) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Specialising " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 ") by " (Name-Core-showSep ", " e-9)))))))))))))))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 staticargs (let ((sc5 arg-5)) (let ((e-2 (vector-ref sc5 3))) e-2))))) (let ((act-28 ((Normalise-Core-logTermNF (vector 0 ) arg-1 "specialise" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-6))) (vector 0 ) sty) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-addDef arg-1 arg-6 (Context-Core-newDef arg-4 arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) sty (vector 2 ) (vector 0 )) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-addToSave arg-1 (vector 8 e-10) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((specnames (PartialEval-TTImp-n--10254-12256-getAllRefs 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (NameMap-Data-empty 'erased) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-7)))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased specnames)) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 ((PartialEval-TTImp-getReducible (vector 1 arg-8 (vector 0 )) (NameMap-Data-empty 'erased) e-13) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Context-Core-setFlag arg-1 arg-4 (vector 8 e-10) (vector 7 (List-Types-Prelude-C-43C-43 'erased e-12 (NameMap-Data-toList 'erased e-14))) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32mkSpecDef-12739 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 staticargs peapp _-0 e-8 sty e-9 e-10 e-11 specnames e-12 e-13 e-14 e-15 (let ((sc12 arg-5)) (let ((e-17 (vector-ref sc12 18))) e-17))) eta-0))))))))))))))))))))))))))))))))))))))))))))) (else (let ((act-27 ((Context-Core-log arg-1 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Already specialised " (Name-Core-show_Show__Name arg-6)))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 peapp)))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-8 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-log arg-1 "specialise" (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 "Partial evaluation of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " failed" (Strings-Types-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error err))))))) eta-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (set-box! arg-1 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (NameMap-Data-insert 'erased arg-6 (vector 0 ) e-23) e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-9 (vector 1 arg-4 (vector 1 ) arg-8)))))))))))))))))) ext-0))) +(define PartialEval-TTImp-mkSubsts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 e-3 arg-4) (lambda (subs) (PartialEval-TTImp-case--mkSubsts-11311 'erased e-2 e-3 arg-4 arg-2 arg-1 subs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Types-Prelude-C-61C-61_Eq__Nat arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Types-Prelude-C-47C-61_Eq__Nat arg-5 arg-6)))) arg-1 arg-2))))))))))) +(define PartialEval-TTImp-mkSpecDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (UnifyState-Core-handleUnify 'erased arg-1 arg-3 (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-setAllPublic arg-1 0 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((staticargs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 e-0)))))))))) arg-7))) (let ((peapp (PartialEval-TTImp-unload 'erased (PartialEval-TTImp-dropSpec 'erased 0 staticargs arg-9) (vector 1 arg-4 (vector 1 ) arg-6)))) (let ((act-26 ((Context-Core-lookupCtxtExact arg-6 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((act-27 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-27 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-8 eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (lambda (eta-2) (let ((act-28 (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-0 eta-2))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc7 1))) (vector 1 (vector 0 e-9))))))))) (else (vector 1 (vector 1 ))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (vector 0 (lambda (x) (PartialEval-TTImp-show_Show__ArgMode x)) (lambda (d) (lambda (x) (PartialEval-TTImp-showPrec_Show__ArgMode d x))))) (vector 0 e-2 e-9))))))))))))) arg-7) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Specialising " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-8) (Strings-Types-Prelude-C-43C-43 ") by " (Name-Core-showSep ", " e-9)))))))))))))))))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sty (PartialEval-TTImp-specialiseTy (vector 0 ) 0 staticargs (let ((sc5 arg-5)) (let ((e-2 (vector-ref sc5 3))) e-2))))) (let ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Specialised type " (Name-Core-show_Show__Name arg-6))) (vector 0 ) sty eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-addDef arg-1 arg-6 (Context-Core-newDef arg-4 arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 ) sty (vector 2 ) (vector 0 )) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Context-Core-addToSave arg-1 (vector 8 e-10) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((specnames (PartialEval-TTImp-n--10051-12246-getAllRefs 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (NameMap-Data-empty 'erased) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-7)))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (vector 1 (vector 0 n (+ 1 0))))) (NameMap-Data-keys 'erased specnames)) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (unbox arg-1))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 ((PartialEval-TTImp-getReducible (vector 1 arg-8 (vector 0 )) (NameMap-Data-empty 'erased) e-13) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-34 (Context-Core-setFlag arg-1 arg-4 (vector 8 e-10) (vector 7 (List-Types-Prelude-C-43C-43 'erased e-12 (NameMap-Data-toList 'erased e-14))) eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc11 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--caseC-32blockC-32inC-32mkSpecDef-12723 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 staticargs peapp _-0 e-8 sty e-9 e-10 e-11 specnames e-12 e-13 e-14 e-15 (let ((sc12 arg-5)) (let ((e-17 (vector-ref sc12 18))) e-17))) eta-0))))))))))))))))))))))))))))))))))))))))))))) (else (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Already specialised " (Name-Core-show_Show__Name arg-6))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 peapp)))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-8 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 "Partial evaluation of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " failed" (Strings-Types-Prelude-C-43C-43 "\u000a" (Core-Core-show_Show__Error err)))))) eta-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (set-box! arg-1 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 (NameMap-Data-insert 'erased arg-6 (vector 0 ) e-23) e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-9 (vector 1 arg-4 (vector 1 ) arg-8)))))))))))))))))) ext-0))) (define PartialEval-TTImp-getStatic (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (vector 0 )) (else (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))))))) -(define PartialEval-TTImp-getSpecPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (PartialEval-TTImp-case--getSpecPats-12090 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (PartialEval-TTImp-specByVar arg-8 arg-9)))) -(define PartialEval-TTImp-getReducible (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--getReducible-12186 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--getSpecPats-12080 'erased arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (PartialEval-TTImp-specByVar arg-8 arg-9)))) +(define PartialEval-TTImp-getReducible (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--getReducible-12176 e-2 e-3 arg-2 arg-1 (NameMap-Data-lookup 'erased e-2 arg-1))))))))) (define PartialEval-TTImp-findSpecs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((act-26 ((PartialEval-TTImp-specialise arg-0 arg-1 arg-2 arg-3 e-1 arg-4 e-4 e-3 arg-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-8 (vector-ref sc6 1))) (vector 1 e-8))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 1 e-1 (vector 1 ) e-3))))))))))))) (else (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 1 e-1 (vector 1 ) e-3))))))))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 arg-6)))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) eta-1)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 2 e-5 e-6 e-7 e-9)))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) eta-1)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-findSpecs (vector 1 e-11 arg-0) arg-1 arg-2 arg-3 (vector 1 e-5 arg-4) (vector 0 ) e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 3 e-10 e-11 e-5 e-6))))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 0 e-15 e-5) arg-5) e-16) eta-0))))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 6 e-19 e-20 e-5))))))))))))) ((7) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-25) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 7 e-23 e-24 e-5 e-6))))))))))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 (vector 8 e-28 e-29 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (PartialEval-TTImp-unload 'erased arg-5 arg-6)))))))) (define PartialEval-TTImp-evalRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((PartialEval-TTImp-quoteGenNF (vector 0 ) arg-0 arg-1 arg-2 arg-3 e-5 e-6 (vector 0 ) arg-4 arg-5) ext-0))))))))))))) -(define PartialEval-TTImp-eraseInferred (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-1 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-eraseInferred 'erased arg-1 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 e-5 e-6))))))))))))))))))(else (PartialEval-TTImp-case--eraseInferred-13456 '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--dropSpec-11638 'erased e-2 e-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-61C-61_Eq__Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-47C-61_Eq__Nat arg-4 arg-5)))) arg-1 arg-2))))))))) +(define PartialEval-TTImp-eraseInferred (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-1 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PartialEval-TTImp-eraseInferred 'erased arg-1 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 e-5 e-6))))))))))))))))))(else (PartialEval-TTImp-case--eraseInferred-13434 '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--dropSpec-11636 'erased e-2 e-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-61C-61_Eq__Nat arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-47C-61_Eq__Nat arg-4 arg-5)))) arg-1 arg-2))))))))) (define PartialEval-TTImp-bName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (b+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))))) -(define PartialEval-TTImp-applySpecialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6)) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-4 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (PartialEval-TTImp-evalRHS arg-0 arg-1 arg-2 arg-3 arg-4 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Normalise-Core-logTermNF arg-0 arg-1 "specialise" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "New RHS") arg-4 e-9) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 e-9)))))))))))))))))))))))))))))))))))) -(define Impossible-TTImp-case--getImpossibleTermC-44expandNest-4613 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 0 arg-6 e-7))(else (vector 0 arg-6 arg-5))))))(else (vector 0 arg-6 arg-5)))))))(else (vector 0 arg-6 arg-5))))))(else (vector 0 arg-6 arg-5)))))) -(define Impossible-TTImp-case--getImpossibleTermC-44addEnv-4556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Impossible-TTImp-n--7860-4535-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-9 arg-7)) (else (vector 1 (vector 31 arg-9 1) (Impossible-TTImp-n--7860-4535-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-9 arg-7))))))) -(define Impossible-TTImp-case--buildApp-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-7 (vector 0 ) e-11) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) ((Impossible-TTImp-processArgs arg-6 arg-5 (vector 1 arg-4 (vector 1 ) e-6) e-5 arg-1 arg-0) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Types-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 (Types-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0))))))) -(define Impossible-TTImp-case--processArgs-4133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-9 arg-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-3 arg-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Impossible-TTImp-processArgs arg-10 arg-9 (vector 4 arg-5 arg-8 e-5) e-6 arg-7 arg-6) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-10 arg-9 e-5 (vector 1 arg-2) (vector 0 ) (vector 0 )) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (((arg-3 arg-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-10 arg-9 (vector 4 arg-5 arg-8 e-7) e-8 arg-7 e-6) eta-0))))))))))))))))))))) -(define Impossible-TTImp-case--processArgsC-44useAutoImp-4031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-12 (List-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-14) arg-13)))) (else (Impossible-TTImp-n--6942-3993-useAutoImp 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 0 (vector 1 arg-11) arg-12) arg-14) arg-13)))))) -(define Impossible-TTImp-case--processArgs-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-9 arg-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-3 arg-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Impossible-TTImp-processArgs arg-10 arg-9 (vector 4 arg-5 arg-8 e-5) e-6 arg-7 arg-6) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-10 arg-9 e-5 (vector 1 arg-2) (vector 0 ) (vector 0 )) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (((arg-3 arg-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-10 arg-9 (vector 4 arg-5 arg-8 e-7) e-8 arg-7 e-6) eta-0))))))))))))))))))))) -(define Impossible-TTImp-case--processArgsC-44useImp-3776 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-12 (List-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-14) arg-13)))) (else (Impossible-TTImp-n--6942-3755-useImp 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 0 (vector 1 arg-11) arg-12) arg-14) arg-13)))))) -(define Impossible-TTImp-n--6942-3755-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) (let ((sc0 arg-12)) (case (vector-ref 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--processArgsC-44useImp-3776 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-9 e-7 e-3 arg-11 (Name-Core-C-61C-61_Eq__Name arg-4 e-9))))(else (Impossible-TTImp-n--6942-3755-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 1 e-2 arg-11) e-3)))))))(else (Impossible-TTImp-n--6942-3755-useImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 1 e-2 arg-11) e-3))))))))))) -(define Impossible-TTImp-n--6942-3993-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) (let ((sc0 arg-12)) (case (vector-ref 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-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-11) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (Impossible-TTImp-case--processArgsC-44useAutoImp-4031 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-10 e-7 e-3 arg-11 (Name-Core-C-61C-61_Eq__Name arg-4 e-10))))(else (Impossible-TTImp-n--6942-3993-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 1 e-2 arg-11) e-3)))))))(else (Impossible-TTImp-n--6942-3993-useAutoImp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 1 e-2 arg-11) e-3))))))))))) -(define Impossible-TTImp-n--6709-3464-sameRet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0))) ((3) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((3) (let ((e-30 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-19 e-30)))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((Impossible-TTImp-n--6709-3464-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((8) (let ((e-25 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((8) (let ((e-36 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-25 e-36)))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((Impossible-TTImp-n--6709-3464-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((10) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((Impossible-TTImp-n--6709-3464-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) ((Impossible-TTImp-n--6709-3464-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))))))))) -(define Impossible-TTImp-n--7860-4536-expandNest (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Impossible-TTImp-case--getImpossibleTermC-44expandNest-4613 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 e-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (Name-Core-C-61C-61_Eq__Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-6 arg-7)))) e-1 arg-2)))))(else arg-5))))) -(define Impossible-TTImp-n--7860-4537-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 8 e-0 (Impossible-TTImp-n--7860-4537-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-1) e-2))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 9 e-3 (Impossible-TTImp-n--7860-4537-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-4) e-5 e-6))))))(else (TTImp-TTImp-apply (Impossible-TTImp-n--7860-4536-expandNest arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Impossible-TTImp-n--7860-4535-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 (TTImp-TTImp-getFC arg-5) arg-3))))))) -(define Impossible-TTImp-n--7860-4535-addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Impossible-TTImp-case--getImpossibleTermC-44addEnv-4556 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-9 e-8 arg-6 (TT-Core-isLet '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 ((e-11 (vector-ref sc1 4))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-0 arg-1 e-16 (vector 1 e-11) (vector 0 ) (vector 0 )) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (let ((act-26 (((e-6 e-12) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc6 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 4 e-3 arg-2 e-7) e-13 e-17 arg-5) eta-0))))))))))))))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--processArgs-3878 e-8 e-9 e-11 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6942-3755-useImp e-8 e-9 e-11 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) eta-0)))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--processArgs-4133 e-8 e-9 e-11 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 e-7 (Impossible-TTImp-n--6942-3993-useAutoImp e-8 e-9 e-11 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) eta-0))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0)))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0)))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0)))))))))) +(define PartialEval-TTImp-applySpecialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6)) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-4 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (PartialEval-TTImp-evalRHS arg-0 arg-1 arg-2 arg-3 arg-4 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "New RHS") arg-4 e-9 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 e-9)))))))))))))))))))))))))))))))))))) +(define Impossible-TTImp-case--getImpossibleTermC-44expandNest-4602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 0 arg-6 e-7))(else (vector 0 arg-6 arg-5))))))(else (vector 0 arg-6 arg-5)))))))(else (vector 0 arg-6 arg-5))))))(else (vector 0 arg-6 arg-5)))))) +(define Impossible-TTImp-case--getImpossibleTermC-44addEnv-4545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Impossible-TTImp-n--7638-4506-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-9 arg-7)) (else (vector 1 (vector 31 arg-9 1) (Impossible-TTImp-n--7638-4506-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-9 arg-7))))))) +(define Impossible-TTImp-case--buildApp-4334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-7 (vector 0 ) e-11) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) ((Impossible-TTImp-processArgs arg-6 arg-5 (vector 1 arg-4 (vector 1 ) e-6) e-5 arg-1 arg-0) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-4 (Types-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 (Types-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-13)) eta-0))))))) +(define Impossible-TTImp-case--processArgs-4107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0))))))))))))))))))))) +(define Impossible-TTImp-case--processArgsC-44useAutoImp-4009 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6751-3971-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--processArgs-3864 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Impossible-TTImp-nextVar arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-5) e-6 arg-6 arg-5) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) ((Impossible-TTImp-processArgs arg-9 arg-8 (vector 4 arg-4 arg-7 e-7) e-8 arg-6 e-6) eta-0))))))))))))))))))))) +(define Impossible-TTImp-case--processArgsC-44useImp-3766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-13) arg-12)))) (else (Impossible-TTImp-n--6751-3745-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--6751-3745-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--processArgsC-44useImp-3766 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--6751-3745-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--6751-3745-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--6751-3971-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-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-10) e-3)))) ((1) (let ((e-10 (vector-ref sc2 1))) (Impossible-TTImp-case--processArgsC-44useAutoImp-4009 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--6751-3971-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--6751-3971-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--6520-3464-sameRet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 0))) ((9) (lambda (eta-0) (vector 1 0))) ((3) (let ((e-18 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((3) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Name-Core-C-61C-61_Eq__Name e-18 e-29)))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) ((Impossible-TTImp-n--6520-3464-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((8) (let ((e-24 (vector-ref sc0 2))) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((8) (let ((e-35 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-61C-61_Eq__Constant e-24 e-35)))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) ((Impossible-TTImp-n--6520-3464-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))) ((10) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 0)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) ((Impossible-TTImp-n--6520-3464-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) ((Impossible-TTImp-n--6520-3464-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))))))))) +(define Impossible-TTImp-n--7638-4505-isLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) +(define Impossible-TTImp-n--7638-4507-expandNest (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Impossible-TTImp-case--getImpossibleTermC-44expandNest-4602 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 e-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (Name-Core-C-61C-61_Eq__Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-6 arg-7)))) e-1 arg-2)))))(else arg-5))))) +(define Impossible-TTImp-n--7638-4508-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 8 e-0 (Impossible-TTImp-n--7638-4508-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-1) e-2))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 9 e-3 (Impossible-TTImp-n--7638-4508-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-4) e-5 e-6))))))(else (TTImp-TTImp-apply (Impossible-TTImp-n--7638-4507-expandNest arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Impossible-TTImp-n--7638-4506-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 (TTImp-TTImp-getFC arg-5) arg-3))))))) +(define Impossible-TTImp-n--7638-4506-addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Impossible-TTImp-case--getImpossibleTermC-44addEnv-4545 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-9 e-8 arg-6 (Impossible-TTImp-n--7638-4505-isLet arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-8)))))))))))) +(define Impossible-TTImp-processArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Impossible-TTImp-mkTerm arg-0 arg-1 e-15 (vector 1 e-10) (vector 0 ) (vector 0 )) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-26 (((e-6 e-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 4 e-3 arg-2 e-7) e-12 e-16 arg-5) eta-0))))))))))))))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-5)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--processArgs-3864 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--6751-3745-useImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) eta-0)))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--processArgs-4107 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--6751-3971-useAutoImp e-10 e-8 e-6 e-4 e-3 arg-5 arg-4 arg-2 arg-1 arg-0 (vector 0 ) arg-5)) eta-0))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0)))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (TT-Core-getLoc 'erased arg-2) (Strings-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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-Types-Prelude-C-43C-43 "Badly formed impossible clause " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-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) (Show-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) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-3) (Name-Core-show_Show__Name x-3)) (lambda (d-3) (lambda (x-3) (Name-Core-showPrec_Show__Name d-3 x-3)))) d-2 x-2)))) (vector 0 (lambda (x-2) (TTImp-TTImp-show_Show__RawImp x-2)) (lambda (d-2) (lambda (x-2) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-2))))) d-1 x-1)))) d-0 x-0))))) d x))))) (vector 0 arg-2 (vector 0 arg-4 arg-5))))) eta-0)))))))))) (define Impossible-TTImp-nextVar (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (b+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 1 arg-1 (vector 0 ) (vector 2 "imp" e-5)))))))))))))) (define Impossible-TTImp-mkTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (Impossible-TTImp-buildApp arg-0 arg-1 e-0 e-1 arg-3 arg-4 arg-5 eta-0))))) ((8) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Impossible-TTImp-mkTerm arg-0 arg-1 e-3 arg-3 (vector 1 e-4 arg-4) arg-5)))) ((9) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Impossible-TTImp-mkTerm arg-0 arg-1 e-6 arg-3 arg-4 (vector 1 (vector 0 e-7 e-8) arg-5)))))) ((27) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 9 e-9 e-10))))))(else (lambda (eta-0) (Impossible-TTImp-nextVar arg-1 (TTImp-TTImp-getFC arg-2) eta-0))))))) -(define Impossible-TTImp-match (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-7) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((Impossible-TTImp-n--6709-3464-sameRet e-2 e-6 e-7 arg-1 arg-0 arg-1 e-8) eta-0)))))))))))))))))))) -(define Impossible-TTImp-getImpossibleTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Impossible-TTImp-mkTerm arg-1 e-5 (Impossible-TTImp-n--7860-4537-applyEnv arg-0 arg-4 arg-3 arg-2 arg-1 arg-4) (vector 0 ) (vector 0 ) (vector 0 )) ext-0)))))))) +(define Impossible-TTImp-match (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-7) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((Impossible-TTImp-n--6520-3464-sameRet e-2 e-6 e-7 arg-1 arg-0 arg-1 e-8) eta-0)))))))))))))))))))) +(define Impossible-TTImp-getImpossibleTerm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Impossible-TTImp-mkTerm arg-1 e-5 (Impossible-TTImp-n--7638-4508-applyEnv arg-0 arg-4 arg-3 arg-2 arg-1 arg-4) (vector 0 ) (vector 0 ) (vector 0 )) ext-0)))))))) (define Impossible-TTImp-dropNoMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-4 (vector 0 )))))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc1 1))) (Core-Core-filterM 'erased (lambda (eta-0) (Impossible-TTImp-match arg-0 e-2 eta-0)) arg-2)))))))))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (Core-Core-filterM 'erased (lambda (eta-0) (Impossible-TTImp-match arg-0 e-2 eta-0)) arg-2)))))))))) (define Impossible-TTImp-buildApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-fromIntegerName arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-fromStringName arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-fromCharName arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((sc4 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Name-Core-C-61C-61_Eq__Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Name-Core-C-47C-61_Eq__Name arg-9 arg-10)))) arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Name-Core-C-61C-61_Eq__Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Name-Core-C-47C-61_Eq__Name arg-9 arg-10)))) arg-7 arg-8)))) (vector 1 arg-3) (vector 1 e-6 (vector 1 e-7 (vector 1 e-8 (vector 0 ))))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't deal with constants here yet") ext-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (Context-Core-lookupTyName arg-3 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((Impossible-TTImp-dropNoMatch arg-0 arg-4 e-10) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 e-1)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((sc9 e-12)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((act-31 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-14) ext-0))) (let ((sc11 act-31)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-16 (vector-ref sc11 1))) ((Impossible-TTImp-processArgs arg-0 arg-1 (vector 1 arg-2 (vector 1 ) e-13) e-16 arg-5 arg-6) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-2 (Types-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 (Types-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 (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-11)) ext-0)))))))))))))))))))))))))))))))))))))))) -(define Transform-Core-case--transLoop-11966 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (Transform-Core-transLoop 'erased arg-4 arg-1 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 arg-6))))))) -(define Transform-Core-case--caseC-32blockC-32inC-32trans-11706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-5 (Basics-Prelude-C-124C-124 e-5 (lambda () e-2))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-3)))))))))))))))) -(define Transform-Core-case--trans-11655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((fullapp (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))) (Transform-Core-case--caseC-32blockC-32inC-32trans-11706 '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--apply-11605 (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--caseC-32blockC-32inC-32tryApply-11542 (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))) (Types-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--tryApply-11499 (lambda (arg-0 arg-1 arg-2 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))) (Types-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--match-11246 (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--caseC-32blockC-32inC-32addMatch-11159 (lambda (arg-0 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--addMatch-11116 (lambda (arg-0 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--caseC-32blockC-32inC-32addMatch-11159 '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--lookupMatch-11054 (lambda (arg-0 arg-1 arg-2 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--transLoop-11968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (Transform-Core-transLoop 'erased arg-4 arg-1 arg-3 arg-6)) (else (lambda (eta-0) (vector 1 arg-6))))))) +(define Transform-Core-case--caseC-32blockC-32inC-32trans-11708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-5 (Basics-Prelude-C-124C-124 e-5 (lambda () e-2))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-3)))))))))))))))) +(define Transform-Core-case--trans-11657 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((fullapp (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1)))) (Transform-Core-case--caseC-32blockC-32inC-32trans-11708 '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--apply-11607 (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--caseC-32blockC-32inC-32tryApply-11544 (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))) (Types-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--tryApply-11501 (lambda (arg-0 arg-1 arg-2 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))) (Types-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--match-11248 (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--caseC-32blockC-32inC-32addMatch-11161 (lambda (arg-0 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--addMatch-11118 (lambda (arg-0 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--caseC-32blockC-32inC-32addMatch-11161 '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--lookupMatch-11056 (lambda (arg-0 arg-1 arg-2 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))) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Types-Prelude-pure_Applicative__Maybe 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-156 arg-158)))))) (lambda (eta-0) (Transform-Core-tryReplace 'erased 'erased arg-2 eta-0)) e-14) (lambda (asC-39) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-22) (lambda (fC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-23) (lambda (aC-39) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-27) (lambda (aC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-28) (lambda (pC-39) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-32) (lambda (tmC-39) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-36) (lambda (tyC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-37) (lambda (tmC-39) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-41) (lambda (tmC-39) (Types-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))) (Types-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))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Types-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--tryApply-11499 'erased e-0 e-2 arg-2 e-4 e-3 e-1 trans (Transform-Core-match 'erased 'erased (vector 0 ) e-3 arg-2))))))))))) +(define Transform-Core-tryReplace (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Transform-Core-lookupMatch 'erased 'erased 'erased e-4 'erased arg-2))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Types-Prelude-pure_Applicative__Maybe 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-113 arg-115)))))) (lambda (eta-0) (Transform-Core-tryReplace 'erased 'erased arg-2 eta-0)) e-14) (lambda (asC-39) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-22) (lambda (fC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-23) (lambda (aC-39) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-27) (lambda (aC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-28) (lambda (pC-39) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-32) (lambda (tmC-39) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-36) (lambda (tyC-39) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-37) (lambda (tmC-39) (Types-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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Transform-Core-tryReplace 'erased 'erased arg-2 e-41) (lambda (tmC-39) (Types-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))) (Types-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))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 10 e-46 e-47))))) (else (let ((e-49 (vector-ref sc0 1))) (Types-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--tryApply-11501 'erased e-0 e-2 arg-2 e-4 e-3 e-1 trans (Transform-Core-match 'erased 'erased (vector 0 ) e-3 arg-2))))))))))) (define Transform-Core-transLoop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-4)))(else (let ((e-0 (- arg-2 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Transform.Upd" ) 1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 e-5 arg-3 (vector 0 ) arg-4) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) ((Transform-Core-transLoop 'erased arg-1 e-0 arg-3 e-6) eta-0)) (else (vector 1 e-6)))))))))))))))))))))))))) -(define Transform-Core-trans (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Transform-Core-case--trans-11655 'erased e-3 e-1 arg-4 arg-3 arg-2 arg-1 e-5 (NameMap-Data-lookup 'erased e-3 (let ((sc3 e-5)) (let ((e-12 (vector-ref sc3 13))) e-12)))) eta-0))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-4 arg-5)))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) eta-1)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 2 e-5 e-6 e-7 e-9)))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) eta-1)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 arg-2 (vector 1 e-5 arg-3) (vector 0 ) e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 3 e-10 e-11 e-5 e-6))))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 1 (vector 0 e-15 e-5) arg-4) e-16) eta-0))))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 6 e-19 e-20 e-5))))))))))))) ((7) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-25) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 7 e-23 e-24 e-5 e-6))))))))))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 8 e-28 e-29 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-4 arg-5)))))))) -(define Transform-Core-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Transform-Core-addMatch 'erased 'erased 'erased e-4 'erased arg-4 arg-2))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((4) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (Types-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--match-11246 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))))(else (Transform-Core-case--match-11246 '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--lookupMatch-11054 'erased 'erased 'erased 'erased e-5 'erased e-8 e-7 arg-3 'erased (Types-Prelude-C-61C-61_Eq__Nat arg-3 e-5)))))))))) +(define Transform-Core-trans (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((Transform-Core-case--trans-11657 'erased e-3 e-1 arg-4 arg-3 arg-2 arg-1 e-5 (NameMap-Data-lookup 'erased e-3 (let ((sc3 e-5)) (let ((e-12 (vector-ref sc3 13))) e-12)))) eta-0))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-4 arg-5)))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) eta-1)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 2 e-5 e-6 e-7 e-9)))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) eta-1)) e-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 arg-2 (vector 1 e-5 arg-3) (vector 0 ) e-13) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 3 e-10 e-11 e-5 e-6))))))))))))))))))) ((4) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 1 (vector 0 e-15 e-5) arg-4) e-16) eta-0))))))))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 6 e-19 e-20 e-5))))))))))))) ((7) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-25) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 7 e-23 e-24 e-5 e-6))))))))))))))))))) ((8) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-30) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Transform-Core-unload 'erased arg-4 (vector 8 e-28 e-29 e-5)))))))))))))(else (lambda (eta-0) (vector 1 (Transform-Core-unload 'erased arg-4 arg-5)))))))) +(define Transform-Core-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 3))) (Transform-Core-addMatch 'erased 'erased 'erased e-4 'erased arg-4 arg-2))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((4) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (Types-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--match-11248 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))))(else (Transform-Core-case--match-11248 '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--lookupMatch-11056 'erased 'erased 'erased 'erased e-5 'erased e-8 e-7 arg-3 'erased (Types-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--apply-11605 '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--addMatch-11116 '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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkTotal-8508 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32checkTotal-8482 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0))))))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))) -(define Termination-Core-case--checkTotal-8453 (lambda (arg-0 arg-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 8 e-1))) (lambda (eta-0) (let ((act-24 (Context-Core-getTotality arg-2 arg-1 n eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-case--caseC-32blockC-32inC-32checkTotal-8482 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--caseC-32blockC-32inC-32checkPositive-8392 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-1))) e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))) -(define Termination-Core-case--checkPositive-8371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Termination-Core-calcPositive arg-2 arg-1 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-1))) e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-5))))))) -(define Termination-Core-case--caseC-32blockC-32inC-32calcPositive-8240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 arg-11) arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 arg-10)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-14 arg-10)))))))) -(define Termination-Core-case--calcPositive-8205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((6) (let ((e-12 (vector-ref sc2 6))) (let ((e-13 (vector-ref sc2 7))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-2 arg-3 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc3 1))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((act-25 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 e-12) e-13) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc5 1))) (vector 1 (vector 0 e-16 e-13))))))))(else (vector 1 (vector 0 e-15 e-13))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Types-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-Types-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--checkData-8160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Termination-Core-checkData arg-0 arg-4 arg-3 arg-2))(else (lambda (eta-0) (vector 1 arg-5))))))) -(define Termination-Core-case--caseC-32blockC-32inC-32checkCon-8105 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-6))))))) -(define Termination-Core-case--checkCon-8075 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-3 arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-6) eta-0)))))))(else (vector 1 e-5)))))))))))))))) -(define Termination-Core-case--checkPosArgs-8009 (lambda (arg-0 arg-1 arg-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) (let ((act-24 (((arg-4 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-6 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-checkPosArgs arg-8 arg-7 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-9))))))) -(define Termination-Core-case--posArg-7935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (let ((act-24 (((arg-4 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-6 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-posArg arg-8 arg-7 e-5) eta-0)))))))))))) -(define Termination-Core-case--posArg-7874 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Termination-Core-case--posArg-7807 (lambda (arg-0 arg-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--11558-7733-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--posArgC-44dropParams-7750 (lambda (arg-0 arg-1 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--11558-7733-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--11558-7733-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--nameIn-7654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-6 eta-1)) arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-6 arg-5 eta-1)) e-5) eta-0)))))))))))) -(define Termination-Core-case--nameIn-7586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (((arg-0 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-3 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-nameIn arg-5 arg-4 e-5) eta-0)))))))))))) -(define Termination-Core-case--checkTerminating-7539 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Termination-Core-calcTerminating arg-2 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setTerminating arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) -(define Termination-Core-case--caseC-32blockC-32inC-32calcTerminating-7470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((ty (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-initArgs e-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-checkSC e-5 arg-2 arg-3 arg-0 e-6 (vector 0 )) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) -(define Termination-Core-case--calcTerminating-7431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--11050-7263-addCases arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased (Context-Core-refersTo e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Termination-Core-totRefs arg-2 arg-3 (List-Data-nub 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Name-Core-C-61C-61_Eq__Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Name-Core-C-47C-61_Eq__Name arg-5 arg-6)))) e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((ty (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) ((Termination-Core-initArgs e-7 e-8) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) ((Termination-Core-checkSC e-7 arg-2 arg-3 arg-0 e-8 (vector 0 )) eta-0)))))))))))))(else (vector 1 e-6))))))))))))))))))))) -(define Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32calcTerminatingC-44addCasesC-39-7348 (lambda (arg-0 arg-1 arg-2 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--11050-7262-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Types-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)))) (else (Termination-Core-n--11050-7262-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--caseC-32blockC-32inC-32calcTerminatingC-44addCasesC-39-7322 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) ((Termination-Core-n--11050-7262-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Types-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)) eta-0))) (else ((Termination-Core-n--11050-7262-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--11050-7262-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--calcTerminatingC-44addCasesC-39-7279 (lambda (arg-0 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--11050-7262-addCasesC-39 arg-0 arg-1 arg-2 arg-6 arg-5 arg-4)) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-2 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--caseC-32blockC-32inC-32calcTerminatingC-44addCasesC-39-7322 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--caseC-32blockC-32inC-32checkSC-7214 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Termination-Core-n--10386-6671-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--checkSC-7160 (lambda (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-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Terminating arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Terminating arg-5319 arg-5320)))) (Termination-Core-n--10386-6665-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) eta-1)) arg-1) arg-0) eta-0))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 ))) (else (let ((e-2 (vector-ref sc2 1))) (Termination-Core-n--10386-6671-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkSCC-44checkCall-6944 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Types-Prelude-length 'erased (let ((sc2 arg-6)) (let ((e-2 (vector-ref sc2 2))) e-2)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc3 arg-6)) (let ((e-3 (vector-ref sc3 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))) -(define Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkSCC-44checkCall-6916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((2) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Types-Prelude-length 'erased (let ((sc3 arg-6)) (let ((e-2 (vector-ref sc3 2))) e-2)))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc4 arg-6)) (let ((e-3 (vector-ref sc4 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11)))))) (else (lambda (eta-0) (vector 1 arg-11))))))) -(define Termination-Core-case--caseC-32blockC-32inC-32checkSCC-44checkCall-6884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Termination-Core-n--10386-6668-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1))) arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkSCC-44checkCall-6916 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Basics-Prelude-not arg-8)) eta-0)))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 (vector 1 (vector 1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)) (vector 0 ))))))))))) -(define Termination-Core-case--checkSCC-44checkCall-6861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--caseC-32blockC-32inC-32checkSCC-44checkCall-6884 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Termination-Core-case--checkSCC-44mkArgs-6792 (lambda (arg-0 arg-1 arg-2 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--10386-6668-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--10386-6667-updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-2) (Termination-Core-n--10386-6668-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8)))))))) -(define Termination-Core-case--calculateSizeChange-6580 (lambda (arg-0 arg-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--caseC-32blockC-32inC-32findSCcall-6277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findInCase arg-9 arg-8 arg-6 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-16) (lambda (arg-17) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-16 arg-17))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))) -(define Termination-Core-case--findSCcall-6135 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((fn (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-9 "termination" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name fn)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Context-Core-resolved_HasNames__Name (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_smaller"))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-1) (let ((act-26 (Termination-Core-getCasePats arg-0 arg-8 fn arg-5 arg-1 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findInCase arg-9 arg-8 arg-6 eta-2)) e-2) eta-1))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-11 arg-12))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8))))))))))))))))))) (vector 0 ))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findSC arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 eta-2)) arg-1) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-2 (Types-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 )) ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-11 arg-12))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7)))))))))) eta-0)))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0))))))) -(define Termination-Core-case--getCasePats-6067 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (vector 1 (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-n--7942-5649-matchArgs arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Termination-Core-case--getCasePatsC-44updateRHS-5951 (lambda (arg-0 arg-1 arg-2 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--9278-5654-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--getCasePatsC-44updateRHSC-44lookupTm-5891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 arg-10)) (else (Termination-Core-n--9278-5655-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-12 arg-11)))))) -(define Termination-Core-case--getCasePatsC-44updateRHSC-44lookupTm-5790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-13)) (else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Termination-Core-n--9278-5655-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-15 (vector 1 (vector 0 arg-9 arg-13) arg-14)) (lambda (tmC-39) (vector 1 (vector 5 arg-12 arg-11 (Termination-Core-n--9278-5654-urhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10) tmC-39))))))))) -(define Termination-Core-case--caseC-32blockC-32inC-32asserted-5517 (lambda (arg-0 arg-1 arg-2 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--asserted-5477 (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--caseC-32blockC-32inC-32asserted-5517 '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--caseC-32blockC-32inC-32smallerArg-5438 (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))) (lambda () (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1))))(else (lambda () 1)))))) -(define Termination-Core-case--smallerArg-5393 (lambda (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) (lambda () ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-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))) (lambda () (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-8 arg-1))))(else (lambda () 1)))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-5 (vector-ref sc1 2))) (lambda () (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-5 arg-1))))(else (lambda () 1))))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (lambda () (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1))))(else (lambda () 1))))))))) -(define Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32findSC-5158 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 e-5 arg-14 eta-0))))))))) (else (lambda (eta-0) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 0 arg-14 eta-0))))))) -(define Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findSC-4874 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((1) (let ((e-18 (vector-ref sc3 2))) (let ((sc4 e-18)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 3 ) arg-2 eta-1)) e-15) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((2) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 2 ) arg-2 eta-1)) e-25) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((e-11 (vector-ref sc5 3))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc9 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((sc3 e-34)) (case (vector-ref sc3 0) ((1) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 e-38)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 2 ) arg-2 eta-1)) e-35) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((e-11 (vector-ref sc5 3))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc9 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))(else (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((e-11 (vector-ref sc2 3))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc6 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))))) -(define Termination-Core-case--caseC-32blockC-32inC-32findSC-4838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7928-4585-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findSC-4874 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 _-0 e-5 (vector 0 arg-3 (vector 0 e-5 arg-8))) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) -(define Termination-Core-case--findSC-4810 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7928-4584-handleCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((Termination-Core-n--7928-4585-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findSC-4874 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-6 (vector 0 arg-3 (vector 0 e-6 e-3))) eta-0)))))))) (else (let ((e-4 (vector-ref sc2 1))) (vector 1 e-4)))))))))))))))) -(define Termination-Core-case--caseC-32blockC-32inC-32findSCC-44conIfGuarded-4719 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 2 0 0) arg-7)))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7)))))))) -(define Termination-Core-case--findSCC-44conIfGuarded-4691 (lambda (arg-0 arg-1 arg-2 arg-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--caseC-32blockC-32inC-32findSCC-44conIfGuarded-4719 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Context-Core-C-61C-61_Eq__DefFlag arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Context-Core-C-47C-61_Eq__DefFlag arg-11 arg-12)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7)))))))) -(define Termination-Core-case--findSCC-44handleCase-4600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-1) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-9 arg-7 (+ 1 (+ 1 (+ 1 (+ 1 0)))) arg-10 eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Termination-Core-case--findSC-4520 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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 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--apply-11607 '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--addMatch-11118 '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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkTotal-8484 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32checkTotal-8458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (Termination-Core-checkPositive arg-2 arg-1 arg-5 eta-0))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0))))))(else (Termination-Core-checkTerminating arg-2 arg-1 arg-5 eta-0)))))))))))(else (lambda (eta-0) (vector 1 arg-8))))))) +(define Termination-Core-case--checkTotal-8429 (lambda (arg-0 arg-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 8 e-1))) (lambda (eta-0) (let ((act-24 (Context-Core-getTotality arg-2 arg-1 n eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-case--caseC-32blockC-32inC-32checkTotal-8458 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--caseC-32blockC-32inC-32checkPositive-8368 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-1))) e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 e-2))))))))))))))) +(define Termination-Core-case--checkPositive-8347 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Termination-Core-calcPositive arg-2 arg-1 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((act-25 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (Context-Core-setTerminating arg-2 arg-1 c e-2 eta-1))) e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 e-2)))))))))))))))))))(else (lambda (eta-0) (vector 1 arg-5))))))) +(define Termination-Core-case--caseC-32blockC-32inC-32calcPositive-8216 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 arg-11) arg-10) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 arg-10)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-14 arg-10)))))))) +(define Termination-Core-case--calcPositive-8181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((6) (let ((e-12 (vector-ref sc2 6))) (let ((e-13 (vector-ref sc2 7))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-2 arg-3 e-6) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc3 1))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((act-25 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 e-12) e-13) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc5 1))) (vector 1 (vector 0 e-16 e-13))))))))(else (vector 1 (vector 0 e-15 e-13))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Types-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-Types-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--checkData-8136 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (Termination-Core-checkData arg-0 arg-4 arg-3 arg-2))(else (lambda (eta-0) (vector 1 arg-5))))))) +(define Termination-Core-case--caseC-32blockC-32inC-32checkCon-8081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-6))))))) +(define Termination-Core-case--checkCon-8051 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefsIn 'erased arg-3 arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-25 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-6) eta-0)))))))(else (vector 1 e-5)))))))))))))))) +(define Termination-Core-case--checkPosArgs-7989 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-checkPosArgs arg-7 arg-6 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-8))))))) +(define Termination-Core-case--posArg-7923 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (let ((act-24 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-posArg arg-7 arg-6 e-5) eta-0)))))))))))) +(define Termination-Core-case--posArg-7866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 2 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Termination-Core-case--posArg-7799 (lambda (arg-0 arg-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--11372-7725-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--posArgC-44dropParams-7742 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (Termination-Core-n--11372-7725-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--11372-7725-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--nameIn-7646 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-6 eta-1)) arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-6 arg-5 eta-1)) e-5) eta-0)))))))))))) +(define Termination-Core-case--nameIn-7578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (((arg-0 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-3 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-nameIn arg-5 arg-4 e-5) eta-0)))))))))))) +(define Termination-Core-case--checkTerminating-7531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Termination-Core-calcTerminating arg-2 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setTerminating arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) +(define Termination-Core-case--caseC-32blockC-32inC-32calcTerminating-7462 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((ty (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-initArgs e-5 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-checkSC e-5 arg-2 arg-3 arg-0 e-6 (vector 0 )) eta-0))))))))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) +(define Termination-Core-case--calcTerminating-7423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--10864-7255-addCases arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased (Context-Core-refersTo e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Termination-Core-totRefs arg-2 arg-3 (List-Data-nub 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Name-Core-C-61C-61_Eq__Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Name-Core-C-47C-61_Eq__Name arg-5 arg-6)))) e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((ty (let ((sc4 e-2)) (let ((e-23 (vector-ref sc4 3))) e-23)))) (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) ((Termination-Core-initArgs e-7 e-8) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) ((Termination-Core-checkSC e-7 arg-2 arg-3 arg-0 e-8 (vector 0 )) eta-0)))))))))))))(else (vector 1 e-6))))))))))))))))))))) +(define Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32calcTerminatingC-44addCasesC-39-7340 (lambda (arg-0 arg-1 arg-2 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--10864-7254-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Types-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)))) (else (Termination-Core-n--10864-7254-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--caseC-32blockC-32inC-32calcTerminatingC-44addCasesC-39-7314 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) ((Termination-Core-n--10864-7254-addCasesC-39 arg-0 arg-1 arg-2 arg-6 (NameMap-Data-insert 'erased arg-3 (vector 0 ) arg-5) (List-Types-Prelude-C-43C-43 'erased (NameMap-Data-keys 'erased (Context-Core-refersTo e-1)) arg-4)) eta-0))) (else ((Termination-Core-n--10864-7254-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--10864-7254-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--calcTerminatingC-44addCasesC-39-7271 (lambda (arg-0 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--10864-7254-addCasesC-39 arg-0 arg-1 arg-2 arg-6 arg-5 arg-4)) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-2 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--caseC-32blockC-32inC-32calcTerminatingC-44addCasesC-39-7314 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--caseC-32blockC-32inC-32checkSC-7206 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Termination-Core-n--10200-6663-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--checkSC-7152 (lambda (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-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Terminating arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Terminating arg-5319 arg-5320)))) (Termination-Core-n--10200-6657-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) eta-1)) arg-1) arg-0) eta-0))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 1 ))) (else (let ((e-2 (vector-ref sc2 1))) (Termination-Core-n--10200-6663-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkSCC-44checkCall-6936 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Types-Prelude-length 'erased (let ((sc2 arg-6)) (let ((e-2 (vector-ref sc2 2))) e-2)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc3 arg-6)) (let ((e-3 (vector-ref sc3 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11))))))) +(define Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkSCC-44checkCall-6908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((2) (let ((e-0 (vector-ref sc1 1))) (let ((sc2 e-0)) (case (vector-ref sc2 0) ((2) (lambda (eta-0) (let ((act-24 ((Termination-Core-initArgs arg-5 (List-Types-Prelude-length 'erased (let ((sc3 arg-6)) (let ((e-2 (vector-ref sc3 2))) e-2)))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc4 arg-6)) (let ((e-3 (vector-ref sc4 1))) e-3)) e-5 arg-7) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (eta-0) (vector 1 arg-11)))))) (else (lambda (eta-0) (vector 1 arg-11))))))) +(define Termination-Core-case--caseC-32blockC-32inC-32checkSCC-44checkCall-6876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Termination-Core-n--10200-6660-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 2))) e-1))) arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32checkSCC-44checkCall-6908 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 (Basics-Prelude-not arg-8)) eta-0)))))))) ((1) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 2 (vector 1 (vector 1 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0)) (vector 0 ))))))))))) +(define Termination-Core-case--checkSCC-44checkCall-6853 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Termination-Core-case--caseC-32blockC-32inC-32checkSCC-44checkCall-6876 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Termination-Core-case--checkSCC-44mkArgs-6784 (lambda (arg-0 arg-1 arg-2 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--10200-6660-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--10200-6659-updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-2) (Termination-Core-n--10200-6660-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8)))))))) +(define Termination-Core-case--calculateSizeChange-6572 (lambda (arg-0 arg-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--caseC-32blockC-32inC-32findSCcall-6273 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findInCase arg-9 arg-8 arg-6 eta-1)) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-16) (lambda (arg-17) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-16 arg-17))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))) +(define Termination-Core-case--findSCcall-6133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((fn (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name fn))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Context-Core-resolved_HasNames__Name (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_smaller"))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-1) (let ((act-26 (Termination-Core-getCasePats arg-0 arg-8 fn arg-5 arg-1 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findInCase arg-9 arg-8 arg-6 eta-2)) e-2) eta-1))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-11 arg-12))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8))))))))))))))))))) (vector 0 ))) (lambda (eta-1) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (Termination-Core-findSC arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 eta-2)) arg-1) eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-2 (Types-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 )) ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-11 arg-12))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7)))))))))) eta-0)))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-3) eta-0))))))) +(define Termination-Core-case--getCasePats-6065 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (vector 1 (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-n--7764-5647-matchArgs arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Termination-Core-case--getCasePatsC-44updateRHS-5949 (lambda (arg-0 arg-1 arg-2 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--9098-5652-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--getCasePatsC-44updateRHSC-44lookupTm-5889 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 arg-10)) (else (Termination-Core-n--9098-5653-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-12 arg-11)))))) +(define Termination-Core-case--getCasePatsC-44updateRHSC-44lookupTm-5788 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-13)) (else (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Termination-Core-n--9098-5653-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-15 (vector 1 (vector 0 arg-9 arg-13) arg-14)) (lambda (tmC-39) (vector 1 (vector 5 arg-12 arg-11 (Termination-Core-n--9098-5652-urhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10) tmC-39))))))))) +(define Termination-Core-case--caseC-32blockC-32inC-32asserted-5515 (lambda (arg-0 arg-1 arg-2 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--asserted-5475 (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--caseC-32blockC-32inC-32asserted-5515 '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--caseC-32blockC-32inC-32smallerArg-5436 (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))) (lambda () (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1))))(else (lambda () 1)))))) +(define Termination-Core-case--smallerArg-5391 (lambda (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) (lambda () ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-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))) (lambda () (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-8 arg-1))))(else (lambda () 1)))))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((4) (let ((e-5 (vector-ref sc1 2))) (lambda () (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-5 arg-1))))(else (lambda () 1))))))))))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-2 (vector-ref sc0 2))) (lambda () (Termination-Core-smaller 'erased arg-5 arg-4 arg-3 e-2 arg-1))))(else (lambda () 1))))))))) +(define Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32findSC-5156 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 e-5 arg-14 eta-0))))))))) (else (lambda (eta-0) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-13 arg-12 0 arg-14 eta-0))))))) +(define Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findSC-4872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((1) (let ((e-18 (vector-ref sc3 2))) (let ((sc4 e-18)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 3 ) arg-2 eta-1)) e-15) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-15) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((2) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-24 (vector-ref sc2 1))) (let ((e-25 (vector-ref sc2 2))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 2 ) arg-2 eta-1)) e-25) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((e-11 (vector-ref sc5 3))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc9 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))) ((0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((sc3 e-34)) (case (vector-ref sc3 0) ((1) (let ((e-38 (vector-ref sc3 2))) (let ((sc4 e-38)) (case (vector-ref sc4 0) ((2) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 2 ) arg-2 eta-1)) e-35) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))(else (let ((sc4 e-3)) (let ((e-6 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((e-11 (vector-ref sc5 3))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc9 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))(else (let ((sc3 e-3)) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((sc5 e-10)) (case (vector-ref sc5 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc8 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))(else (let ((sc2 e-3)) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((e-11 (vector-ref sc3 3))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc7 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))(else (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((e-11 (vector-ref sc2 3))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-11 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc6 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 e-8 e-7 eta-0)))))))) (else (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 e-9 e-11 0 e-7 eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 eta-1)) e-7) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-12 arg-13))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))))))))))) +(define Termination-Core-case--caseC-32blockC-32inC-32findSC-4836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7750-4583-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findSC-4872 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 _-0 e-5 (vector 0 arg-3 (vector 0 e-5 arg-8))) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) +(define Termination-Core-case--findSC-4808 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7750-4582-handleCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-25 ((Termination-Core-n--7750-4583-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findSC-4872 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 _-0 e-6 (vector 0 arg-3 (vector 0 e-6 e-3))) eta-0)))))))) (else (let ((e-4 (vector-ref sc2 1))) (vector 1 e-4)))))))))))))))) +(define Termination-Core-case--caseC-32blockC-32inC-32findSCC-44conIfGuarded-4717 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 2 0 0) arg-7)))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7)))))))) +(define Termination-Core-case--findSCC-44conIfGuarded-4689 (lambda (arg-0 arg-1 arg-2 arg-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--caseC-32blockC-32inC-32findSCC-44conIfGuarded-4717 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Context-Core-C-61C-61_Eq__DefFlag arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Context-Core-C-47C-61_Eq__DefFlag arg-11 arg-12)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-8 (vector 1 ) arg-7)))))))) +(define Termination-Core-case--findSCC-44handleCase-4598 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (lambda (eta-1) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-9 arg-7 (+ 1 (+ 1 (+ 1 (+ 1 0)))) arg-10 eta-1)) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Termination-Core-case--findSC-4518 (lambda (arg-0 arg-1 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--delazy-4360 (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--delazy-4322 (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--delazy-4288 (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--checkIfGuarded-4017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7005-3620-allGuarded arg-0 arg-1 arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (Context-Core-setFlag arg-2 arg-1 arg-0 (vector 8 ) eta-0)) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Termination-Core-case--checkIfGuardedC-44allGuarded-3965 (lambda (arg-0 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--7005-3620-allGuarded arg-0 arg-1 arg-2 arg-7)) (else (lambda (eta-0) (vector 1 1))))))) -(define Termination-Core-case--caseC-32blockC-32inC-32checkIfGuardedC-44guarded-3864 (lambda (arg-0 arg-1 arg-2 arg-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--7005-3618-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Termination-Core-case--checkIfGuardedC-44guarded-3837 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-0 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) ((Core-Core-allM 'erased (lambda (eta-1) (lambda (eta-2) (Termination-Core-n--7005-3618-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-1 eta-2))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) eta-0))) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Termination-Core-case--checkIfGuarded-4017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--6827-3620-allGuarded arg-0 arg-1 arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (Context-Core-setFlag arg-2 arg-1 arg-0 (vector 8 ) eta-0)) (else (vector 1 (vector 0 )))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Termination-Core-case--checkIfGuardedC-44allGuarded-3965 (lambda (arg-0 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--6827-3620-allGuarded arg-0 arg-1 arg-2 arg-7)) (else (lambda (eta-0) (vector 1 1))))))) +(define Termination-Core-case--caseC-32blockC-32inC-32checkIfGuardedC-44guarded-3864 (lambda (arg-0 arg-1 arg-2 arg-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--6827-3618-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Termination-Core-case--checkIfGuardedC-44guarded-3837 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-0 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) ((Core-Core-allM 'erased (lambda (eta-1) (lambda (eta-2) (Termination-Core-n--6827-3618-checkNotFn arg-0 arg-1 arg-2 arg-6 eta-1 eta-2))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) eta-0))) (else (vector 1 1))))))))))) (else (lambda (eta-0) (vector 1 1))))))) (define Termination-Core-case--caseC-32blockC-32inC-32checkIfGuardedC-44checkNotFn-3740 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 (Basics-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (lambda () (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Context-Core-C-61C-61_Eq__DefFlag arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Context-Core-C-47C-61_Eq__DefFlag arg-8 arg-9)))) (vector 8 ) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 12))) e-11)))))))))))) (define Termination-Core-case--checkIfGuardedC-44checkNotFn-3725 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32checkIfGuardedC-44checkNotFn-3740 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 1))))))) (define Termination-Core-case--checkIfGuardedC-44guardedNF-3658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Context-Core-C-61C-61_Eq__DefFlag arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Context-Core-C-47C-61_Eq__DefFlag arg-11 arg-12)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (vector 1 1))))))) (define Termination-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32totRefs-3540 (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-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Terminating arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Terminating arg-5319 arg-5320)))) (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-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Terminating arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Terminating arg-5319 arg-5320)))) (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-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Terminating arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Terminating arg-5319 arg-5320)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0))))))) (define Termination-Core-case--caseC-32blockC-32inC-32totRefs-3489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 arg-4))) ((0) (lambda (eta-0) (vector 1 arg-4)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (lambda (eta-0) (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Terminating arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Terminating arg-5319 arg-5320)))) (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-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Terminating arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Terminating arg-5319 arg-5320)))) (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-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Terminating arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Terminating arg-5319 arg-5320)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))))) (define Termination-Core-case--totRefs-3474 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32totRefs-3489 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-0 (vector-ref sc1 1))) e-0)))))) (else (lambda (eta-0) (vector 1 arg-4))))))) -(define Termination-Core-n--9278-5654-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7942-5647-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--7942-5647-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (Termination-Core-n--7942-5647-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--7942-5647-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (Termination-Core-n--7942-5647-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--7942-5647-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--7942-5647-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (Termination-Core-n--7942-5647-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--7942-5647-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--7942-5647-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (Termination-Core-n--7942-5647-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 e-39 arg-5) (vector 1 e-39 arg-7) (Types-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--7942-5647-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Termination-Core-case--getCasePatsC-44updateRHS-5951 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 (Termination-Core-n--9278-5655-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 arg-8 arg-7)))) -(define Termination-Core-n--7942-5648-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--7942-5647-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3))))))) -(define Termination-Core-n--10386-6667-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--10386-6668-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--10386-6668-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--checkSCC-44mkArgs-6792 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9 e-10 e-3 (Termination-Core-n--10386-6666-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-1 e-9)))))))))))))))) -(define Termination-Core-n--7942-5649-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7942-5648-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--9278-5655-lookupTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((5) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Termination-Core-n--9278-5655-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-16 arg-10) (lambda (tmC-39) (vector 1 (vector 5 e-13 e-14 tmC-39 (Termination-Core-n--9278-5654-urhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-16)))))))))(else (let ((sc0 arg-10)) (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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((5) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (let ((e-11 (vector-ref sc2 4))) (Termination-Core-case--getCasePatsC-44updateRHSC-44lookupTm-5790 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-11 e-10 e-9 e-8 e-6 e-2 arg-9 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-9 e-10)))))))(else (Termination-Core-case--getCasePatsC-44updateRHSC-44lookupTm-5891 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-6 e-2 arg-9 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-9 e-5))))))))))))))))))) -(define Termination-Core-n--7928-4584-handleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--findSCC-44handleCase-4600 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-2 e-1 arg-8 e-5 (Termination-Core-caseFn e-5)) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Termination-Core-n--7005-3617-guardedNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 0))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-12 (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (Context-Core-C-61C-61_Eq__DefFlag arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Context-Core-C-47C-61_Eq__DefFlag arg-7 arg-8)))) (vector 8 ) (let ((sc4 e-1)) (let ((e-22 (vector-ref sc4 12))) e-22)))))) (else (vector 1 1))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Termination-Core-n--7005-3619-guarded (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Normalise-Core-nf arg-3 e-6 arg-4 arg-5) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Termination-Core-n--7005-3617-guardedNF arg-0 arg-1 arg-2 arg-3 e-5 arg-4 e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (let ((act-28 ((Context-Core-lookupCtxtExact arg-0 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) ((Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--7005-3618-checkNotFn arg-0 arg-1 arg-2 e-5 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) ext-0))) (else (vector 1 1)))))))))) (else (vector 1 1)))))))))))))))))))))))))) -(define Termination-Core-n--10386-6670-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--10386-6670-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) ((0) (Termination-Core-n--10386-6670-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-3))(else e-2)))))))))) -(define Termination-Core-n--10386-6666-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--10386-6666-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3 e-4)))))))))))) -(define Termination-Core-n--7928-4478-findSCbinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (Termination-Core-findSC arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Termination-Core-n--11558-7733-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--posArgC-44dropParams-7750 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 arg-8 arg-7 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__Nat arg-10 arg-11)))) arg-7 arg-8))))))))) -(define Termination-Core-n--10386-6671-continue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Termination-Core-n--10386-6669-checkCall arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 eta-0)) arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Termination-Core-n--10386-6670-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) e-5))))))))) -(define Termination-Core-n--7928-4585-conIfGuarded (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-4))) ((Termination-Core-case--caseC-32blockC-32inC-32findSCC-44conIfGuarded-4719 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-1 e-5 e-4 _-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Context-Core-C-61C-61_Eq__DefFlag arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Context-Core-C-47C-61_Eq__DefFlag arg-8 arg-9)))) (vector 8 ) (let ((sc5 e-4)) (let ((e-11 (vector-ref sc5 12))) e-11)))) eta-0)))) (else (vector 1 (vector 1 e-1 (vector 1 ) e-3)))))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) -(define Termination-Core-n--7005-3618-checkNotFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Termination-Core-case--caseC-32blockC-32inC-32checkIfGuardedC-44checkNotFn-3740 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 _-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 1))))))))))) -(define Termination-Core-n--10386-6665-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 (Types-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--10386-6665-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))) -(define Termination-Core-n--10386-6669-checkCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((inpath (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-6)))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Termination-Core-case--caseC-32blockC-32inC-32checkSCC-44checkCall-6884 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-6 inpath e-1 _-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))) (else (vector 1 (vector 1 )))))))))))))) -(define Termination-Core-n--7005-3620-allGuarded (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Termination-Core-n--7005-3619-guarded arg-0 arg-1 arg-2 e-6 e-10 e-15 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (cond ((equal? sc5 0) ((Termination-Core-n--7005-3620-allGuarded arg-0 arg-1 arg-2 e-3) eta-0)) (else (vector 1 1))))))))))))))))))))))))) -(define Termination-Core-n--11050-7262-addCasesC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (NameMap-Data-keys 'erased arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--calcTerminatingC-44addCasesC-39-7279 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--11050-7263-addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Termination-Core-n--11050-7262-addCasesC-39 arg-0 arg-1 arg-2 arg-3 (NameMap-Data-empty 'erased) arg-4))) +(define Termination-Core-n--9098-5652-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7764-5645-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--7764-5645-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (Termination-Core-n--7764-5645-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--7764-5645-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (Termination-Core-n--7764-5645-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--7764-5645-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--7764-5645-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (Termination-Core-n--7764-5645-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--7764-5645-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--7764-5645-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (Termination-Core-n--7764-5645-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 e-39 arg-5) (vector 1 e-39 arg-7) (Types-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--7764-5645-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Termination-Core-case--getCasePatsC-44updateRHS-5949 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 (Termination-Core-n--9098-5653-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 arg-8 arg-7)))) +(define Termination-Core-n--7764-5646-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--7764-5645-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3))))))) +(define Termination-Core-n--10200-6659-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--10200-6660-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--10200-6660-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--checkSCC-44mkArgs-6784 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9 e-10 e-3 (Termination-Core-n--10200-6658-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-1 e-9)))))))))))))))) +(define Termination-Core-n--7764-5647-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7764-5646-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--9098-5653-lookupTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((5) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 4))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Termination-Core-n--9098-5653-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-16 arg-10) (lambda (tmC-39) (vector 1 (vector 5 e-13 e-14 tmC-39 (Termination-Core-n--9098-5652-urhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-16)))))))))(else (let ((sc0 arg-10)) (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))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((5) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((e-10 (vector-ref sc2 3))) (let ((e-11 (vector-ref sc2 4))) (Termination-Core-case--getCasePatsC-44updateRHSC-44lookupTm-5788 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-11 e-10 e-9 e-8 e-6 e-2 arg-9 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-9 e-10)))))))(else (Termination-Core-case--getCasePatsC-44updateRHSC-44lookupTm-5889 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-5 e-6 e-2 arg-9 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-9 e-5))))))))))))))))))) +(define Termination-Core-n--7750-4582-handleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--findSCC-44handleCase-4598 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-2 e-1 arg-8 e-5 (Termination-Core-caseFn e-5)) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Termination-Core-n--6827-3617-guardedNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 0))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-12 (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (vector 1 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (Context-Core-C-61C-61_Eq__DefFlag arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Context-Core-C-47C-61_Eq__DefFlag arg-7 arg-8)))) (vector 8 ) (let ((sc4 e-1)) (let ((e-22 (vector-ref sc4 12))) e-22)))))) (else (vector 1 1))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Termination-Core-n--6827-3619-guarded (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Normalise-Core-nf arg-3 e-6 arg-4 arg-5) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Termination-Core-n--6827-3617-guardedNF arg-0 arg-1 arg-2 arg-3 e-5 arg-4 e-7) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (let ((act-28 ((Context-Core-lookupCtxtExact arg-0 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) ((Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Termination-Core-n--6827-3618-checkNotFn arg-0 arg-1 arg-2 e-5 eta-0 eta-1))) (NameMap-Data-keys 'erased (Context-Core-refersTo e-1))) ext-0))) (else (vector 1 1)))))))))) (else (vector 1 1)))))))))))))))))))))))))) +(define Termination-Core-n--10200-6662-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--10200-6662-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) ((0) (Termination-Core-n--10200-6662-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-3))(else e-2)))))))))) +(define Termination-Core-n--10200-6658-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--10200-6658-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3 e-4)))))))))))) +(define Termination-Core-n--7750-4478-findSCbinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (Termination-Core-findSC arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 e-2)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Termination-Core-n--11372-7725-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--posArgC-44dropParams-7742 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 arg-8 arg-7 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__Nat arg-10 arg-11)))) arg-7 arg-8))))))))) +(define Termination-Core-n--10200-6663-continue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Termination-Core-n--10200-6661-checkCall arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 eta-0)) arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Termination-Core-n--10200-6662-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) e-5))))))))) +(define Termination-Core-n--7750-4583-conIfGuarded (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-4 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-4))) ((Termination-Core-case--caseC-32blockC-32inC-32findSCC-44conIfGuarded-4717 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-1 e-5 e-4 _-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Context-Core-C-61C-61_Eq__DefFlag arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Context-Core-C-47C-61_Eq__DefFlag arg-8 arg-9)))) (vector 8 ) (let ((sc5 e-4)) (let ((e-11 (vector-ref sc5 12))) e-11)))) eta-0)))) (else (vector 1 (vector 1 e-1 (vector 1 ) e-3)))))))))))))))))(else (lambda (eta-0) (vector 1 arg-7)))))))))(else (lambda (eta-0) (vector 1 arg-7))))))) +(define Termination-Core-n--6827-3618-checkNotFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Termination-Core-case--caseC-32blockC-32inC-32checkIfGuardedC-44checkNotFn-3740 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 _-0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17))) ext-0)))) (else (vector 1 1))))))))))) +(define Termination-Core-n--10200-6657-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 (Types-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--10200-6657-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))) +(define Termination-Core-n--10200-6661-checkCall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((inpath (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-6)))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Termination-Core-case--caseC-32blockC-32inC-32checkSCC-44checkCall-6876 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-6 inpath e-1 _-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0)))) (else (vector 1 (vector 1 )))))))))))))) +(define Termination-Core-n--6827-3620-allGuarded (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Termination-Core-n--6827-3619-guarded arg-0 arg-1 arg-2 e-6 e-10 e-15 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (cond ((equal? sc5 0) ((Termination-Core-n--6827-3620-allGuarded arg-0 arg-1 arg-2 e-3) eta-0)) (else (vector 1 1))))))))))))))))))))))))) +(define Termination-Core-n--10864-7254-addCasesC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (NameMap-Data-keys 'erased arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--calcTerminatingC-44addCasesC-39-7271 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--10864-7255-addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Termination-Core-n--10864-7254-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 8 (Num-Prelude-negate_Neg__Int 1)) arg-3))))) (define Termination-Core-totRefs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Termination-Core-totRefs arg-0 arg-1 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-2 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((Termination-Core-case--caseC-32blockC-32inC-32totRefs-3489 e-2 e-3 arg-1 arg-0 e-5 e-1 _-0 (let ((sc4 (let ((sc5 e-1)) (let ((e-10 (vector-ref sc5 11))) e-10)))) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0)))) (else (vector 1 e-5)))))))))))))))))))))) -(define Termination-Core-smallerArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((5) (let ((e-4 (vector-ref sc0 4))) (Termination-Core-smallerArg 'erased arg-1 arg-2 arg-3 e-4 arg-5)))(else (Basics-Prelude-C-124C-124 (Termination-Core-assertedSmaller 'erased arg-3 arg-5) (Termination-Core-case--smallerArg-5393 'erased arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-5)))))))) +(define Termination-Core-smallerArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((5) (let ((e-4 (vector-ref sc0 4))) (Termination-Core-smallerArg 'erased arg-1 arg-2 arg-3 e-4 arg-5)))(else (Basics-Prelude-C-124C-124 (Termination-Core-assertedSmaller 'erased arg-3 arg-5) (Termination-Core-case--smallerArg-5391 'erased arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased 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))) (Basics-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) (Basics-Prelude-C-124C-124 (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-4 arg-5) (lambda () (Termination-Core-smallerArg 'erased 0 arg-2 arg-3 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))) (Types-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))) (Basics-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))) (Basics-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))) (Basics-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))) (Basics-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))) (Basics-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))) (Basics-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))) (Basics-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))) (Basics-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))) (Basics-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))) (Basics-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))) (Basics-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))) (Basics-Prelude-C-38C-38 (Termination-Core-scEq 'erased e-7 e-28) (lambda () (Termination-Core-scEq 'erased e-8 e-29))))))(else 1)))))) ((8) (let ((e-12 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-33 (vector-ref sc1 3))) (Termination-Core-scEq 'erased e-12 e-33)))(else 1))))) ((9) (let ((e-15 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-36 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-15 e-36)))(else 1))))) ((10) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else 1)))) ((11) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))))))))))))))) -(define Termination-Core-posArg (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((testargs (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-13 (vector-ref sc3 3))) (Termination-Core-n--11558-7733-dropParams e-1 e-3 e-4 e-5 e-2 arg-1 arg-0 0 e-13 e-5)))(else e-5)))))(else e-5))))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) testargs) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (vector 2 (vector 0 )))) (else (vector 1 (vector 1 )))))))))))))))))))))))))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((2) (let ((e-15 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 e-15) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 1 (vector 2 (vector 0 )))) (else (let ((act-25 (((e-10 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-7 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((Termination-Core-posArg arg-0 arg-1 e-6) eta-0)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Termination-Core-posArg (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((testargs (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-13 (vector-ref sc3 3))) (Termination-Core-n--11372-7725-dropParams e-1 e-3 e-4 e-5 e-2 arg-1 arg-0 0 e-13 e-5)))(else e-5)))))(else e-5))))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) testargs) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (vector 2 (vector 0 )))) (else (vector 1 (vector 1 )))))))))))))))))))))))))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((2) (let ((e-14 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (vector 1 (vector 2 (vector 0 )))) (else (let ((act-25 (((e-10 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-7 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) ((Termination-Core-posArg arg-0 arg-1 e-6) eta-0)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 )))))))) (define Termination-Core-nextArg (lambda (arg-0) (b+ arg-0 1 63))) -(define Termination-Core-nameIn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 (TT-Core-binderType 'erased e-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 0)) (else (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) ((Termination-Core-nameIn arg-0 arg-1 e-6) eta-0))))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-5) eta-0))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (Termination-Core-case--nameIn-7654 e-10 e-12 e-13 e-14 e-11 arg-1 arg-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Name-Core-C-61C-61_Eq__Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-11 arg-1)))))))) ((2) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-5) eta-0)))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Termination-Core-nameIn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Termination-Core-nameIn arg-0 arg-1 (TT-Core-binderType 'erased e-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (vector 1 0)) (else (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) ((Termination-Core-nameIn arg-0 arg-1 e-6) eta-0))))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-5) eta-0))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (Termination-Core-case--nameIn-7646 e-10 e-12 e-13 e-14 e-11 arg-1 arg-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Name-Core-C-61C-61_Eq__Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-11 arg-1)))))))) ((2) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-5) eta-0)))))))))(else (lambda (eta-0) (vector 1 1))))))) (define Termination-Core-mkChange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((5) (let ((e-11 (vector-ref sc2 3))) (let ((e-12 (vector-ref sc2 4))) (Termination-Core-mkChange 'erased arg-1 arg-2 (vector 1 (vector 0 e-6 e-11) (vector 1 (vector 0 e-6 e-12) e-3)) arg-4))))(else (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Termination-Core-scEq 'erased arg-4 e-7)) (lambda () (vector 1 (vector 0 e-6 (vector 1 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-smaller 'erased 1 arg-1 (Termination-Core-asserted 'erased arg-2 arg-4) arg-4 e-7)) (lambda () (vector 1 (vector 0 e-6 (vector 0 ))))) (vector 0 ))) (Termination-Core-mkChange 'erased arg-1 arg-2 e-3 arg-4))))))))))))))) (define Termination-Core-initArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (let ((e-0 (- arg-1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (Termination-Core-nextArg e-5)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Termination-Core-initArgs arg-0 e-0) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 1 (vector 0 e-5 (vector 1 ))) e-7))))))))))))))))))))))) (define Termination-Core-getSC (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findCalls arg-0 arg-1 eta-1)) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (List-Data-nub 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Context-Core-C-61C-61_Eq__SCCall arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Context-Core-C-47C-61_Eq__SCCall arg-4 arg-5)))) ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3) (lambda (arg-4) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3 arg-4))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Termination-Core-getCasePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-lookupDefExact arg-2 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 5))) (vector 1 (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7942-5649-matchArgs arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) e-6)))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) +(define Termination-Core-getCasePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-lookupDefExact arg-2 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-6 (vector-ref sc2 5))) (vector 1 (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--7764-5647-matchArgs arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) e-6)))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))) (define Termination-Core-firstArg (lambda () 0)) -(define Termination-Core-findSCcall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((fn (let ((sc2 e-1)) (let ((e-22 (vector-ref sc2 2))) e-22)))) (let ((act-25 ((Context-Core-log arg-1 "termination" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name fn)))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-resolved_HasNames__Name (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_smaller"))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-0) (let ((act-27 (Termination-Core-getCasePats arg-0 arg-2 fn arg-5 arg-9 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findInCase arg-1 arg-2 arg-4 eta-1)) e-2) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-10 arg-11))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-9))))))))))))))))))) (vector 0 ))) (lambda (eta-0) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-9) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-8 (Types-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 )) ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-10 arg-11))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))))) ext-0))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-7) ext-0))))))))))) -(define Termination-Core-findSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7928-4478-findSCbinder e-12 arg-0 e-14 e-13 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Termination-Core-findSC (vector 1 e-12 arg-0) arg-1 arg-2 (vector 1 e-13 arg-3) arg-4 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term e-12 arg-0 e-3)))))) arg-5) e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-5 e-6))))))))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((7) (let ((e-9 (vector-ref sc1 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 (vector 3 ) arg-5 e-9)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--findSC-4810 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--findSC-4810 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6))))))))))))) -(define Termination-Core-findInCase (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-0 "termination" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) eta-2 eta-3))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) e-10)) eta-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Looking in case args " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-2 d x)))) e-5))))))))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 ((Normalise-Core-logTermNF e-2 arg-0 "termination" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " =") e-6 e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-normaliseOpts e-2 (Value-Core-tcOnly) arg-1 e-6 e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) ((Termination-Core-findSC e-2 arg-0 arg-1 e-6 arg-2 e-10 (Termination-Core-delazy 'erased arg-1 e-9)) eta-0)))))))))))))))))))))))))) +(define Termination-Core-findSCcall (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((fn (let ((sc2 e-1)) (let ((e-22 (vector-ref sc2 2))) e-22)))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Looking under " (Name-Core-show_Show__Name fn))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Context-Core-resolved_HasNames__Name (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_smaller"))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name fn (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")))) (lambda () (lambda (eta-0) (vector 1 (vector 0 ))))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-0) (let ((act-27 (Termination-Core-getCasePats arg-0 arg-2 fn arg-5 arg-9 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findInCase arg-1 arg-2 arg-4 eta-1)) e-2) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-10 arg-11))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-9))))))))))))))))))) (vector 0 ))) (lambda (eta-0) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-1)) arg-9) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased (vector 1 (vector 0 fn (Termination-Core-expandToArity arg-8 (Types-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 )) ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-10 arg-11))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))))) ext-0))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-6 arg-7) ext-0))))))))))) +(define Termination-Core-findSC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Termination-Core-n--7750-4478-findSCbinder e-12 arg-0 e-14 e-13 e-11 arg-5 arg-4 arg-3 arg-2 arg-1 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Termination-Core-findSC (vector 1 e-12 arg-0) arg-1 arg-2 (vector 1 e-13 arg-3) arg-4 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-2 (TT-Core-weaken_Weaken__Term e-12 arg-0 e-3)))))) arg-5) e-14) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-5 e-6))))))))))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((7) (let ((e-9 (vector-ref sc1 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 (vector 3 ) arg-5 e-9)))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 4))) (Termination-Core-findSC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4)))(else (Termination-Core-case--findSC-4808 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--findSC-4808 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-6))))))))))))) +(define Termination-Core-findInCase (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) eta-2 eta-3))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Builtin-snd 'erased 'erased eta-2)) e-10)) eta-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Looking in case args " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-2 d x)))) e-5))))))))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () " =") e-6 e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-normaliseOpts e-2 (Value-Core-tcOnly) arg-1 e-6 e-11 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) ((Termination-Core-findSC e-2 arg-0 arg-1 e-6 arg-2 e-10 (Termination-Core-delazy 'erased arg-1 e-9)) eta-0)))))))))))))))))))))))))) (define Termination-Core-findCalls (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((pargs (TT-Core-getArgs 'erased (Termination-Core-delazy 'erased arg-1 e-10)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseOpts e-2 (Value-Core-tcOnly) arg-1 e-6 e-11 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((Termination-Core-findSC e-2 arg-0 arg-1 e-6 (vector 0 ) (List-Data-zip 'erased 'erased (Types-Prelude-take 'erased (List-Types-Prelude-length 'erased pargs) (Types-Prelude-rangeFrom_Range__Nat (Types-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-delazy 'erased arg-1 eta-0)) e-17))))))) ((3) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (vector 3 e-19 e-20 (TT-Core-map_Functor__Binder 'erased 'erased (lambda (eta-0) (Termination-Core-delazy 'erased arg-1 eta-0)) e-21) (Termination-Core-delazy 'erased arg-1 e-22))))))) ((4) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 4 e-24 (Termination-Core-delazy 'erased arg-1 e-25) (Termination-Core-delazy 'erased arg-1 e-26)))))) ((5) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 5 e-28 e-29 (Termination-Core-delazy 'erased arg-1 e-30) (Termination-Core-delazy 'erased arg-1 e-31)))))))(else arg-2))))) -(define Termination-Core-checkTotal (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Termination-Core-case--checkTotal-8453 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0)))))))) -(define Termination-Core-checkTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getTotality arg-0 arg-1 arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Termination-Core-case--checkTerminating-7539 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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) eta-0)) arg-4)))) (Termination-Core-case--checkSC-7160 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 pos (Types-Prelude-elem 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) (vector 0 (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9)))) arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) (vector 0 (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9)))) arg-6 arg-7)))) pos arg-5))))) -(define Termination-Core-checkPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getTotality arg-0 arg-1 e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Termination-Core-case--checkPositive-8371 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-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Termination-Core-posArg arg-0 arg-1 e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((Termination-Core-checkPosArgs arg-0 arg-1 e-10) eta-0)))))))(else (vector 1 e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 )))))))) -(define Termination-Core-checkIfGuarded (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 5))) (let ((act-26 ((Termination-Core-n--7005-3620-allGuarded arg-2 arg-1 arg-0 e-7) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 8 ) ext-0)) (else (vector 1 (vector 0 ))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))) +(define Termination-Core-checkTotal (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Termination-Core-case--checkTotal-8429 arg-2 arg-1 arg-0 e-5 (Context-Core-getNameID arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)))) ext-0)))))))) +(define Termination-Core-checkTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getTotality arg-0 arg-1 arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Termination-Core-case--checkTerminating-7531 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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) eta-0)) arg-4)))) (Termination-Core-case--checkSC-7152 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 pos (Types-Prelude-elem 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) (vector 0 (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9)))) arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) (vector 0 (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Int arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Int arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9)))) arg-6 arg-7)))) pos arg-5))))) +(define Termination-Core-checkPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-2 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getTotality arg-0 arg-1 e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Termination-Core-case--checkPositive-8347 arg-2 arg-1 arg-0 e-5 e-6 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))))))))))))) +(define Termination-Core-checkPosArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Termination-Core-posArg arg-0 arg-1 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) ((Termination-Core-checkPosArgs arg-0 arg-1 e-9) eta-0)))))))(else (vector 1 e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 )))))))) +(define Termination-Core-checkIfGuarded (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 5))) (let ((act-26 ((Termination-Core-n--6827-3620-allGuarded arg-2 arg-1 arg-0 e-7) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (Context-Core-setFlag arg-0 arg-1 arg-2 (vector 8 ) ext-0)) (else (vector 1 (vector 0 ))))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))) (define Termination-Core-checkData (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Termination-Core-checkCon arg-0 arg-1 arg-2 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) ((Termination-Core-checkData arg-0 arg-1 arg-2 e-3) eta-0))(else (vector 1 e-5))))))))))))))))) (define Termination-Core-checkCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-lookupTyExact arg-3 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc1 1))) (let ((act-25 ((Termination-Core-totRefsIn 'erased arg-0 arg-1 e-2) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((act-26 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 0 ) e-2) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) ((Termination-Core-checkPosArgs arg-1 arg-2 e-7) ext-0)))))))(else (vector 1 e-6)))))))))))))))))))) (define Termination-Core-caseFn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((6) 0) ((4) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-caseFn e-3))) ((0) (let ((e-5 (vector-ref sc0 2))) (Termination-Core-caseFn e-5)))(else 1))))) (define Termination-Core-calculateSizeChange (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) ((Termination-Core-getSC arg-0 e-5 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) -(define Termination-Core-calcTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-26 ((Termination-Core-n--11050-7263-addCases arg-2 arg-1 arg-0 e-5 (NameMap-Data-keys 'erased (Context-Core-refersTo e-2))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Termination-Core-totRefs arg-0 e-5 (List-Data-nub 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Name-Core-C-61C-61_Eq__Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-7)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((ty (let ((sc6 e-2)) (let ((e-25 (vector-ref sc6 3))) e-25)))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (Normalise-Core-getArity (vector 0 ) e-5 (vector 0 ) ty ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) ((Termination-Core-initArgs e-9 e-10) ext-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) ((Termination-Core-checkSC e-9 arg-0 e-5 arg-2 e-10 (vector 0 )) ext-0)))))))))))))(else (vector 1 e-8)))))))))))))))))))))))))))))) +(define Termination-Core-calcTerminating (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-26 ((Termination-Core-n--10864-7255-addCases arg-2 arg-1 arg-0 e-5 (NameMap-Data-keys 'erased (Context-Core-refersTo e-2))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Termination-Core-totRefs arg-0 e-5 (List-Data-nub 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (Name-Core-C-61C-61_Eq__Name arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-7)) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((ty (let ((sc6 e-2)) (let ((e-25 (vector-ref sc6 3))) e-25)))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 (Normalise-Core-getArity (vector 0 ) e-5 (vector 0 ) ty ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) ((Termination-Core-initArgs e-9 e-10) ext-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) ((Termination-Core-checkSC e-9 arg-0 e-5 arg-2 e-10 (vector 0 )) ext-0)))))))))))))(else (vector 1 e-8)))))))))))))))))))))))))))))) (define Termination-Core-calcPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupDefTyExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((6) (let ((e-12 (vector-ref sc4 6))) (let ((e-13 (vector-ref sc4 7))) (let ((act-26 ((Termination-Core-totRefsIn 'erased arg-0 e-5 e-7) ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc5 1))) (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((act-27 ((Termination-Core-checkData arg-0 e-5 (vector 1 arg-2 e-12) e-13) ext-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc7 1))) (vector 1 (vector 0 e-18 e-13))))))))(else (vector 1 (vector 0 e-17 e-13)))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 (Strings-Types-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-Types-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--asserted-5477 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))) -(define Coverage-Core-case--checkMatchedC-44tryClauses-14262 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-logTermNF arg-3 arg-2 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") arg-6 arg-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-logTermNF arg-3 arg-2 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") arg-6 arg-5) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Coverage-Core-n--10141-14222-tryClauses arg-0 arg-1 arg-2 arg-7 arg-8) eta-0))))))))))) -(define Coverage-Core-case--eraseApps-14018 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 0 ) e-7) e-8)))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-7 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc3 1))) (let ((eargs (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-26 (vector-ref sc4 4))) e-26)))) e-9))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) (Coverage-Core-n--9874-13958-dropPos 'erased arg-1 arg-2 e-5 0 eargs e-3)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 e-6 e-7) e-10))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-5)))))))))))))))) -(define Coverage-Core-case--eraseAppsC-44dropPos-13974 (lambda (arg-0 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--9874-13958-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (Coverage-Core-n--9874-13958-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))))))) -(define Coverage-Core-case--getNonCoveringRefs-13695 (lambda (arg-0 arg-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 ((ds (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9469-13576-noAssert arg-0 arg-1 arg-2 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-1 eta-2))) ds) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((cases (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-n--9469-13575-isCase arg-0 arg-1 arg-2 eta-1)) e-5))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-getNonCoveringRefs arg-2 arg-1 eta-1 eta-2))) cases) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-filterM 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--9469-13577-notCovering arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) ds) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-7 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-5) (lambda (arg-6) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-5 arg-6))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) -(define Coverage-Core-case--caseC-32blockC-32inC-32getNonCoveringRefsC-44notCovering-13628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) -(define Coverage-Core-case--getNonCoveringRefsC-44notCovering-13613 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32getNonCoveringRefsC-44notCovering-13628 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 bind-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Coverage-Core-case--addNot-13064 (lambda (arg-0 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--findTag-12973 (lambda (arg-0 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--getMissingAlts-12731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))))))) -(define Coverage-Core-case--getMissingAlts-12669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))))))) -(define Coverage-Core-case--getMissingAlts-12611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--getCons-12368 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--8026-12225-addTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-10))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--caseC-32blockC-32inC-32getConsC-44addTy-12262 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-6 (vector 0 ) e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-7 (vector 0 arg-7 (vector 0 e-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--getConsC-44addTy-12236 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32getConsC-44addTy-12262 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--caseC-32blockC-32inC-32isEmpty-12081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-conflict arg-0 arg-8 arg-7 arg-6 (vector 3 arg-5 arg-4 arg-3 arg-2 arg-1) eta-0 eta-1))) arg-15)) (else (lambda (eta-0) (vector 1 1))))))) -(define Coverage-Core-case--isEmpty-12046 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32isEmpty-12081 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 (Basics-Prelude-not (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) e-10))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Coverage-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32conflict-11936 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Coverage-Core-conflictMatch arg-0 e-2))))))))) -(define Coverage-Core-case--caseC-32blockC-32inC-32conflict-11894 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) ((Coverage-Core-n--7019-11355-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 arg-2 e-7) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 0)) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Coverage-Core-conflictMatch arg-0 e-8)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Coverage-Core-case--conflict-11872 (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--caseC-32blockC-32inC-32conflict-11894 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Coverage-Core-case--conflictC-44conflictNF-11798 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--conflictC-44conflictNF-11710 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Coverage-Core-n--7019-11354-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--conflictC-44conflictNF-11622 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Coverage-Core-n--7019-11354-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--caseC-32blockC-32inC-32conflictC-44conflictArgs-11438 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (List-Types-Prelude-C-43C-43 'erased arg-13 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--conflictC-44conflictArgs-11401 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--7019-11354-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-10 arg-7 arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Types-Prelude-C-43C-43 'erased e-1 e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-case--caseC-32blockC-32inC-32conflictMatchC-44conflictTm-11301 (lambda (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))) (Basics-Prelude-C-124C-124 (Coverage-Core-n--6631-11017-clash arg-0 arg-1 arg-2 arg-3 arg-6 e-2) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--6631-11019-conflictTm arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-7 e-3))))))))) -(define Coverage-Core-case--conflictMatchC-44conflictTm-11279 (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--caseC-32blockC-32inC-32conflictMatchC-44conflictTm-11301 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--conflictMatchC-44conflictTm-11211 (lambda (arg-0 arg-1 arg-2 arg-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6631-11018-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--conflictMatchC-44conflictTm-11133 (lambda (arg-0 arg-1 arg-2 arg-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6631-11018-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--conflictMatchC-44findN-11069 (lambda (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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6631-11018-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--10141-14222-tryClauses (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-logTermNF (vector 0 ) arg-2 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing matches") (vector 0 ) arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 1 arg-4)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Coverage-Core-clauseMatches e-4 arg-2 e-5 e-6 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (let ((act-25 ((Normalise-Core-logTermNF e-4 arg-2 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") e-5 e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (vector 1 (vector 0 ))))))) (else (let ((act-25 ((Normalise-Core-logTermNF e-4 arg-2 "coverage" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") e-5 e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else ((Coverage-Core-n--10141-14222-tryClauses arg-0 arg-1 arg-2 e-3 arg-4) eta-0))))))))))))))))))))))))) -(define Coverage-Core-n--9093-13220-rep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-0 arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-4 e-1 (Builtin-snd 'erased 'erased eta-1))) e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 ))))))))) -(define Coverage-Core-n--9469-13577-notCovering (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-1))) ((Coverage-Core-case--caseC-32blockC-32inC-32getNonCoveringRefsC-44notCovering-13628 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 bind-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-2 (vector-ref sc2 2))) e-2))) ext-0))))(else (vector 1 1))))))))))) -(define Coverage-Core-n--8456-12769-noneOf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Basics-Prelude-not ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-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--9469-13576-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--10054-14135-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--10054-14135-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 (b+ arg-7 1 63) e-9)))))))))) -(define Coverage-Core-n--8456-12715-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--8456-12653-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--9469-13575-isCase (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Coverage-Core-n--9469-13575-isCase arg-0 arg-1 arg-2 e-1))) ((6) 0)(else 1))))) -(define Coverage-Core-n--6631-11018-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))) (Types-Prelude-C-61C-61_Eq__Nat arg-4 e-4)))(else (Coverage-Core-case--conflictMatchC-44findN-11069 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-5))))))) -(define Coverage-Core-n--8283-12449-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--9093-13221-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--9093-13221-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 (List-Data-filter 'erased (lambda (eta-0) (Basics-Prelude-not (Coverage-Core-tagIs 'erased e-6 eta-0))) e-3)))))(else (vector 1 e-2 (Coverage-Core-n--9093-13221-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))) -(define Coverage-Core-n--9874-13958-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--eraseAppsC-44dropPos-13974 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-61C-61_Eq__Nat arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-47C-61_Eq__Nat arg-7 arg-8)))) arg-4 arg-5))))))))) -(define Coverage-Core-n--6631-11019-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--conflictMatchC-44conflictTm-11133 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--conflictMatchC-44conflictTm-11211 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--conflictMatchC-44conflictTm-11279 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-4)))))))))) -(define Coverage-Core-n--7019-11355-conflictNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 4))) (let ((xC-39 (vector 2 (Name-Core-show_Show__Name e-32) arg-6))) (lambda (eta-0) (let ((act-24 (((e-34 arg-4) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-31 (vector 0 ) xC-39))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Coverage-Core-n--7019-11355-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-6 1 63) arg-7 e-5) eta-0)))))))))))) ((1) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((1) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((sc2 e-40)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-38)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-4 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-7 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 1 (vector 0 e-41 e-6) (vector 0 ))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-5 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (let ((e-20 (vector-ref sc4 5))) (Coverage-Core-case--conflictC-44conflictNF-11622 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (let ((e-10 (vector-ref sc3 4))) (let ((e-11 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((e-24 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-26 (vector-ref sc4 5))) (Coverage-Core-case--conflictC-44conflictNF-11710 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((8) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (Coverage-Core-case--conflictC-44conflictNF-11798 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (let ((e-20 (vector-ref sc3 5))) (Coverage-Core-case--conflictC-44conflictNF-11622 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (let ((e-11 (vector-ref sc2 5))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-22 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-24 (vector-ref sc3 3))) (let ((e-25 (vector-ref sc3 4))) (let ((e-26 (vector-ref sc3 5))) (Coverage-Core-case--conflictC-44conflictNF-11710 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((8) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (Coverage-Core-case--conflictC-44conflictNF-11798 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((e-20 (vector-ref sc2 5))) (Coverage-Core-case--conflictC-44conflictNF-11622 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((e-26 (vector-ref sc2 5))) (Coverage-Core-case--conflictC-44conflictNF-11710 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((8) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (Coverage-Core-case--conflictC-44conflictNF-11798 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (Coverage-Core-case--conflictC-44conflictNF-11622 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (Coverage-Core-case--conflictC-44conflictNF-11710 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((8) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (Coverage-Core-case--conflictC-44conflictNF-11798 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))) -(define Coverage-Core-n--7019-11354-conflictArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-4 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-evalClosure (vector 0 ) arg-4 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Coverage-Core-n--7019-11355-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-27 ((Coverage-Core-n--7019-11354-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (vector 1 (vector 1 (List-Types-Prelude-C-43C-43 'erased e-1 e-4))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))) -(define Coverage-Core-n--6631-11020-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))) (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name arg-4 e-6) (lambda () (Coverage-Core-n--6631-11019-conflictTm arg-0 arg-1 arg-2 arg-3 arg-5 e-7))) (lambda () (Coverage-Core-n--6631-11020-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))))))))))))) -(define Coverage-Core-n--10054-14136-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--10054-14135-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8))) -(define Coverage-Core-n--6631-11017-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))) (EqOrd-Prelude-C-47C-61_Eq__Int e-4 e-10)))(else 1)))))(else 1)))))(else 1)))))(else 1))))) -(define Coverage-Core-n--9196-13310-buildArgsAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--9196-13309-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 ((Coverage-Core-n--9196-13310-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Coverage-Core-addNot 'erased arg-3 arg-0 'erased e-6 arg-12) e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--9196-13309-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Coverage-Core-n--9196-13310-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-5 e-6))))))))))))))))))))))) -(define Coverage-Core-n--9196-13309-buildArgAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((con (vector 1 arg-11 (vector 2 e-2 (List-Types-Prelude-length 'erased e-3)) e-1))) (let ((psC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (TT-Core-apply 'erased arg-11 con (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 arg-11 (vector 0 ) eta-1)) e-3)) eta-0)) arg-7))) (Coverage-Core-buildArgs (List-Types-Prelude-C-43C-43 'erased e-3 arg-0) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 e-3 (vector 1 (vector 0 arg-3 e-2) arg-9)) (Coverage-Core-weakenNs 'erased arg-0 e-3 arg-12) psC-39 e-4)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((psC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (vector 7 arg-11 (vector 2 ) (vector 1 arg-11 (vector 0 ) e-6) (vector 1 arg-11 (vector 0 ) e-7)) eta-0)) arg-7))) (Coverage-Core-buildArgs (vector 1 e-6 (vector 1 e-7 arg-0)) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-9) (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-12) psC-39 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((psC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (vector 9 arg-11 e-10) eta-0)) arg-7))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 psC-39 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 arg-7 e-13))))))) -(define Coverage-Core-n--8026-12225-addTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Coverage-Core-case--caseC-32blockC-32inC-32getConsC-44addTy-12262 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)) (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)))) ext-0))))(else (vector 1 (vector 0 )))))))))))) +(define Termination-Core-asserted (lambda (arg-0 arg-1 arg-2) (Termination-Core-case--asserted-5475 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))) +(define Coverage-Core-case--checkMatchedC-44tryClauses-14262 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") arg-6 arg-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-3 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") arg-6 arg-5 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((Coverage-Core-n--9963-14224-tryClauses arg-0 arg-1 arg-2 arg-7 arg-8) eta-0))))))))))) +(define Coverage-Core-case--eraseApps-14020 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 0 ) e-7) e-8)))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-7 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc3 1))) (let ((eargs (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-1) (let ((sc4 eta-1)) (let ((e-26 (vector-ref sc4 4))) e-26)))) e-9))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) (Coverage-Core-n--9696-13960-dropPos 'erased arg-1 arg-2 e-5 0 eargs e-3)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (TT-Core-apply 'erased e-5 (vector 1 e-5 e-6 e-7) e-10))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-5)))))))))))))))) +(define Coverage-Core-case--eraseAppsC-44dropPos-13976 (lambda (arg-0 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--9696-13960-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (Coverage-Core-n--9696-13960-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))))))) +(define Coverage-Core-case--getNonCoveringRefs-13697 (lambda (arg-0 arg-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 ((ds (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9291-13578-noAssert arg-0 arg-1 arg-2 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1))))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-1 eta-2))) ds) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((cases (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-n--9291-13577-isCase arg-0 arg-1 arg-2 eta-1)) e-5))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-getNonCoveringRefs arg-2 arg-1 eta-1 eta-2))) cases) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-filterM 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--9291-13579-notCovering arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) ds) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-7 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-5) (lambda (arg-6) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-5 arg-6))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0))))))) +(define Coverage-Core-case--caseC-32blockC-32inC-32getNonCoveringRefsC-44notCovering-13630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) +(define Coverage-Core-case--getNonCoveringRefsC-44notCovering-13615 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32getNonCoveringRefsC-44notCovering-13630 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 bind-0 (let ((sc1 (let ((sc2 e-1)) (let ((e-10 (vector-ref sc2 11))) e-10)))) (let ((e-2 (vector-ref sc1 2))) e-2))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Coverage-Core-case--addNot-13066 (lambda (arg-0 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--findTag-12975 (lambda (arg-0 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--getMissingAlts-12733 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))))))) +(define Coverage-Core-case--getMissingAlts-12671 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))))))) +(define Coverage-Core-case--getMissingAlts-12613 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--getCons-12370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--7848-12227-addTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1 eta-2))) e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-10))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--caseC-32blockC-32inC-32getConsC-44addTy-12264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-6 (vector 0 ) e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-7 (vector 0 arg-7 (vector 0 e-4 e-5))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--getConsC-44addTy-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) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Coverage-Core-case--caseC-32blockC-32inC-32getConsC-44addTy-12264 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--caseC-32blockC-32inC-32isEmpty-12083 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Core-Core-allM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-conflict arg-0 arg-8 arg-7 arg-6 (vector 3 arg-5 arg-4 arg-3 arg-2 arg-1) eta-0 eta-1))) arg-15)) (else (lambda (eta-0) (vector 1 1))))))) +(define Coverage-Core-case--isEmpty-12048 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32isEmpty-12083 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 (Basics-Prelude-not (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) e-10))))))))))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Coverage-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32conflict-11938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Coverage-Core-conflictMatch arg-0 e-2))))))))) +(define Coverage-Core-case--caseC-32blockC-32inC-32conflict-11896 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) ((Coverage-Core-n--6841-11357-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 arg-2 e-7) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (vector 1 0)) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Coverage-Core-conflictMatch arg-0 e-8)))))))))))))(else (lambda (eta-0) (vector 1 1))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Coverage-Core-case--conflict-11874 (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--caseC-32blockC-32inC-32conflict-11896 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (vector 0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Coverage-Core-case--conflictC-44conflictNF-11800 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--conflictC-44conflictNF-11712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (Coverage-Core-n--6841-11356-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--conflictC-44conflictNF-11624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--6841-11356-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--caseC-32blockC-32inC-32conflictC-44conflictArgs-11440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (List-Types-Prelude-C-43C-43 'erased arg-13 e-1)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--conflictC-44conflictArgs-11403 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--6841-11356-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-10 arg-7 arg-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 (vector 1 (List-Types-Prelude-C-43C-43 'erased e-1 e-2))))) (else (vector 1 (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-case--caseC-32blockC-32inC-32conflictMatchC-44conflictTm-11303 (lambda (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))) (Basics-Prelude-C-124C-124 (Coverage-Core-n--6453-11019-clash arg-0 arg-1 arg-2 arg-3 arg-6 e-2) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--6453-11021-conflictTm arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-7 e-3))))))))) +(define Coverage-Core-case--conflictMatchC-44conflictTm-11281 (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--caseC-32blockC-32inC-32conflictMatchC-44conflictTm-11303 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--conflictMatchC-44conflictTm-11213 (lambda (arg-0 arg-1 arg-2 arg-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6453-11020-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--conflictMatchC-44conflictTm-11135 (lambda (arg-0 arg-1 arg-2 arg-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6453-11020-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--conflictMatchC-44findN-11071 (lambda (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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--6453-11020-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--9963-14224-tryClauses (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Nothing matches") (vector 0 ) arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 1 arg-4)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Coverage-Core-clauseMatches e-4 arg-2 e-5 e-6 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (let ((act-25 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Yes") e-5 e-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (vector 1 (vector 0 ))))))) (else (let ((act-25 (Normalise-Core-logTermNF e-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No match") e-5 e-6 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else ((Coverage-Core-n--9963-14224-tryClauses arg-0 arg-1 arg-2 e-3 arg-4) eta-0))))))))))))))))))))))))) +(define Coverage-Core-n--8915-13222-rep (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-0 arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-4 e-1 (Builtin-snd 'erased 'erased eta-1))) e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 ))))))))) +(define Coverage-Core-n--9291-13579-notCovering (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-4 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-1))) ((Coverage-Core-case--caseC-32blockC-32inC-32getNonCoveringRefsC-44notCovering-13630 arg-0 arg-1 arg-2 arg-4 arg-3 e-1 bind-0 (let ((sc2 (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10)))) (let ((e-2 (vector-ref sc2 2))) e-2))) ext-0))))(else (vector 1 1))))))))))) +(define Coverage-Core-n--8278-12771-noneOf (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Basics-Prelude-not ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-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--9291-13578-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--9876-14137-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--9876-14137-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 (b+ arg-7 1 63) e-9)))))))))) +(define Coverage-Core-n--8278-12717-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--8278-12655-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--9291-13577-isCase (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Coverage-Core-n--9291-13577-isCase arg-0 arg-1 arg-2 e-1))) ((6) 0)(else 1))))) +(define Coverage-Core-n--6453-11020-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))) (Types-Prelude-C-61C-61_Eq__Nat arg-4 e-4)))(else (Coverage-Core-case--conflictMatchC-44findN-11071 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-5))))))) +(define Coverage-Core-n--8105-12451-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--8915-13223-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--8915-13223-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 (List-Data-filter 'erased (lambda (eta-0) (Basics-Prelude-not (Coverage-Core-tagIs 'erased e-6 eta-0))) e-3)))))(else (vector 1 e-2 (Coverage-Core-n--8915-13223-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))) +(define Coverage-Core-n--9696-13960-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--eraseAppsC-44dropPos-13976 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-61C-61_Eq__Nat arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-47C-61_Eq__Nat arg-7 arg-8)))) arg-4 arg-5))))))))) +(define Coverage-Core-n--6453-11021-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--conflictMatchC-44conflictTm-11135 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--conflictMatchC-44conflictTm-11213 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--conflictMatchC-44conflictTm-11281 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-4)))))))))) +(define Coverage-Core-n--6841-11357-conflictNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 4))) (let ((xC-39 (vector 2 (Name-Core-show_Show__Name e-32) arg-6))) (lambda (eta-0) (let ((act-24 (((e-34 arg-4) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-31 (vector 0 ) xC-39))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Coverage-Core-n--6841-11357-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-6 1 63) arg-7 e-5) eta-0)))))))))))) ((1) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((1) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((sc2 e-40)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-38)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-4 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-7 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 1 (vector 0 e-41 e-6) (vector 0 ))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-5 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((2) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (let ((e-20 (vector-ref sc4 5))) (Coverage-Core-case--conflictC-44conflictNF-11624 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (let ((e-10 (vector-ref sc3 4))) (let ((e-11 (vector-ref sc3 5))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((3) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((e-24 (vector-ref sc4 3))) (let ((e-25 (vector-ref sc4 4))) (let ((e-26 (vector-ref sc4 5))) (Coverage-Core-case--conflictC-44conflictNF-11712 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 arg-8)) (case (vector-ref sc4 0) ((8) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (Coverage-Core-case--conflictC-44conflictNF-11800 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((2) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (let ((e-20 (vector-ref sc3 5))) (Coverage-Core-case--conflictC-44conflictNF-11624 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (let ((e-11 (vector-ref sc2 5))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((3) (let ((e-22 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-24 (vector-ref sc3 3))) (let ((e-25 (vector-ref sc3 4))) (let ((e-26 (vector-ref sc3 5))) (Coverage-Core-case--conflictC-44conflictNF-11712 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 arg-8)) (case (vector-ref sc3 0) ((8) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (Coverage-Core-case--conflictC-44conflictNF-11800 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((e-20 (vector-ref sc2 5))) (Coverage-Core-case--conflictC-44conflictNF-11624 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((3) (let ((e-22 (vector-ref sc2 1))) (let ((e-23 (vector-ref sc2 2))) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((e-26 (vector-ref sc2 5))) (Coverage-Core-case--conflictC-44conflictNF-11712 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 arg-8)) (case (vector-ref sc2 0) ((8) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (Coverage-Core-case--conflictC-44conflictNF-11800 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((2) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (let ((e-20 (vector-ref sc1 5))) (Coverage-Core-case--conflictC-44conflictNF-11624 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((3) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (Coverage-Core-case--conflictC-44conflictNF-11712 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22 e-7 e-11 e-10 e-9 e-8 e-26 e-25 e-24 e-23 arg-6 (Name-Core-C-61C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))))) ((8) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((8) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (Coverage-Core-case--conflictC-44conflictNF-11800 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28 e-13 e-14 e-29 arg-6 (TT-Core-C-61C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))))))) +(define Coverage-Core-n--6841-11356-conflictArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-4 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-evalClosure (vector 0 ) arg-4 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Coverage-Core-n--6841-11357-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-8) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((act-27 ((Coverage-Core-n--6841-11356-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-4 (vector-ref sc7 1))) (vector 1 (vector 1 (List-Types-Prelude-C-43C-43 'erased e-1 e-4))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))))))) +(define Coverage-Core-n--6453-11022-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))) (Basics-Prelude-C-124C-124 (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name arg-4 e-6) (lambda () (Coverage-Core-n--6453-11021-conflictTm arg-0 arg-1 arg-2 arg-3 arg-5 e-7))) (lambda () (Coverage-Core-n--6453-11022-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))))))))))))) +(define Coverage-Core-n--9876-14138-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--9876-14137-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8))) +(define Coverage-Core-n--6453-11019-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))) (EqOrd-Prelude-C-47C-61_Eq__Int e-4 e-10)))(else 1)))))(else 1)))))(else 1)))))(else 1))))) +(define Coverage-Core-n--9018-13312-buildArgsAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--9018-13311-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 ((Coverage-Core-n--9018-13312-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (Coverage-Core-addNot 'erased arg-3 arg-0 'erased e-6 arg-12) e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 e-10)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-n--9018-13311-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Coverage-Core-n--9018-13312-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-5 e-6))))))))))))))))))))))) +(define Coverage-Core-n--9018-13311-buildArgAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((con (vector 1 arg-11 (vector 2 e-2 (List-Types-Prelude-length 'erased e-3)) e-1))) (let ((psC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (TT-Core-apply 'erased arg-11 con (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 arg-11 (vector 0 ) eta-1)) e-3)) eta-0)) arg-7))) (Coverage-Core-buildArgs (List-Types-Prelude-C-43C-43 'erased e-3 arg-0) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 e-3 (vector 1 (vector 0 arg-3 e-2) arg-9)) (Coverage-Core-weakenNs 'erased arg-0 e-3 arg-12) psC-39 e-4)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((psC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (vector 7 arg-11 (vector 2 ) (vector 1 arg-11 (vector 0 ) e-6) (vector 1 arg-11 (vector 0 ) e-7)) eta-0)) arg-7))) (Coverage-Core-buildArgs (vector 1 e-6 (vector 1 e-7 arg-0)) arg-11 arg-10 (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-9) (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-12) psC-39 e-8)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((psC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-substName (vector 0 ) arg-4 (vector 9 arg-11 e-10) eta-0)) arg-7))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 psC-39 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (Coverage-Core-buildArgs arg-0 arg-11 arg-10 arg-9 arg-12 arg-7 e-13))))))) +(define Coverage-Core-n--7848-12227-addTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Coverage-Core-case--caseC-32blockC-32inC-32getConsC-44addTy-12264 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (vector 0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)) (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)))) ext-0))))(else (vector 1 (vector 0 )))))))))))) (define Coverage-Core-weakenNs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (TT-Core-insertVarNames 'erased 'erased (vector 0 ) arg-2 e-6 'erased) e-7) (Coverage-Core-weakenNs 'erased arg-1 arg-2 e-3)))))))))))) (define Coverage-Core-tagIsNot (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__Int arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) 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))) (EqOrd-Prelude-C-61C-61_Eq__Int arg-1 e-2))) ((2) 1) ((1) 1) (else 0))))) -(define Coverage-Core-replaceDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (vector 1 arg-4))) ((10) (lambda (eta-0) (vector 1 arg-4)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-n--9093-13220-rep arg-0 arg-4 arg-3 arg-2 arg-1 eta-1)) arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Coverage-Core-n--9093-13221-dropRep arg-0 arg-4 arg-3 arg-2 arg-1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-5) (lambda (arg-6) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-5 arg-6))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))) +(define Coverage-Core-replaceDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (vector 1 arg-4))) ((10) (lambda (eta-0) (vector 1 arg-4)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-n--8915-13222-rep arg-0 arg-4 arg-3 arg-2 arg-1 eta-1)) arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Coverage-Core-n--8915-13223-dropRep arg-0 arg-4 arg-3 arg-2 arg-1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-5) (lambda (arg-6) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-5 arg-6))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)))))))))))))) (define Coverage-Core-mkAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 e-6 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Types-Prelude-take 'erased e-7 (Types-Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (b+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (b* arg-4 arg-5 63))) (lambda (arg-6) arg-6)) (lambda (arg-183) (lambda (arg-184) (Num-Prelude-div_Integral__Int arg-183 arg-184))) (lambda (arg-185) (lambda (arg-186) (Num-Prelude-mod_Integral__Int arg-185 arg-186)))) (vector 0 (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (b+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (b* arg-4 arg-5 63))) (lambda (arg-6) arg-6)) (lambda (arg-56) (Num-Prelude-negate_Neg__Int arg-56)) (lambda (arg-57) (lambda (arg-58) (Num-Prelude-C-45_Neg__Int arg-57 arg-58)))))) 0))) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 2 "m" eta-0)) (Types-Prelude-take 'erased e-7 (Types-Prelude-rangeFrom_Range__C-36a 'erased (vector 0 (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (b+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (b* arg-4 arg-5 63))) (lambda (arg-6) arg-6)) (lambda (arg-183) (lambda (arg-184) (Num-Prelude-div_Integral__Int arg-183 arg-184))) (lambda (arg-185) (lambda (arg-186) (Num-Prelude-mod_Integral__Int arg-185 arg-186)))) (vector 0 (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-4) (lambda (arg-5) (b+ arg-4 arg-5 63))) (lambda (arg-4) (lambda (arg-5) (b* arg-4 arg-5 63))) (lambda (arg-6) arg-6)) (lambda (arg-56) (Num-Prelude-negate_Neg__Int arg-56)) (lambda (arg-57) (lambda (arg-58) (Num-Prelude-C-45_Neg__Int arg-57 arg-58)))))) 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))) (Basics-Prelude-C-38C-38 (Coverage-Core-match 'erased e-19 e-51) (lambda () (Coverage-Core-match 'erased e-20 e-52))))))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1)))))))))))) ((5) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((5) (let ((e-57 (vector-ref sc1 4))) (Coverage-Core-match 'erased e-25 e-57)))(else (Coverage-Core-match 'erased e-25 arg-2)))))) ((6) (let ((e-29 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((6) (let ((e-61 (vector-ref sc1 3))) (Coverage-Core-match 'erased e-29 e-61)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))) ((7) (let ((e-34 (vector-ref sc0 4))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((7) (let ((e-66 (vector-ref sc1 4))) (Coverage-Core-match 'erased e-34 e-66)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))) ((8) (let ((e-38 (vector-ref sc0 3))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((8) (let ((e-70 (vector-ref sc1 3))) (Coverage-Core-match 'erased e-38 e-70)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))) ((9) (let ((e-41 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-73 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-41 e-73)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((11) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((11) 0)(else 1))))(else 1))))))))))) ((10) 0)(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((10) 0)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((11) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((11) 0)(else 1))))(else 1))))))))))) -(define Coverage-Core-isEmpty (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-15 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-11 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 6))) (let ((e-8 (vector-ref sc3 7))) (let ((e-9 (vector-ref sc3 8))) (let ((bind-0 (vector 1 (vector 6 e-15 e-14 e-13 e-12 e-11 e-10 e-8 e-9)))) ((Coverage-Core-case--caseC-32blockC-32inC-32isEmpty-12081 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 (Basics-Prelude-not (let ((sc4 e-11)) (let ((e-16 (vector-ref sc4 2))) e-16)))) eta-0)))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define Coverage-Core-getNonCoveringRefs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((ds (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9469-13576-noAssert arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1))))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-0 eta-1))) ds) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((cases (List-Data-filter 'erased (lambda (eta-0) (Coverage-Core-n--9469-13575-isCase arg-2 arg-1 arg-0 eta-0)) e-7))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-getNonCoveringRefs arg-0 arg-1 eta-0 eta-1))) cases) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9469-13577-notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) ds) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3) (lambda (arg-4) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3 arg-4))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) -(define Coverage-Core-getMissingAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (Coverage-Core-case--getMissingAlts-12611 arg-0 e-1 arg-4 arg-2 arg-1 (List-Data-isNil 'erased arg-4)))(else (Coverage-Core-case--getMissingAlts-12669 arg-0 e-1 e-2 arg-4 arg-2 arg-1 ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8456-12653-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--getMissingAlts-12731 arg-0 e-4 arg-4 arg-2 arg-1 ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8456-12715-isDefault arg-0 e-4 arg-4 arg-2 arg-1 eta-0))) arg-4))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-0 arg-2 arg-3) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-n--8456-12769-noneOf arg-0 arg-4 arg-3 arg-2 arg-1 arg-4 eta-1)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-1 (vector 2 "Coverage check") (Builtin-snd 'erased 'erased eta-1))) e-5)))))))))))))) +(define Coverage-Core-isEmpty (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-15 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-11 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 6))) (let ((e-8 (vector-ref sc3 7))) (let ((e-9 (vector-ref sc3 8))) (let ((bind-0 (vector 1 (vector 6 e-15 e-14 e-13 e-12 e-11 e-10 e-8 e-9)))) ((Coverage-Core-case--caseC-32blockC-32inC-32isEmpty-12083 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 (Basics-Prelude-not (let ((sc4 e-11)) (let ((e-16 (vector-ref sc4 2))) e-16)))) eta-0)))))))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define Coverage-Core-getNonCoveringRefs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((ds (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9291-13578-noAssert arg-2 arg-1 arg-0 eta-0)) (NameMap-Data-toList 'erased (Context-Core-refersTo e-1))))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-0 eta-1))) ds) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((cases (List-Data-filter 'erased (lambda (eta-0) (Coverage-Core-n--9291-13577-isCase arg-2 arg-1 arg-0 eta-0)) e-7))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-getNonCoveringRefs arg-0 arg-1 eta-0 eta-1))) cases) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Coverage-Core-n--9291-13579-notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) ds) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-9 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3) (lambda (arg-4) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3 arg-4))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0)))))))))))))))) +(define Coverage-Core-getMissingAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (Coverage-Core-case--getMissingAlts-12613 arg-0 e-1 arg-4 arg-2 arg-1 (List-Data-isNil 'erased arg-4)))(else (Coverage-Core-case--getMissingAlts-12671 arg-0 e-1 e-2 arg-4 arg-2 arg-1 ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8278-12655-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--getMissingAlts-12733 arg-0 e-4 arg-4 arg-2 arg-1 ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Coverage-Core-n--8278-12717-isDefault arg-0 e-4 arg-4 arg-2 arg-1 eta-0))) arg-4))))(else (lambda (eta-0) (let ((act-24 ((Coverage-Core-getCons arg-0 arg-2 arg-3) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-n--8278-12771-noneOf arg-0 arg-4 arg-3 arg-2 arg-1 arg-4 eta-1)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Coverage-Core-mkAlt arg-0 arg-1 (vector 2 "Coverage check") (Builtin-snd 'erased 'erased eta-1))) e-5)))))))))))))) (define Coverage-Core-getMissing (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((psIn (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 arg-2 (vector 0 ) eta-0)) arg-0))) (let ((act-25 ((Coverage-Core-buildArgs arg-0 arg-2 e-5 (vector 0 ) (vector 0 ) psIn arg-4) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-apply 'erased arg-2 (vector 1 arg-2 (vector 1 ) arg-3) eta-0)) e-6))))))))))))))) -(define Coverage-Core-getCons (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-8 (vector-ref sc3 7))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--8026-12225-addTy arg-0 e-1 e-3 e-4 e-5 e-2 arg-1 eta-1 eta-2))) e-8) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-16 (vector-ref sc4 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc4 1))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-16)))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Coverage-Core-freeEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 3 arg-0 (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--findTag-12973 '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--eraseApps-14018 '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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--8283-12449-emptyRHSalt e-1 e-0 e-5 e-4 e-2 'erased arg-1 eta-0)) e-5)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (vector 1 e-7 (vector 10 arg-1 1))))(else arg-2))))) -(define Coverage-Core-conflictMatch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Basics-Prelude-C-124C-124 (Coverage-Core-n--6631-11020-conflictArgs arg-0 e-6 e-7 e-3 e-6 e-7 e-3) (lambda () (Coverage-Core-conflictMatch arg-0 e-3))))))))))))) -(define Coverage-Core-conflict (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-5 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Coverage-Core-case--caseC-32blockC-32inC-32conflict-11894 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-1 _-0 (vector 0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)) (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)))) ext-0)))) (else (vector 1 1))))))))))) -(define Coverage-Core-clauseMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased arg-1 (Coverage-Core-n--10054-14136-close arg-0 arg-4 arg-3 arg-2 arg-1 arg-0 (TT-Core-getLoc 'erased arg-3) arg-2 arg-3)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lhs e-5)) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) lhs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-4 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (Coverage-Core-match 'erased e-6 e-7)))))))))))))))))))) -(define Coverage-Core-checkMatched (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased arg-0 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Coverage-Core-n--10141-14222-tryClauses arg-2 arg-1 arg-0 arg-1 e-5) ext-0)))))))) -(define Coverage-Core-buildArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((fenv (Coverage-Core-freeEnv arg-1 arg-0))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 fenv e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Coverage-Core-replaceDefaults arg-0 arg-1 arg-2 e-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Coverage-Core-getMissingAlts arg-0 arg-1 arg-2 e-6 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((altsC-39 (List-Types-Prelude-C-43C-43 'erased e-7 e-8))) (let ((altsK (Types-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 (Types-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--9196-13310-buildArgsAlt arg-0 e-5 e-4 e-2 e-0 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-4 altsN) eta-0)))))))))))))))))))))))))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-getCons (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((6) (let ((e-8 (vector-ref sc3 7))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--7848-12227-addTy arg-0 e-1 e-3 e-4 e-5 e-2 arg-1 eta-1 eta-2))) e-8) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-16 (vector-ref sc4 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc4 1))) (vector 1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-16)))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Coverage-Core-freeEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 3 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-0 1)) (Coverage-Core-freeEnv arg-0 e-3)))))))) +(define Coverage-Core-findTag (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--findTag-12975 '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--eraseApps-14020 '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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Coverage-Core-n--8105-12451-emptyRHSalt e-1 e-0 e-5 e-4 e-2 'erased arg-1 eta-0)) e-5)))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (vector 1 e-7 (vector 10 arg-1 1))))(else arg-2))))) +(define Coverage-Core-conflictMatch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Basics-Prelude-C-124C-124 (Coverage-Core-n--6453-11022-conflictArgs arg-0 e-6 e-7 e-3 e-6 e-7 e-3) (lambda () (Coverage-Core-conflictMatch arg-0 e-3))))))))))))) +(define Coverage-Core-conflict (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-5 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Coverage-Core-case--caseC-32blockC-32inC-32conflict-11896 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 e-1 _-0 (vector 0 (let ((sc2 e-1)) (let ((e-17 (vector-ref sc2 18))) e-17)) (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)))) ext-0)))) (else (vector 1 1))))))))))) +(define Coverage-Core-clauseMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased arg-1 (Coverage-Core-n--9876-14138-close arg-0 arg-4 arg-3 arg-2 arg-1 arg-0 (TT-Core-getLoc 'erased arg-3) arg-2 arg-3)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lhs e-5)) (let ((act-25 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) lhs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-4 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (Coverage-Core-match 'erased e-6 e-7)))))))))))))))))))) +(define Coverage-Core-checkMatched (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Coverage-Core-eraseApps 'erased arg-0 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Coverage-Core-n--9963-14224-tryClauses arg-2 arg-1 arg-0 arg-1 e-5) ext-0)))))))) +(define Coverage-Core-buildArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((fenv (Coverage-Core-freeEnv arg-1 arg-0))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-2 fenv e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Coverage-Core-replaceDefaults arg-0 arg-1 arg-2 e-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Coverage-Core-getMissingAlts arg-0 arg-1 arg-2 e-6 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((altsC-39 (List-Types-Prelude-C-43C-43 'erased e-7 e-8))) (let ((altsK (Types-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 (Types-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--9018-13312-buildArgsAlt arg-0 e-5 e-4 e-2 e-0 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-4 altsN) eta-0)))))))))))))))))))))))))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 1 arg-5 (vector 0 ))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Coverage-Core-altMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) 0)(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((0) (let ((e-6 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 2))) (EqOrd-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--addNot-13064 '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--groupConsC-44addConstG-9303 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((e-16 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((2) (let ((newclause (vector 0 e-14 arg-17 arg-16 arg-15))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-7 (vector 1 (vector 0 e-14 e-15 e-16 e-17) (List-Types-Prelude-C-43C-43 'erased e-11 (vector 1 newclause (vector 0 ))))) arg-14)))))(else (let ((sc3 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10873-8460-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10873-8460-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10873-8460-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc0 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10873-8460-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))) -(define CaseBuilder-Core-with--groupConsC-44addDelayG-9127 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (let ((e-18 (vector-ref sc2 4))) (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased (vector 1 arg-18 (vector 1 arg-17 (vector 0 ))) (vector 1 (vector 1 (vector 0 ))) e-16))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-18) (vector 1 (vector 0 e-8 arg-17) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-16)))) (let ((newclause (vector 0 e-15 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-14)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 (vector 0 e-15 e-16 e-17 e-18) (List-Types-Prelude-C-43C-43 'erased e-12 (vector 1 newclause (vector 0 ))))) arg-13)))))))(else (let ((sc3 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10873-8459-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10873-8459-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10873-8459-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-11 e-5))))))))))))))))(else (let ((sc0 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10873-8459-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))) -(define CaseBuilder-Core-with--groupConsC-44addConG-8795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-10)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-12)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((e-31 (vector-ref sc3 1))) (let ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased arg-12 e-31 e-17))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-7 arg-12)) (CaseBuilder-Core-weakenNs 'erased arg-10 e-7 arg-19)))) (let ((newclause (vector 0 e-16 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-18 (TT-Core-weakenNs_Weaken__Term arg-10 e-7 arg-17)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-7 e-8 e-9 (vector 1 (vector 0 e-16 e-17 e-18 e-19) (List-Types-Prelude-C-43C-43 'erased e-13 (vector 1 newclause (vector 0 ))))) arg-16))))))))(else (let ((sc3 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10873-8458-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10873-8458-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10873-8458-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc0 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10873-8458-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))) -(define CaseBuilder-Core-with--partition-6899 (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--withC-32blockC-32inC-32partition-6916 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--withC-32blockC-32inC-32partition-7046 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--withC-32blockC-32inC-32partition-6982 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--withC-32blockC-32inC-32partition-7046 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--withC-32blockC-32inC-32partition-7046 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6))))))))) -(define CaseBuilder-Core-case--getPMDef-12917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--15427-12724-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 reached arg-0))))))))))) -(define CaseBuilder-Core-case--getPMDefC-44getUnreachable-12743 (lambda (arg-0 arg-1 arg-2 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--15427-12724-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7)) (else (vector 1 arg-6 (CaseBuilder-Core-n--15427-12724-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7))))))) -(define CaseBuilder-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32toPatClause-12331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseTree-Core-argToPat eta-1)) arg-7) arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Types-Prelude-C-43C-43 "Wrong function name in pattern LHS " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32toPatClause-12294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((_-0 (vector 0 e-2 e-3))) (CaseBuilder-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32toPatClause-12331 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 (EqOrd-Prelude-C-61C-61_Eq__Int arg-10 e-2)))))))) -(define CaseBuilder-Core-case--caseC-32blockC-32inC-32toPatClause-12261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-5 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((_-1 (vector 0 e-6 e-4))) ((CaseBuilder-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32toPatClause-12331 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-2 e-6)) eta-0))))))))))))))))) -(define CaseBuilder-Core-case--toPatClause-12226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-getPosition arg-2 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-getPosition e-7 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-10 e-4))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((_-1 (vector 0 e-13 e-12))) ((CaseBuilder-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32toPatClause-12331 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 (EqOrd-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--mkPatClauseC-44mkNames-11747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 (((e-7 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-4 (vector 0 ) arg-8))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-12 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-10 (TT-Core-embed 'erased 'erased e-13))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-8)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-5))))))))))))))))))) -(define CaseBuilder-Core-case--conRule-11349 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-2))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-16 (vector 4 )) eta-0))))))) -(define CaseBuilder-Core-case--match-11008 (lambda (arg-0 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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-shuffleVars 'erased 'erased 'erased e-3 'erased eta-0)) arg-4))) (let ((ps (CaseBuilder-Core-partition e-2 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-0 arg-5 clausesC-39))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mixture e-2 arg-0 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-9 arg-8 clausesC-39 arg-7 arg-6 arg-5 ps arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 2 "No clauses")))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-5) eta-0)))))))))))))) -(define CaseBuilder-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32pickNext-10819 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (+ 1 e-3))))))))) -(define CaseBuilder-Core-case--caseC-32blockC-32inC-32pickNext-10738 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (+ 1 e-3)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 e-2 (+ 1 e-3))))))))))))))))) -(define CaseBuilder-Core-case--pickNext-10669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 arg-0 0)))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 0 e-4 (+ 1 e-3))))))))))))))))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (+ 1 e-3))))))))))))))))))))))))) -(define CaseBuilder-Core-case--caseC-32blockC-32inC-32pickNext-10601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-5) eta-0)))))))) -(define CaseBuilder-Core-case--pickNext-10540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (vector 1 (vector 0 arg-0 0))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-6) eta-0)))))))))))))))) -(define CaseBuilder-Core-case--getScore-10444 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((42) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-9 eta-0))))))) -(define CaseBuilder-Core-case--sameType-9995 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-2 arg-11 arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((CaseBuilder-Core-n--12277-9709-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 (Types-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--sameTypeC-44sameTypeAs-9896 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--12277-9709-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--groupConsC-44addGroup-9406 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--10873-8458-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-16 arg-15 arg-13 arg-21 arg-20 arg-19 arg-18)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-5 (vector 3 arg-16)) eta-0))))))) -(define CaseBuilder-Core-case--groupConsC-44addDelayG-8962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-5 arg-15) (vector 1 (vector 0 e-8 arg-14) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-5 e-8 (vector 1 clause (vector 0 ))) (vector 0 )))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))) -(define CaseBuilder-Core-case--caseC-32blockC-32inC-32groupConsC-44addConG-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 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-nf arg-9 arg-17 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)))) (else (lambda (eta-0) (vector 1 (vector 9 arg-6 1)))))))) -(define CaseBuilder-Core-case--groupConsC-44addConG-8579 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 2 "_" 0) (vector 2 arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-1) (vector 1 (vector 0 arg-6 (vector 2 "_" 1) (vector 2 arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 arg-6 1)) (lambda (d-0) (lambda (a-0) (lambda (eta-2) (vector 1 (vector 10 arg-6)))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-16 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Normalise-Core-nf arg-9 e-5 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)) eta-0))) (else (vector 1 (vector 9 arg-6 1))))))))))))))))))))) -(define CaseBuilder-Core-case--groupConsC-44addConG-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 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-14)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 arg-16 arg-15 (vector 1 clause (vector 0 ))) (vector 0 ))))))))))) -(define CaseBuilder-Core-case--updatePatNames-8417 (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--10656-8277-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-4) e-6)))))))) -(define CaseBuilder-Core-case--updatePatNamesC-44update-8357 (lambda (arg-0 arg-1 arg-2 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--updatePatNamesC-44update-8287 (lambda (arg-0 arg-1 arg-2 arg-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--10656-8277-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 arg-9 e-2 (CaseBuilder-Core-n--10656-8277-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7)))))))) -(define CaseBuilder-Core-case--newPats-8208 (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--nextNames-7952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 4))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 2 ))))))))))(else (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-12 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-10 e-13))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-8))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-5)))))))))))))))))) -(define CaseBuilder-Core-case--caseC-32blockC-32inC-32nextNames-7832 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--nextNames-7771 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (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--caseC-32blockC-32inC-32nextNames-7832 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-3 _-0 (Builtin-snd 'erased 'erased arg-12))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 e-2) (vector 1 (vector 0 0 arg-10 arg-0 argTy) (CaseBuilder-Core-weaken 'erased arg-10 (List-Types-Prelude-C-43C-43 'erased e-2 arg-2) e-3))))))))))) -(define CaseBuilder-Core-case--checkGroupMatch-7607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 2 )))))))) -(define CaseBuilder-Core-case--caseC-32blockC-32inC-32checkGroupMatch-7462 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (vector 0 arg-13))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 )))))))(else (vector 3 )))))) -(define CaseBuilder-Core-case--checkGroupMatch-7388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (CaseBuilder-Core-case--caseC-32blockC-32inC-32checkGroupMatch-7462 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 (vector 0 (Name-Core-nameEq arg-3 arg-11) (Equality-Decidable-decEq_DecEq__Int arg-2 arg-10))))))))) -(define CaseBuilder-Core-case--withC-32blockC-32inC-32partition-7046 (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--withC-32blockC-32inC-32partition-6982 (lambda (arg-0 arg-1 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-Types-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--withC-32blockC-32inC-32partition-6916 (lambda (arg-0 arg-1 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-Types-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--clauseTypeC-44getClauseType-6794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 )) (else (CaseBuilder-Core-n--8724-6602-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15)))))) -(define CaseBuilder-Core-case--clauseTypeC-44getClauseType-6691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 0 )))))) -(define CaseBuilder-Core-case--substInPats-5648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5))))))))))))) -(define CaseBuilder-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32substInPatInfo-5493 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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)) (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-17 arg-21)))))))) -(define CaseBuilder-Core-case--caseC-32blockC-32inC-32substInPatInfo-5412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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-7 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-1 arg-11 arg-12 e-9 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 e-1 (vector 0 ) arg-3))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 arg-12 e-10 arg-2) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (vector 1 (vector 0 (let ((sc5 arg-4)) (let ((e-15 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (vector 0 e-15 e-14 e-13 (vector 0 e-7 e-5)))))) e-11)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2)))))))) -(define CaseBuilder-Core-case--caseC-32blockC-32inC-32substInPatInfo-5334 (lambda (arg-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--substInPatInfo-5295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 0 e-5 e-3 e-4 (vector 0 e-1 (TT-Core-substName arg-1 arg-6 arg-5 e-2))))))) arg-2)))))) ((1) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((env (Env-Core-mkEnv arg-7 arg-1))) (let ((act-26 ((Normalise-Core-nf arg-1 e-5 env (TT-Core-substName arg-1 arg-6 arg-5 e-4)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 3))) (let ((e-8 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-11 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 4))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-1 e-6 env e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-28 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-1 (vector 0 ) arg-3))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-29 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 env e-14 arg-2) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (vector 1 (vector 0 (let ((sc9 arg-4)) (let ((e-19 (vector-ref sc9 1))) (let ((e-18 (vector-ref sc9 2))) (let ((e-17 (vector-ref sc9 3))) (vector 0 e-19 e-18 e-17 (vector 0 e-11 e-13)))))) e-15))))))))))))))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2)))))))) -(define CaseBuilder-Core-case--caseC-32blockC-32inC-32updatePats-5220 (lambda (arg-0 arg-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--updatePats-5158 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 arg-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (let ((sc4 arg-4)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (vector 0 e-2 e-3 e-4 (vector 1 e-7)))))) arg-3)))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 arg-3)))))))) -(define CaseBuilder-Core-case--caseC-32blockC-32inC-32updatePats-5059 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-12)) (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-8 arg-16)))))))) -(define CaseBuilder-Core-case--updatePats-4970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 arg-7 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((arg-9 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 1 arg-10 (vector 0 ) arg-5))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CaseBuilder-Core-updatePats arg-0 arg-6 arg-1 arg-13 e-8 arg-11) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 1 (let ((sc6 arg-12)) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((e-4 (vector-ref sc6 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-8 e-7)))))) e-9)))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-12 arg-11)))))))) -(define CaseBuilder-Core-n--13688-11447-updateVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-3)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((6) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (vector 0 e-18 (vector 1 1) e-13) e-10) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-19 e-2) e-6 e-4 (TT-Core-substName arg-1 e-19 (vector 0 e-18 (vector 1 1) e-13) e-5)))))))))))) ((0) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((e-22 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-22) e-10) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((rhsC-39 (TT-Core-substName arg-1 e-21 (vector 0 e-20 (vector 1 0) e-13) e-5))) ((CaseBuilder-Core-n--13688-11447-updateVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 e-2 (vector 1 (vector 0 e-13 e-14 e-22 e-17) e-6) e-4 rhsC-39)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-15) e-10) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 e-6 e-4 e-5)))))))))))))))))))))))))) -(define CaseBuilder-Core-n--10656-8277-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CaseBuilder-Core-case--updatePatNamesC-44update-8287 '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-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) 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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10656-8277-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased eta-0)) e-7)))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (vector 2 e-8 e-9 e-10 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10656-8277-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased eta-0)) e-11))))))) ((4) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (vector 4 e-12 e-13 (CaseBuilder-Core-n--10656-8277-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-14) (CaseBuilder-Core-n--10656-8277-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-15))))))) ((5) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 5 e-16 e-17 (CaseBuilder-Core-n--10656-8277-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-18) (CaseBuilder-Core-n--10656-8277-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-19))))))) ((6) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-case--updatePatNamesC-44update-8357 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-21 e-20 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) e-21 arg-5)))))(else arg-7))))) -(define CaseBuilder-Core-n--10635-8238-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--15427-12728-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--15427-12727-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CaseBuilder-Core-n--15427-12727-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--7853-5809-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-14)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Types-Prelude-C-43C-43 " [" (Strings-Types-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-8)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Types-Prelude-C-43C-43 " [" (Strings-Types-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-Types-Prelude-C-43C-43 "]" (Strings-Types-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7853-5809-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 3))) e-4))) (Strings-Types-Prelude-C-43C-43 " [" (Strings-Types-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-Types-Prelude-C-43C-43 "]" (Strings-Types-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7853-5809-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc2 e-8)) (let ((e-4 (vector-ref sc2 3))) e-4))) (Strings-Types-Prelude-C-43C-43 " [" (Strings-Types-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-Types-Prelude-C-43C-43 "]" (Strings-Types-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7853-5809-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9))))))))))))))))))))) -(define CaseBuilder-Core-n--12277-9709-sameTypeAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-2 e-7 arg-5 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((CaseBuilder-Core-case--sameTypeC-44sameTypeAs-9896 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 e-5 e-3 arg-12 arg-11 e-7 e-8 (CaseBuilder-Core-n--12277-9708-headEq 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 e-8 arg-7)) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))) -(define CaseBuilder-Core-n--12705-10088-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-25 (vector-ref sc2 2))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-25) (lambda () (CaseBuilder-Core-n--12705-10088-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 2 e-0 e-1 e-2 e-3) e-23)))))(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-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-32) (lambda () (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-6 e-33) (lambda () (CaseBuilder-Core-n--12705-10088-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 1 e-4 e-5 e-6 e-7 e-8) e-30))))))))(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-40 (vector-ref sc2 2))) (Basics-Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__Constant e-10 e-40) (lambda () (CaseBuilder-Core-n--12705-10088-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 3 e-9 e-10) e-38)))))(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--12705-10088-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--12705-10088-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--12705-10088-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--15427-12726-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--15427-12726-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) arg-8 e-5)))))))) -(define CaseBuilder-Core-n--14806-12078-mkPatClausesFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mkPatClause arg-7 arg-6 arg-5 arg-9 arg-3 arg-8 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseBuilder-Core-n--14806-12078-mkPatClausesFrom arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) arg-9 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) -(define CaseBuilder-Core-n--14470-11668-mkNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (let ((sc2 arg-10)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-10)) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (let ((sc5 arg-11)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 (vector 0 ) (vector 2 )))) (else (let ((e-4 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 3))) (let ((e-7 (vector-ref sc6 4))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((2) (let ((e-15 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 4))) (let ((act-26 (((e-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-12 (vector 0 ) e-2))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-18 (vector-ref sc8 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc8 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-13 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-19 (vector-ref sc9 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 1 e-18) (vector 0 e-15 (TT-Core-embed 'erased 'erased e-19)))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-13))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-7)))))))))))))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((CaseBuilder-Core-n--14470-11668-mkNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-9 e-16 (Builtin-fst 'erased 'erased e-7)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 0 0 e-2 e-8 (Builtin-snd 'erased 'erased e-7)) (CaseBuilder-Core-weaken 'erased e-2 e-3 e-10)))))))))))))))))))))))))))))))))))) -(define CaseBuilder-Core-n--15427-12725-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-Types-Prelude-C-43C-43 "pat" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-7) ":")) e-2) (CaseBuilder-Core-n--15427-12725-labelPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) e-3))))))))) -(define CaseBuilder-Core-n--12277-9708-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) ((0) (let ((e-6 (vector-ref sc0 3))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((0) (let ((e-34 (vector-ref sc2 3))) (let ((sc3 e-34)) (case (vector-ref sc3 0) ((2) 0)(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((9) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((9) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) 0)(else 1))))(else 1)))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((3) (let ((e-43 (vector-ref sc1 2))) (Name-Core-C-61C-61_Eq__Name e-10 e-43)))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((8) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((8) (let ((e-49 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-16 e-49)))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((10) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1))))))) ((1) (let ((e-21 (vector-ref sc0 2))) (let ((sc1 e-21)) (case (vector-ref sc1 0) ((1) (let ((e-54 (vector-ref sc1 2))) (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-57 (vector-ref sc2 2))) (let ((sc3 e-57)) (case (vector-ref sc3 0) ((1) (let ((e-61 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (Name-Core-C-61C-61_Eq__Name e-54 e-61))(else (let ((sc4 arg-12)) (case (vector-ref sc4 0) ((9) (let ((sc5 arg-13)) (case (vector-ref sc5 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((9) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((9) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((9) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) 0)(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))(else (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((9) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) 0)(else 1))))(else 1)))))))) -(define CaseBuilder-Core-n--15427-12724-getUnreachable (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--getPMDefC-44getUnreachable-12743 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) arg-6 arg-7))))))))) -(define CaseBuilder-Core-n--14806-12079-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--14806-12079-getNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3)))))))) -(define CaseBuilder-Core-n--8724-6603-getClauseType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (CaseBuilder-Core-case--clauseTypeC-44getClauseType-6691 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-7 e-8 e-9 e-10 e-6 e-11 e-14 e-13 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) e-13) (lambda () (Basics-Prelude-C-38C-38 (Basics-Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) e-6)) (lambda () ((Interfaces-Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn (List-Types-Prelude-C-43C-43 'erased arg-11 ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-16) (lambda (arg-17) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-16 arg-17))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (CaseBuilder-Core-namesFrom eta-1))) (CaseBuilder-Core-getPatInfo 'erased 'erased arg-8))) eta-0))) e-11)))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 3))) (CaseBuilder-Core-n--8724-6603-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (CaseBuilder-Core-case--clauseTypeC-44getClauseType-6794 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) e-1)))))(else (CaseBuilder-Core-n--8724-6602-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 3))) (CaseBuilder-Core-n--8724-6603-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (CaseBuilder-Core-case--clauseTypeC-44getClauseType-6794 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) e-1)))))(else (CaseBuilder-Core-n--8724-6602-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 3))) (CaseBuilder-Core-n--8724-6603-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (CaseBuilder-Core-case--clauseTypeC-44getClauseType-6794 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) e-1)))))(else (CaseBuilder-Core-n--8724-6602-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14)))))))))))) -(define CaseBuilder-Core-n--15427-12634-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 ((CaseBuilder-Core-n--15427-12634-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 2 "arg" arg-5) e-11)))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CaseBuilder-Core-n--10873-8462-gc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((sc2 e-7)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-17 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10873-8461-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 e-17 e-19 'erased e-14 e-8 e-9 arg-12) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) ((CaseBuilder-Core-n--10873-8462-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--15350-12563-findRAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 4))) (CaseBuilder-Core-findReached 'erased e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseBuilder-Core-findReached 'erased e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseBuilder-Core-findReached 'erased e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseBuilder-Core-findReached 'erased e-13))))))) -(define CaseBuilder-Core-n--12705-10087-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--15427-12727-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--15427-12726-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--8724-6602-clauseTypeC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (vector 0 )) ((2) (vector 0 )) ((3) (vector 0 )) ((4) (vector 0 )) ((5) (vector 0 ))(else (vector 1 )))))) -(define CaseBuilder-Core-n--13673-11133-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) (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 1 (vector 3 e) (vector 0 )))))) arg-4)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (List-Types-Prelude-C-43C-43 'erased e-6 arg-3) (List-Types-Prelude-C-43C-43 'erased e-6 arg-1) arg-12 arg-11 arg-10 arg-9 arg-8 e-9 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 e-6 arg-14)) arg-4)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-n--13673-11133-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-7 e-8 e-6 e-5) e-10)))))))))))))))))) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (vector 1 e-12 (vector 1 e-13 arg-3)) (vector 1 e-12 (vector 1 e-13 arg-1)) arg-12 arg-11 arg-10 arg-9 arg-8 e-14 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) arg-14)) arg-4)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-n--13673-11133-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 1 e-12 e-13 e-5) e-6))))))))))))))))) (else (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match arg-3 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 e-18 arg-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-n--13673-11133-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 2 e-17 e-5) e-6))))))))))))))))))))))))) -(define CaseBuilder-Core-n--10873-8461-addGroup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CaseBuilder-Core-n--10873-8461-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-2 'erased arg-15 arg-16 (TT-Core-substName arg-10 e-1 (vector 0 e-0 (vector 1 0) arg-12) arg-17) arg-18))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (CaseBuilder-Core-case--groupConsC-44addGroup-9406 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-7 e-6 e-5 e-4 e-3 arg-18 arg-17 arg-16 arg-15 'erased (Types-Prelude-C-61C-61_Eq__Nat e-6 (List-Types-Prelude-length 'erased e-7))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (CaseBuilder-Core-n--10873-8458-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-9 0 e-11 arg-15 arg-16 arg-17 arg-18)))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (CaseBuilder-Core-n--10873-8458-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 (vector 1 "->") 0 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) arg-15 arg-16 arg-17 arg-18)))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CaseBuilder-Core-n--10873-8459-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-18 e-19 arg-15 arg-16 arg-17 arg-18)))) ((3) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-n--10873-8460-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-21 arg-15 arg-16 arg-17 arg-18)))(else (lambda (eta-0) (vector 1 arg-18))))))) -(define CaseBuilder-Core-n--10873-8459-addDelayG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((dty (vector 0 arg-6 (vector 2 "a" 0) (vector 2 arg-6 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-9 d a) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-6 (vector 2 "x" 0) (vector 2 arg-6 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-5) (lambda (dv) (lambda (av) (lambda (eta-1) (vector 1 (vector 5 arg-6 (vector 2 ) e-5)))))))))))))))))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-nextNames arg-9 arg-8 arg-7 arg-6 "e" (vector 1 arg-11 (vector 1 arg-12 (vector 0 ))) (vector 1 dty)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-11) (vector 1 (vector 0 e-8 arg-12) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-14 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-15)))) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 clause (vector 0 ))) (vector 0 ))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--groupConsC-44addDelayG-9127 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 1 ) (vector 0 ) e-2) e-3 arg-15 arg-14 arg-13 arg-12 arg-11)))))))) -(define CaseBuilder-Core-n--10873-8460-addConstG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 (vector 1 (vector 0 arg-4 arg-12 arg-13 arg-14) (vector 0 ))) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--groupConsC-44addConstG-9303 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 arg-11 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 2 arg-11) (vector 0 ) e-2) e-3 arg-14 arg-13 arg-12)))))))) -(define CaseBuilder-Core-n--10873-8458-addConG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-case--groupConsC-44addConG-8579 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-16 arg-15 arg-10 arg-14 arg-13 arg-12 arg-11 (Name-Core-C-61C-61_Eq__Name arg-11 (vector 1 "->"))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseBuilder-Core-nextNames arg-9 arg-8 arg-7 arg-6 "e" arg-13 (vector 1 e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-13)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-14)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-16)))) (vector 1 (vector 1 (vector 0 e-2 arg-11 arg-12 (vector 1 clause (vector 0 ))) (vector 0 )))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--groupConsC-44addConG-8795 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 arg-13 arg-12 arg-11 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 0 arg-11 arg-12) arg-13 e-2) e-3 arg-16 arg-15 arg-14)))))))) +(define Coverage-Core-addNot (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-1 (vector 1 arg-4 (vector 0 ))) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Coverage-Core-case--addNot-13066 '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--groupConsC-44addConstG-9285 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((sc2 e-10)) (case (vector-ref sc2 0) ((0) (let ((e-14 (vector-ref sc2 1))) (let ((e-15 (vector-ref sc2 2))) (let ((e-16 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((2) (let ((newclause (vector 0 e-14 arg-17 arg-16 arg-15))) (lambda (eta-0) (vector 1 (vector 1 (vector 2 e-7 (vector 1 (vector 0 e-14 e-15 e-16 e-17) (List-Types-Prelude-C-43C-43 'erased e-11 (vector 1 newclause (vector 0 ))))) arg-14)))))(else (let ((sc3 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10674-8442-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10674-8442-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10674-8442-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc0 arg-13)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10674-8442-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-12 arg-17 arg-16 arg-15 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))) +(define CaseBuilder-Core-with--groupConsC-44addDelayG-9109 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((1) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((sc2 e-11)) (case (vector-ref sc2 0) ((0) (let ((e-15 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-17 (vector-ref sc2 3))) (let ((e-18 (vector-ref sc2 4))) (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((1) (let ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased (vector 1 arg-18 (vector 1 arg-17 (vector 0 ))) (vector 1 (vector 1 (vector 0 ))) e-16))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-18) (vector 1 (vector 0 e-8 arg-17) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-16)))) (let ((newclause (vector 0 e-15 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-10 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-14)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 (vector 0 e-15 e-16 e-17 e-18) (List-Types-Prelude-C-43C-43 'erased e-12 (vector 1 newclause (vector 0 ))))) arg-13)))))))(else (let ((sc3 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10674-8441-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10674-8441-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10674-8441-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-11 e-5))))))))))))))))(else (let ((sc0 arg-12)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10674-8441-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-18 arg-17 arg-16 arg-15 arg-14 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))) +(define CaseBuilder-Core-with--groupConsC-44addConG-8777 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-10)) (case (vector-ref sc1 0) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-12)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((e-31 (vector-ref sc3 1))) (let ((newps (CaseBuilder-Core-newPats 'erased 'erased 'erased arg-12 e-31 e-17))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-7 arg-12)) (CaseBuilder-Core-weakenNs 'erased arg-10 e-7 arg-19)))) (let ((newclause (vector 0 e-16 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased newps patsC-39) arg-18 (TT-Core-weakenNs_Weaken__Term arg-10 e-7 arg-17)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-7 e-8 e-9 (vector 1 (vector 0 e-16 e-17 e-18 e-19) (List-Types-Prelude-C-43C-43 'erased e-13 (vector 1 newclause (vector 0 ))))) arg-16))))))))(else (let ((sc3 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10674-8440-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc2 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10674-8440-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))(else (let ((sc1 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10674-8440-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))))))(else (let ((sc0 arg-15)) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10674-8440-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 arg-14 arg-13 arg-12 arg-19 arg-18 arg-17 arg-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-11 e-5)))))))))))))) +(define CaseBuilder-Core-with--partition-6887 (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--withC-32blockC-32inC-32partition-6904 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--withC-32blockC-32inC-32partition-7034 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--withC-32blockC-32inC-32partition-6970 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--withC-32blockC-32inC-32partition-7034 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--withC-32blockC-32inC-32partition-7034 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6))))))))) +(define CaseBuilder-Core-case--getPMDef-12887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--15218-12694-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 reached arg-0))))))))))) +(define CaseBuilder-Core-case--getPMDefC-44getUnreachable-12713 (lambda (arg-0 arg-1 arg-2 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--15218-12694-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7)) (else (vector 1 arg-6 (CaseBuilder-Core-n--15218-12694-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-9 1 63) arg-8 arg-7))))))) +(define CaseBuilder-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32toPatClause-12305 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseTree-Core-argToPat eta-1)) arg-7) arg-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 (Strings-Types-Prelude-C-43C-43 "Wrong function name in pattern LHS " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32toPatClause-12268 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32toPatClause-12305 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 (EqOrd-Prelude-C-61C-61_Eq__Int arg-10 e-2)))))))) +(define CaseBuilder-Core-case--caseC-32blockC-32inC-32toPatClause-12235 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getPosition arg-5 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((_-1 (vector 0 e-6 e-4))) ((CaseBuilder-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32toPatClause-12305 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 (EqOrd-Prelude-C-61C-61_Eq__Int e-2 e-6)) eta-0))))))))))))))))) +(define CaseBuilder-Core-case--toPatClause-12200 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-getPosition arg-2 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-10 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((act-26 ((Context-Core-getPosition e-7 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-10 e-4))) (let ((sc7 e-11)) (let ((e-13 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((_-1 (vector 0 e-13 e-12))) ((CaseBuilder-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32toPatClause-12305 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 (EqOrd-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--mkPatClauseC-44mkNames-11725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (((e-7 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-4 (vector 0 ) arg-8))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 (TT-Core-embed 'erased 'erased e-12))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-8)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-5))))))))))))))))))) +(define CaseBuilder-Core-case--conRule-11327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-2))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-16 (vector 4 )) eta-0))))))) +(define CaseBuilder-Core-case--match-10986 (lambda (arg-0 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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-shuffleVars 'erased 'erased 'erased e-3 'erased eta-0)) arg-4))) (let ((ps (CaseBuilder-Core-partition e-2 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-0 arg-5 clausesC-39))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mixture e-2 arg-0 (TT-Core-dropVar 'erased (vector 1 arg-2 arg-1) e-3 'erased) arg-9 arg-8 clausesC-39 arg-7 arg-6 arg-5 ps arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 2 "No clauses")))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-5) eta-0)))))))))))))) +(define CaseBuilder-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32pickNext-10797 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (+ 1 e-3))))))))) +(define CaseBuilder-Core-case--caseC-32blockC-32inC-32pickNext-10716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 0 e-4 (+ 1 e-3)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 e-2 (+ 1 e-3))))))))))))))))) +(define CaseBuilder-Core-case--pickNext-10647 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 arg-0 0)))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (vector 1 (vector 0 e-4 (+ 1 e-3))))))))))))))))(else (let ((act-25 ((CaseBuilder-Core-pickNext arg-2 arg-1 arg-3 arg-9 arg-8 arg-7 arg-6 arg-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-tail 'erased 'erased 'erased eta-1)) arg-4)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 0 e-2 (+ 1 e-3))))))))))))))))))))))))) +(define CaseBuilder-Core-case--caseC-32blockC-32inC-32pickNext-10579 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-5) eta-0)))))))) +(define CaseBuilder-Core-case--pickNext-10518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-0 0)))) (else (lambda (eta-0) (let ((act-24 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (vector 1 (vector 0 arg-0 0))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-3 e-6) eta-0)))))))))))))))) +(define CaseBuilder-Core-case--getScore-10422 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((42) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-9 eta-0))))))) +(define CaseBuilder-Core-case--sameType-9973 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-2 arg-11 arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((CaseBuilder-Core-n--12078-9691-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 (Types-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--sameTypeC-44sameTypeAs-9874 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--12078-9691-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--groupConsC-44addGroup-9388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--10674-8440-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 arg-16 arg-15 arg-13 arg-21 arg-20 arg-19 arg-18)) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-17 arg-5 (vector 3 arg-16)) eta-0))))))) +(define CaseBuilder-Core-case--groupConsC-44addDelayG-8944 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-5 arg-15) (vector 1 (vector 0 e-8 arg-14) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-5 (vector 1 e-8 (vector 0 ))) arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-5 e-8 (vector 1 clause (vector 0 ))) (vector 0 )))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0))))))) +(define CaseBuilder-Core-case--caseC-32blockC-32inC-32groupConsC-44addConG-8690 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-nf arg-9 arg-17 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)))) (else (lambda (eta-0) (vector 1 (vector 9 arg-6 1)))))))) +(define CaseBuilder-Core-case--groupConsC-44addConG-8561 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-6 (vector 2 "_" 0) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-1) (vector 1 (vector 0 arg-6 (vector 2 "_" 1) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 9 arg-6 1)) (lambda (d-0) (lambda (a-0) (lambda (eta-2) (vector 1 (vector 10 arg-6)))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact arg-16 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Normalise-Core-nf arg-9 e-5 (Env-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)) eta-0))) (else (vector 1 (vector 9 arg-6 1))))))))))))))))))))) +(define CaseBuilder-Core-case--groupConsC-44addConG-8474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-14)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-11 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-10)))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 arg-16 arg-15 (vector 1 clause (vector 0 ))) (vector 0 ))))))))))) +(define CaseBuilder-Core-case--updatePatNames-8399 (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--10457-8259-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-4) e-6)))))))) +(define CaseBuilder-Core-case--updatePatNamesC-44update-8339 (lambda (arg-0 arg-1 arg-2 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--updatePatNamesC-44update-8269 (lambda (arg-0 arg-1 arg-2 arg-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--10457-8259-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 arg-9 e-2 (CaseBuilder-Core-n--10457-8259-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7)))))))) +(define CaseBuilder-Core-case--newPats-8190 (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--nextNames-7940 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 3))) (let ((e-7 (vector-ref sc1 4))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 3))) (let ((sc3 e-11)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 2 ))))))))))(else (lambda (eta-0) (let ((act-24 (((e-7 arg-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-11 (vector 1 e-4 (vector 0 ) arg-10))) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-8) (vector 0 e-9 e-12))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-8))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-5)))))))))))))))))) +(define CaseBuilder-Core-case--caseC-32blockC-32inC-32nextNames-7820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (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--nextNames-7759 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (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--caseC-32blockC-32inC-32nextNames-7820 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-3 _-0 (Builtin-snd 'erased 'erased arg-12))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-10 e-2) (vector 1 (vector 0 0 arg-10 arg-0 argTy) (CaseBuilder-Core-weaken 'erased arg-10 (List-Types-Prelude-C-43C-43 'erased e-2 arg-2) e-3))))))))))) +(define CaseBuilder-Core-case--checkGroupMatch-7595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (vector 2 )))))))) +(define CaseBuilder-Core-case--caseC-32blockC-32inC-32checkGroupMatch-7450 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (vector 0 arg-13))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 )))))))(else (vector 3 )))))) +(define CaseBuilder-Core-case--checkGroupMatch-7376 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (CaseBuilder-Core-case--caseC-32blockC-32inC-32checkGroupMatch-7450 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 (vector 0 (Name-Core-nameEq arg-3 arg-11) (Equality-Decidable-decEq_DecEq__Int arg-2 arg-10))))))))) +(define CaseBuilder-Core-case--withC-32blockC-32inC-32partition-7034 (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--withC-32blockC-32inC-32partition-6970 (lambda (arg-0 arg-1 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-Types-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--withC-32blockC-32inC-32partition-6904 (lambda (arg-0 arg-1 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-Types-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--clauseTypeC-44getClauseType-6782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (vector 1 )) (else (CaseBuilder-Core-n--8531-6590-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-15)))))) +(define CaseBuilder-Core-case--clauseTypeC-44getClauseType-6679 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 0 )))))) +(define CaseBuilder-Core-case--substInPats-5636 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5))))))))))))) +(define CaseBuilder-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32substInPatInfo-5483 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--caseC-32blockC-32inC-32substInPatInfo-5404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-1 arg-11 arg-12 e-8 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 e-1 (vector 0 ) arg-3))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 arg-12 e-9 arg-2) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 0 (let ((sc5 arg-4)) (let ((e-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (vector 0 e-14 e-13 e-12 (vector 0 e-6 e-5)))))) e-10)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2)))))))) +(define CaseBuilder-Core-case--caseC-32blockC-32inC-32substInPatInfo-5326 (lambda (arg-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--substInPatInfo-5287 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 3))) (vector 0 e-5 e-3 e-4 (vector 0 e-1 (TT-Core-substName arg-1 arg-6 arg-5 e-2))))))) arg-2)))))) ((1) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((env (Env-Core-mkEnv arg-7 arg-1))) (let ((act-26 ((Normalise-Core-nf arg-1 e-5 env (TT-Core-substName arg-1 arg-6 arg-5 e-4)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((e-1 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 3))) (let ((e-8 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-11 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 3))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-1 e-6 env e-9 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-1 (vector 0 ) arg-3))) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-29 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 env e-13 arg-2) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 (let ((sc9 arg-4)) (let ((e-18 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-16 (vector-ref sc9 3))) (vector 0 e-18 e-17 e-16 (vector 0 e-11 e-12)))))) e-14))))))))))))))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))(else (vector 1 (vector 0 arg-4 arg-2)))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 arg-4 arg-2)))))))) +(define CaseBuilder-Core-case--caseC-32blockC-32inC-32updatePats-5212 (lambda (arg-0 arg-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--updatePats-5150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 arg-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (let ((sc4 arg-4)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((e-4 (vector-ref sc4 3))) (vector 0 e-2 e-3 e-4 (vector 1 e-7)))))) arg-3)))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4 arg-3)))))))) +(define CaseBuilder-Core-case--caseC-32blockC-32inC-32updatePats-5055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--updatePats-4968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-12 arg-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 (vector 1 arg-9 (vector 0 ) arg-4))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CaseBuilder-Core-updatePats arg-0 arg-5 arg-1 arg-12 e-8 arg-10) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 1 (let ((sc6 arg-11)) (let ((e-2 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (let ((e-4 (vector-ref sc6 3))) (vector 0 e-2 e-3 e-4 (vector 0 arg-7 e-7)))))) e-9)))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 1 arg-11 arg-10)))))))) +(define CaseBuilder-Core-n--13485-11425-updateVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-3)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (let ((sc3 e-15)) (case (vector-ref sc3 0) ((6) (let ((e-18 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (vector 0 e-18 (vector 1 1) e-13) e-10) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 0 (vector 1 e-19 e-2) e-6 e-4 (TT-Core-substName arg-1 e-19 (vector 0 e-18 (vector 1 1) e-13) e-5)))))))))))) ((0) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((e-22 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-22) e-10) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((rhsC-39 (TT-Core-substName arg-1 e-21 (vector 0 e-20 (vector 1 0) e-13) e-5))) ((CaseBuilder-Core-n--13485-11425-updateVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (vector 0 e-2 (vector 1 (vector 0 e-13 e-14 e-22 e-17) e-6) e-4 rhsC-39)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-0 arg-8 arg-7 arg-3 (CaseTree-Core-mkTerm arg-1 e-15) e-10) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 e-6 e-4 e-5)))))))))))))))))))))))))) +(define CaseBuilder-Core-n--10457-8259-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CaseBuilder-Core-case--updatePatNamesC-44update-8269 '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-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) 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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10457-8259-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased eta-0)) e-7)))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (vector 2 e-8 e-9 e-10 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10457-8259-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased eta-0)) e-11))))))) ((4) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (vector 4 e-12 e-13 (CaseBuilder-Core-n--10457-8259-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-14) (CaseBuilder-Core-n--10457-8259-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-15))))))) ((5) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 5 e-16 e-17 (CaseBuilder-Core-n--10457-8259-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-18) (CaseBuilder-Core-n--10457-8259-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-19))))))) ((6) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-case--updatePatNamesC-44update-8339 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-21 e-20 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) e-21 arg-5)))))(else arg-7))))) +(define CaseBuilder-Core-n--10436-8220-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--15218-12698-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--15218-12697-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CaseBuilder-Core-n--15218-12697-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--7660-5797-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-14)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Types-Prelude-C-43C-43 " [" (Strings-Types-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc4 e-8)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Types-Prelude-C-43C-43 " [" (Strings-Types-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-Types-Prelude-C-43C-43 "]" (Strings-Types-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7660-5797-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 3))) e-4))) (Strings-Types-Prelude-C-43C-43 " [" (Strings-Types-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-Types-Prelude-C-43C-43 "]" (Strings-Types-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7660-5797-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (CaseTree-Core-show_Show__Pat (let ((sc2 e-8)) (let ((e-4 (vector-ref sc2 3))) e-4))) (Strings-Types-Prelude-C-43C-43 " [" (Strings-Types-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-Types-Prelude-C-43C-43 "]" (Strings-Types-Prelude-C-43C-43 ", " (CaseBuilder-Core-n--7660-5797-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9))))))))))))))))))))) +(define CaseBuilder-Core-n--12078-9691-sameTypeAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-2 e-7 arg-5 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((CaseBuilder-Core-case--sameTypeC-44sameTypeAs-9874 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 e-5 e-3 arg-12 arg-11 e-7 e-8 (CaseBuilder-Core-n--12078-9690-headEq 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-12 e-8 arg-7)) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-8 arg-6 (vector 1 )) eta-0))))))) +(define CaseBuilder-Core-n--12502-10066-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-25 (vector-ref sc2 2))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-25) (lambda () (CaseBuilder-Core-n--12502-10066-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 2 e-0 e-1 e-2 e-3) e-23)))))(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-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-32) (lambda () (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__Int e-6 e-33) (lambda () (CaseBuilder-Core-n--12502-10066-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 1 e-4 e-5 e-6 e-7 e-8) e-30))))))))(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-40 (vector-ref sc2 2))) (Basics-Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__Constant e-10 e-40) (lambda () (CaseBuilder-Core-n--12502-10066-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 3 e-9 e-10) e-38)))))(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--12502-10066-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--12502-10066-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--12502-10066-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--15218-12696-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--15218-12696-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) arg-8 e-5)))))))) +(define CaseBuilder-Core-n--14601-12054-mkPatClausesFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mkPatClause arg-7 arg-6 arg-5 arg-9 arg-3 arg-8 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseBuilder-Core-n--14601-12054-mkPatClausesFrom arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) arg-9 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) +(define CaseBuilder-Core-n--14267-11646-mkNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-9)) (let ((sc2 arg-10)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-9)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-10)) (let ((e-16 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (let ((sc5 arg-11)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 0 (vector 0 ) (vector 2 )))) (else (let ((e-4 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 3))) (let ((e-7 (vector-ref sc6 4))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((2) (let ((e-15 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 3))) (let ((act-26 (((e-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 1 e-12 (vector 0 ) e-2))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-13 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-18 (vector-ref sc9 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc9 1))) (vector 1 (vector 0 (vector 1 e-17) (vector 0 e-15 (TT-Core-embed 'erased 'erased e-18)))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-13))))))))))))))))(else (let ((act-26 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-7)))))))))))))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((CaseBuilder-Core-n--14267-11646-mkNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 e-9 e-16 (Builtin-fst 'erased 'erased e-7)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 1 (vector 0 0 e-2 e-8 (Builtin-snd 'erased 'erased e-7)) (CaseBuilder-Core-weaken 'erased e-2 e-3 e-10)))))))))))))))))))))))))))))))))))) +(define CaseBuilder-Core-n--15218-12695-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-Types-Prelude-C-43C-43 "pat" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int arg-7) ":")) e-2) (CaseBuilder-Core-n--15218-12695-labelPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (b+ arg-7 1 63) e-3))))))))) +(define CaseBuilder-Core-n--12078-9690-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) ((0) (let ((e-6 (vector-ref sc0 3))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((0) (let ((e-33 (vector-ref sc2 3))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((2) 0)(else (let ((sc3 arg-12)) (case (vector-ref sc3 0) ((9) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) 0)(else 1))))(else 1))))))))(else (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((9) (let ((sc3 arg-13)) (case (vector-ref sc3 0) ((1) 0)(else 1))))(else 1)))))))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((3) (let ((e-41 (vector-ref sc1 2))) (Name-Core-C-61C-61_Eq__Name e-10 e-41)))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((8) (let ((e-16 (vector-ref sc0 2))) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((8) (let ((e-47 (vector-ref sc1 2))) (TT-Core-C-61C-61_Eq__Constant e-16 e-47)))(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1)))))))) ((10) (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((10) 0)(else (let ((sc1 arg-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-13)) (case (vector-ref sc2 0) ((1) 0)(else 1))))(else 1))))))) ((1) (let ((e-21 (vector-ref sc0 2))) (let ((sc1 e-21)) (case (vector-ref sc1 0) ((1) (let ((e-52 (vector-ref sc1 2))) (let ((sc2 arg-12)) (case (vector-ref sc2 0) ((1) (let ((e-55 (vector-ref sc2 2))) (let ((sc3 e-55)) (case (vector-ref sc3 0) ((1) (let ((e-59 (vector-ref sc3 2))) (let ((sc4 arg-13)) (case (vector-ref sc4 0) ((1) (Name-Core-C-61C-61_Eq__Name e-52 e-59))(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--15218-12694-getUnreachable (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-case--getPMDefC-44getUnreachable-12713 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-7 arg-6 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) arg-6 arg-7))))))))) +(define CaseBuilder-Core-n--14601-12055-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--14601-12055-getNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (b+ arg-8 1 63) e-3)))))))) +(define CaseBuilder-Core-n--8531-6591-getClauseType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-6 (vector-ref sc0 1))) (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-11 (vector-ref sc1 5))) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (CaseBuilder-Core-case--clauseTypeC-44getClauseType-6679 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-7 e-8 e-9 e-10 e-6 e-11 e-14 e-13 (Basics-Prelude-C-38C-38 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) e-13) (lambda () (Basics-Prelude-C-38C-38 (Basics-Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) e-6)) (lambda () ((Interfaces-Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (CaseBuilder-Core-namesIn (List-Types-Prelude-C-43C-43 'erased arg-11 ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-16) (lambda (arg-17) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-16 arg-17))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-1) (CaseBuilder-Core-namesFrom eta-1))) (CaseBuilder-Core-getPatInfo 'erased 'erased arg-8))) eta-0))) e-11)))))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 3))) (CaseBuilder-Core-n--8531-6591-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (CaseBuilder-Core-case--clauseTypeC-44getClauseType-6782 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) e-1)))))(else (CaseBuilder-Core-n--8531-6590-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))))))(else (let ((sc1 arg-14)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 3))) (CaseBuilder-Core-n--8531-6591-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (CaseBuilder-Core-case--clauseTypeC-44getClauseType-6782 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) e-1)))))(else (CaseBuilder-Core-n--8531-6590-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14))))))))))))(else (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 3))) (CaseBuilder-Core-n--8531-6591-getClauseType 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5 arg-15)))(else (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (CaseBuilder-Core-case--clauseTypeC-44getClauseType-6782 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-1 arg-14 arg-13 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-16 arg-17))) (lambda (arg-16) (lambda (arg-17) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-16 arg-17))))) e-1)))))(else (CaseBuilder-Core-n--8531-6590-clauseTypeC-39 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-14)))))))))))) +(define CaseBuilder-Core-n--15218-12606-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 ((CaseBuilder-Core-n--15218-12606-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 2 "arg" arg-5) e-10)))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CaseBuilder-Core-n--10674-8444-gc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-12))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((sc2 e-7)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((sc3 e-13)) (let ((e-17 (vector-ref sc3 1))) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--10674-8443-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 e-17 e-19 'erased e-14 e-8 e-9 arg-12) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) ((CaseBuilder-Core-n--10674-8444-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--15141-12535-findRAlts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-4 (vector-ref sc0 4))) (CaseBuilder-Core-findReached 'erased e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseBuilder-Core-findReached 'erased e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseBuilder-Core-findReached 'erased e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseBuilder-Core-findReached 'erased e-13))))))) +(define CaseBuilder-Core-n--12502-10065-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--15218-12697-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--15218-12696-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--8531-6590-clauseTypeC-39 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (vector 0 )) ((2) (vector 0 )) ((3) (vector 0 )) ((4) (vector 0 )) ((5) (vector 0 ))(else (vector 1 )))))) +(define CaseBuilder-Core-n--13470-11111-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) (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 1 (vector 3 e) (vector 0 )))))) arg-4)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (List-Types-Prelude-C-43C-43 'erased e-6 arg-3) (List-Types-Prelude-C-43C-43 'erased e-6 arg-1) arg-12 arg-11 arg-10 arg-9 arg-8 e-9 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 e-6 arg-14)) arg-4)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-n--13470-11111-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-7 e-8 e-6 e-5) e-10)))))))))))))))))) ((1) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match (vector 1 e-12 (vector 1 e-13 arg-3)) (vector 1 e-12 (vector 1 e-13 arg-1)) arg-12 arg-11 arg-10 arg-9 arg-8 e-14 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-14) (CaseTree-Core-weakenNs_Weaken__CaseTree arg-3 (vector 1 e-12 (vector 1 e-13 (vector 0 ))) arg-14)) arg-4)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-n--13470-11111-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 1 e-12 e-13 e-5) e-6))))))))))))))))) (else (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-match arg-3 arg-1 arg-12 arg-11 arg-10 arg-9 arg-8 e-18 arg-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-n--13470-11111-altGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-8 arg-9 arg-10 arg-11 arg-12 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 2 e-17 e-5) e-6))))))))))))))))))))))))) +(define CaseBuilder-Core-n--10674-8443-addGroup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CaseBuilder-Core-n--10674-8443-addGroup arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-2 'erased arg-15 arg-16 (TT-Core-substName arg-10 e-1 (vector 0 e-0 (vector 1 0) arg-12) arg-17) arg-18))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (CaseBuilder-Core-case--groupConsC-44addGroup-9388 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 'erased arg-10 arg-11 arg-12 e-7 e-6 e-5 e-4 e-3 arg-18 arg-17 arg-16 arg-15 'erased (Types-Prelude-C-61C-61_Eq__Nat e-6 (List-Types-Prelude-length 'erased e-7))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (CaseBuilder-Core-n--10674-8440-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-9 0 e-11 arg-15 arg-16 arg-17 arg-18)))) ((4) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (CaseBuilder-Core-n--10674-8440-addConG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 (vector 1 "->") 0 (vector 1 e-14 (vector 1 e-15 (vector 0 ))) arg-15 arg-16 arg-17 arg-18)))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (CaseBuilder-Core-n--10674-8441-addDelayG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-18 e-19 arg-15 arg-16 arg-17 arg-18)))) ((3) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-n--10674-8442-addConstG arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-11 e-21 arg-15 arg-16 arg-17 arg-18)))(else (lambda (eta-0) (vector 1 arg-18))))))) +(define CaseBuilder-Core-n--10674-8441-addDelayG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((dty (vector 0 arg-6 (vector 2 "a" 0) (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-9 d a) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-6 (vector 2 "x" 0) (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) e-5) (lambda (dv) (lambda (av) (lambda (eta-1) (vector 1 (vector 5 arg-6 (vector 2 ) e-5)))))))))))))))))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-nextNames arg-9 arg-8 arg-7 arg-6 "e" (vector 1 arg-11 (vector 1 arg-12 (vector 0 ))) (vector 1 dty)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (vector 1 (vector 0 e-7 arg-11) (vector 1 (vector 0 e-8 arg-12) (vector 0 )))) (CaseBuilder-Core-weakenNs 'erased arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-13)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-14 (TT-Core-weakenNs_Weaken__Term arg-9 (vector 1 e-7 (vector 1 e-8 (vector 0 ))) arg-15)))) (vector 1 (vector 1 (vector 1 e-7 e-8 (vector 1 clause (vector 0 ))) (vector 0 ))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--groupConsC-44addDelayG-9109 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 1 ) (vector 0 ) e-2) e-3 arg-15 arg-14 arg-13 arg-12 arg-11)))))))) +(define CaseBuilder-Core-n--10674-8442-addConstG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 2 arg-11 (vector 1 (vector 0 arg-4 arg-12 arg-13 arg-14) (vector 0 ))) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--groupConsC-44addConstG-9285 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 arg-11 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 2 arg-11) (vector 0 ) e-2) e-3 arg-14 arg-13 arg-12)))))))) +(define CaseBuilder-Core-n--10674-8440-addConG (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-case--groupConsC-44addConG-8561 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-16 arg-15 arg-10 arg-14 arg-13 arg-12 arg-11 (Name-Core-C-61C-61_Eq__Name arg-11 (vector 1 "->"))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseBuilder-Core-nextNames arg-9 arg-8 arg-7 arg-6 "e" arg-13 (vector 1 e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((patsC-39 (CaseBuilder-Core-updatePatNames 'erased 'erased (CaseBuilder-Core-updateNames (List-Data-zip 'erased 'erased e-2 arg-13)) (CaseBuilder-Core-weakenNs 'erased arg-9 e-2 arg-14)))) (let ((clause (vector 0 arg-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-3 patsC-39) arg-15 (TT-Core-weakenNs_Weaken__Term arg-9 e-2 arg-16)))) (vector 1 (vector 1 (vector 0 e-2 arg-11 arg-12 (vector 1 clause (vector 0 ))) (vector 0 )))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--groupConsC-44addConG-8777 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-10 arg-9 e-2 arg-13 arg-12 arg-11 (CaseBuilder-Core-checkGroupMatch 'erased 'erased (vector 0 arg-11 arg-12) arg-13 e-2) e-3 arg-16 arg-15 arg-14)))))))) (define CaseBuilder-Core-weaken_Weaken__ArgType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (vector 0 e-1 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-2))))) ((1) (let ((e-4 (vector-ref sc0 1))) (vector 1 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-4)))) (else (vector 2 )))))) (define CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 0 (+ 1 e-2) e-3 e-4 (CaseBuilder-Core-weaken_Weaken__ArgType arg-1 arg-2 e-6))))))))) (define CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased e-2 (List-Types-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-Types-Prelude-C-43C-43 "Known " (Strings-Types-Prelude-C-43C-43 (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega e-1) (Strings-Types-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-Types-Prelude-C-43C-43 "Stuck " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-4)))) (else "Unknown"))))) (define CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 e-3) (Strings-Types-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5)))))))) -(define CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (CaseBuilder-Core-n--7853-5809-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-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (CaseBuilder-Core-n--7660-5797-showAll arg-0 arg-1 arg-2 arg-0 arg-1 arg-2) "]")))) (define CaseBuilder-Core-showPrec_Show__C-40ArgTypeC-32C-36nsC-41 (lambda (arg-0 arg-1 arg-2) (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-0 arg-2))) (define CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 arg-3))) (define CaseBuilder-Core-showPrec_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 arg-3))) -(define CaseBuilder-Core-__Impl_Weaken_C-40PatInfoC-32C-36pC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3641) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased n vars arg-3641)))) (lambda (vars) (lambda (ns) (lambda (arg-3645) (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased vars ns arg-3645))))))) +(define CaseBuilder-Core-__Impl_Weaken_C-40PatInfoC-32C-36pC-41 (lambda (arg-0) (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3584) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased n vars arg-3584)))) (lambda (vars) (lambda (ns) (lambda (arg-3588) (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased vars ns arg-3588))))))) (define CaseBuilder-Core-__Impl_Show_C-40ArgTypeC-32C-36nsC-41 (lambda (arg-0) (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40ArgTypeC-32C-36nsC-41 arg-0 x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40ArgTypeC-32C-36nsC-41 arg-0 d x)))))) (define CaseBuilder-Core-__Impl_Show_C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 d x)))))) (define CaseBuilder-Core-__Impl_Show_C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40NamedPatsC-32C-36varsC-41C-32C-36todoC-41 arg-0 arg-1 d x)))))) (define CaseBuilder-Core-weakenNs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased arg-1 arg-2 e-4) (CaseBuilder-Core-weakenNs 'erased arg-1 arg-2 e-5))))))))) (define CaseBuilder-Core-weaken (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased arg-1 arg-2 e-4) (CaseBuilder-Core-weaken 'erased arg-1 arg-2 e-5))))))))) -(define CaseBuilder-Core-varRule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--13688-11447-updateVar arg-2 arg-1 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 eta-0)) arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CaseBuilder-Core-match arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 arg-9) ext-0)))))))) -(define CaseBuilder-Core-updatePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((1) (let ((e-23 (vector-ref sc3 1))) (let ((e-24 (vector-ref sc3 2))) (CaseBuilder-Core-case--updatePats-4970 arg-0 arg-2 e-12 e-16 e-18 e-2 e-3 e-19 e-17 e-14 e-11 e-24 e-23 arg-3 (let ((sc4 e-23)) (let ((e-6 (vector-ref sc4 4))) e-6))))))(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--updatePats-5158 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--updatePats-5158 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--updatePats-5158 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--10656-8277-update 'erased 'erased 'erased e-5 e-4 arg-2 'erased e-7) e-6)))))) (CaseBuilder-Core-updatePatNames 'erased 'erased arg-2 e-5))))))))) -(define CaseBuilder-Core-updateNames (lambda (ext-0) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10635-8238-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--toPatClause-12226 e-2 e-3 arg-2 arg-1 arg-0 (TT-Core-getFnArgs 'erased e-2))))))) +(define CaseBuilder-Core-varRule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--13485-11425-updateVar arg-2 arg-1 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 eta-0)) arg-8) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CaseBuilder-Core-match arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 arg-9) ext-0)))))))) +(define CaseBuilder-Core-updatePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-5)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((2) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((1) (let ((e-22 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (CaseBuilder-Core-case--updatePats-4968 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--updatePats-5150 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--updatePats-5150 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--updatePats-5150 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--10457-8259-update 'erased 'erased 'erased e-5 e-4 arg-2 'erased e-7) e-6)))))) (CaseBuilder-Core-updatePatNames 'erased 'erased arg-2 e-5))))))))) +(define CaseBuilder-Core-updateNames (lambda (ext-0) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--10436-8220-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--toPatClause-12200 e-2 e-3 arg-2 arg-1 arg-0 (TT-Core-getFnArgs 'erased e-2))))))) (define CaseBuilder-Core-tail (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-4 (vector-ref sc0 2))) e-4)))) (define CaseBuilder-Core-substInPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (lambda (eta-0) (vector 1 (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPatInfo e-2 arg-0 e-3 arg-2 arg-3 arg-4 arg-5 e-8 e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-6 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (let ((act-25 ((CaseBuilder-Core-substInPats arg-0 e-3 arg-2 arg-3 arg-4 arg-5 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 1 e-6 e-7)))))))))))))))))))))))))) -(define CaseBuilder-Core-substInPatInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-case--substInPatInfo-5295 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--substInPatInfo-5287 arg-2 arg-1 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 (let ((sc0 arg-7)) (let ((e-6 (vector-ref sc0 4))) e-6))))) (define CaseBuilder-Core-substInClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-3)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-substInPats arg-1 arg-2 arg-3 arg-4 arg-0 (CaseTree-Core-mkTerm arg-1 e-15) e-10) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 0 e-2 (vector 1 (vector 0 e-13 e-14 e-15 e-17) e-6) e-4 e-5))))))))))))))))))))))) -(define CaseBuilder-Core-simpleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-logC arg-0 "compile.casetree" (+ 1 (+ 1 0)) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) (Builtin-fst 'erased 'erased c) eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) (Builtin-snd 'erased 'erased c) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Clause " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6) "\u000a"))))))))))))))))) arg-6) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-7 arg-8))) (Types-Prelude-neutral_Monoid__String)))) e-5)))))))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-toPatClause arg-0 arg-1 arg-3 eta-0)) arg-6) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseBuilder-Core-patCompile arg-0 arg-1 arg-3 arg-2 arg-4 e-6 arg-5) ext-0)))))))))))))))) +(define CaseBuilder-Core-simpleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (Context-Core-logC arg-0 (+ 1 (+ 1 0)) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) (Builtin-fst 'erased 'erased c) eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) (Builtin-snd 'erased 'erased c) eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Clause " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-6) "\u000a"))))))))))))))))) arg-6) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-7) (lambda (arg-8) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-7 arg-8))) (Types-Prelude-neutral_Monoid__String)))) e-5)))))))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-toPatClause arg-0 arg-1 arg-3 eta-0)) arg-6) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseBuilder-Core-patCompile arg-0 arg-1 arg-3 arg-2 arg-4 e-6 arg-5) ext-0)))))))))))))))) (define CaseBuilder-Core-shuffleVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 0 e-2 (CaseBuilder-Core-moveFirst 'erased 'erased 'erased arg-3 'erased e-3) e-4 e-5)))))))) -(define CaseBuilder-Core-sameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((CaseBuilder-Core-case--sameType-9995 '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--12705-10088-samePatAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-n--12705-10087-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased e-2)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--12705-10087-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--pickNext-10540 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--pickNext-10669 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) (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 "No definition"))))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) e))))) arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ns (CaseBuilder-Core-n--14806-12079-getNames e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 (Builtin-fst 'erased 'erased e-2)))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--14806-12078-mkPatClausesFrom e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 ns (vector 1 e-2 e-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-log arg-0 "compile.casetree" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Pattern clauses " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns d x)))) e-5)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.CaseBuilder.PName" ) 0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CaseBuilder-Core-match ns ns e-7 arg-0 arg-1 arg-2 arg-3 e-5 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-7) (CaseTree-Core-weakenNs_Weaken__CaseTree (vector 0 ) ns arg-7)) arg-6)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 ns e-8)))))))))))))))))))))))))))))) +(define CaseBuilder-Core-sameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((CaseBuilder-Core-case--sameType-9973 '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--12502-10066-samePatAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-n--12502-10065-dropAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-getFirstPat 'erased 'erased 'erased e-2)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--12502-10065-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--pickNext-10518 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--pickNext-10647 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) (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 2 "No definition"))))) (lambda () (lambda (e) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) e))))) arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ns (CaseBuilder-Core-n--14601-12055-getNames e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 (Builtin-fst 'erased 'erased e-2)))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-n--14601-12054-mkPatClausesFrom e-2 e-3 arg-6 arg-4 arg-3 arg-2 arg-1 arg-0 0 ns (vector 1 e-2 e-3)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Pattern clauses " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CaseBuilder-Core-show_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns x)) (lambda (d) (lambda (x) (CaseBuilder-Core-showPrec_Show__C-40C-40PatClauseC-32C-36varsC-41C-32C-36todoC-41 ns ns d x)))) e-5))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Core-Core-newRef 'erased 'erased (vector "Core.CaseBuilder.PName" ) 0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CaseBuilder-Core-match ns ns e-7 arg-0 arg-1 arg-2 arg-3 e-5 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (arg-7) (CaseTree-Core-weakenNs_Weaken__CaseTree (vector 0 ) ns arg-7)) arg-6)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 ns e-8)))))))))))))))))))))))))))))) (define PatInfo-CaseBuilder-Core-pat (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-4 (vector-ref sc0 3))) e-4)))) -(define CaseBuilder-Core-partition (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 2 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--partition-6899 arg-0 arg-1 arg-2 e-3 arg-3 (CaseBuilder-Core-partition arg-0 arg-1 arg-2 arg-3 e-3) e-2)))))))) -(define CaseBuilder-Core-nextNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CaseBuilder-Core-nextName arg-1 arg-4 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((env (Env-Core-mkEnv arg-3 arg-0))) (let ((act-27 (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 (vector 0 ) (vector 2 )))) (else (let ((e-4 (vector-ref sc4 1))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 3))) (let ((e-8 (vector-ref sc5 4))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((2) (let ((e-14 (vector-ref sc6 2))) (let ((e-12 (vector-ref sc6 4))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((9) (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-18 (vector-ref sc8 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 1 e-18) (vector 2 )))))))))(else (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-16 (vector-ref sc7 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc7 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-12 eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 1 e-16) (vector 0 e-14 e-17)))))))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-12)))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-8))))))))))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CaseBuilder-Core-nextNames arg-0 arg-1 arg-2 arg-3 arg-4 e-3 (Builtin-fst 'erased 'erased e-8)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((argTy (let ((_-0 (vector 0 e-10 e-4))) (CaseBuilder-Core-case--caseC-32blockC-32inC-32nextNames-7832 e-2 e-3 arg-0 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 env e-8 e-10 e-4 _-0 (Builtin-snd 'erased 'erased e-8))))) (vector 1 (vector 0 (vector 1 e-7 e-10) (vector 1 (vector 0 0 e-7 e-2 argTy) (CaseBuilder-Core-weaken 'erased e-7 (List-Types-Prelude-C-43C-43 'erased e-10 arg-0) e-4)))))))))))))))))))))))))))))))))))))))))) +(define CaseBuilder-Core-partition (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 2 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--partition-6887 arg-0 arg-1 arg-2 e-3 arg-3 (CaseBuilder-Core-partition arg-0 arg-1 arg-2 arg-3 e-3) e-2)))))))) +(define CaseBuilder-Core-nextNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (vector 0 ))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (CaseBuilder-Core-nextName arg-1 arg-4 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((env (Env-Core-mkEnv arg-3 arg-0))) (let ((act-27 (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 0 (vector 0 ) (vector 2 )))) (else (let ((e-4 (vector-ref sc4 1))) (let ((sc5 e-4)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 3))) (let ((e-8 (vector-ref sc5 4))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((2) (let ((e-14 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 3))) (let ((sc7 e-12)) (case (vector-ref sc7 0) ((9) (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 1 e-17) (vector 2 )))))))))(else (let ((act-27 (((e-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) env (vector 1 e-11 (vector 0 ) e-7))) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc7 1))) (let ((act-28 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-12 eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 0 (vector 1 e-15) (vector 0 e-14 e-16)))))))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-12)))))))))))))))(else (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 0 ) (vector 1 e-8))))))))))))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((CaseBuilder-Core-nextNames arg-0 arg-1 arg-2 arg-3 arg-4 e-3 (Builtin-fst 'erased 'erased e-8)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-4 (vector-ref sc6 2))) (let ((argTy (let ((_-0 (vector 0 e-10 e-4))) (CaseBuilder-Core-case--caseC-32blockC-32inC-32nextNames-7820 e-2 e-3 arg-0 arg-6 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 env e-8 e-10 e-4 _-0 (Builtin-snd 'erased 'erased e-8))))) (vector 1 (vector 0 (vector 1 e-7 e-10) (vector 1 (vector 0 0 e-7 e-2 argTy) (CaseBuilder-Core-weaken 'erased e-7 (List-Types-Prelude-C-43C-43 'erased e-10 arg-0) e-4)))))))))))))))))))))))))))))))))))))))))) (define CaseBuilder-Core-nextName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (b+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))))) (define CaseBuilder-Core-newPats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-12 (vector-ref sc1 1))) (let ((sc2 arg-5)) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (vector 1 (let ((sc3 e-16)) (let ((e-7 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((e-6 (vector-ref sc3 4))) (vector 0 e-7 e-5 e-2 e-6))))) (CaseBuilder-Core-newPats 'erased 'erased 'erased e-3 e-12 e-17)))))))))))))) (define CaseBuilder-Core-namesIn (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Basics-Prelude-C-38C-38 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-1 arg-0) (lambda () (CaseBuilder-Core-namesIn arg-0 e-2)))))) ((1) (let ((e-7 (vector-ref sc0 5))) ((Interfaces-Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-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))) ((Interfaces-Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-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))) (Basics-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))) (Basics-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))) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) 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))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-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))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-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-Types-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-Types-Prelude-C-43C-43 'erased (CaseBuilder-Core-namesFrom e-18) (CaseBuilder-Core-namesFrom e-19))))) ((6) (let ((e-21 (vector-ref sc0 2))) (vector 1 e-21 (vector 0 ))))(else (vector 0 )))))) (define CaseBuilder-Core-moveFirst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 1 (CaseBuilder-Core-getPat 'erased 'erased 'erased arg-3 'erased arg-5) (CaseBuilder-Core-dropPat 'erased 'erased 'erased arg-3 'erased arg-5)))) -(define CaseBuilder-Core-mkPatClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-1 arg-2 (vector 0 )) eta-0))) (lambda () (lambda (eq) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CaseBuilder-Core-n--14470-11668-mkNames e-2 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-2 eq (vector 1 e-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 0 ) e-7 arg-5 (TT-Core-weakenNs_Weaken__Term (vector 0 ) arg-3 e-3))))))))))))))))))))) (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-2))))))) +(define CaseBuilder-Core-mkPatClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-1 arg-2 (vector 0 )) eta-0))) (lambda () (lambda (eq) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CaseBuilder-Core-n--14267-11646-mkNames e-2 e-3 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-3 e-2 eq (vector 1 e-6)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (vector 0 ) e-7 arg-5 (TT-Core-weakenNs_Weaken__Term (vector 0 ) arg-3 e-3))))))))))))))))))))) (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-2))))))) (define CaseBuilder-Core-mixture (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mixture arg-0 arg-1 arg-2 arg-3 arg-4 e-5 arg-6 arg-7 arg-8 e-7 arg-10) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-25 ((CaseBuilder-Core-conRule arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 e-6 e-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 1 e-9))))))))))))))(else (let ((sc1 arg-5)) (let ((sc2 arg-9)) (lambda (eta-0) (vector 1 arg-10)))))))))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-mixture arg-0 arg-1 arg-2 arg-3 arg-4 e-10 arg-6 arg-7 arg-8 e-12 arg-10) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (CaseBuilder-Core-varRule arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 arg-8 e-11 e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 1 e-6))))))))))))))(else (let ((sc1 arg-5)) (let ((sc2 arg-9)) (lambda (eta-0) (vector 1 arg-10))))))))))))(else (let ((sc0 arg-5)) (let ((sc1 arg-9)) (lambda (eta-0) (vector 1 arg-10))))))))) (define CaseBuilder-Core-match (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-pickNext e-1 arg-0 e-2 arg-2 arg-3 arg-4 arg-6 arg-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-getNPs 'erased 'erased eta-1)) arg-7)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((clausesC-39 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-shuffleVars 'erased 'erased 'erased e-3 'erased eta-1)) arg-7))) (let ((ps (CaseBuilder-Core-partition e-4 (TT-Core-dropVar 'erased (vector 1 e-1 e-2) e-3 'erased) arg-0 arg-6 clausesC-39))) (let ((act-25 ((CaseBuilder-Core-mixture e-4 arg-0 (TT-Core-dropVar 'erased (vector 1 e-1 e-2) e-3 'erased) arg-2 arg-3 clausesC-39 arg-4 arg-5 arg-6 ps arg-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 2 "No clauses")))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-6) eta-0)))))))))))))))))))) (else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 2 "No patterns")))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-8)) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-13 (vector-ref sc2 4))) (let ((sc3 e-11)) (let ((sc4 e-13)) (case (vector-ref sc4 0) ((10) (let ((e-17 (vector-ref sc4 2))) (let ((sc5 e-17)) (cond ((equal? sc5 0) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (vector 1 (vector 1 e-12 e-13))))))))(else (lambda (eta-0) (vector 1 (vector 1 e-12 e-13)))))))))))))))))))) -(define CaseBuilder-Core-groupCons (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (CaseBuilder-Core-n--10873-8462-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--10674-8444-gc arg-0 arg-1 arg-2 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-0 arg-1 arg-2 (vector 0 ) arg-8))) (define CaseBuilder-Core-getScore (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 ((CaseBuilder-Core-sameType 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Env-Core-mkEnv arg-5 arg-2) arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 )))))))) (lambda (err) (let ((sc0 err)) (case (vector-ref sc0 0) ((42) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-2)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased err eta-0)))))) ext-0))) (define CaseBuilder-Core-getPatInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 (let ((sc1 e-4)) (let ((e-7 (vector-ref sc1 3))) e-7)) (CaseBuilder-Core-getPatInfo 'erased 'erased e-5))))))))) (define CaseBuilder-Core-getPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) e-4)))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-5)) (let ((e-10 (vector-ref sc0 2))) (CaseBuilder-Core-getPat 'erased 'erased 'erased e-0 'erased e-10))))))))) -(define CaseBuilder-Core-getPMDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CaseBuilder-Core-n--15427-12634-getArgs arg-4 arg-3 arg-2 arg-1 arg-0 0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-7 (vector 0 (vector 2 "No clauses") (vector 0 )))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((cs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-n--15427-12728-toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-1)) (CaseBuilder-Core-n--15427-12725-labelPat arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 0 arg-5)))) (let ((act-25 (CaseBuilder-Core-simpleCase arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) cs eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--15427-12724-getUnreachable arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 0 reached arg-5))))))))))))))))))))))))) +(define CaseBuilder-Core-getPMDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CaseBuilder-Core-n--15218-12606-getArgs arg-4 arg-3 arg-2 arg-1 arg-0 0 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-7 (vector 0 (vector 2 "No clauses") (vector 0 )))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((cs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-n--15218-12698-toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-1)) (CaseBuilder-Core-n--15218-12695-labelPat arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 0 arg-5)))) (let ((act-25 (CaseBuilder-Core-simpleCase arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) cs eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((reached (CaseBuilder-Core-findReached 'erased e-3))) (vector 1 (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--15218-12694-getUnreachable arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 0 reached arg-5))))))))))))))))))))))))) (define CaseBuilder-Core-getNPs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) e-3)))) (define CaseBuilder-Core-getFirstPat (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (let ((e-5 (vector-ref sc1 3))) e-5)))))) (define CaseBuilder-Core-getFirstArgType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 4))) e-6)))))) -(define CaseBuilder-Core-findReached (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-n--15350-12563-findRAlts e-1 e-0 e-2 'erased e-4 e-5 'erased eta-0))) e-5))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (vector 1 e-7 (vector 0 ))))(else (vector 0 )))))) +(define CaseBuilder-Core-findReached (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-n--15141-12535-findRAlts e-1 e-0 e-2 'erased e-4 e-5 'erased eta-0))) e-5))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (vector 1 e-7 (vector 0 ))))(else (vector 0 )))))) (define CaseBuilder-Core-dropPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 2))) e-5)))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-5)) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (vector 1 e-9 (CaseBuilder-Core-dropPat 'erased 'erased 'erased e-0 'erased e-10))))))))))) (define CaseBuilder-Core-conRule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 2 "No constructor clauses")))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0)))) arg-9)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-13)) (let ((e-17 (vector-ref sc3 1))) (let ((e-18 (vector-ref sc3 2))) (let ((e-21 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-substInClause arg-0 arg-1 arg-2 arg-4 arg-5 eta-1)) arg-8) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CaseBuilder-Core-groupCons arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6 e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-26 (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 2))) (vector 1 e-4)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-6 (vector 4 )) eta-0)))))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (CaseBuilder-Core-caseGroups e-18 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-17 'erased e-11 e-10 arg-9 eta-0)))))))))))))))))))))))))))))))) -(define CaseBuilder-Core-clauseType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-3)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (CaseBuilder-Core-n--8724-6603-getClauseType 'erased 'erased 'erased e-13 e-14 'erased e-17 e-15 e-10 e-5 e-4 e-2 arg-3 arg-3 e-15 e-17)))))))))))))))) -(define CaseBuilder-Core-checkGroupMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (CaseBuilder-Core-case--checkGroupMatch-7388 'erased 'erased e-1 e-0 e-5 e-17 e-16 e-15 e-14 e-11 e-7 e-6 arg-3 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-5)))))))(else (vector 3 )))))))(else (vector 3 )))))))))(else (vector 3 ))))))) ((1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-23 (vector-ref sc2 3))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((e-25 (vector-ref sc3 1))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (vector 1 ))(else (vector 3 ))))))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((sc3 e-37)) (case (vector-ref sc3 0) ((1) (let ((e-39 (vector-ref sc3 1))) (let ((e-40 (vector-ref sc3 2))) (let ((sc4 e-39)) (case (vector-ref sc4 0) ((0) (let ((e-43 (vector-ref sc4 1))) (let ((e-44 (vector-ref sc4 2))) (let ((e-45 (vector-ref sc4 3))) (let ((e-46 (vector-ref sc4 4))) (CaseBuilder-Core-case--checkGroupMatch-7607 'erased 'erased e-2 e-46 e-45 e-44 e-43 e-40 e-36 (TT-Core-constantEq e-2 e-36)))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 )))))) -(define CaseBuilder-Core-caseGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 ((CaseBuilder-Core-n--13673-11133-altGroups arg-0 arg-2 arg-8 arg-1 arg-12 arg-11 arg-10 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 arg-0 arg-1 arg-8 (TT-Core-resolveNames arg-1 arg-10) e-5))))))))) +(define CaseBuilder-Core-clauseType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-3)) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (let ((e-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-17 (vector-ref sc2 4))) (CaseBuilder-Core-n--8531-6591-getClauseType 'erased 'erased 'erased e-13 e-14 'erased e-17 e-15 e-10 e-5 e-4 e-2 arg-3 arg-3 e-15 e-17)))))))))))))))) +(define CaseBuilder-Core-checkGroupMatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((e-16 (vector-ref sc3 3))) (let ((e-17 (vector-ref sc3 4))) (CaseBuilder-Core-case--checkGroupMatch-7376 'erased 'erased e-1 e-0 e-5 e-17 e-16 e-15 e-14 e-11 e-7 e-6 arg-3 (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-5)))))))(else (vector 3 )))))))(else (vector 3 )))))))))(else (vector 3 ))))))) ((1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((1) (let ((e-23 (vector-ref sc2 3))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((e-25 (vector-ref sc3 1))) (let ((sc4 e-25)) (case (vector-ref sc4 0) ((0) (vector 1 ))(else (vector 3 ))))))(else (vector 3 ))))))(else (vector 3 )))))(else (vector 3 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((2) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((sc3 e-37)) (case (vector-ref sc3 0) ((1) (let ((e-39 (vector-ref sc3 1))) (let ((e-40 (vector-ref sc3 2))) (let ((sc4 e-39)) (case (vector-ref sc4 0) ((0) (let ((e-43 (vector-ref sc4 1))) (let ((e-44 (vector-ref sc4 2))) (let ((e-45 (vector-ref sc4 3))) (let ((e-46 (vector-ref sc4 4))) (CaseBuilder-Core-case--checkGroupMatch-7595 'erased 'erased e-2 e-46 e-45 e-44 e-43 e-40 e-36 (TT-Core-constantEq e-2 e-36)))))))(else (vector 3 )))))))(else (vector 3 )))))))(else (vector 3 )))))(else (vector 3 ))))))(else (vector 3 )))))) +(define CaseBuilder-Core-caseGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 ext-0) (let ((act-24 ((CaseBuilder-Core-n--13470-11111-altGroups arg-0 arg-2 arg-8 arg-1 arg-12 arg-11 arg-10 'erased arg-7 arg-6 arg-5 arg-4 arg-3 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 arg-0 arg-1 arg-8 (TT-Core-resolveNames arg-1 arg-10) e-5))))))))) (define PatInfo-CaseBuilder-Core-argType (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-6 (vector-ref sc0 4))) e-6)))) (define CaseBuilder-Core-C-43C-43 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-4) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (vector 1 e-4 (CaseBuilder-Core-C-43C-43 'erased 'erased 'erased e-5 arg-4))))))))) (define LengthMatch-Data-checkLengthMatch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ))) (else (vector 0 ))))) (else (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-11 (vector-ref sc1 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (LengthMatch-Data-checkLengthMatch 'erased 'erased e-3 e-11) (lambda (bind-0) (vector 1 (vector 1 bind-0)))))))))))))) (define ProcessRunElab-TTImp-processRunElab (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolveName arg-1 (vector 1 "[elaborator script]")) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((n (vector 0 (vector 1 "Reflection" (vector 1 "Language" (vector 0 ))) (vector 1 "Elab")))) (let ((act-26 (Reflect-Core-getCon arg-0 arg-7 e-5 (Reflect-Core-builtin "Unit") ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Reflect-Core-appCon arg-0 arg-7 e-5 n (vector 1 e-7 (vector 0 )) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-6 (vector 2 ) arg-4 arg-5 arg-6 arg-8 (Normalise-Core-gnf arg-0 arg-6 e-8) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) e-5 arg-6 e-9) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) ((RunElab-Elab-TTImp-elabScript arg-0 arg-1 arg-2 arg-3 arg-7 arg-5 arg-6 e-10 (vector 0 )) ext-0)))))))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))))))))))))))))) -(define ProcessRecord-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32elabRecord-5153 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 arg-20 (vector 1 arg-23 arg-21) e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))) -(define ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecord-4996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (ProcessRecord-TTImp-n--8859-3496-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 ) (vector 0 ) arg-17)) (else (let ((e-2 (vector-ref sc0 1))) (let ((cns (let ((sc1 arg-16)) (let ((e-26 (vector-ref sc1 3))) e-26)))) (let ((nns (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (Context-Core-getNS arg-13 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessRecord-TTImp-n--8859-3496-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 ) (vector 0 ) arg-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (unbox arg-13))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (set-box! arg-13 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-4 (vector-ref sc5 5))) (let ((e-29 (vector-ref sc5 6))) (let ((e-28 (vector-ref sc5 7))) (let ((e-27 (vector-ref sc5 8))) (let ((e-26 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (let ((e-21 (vector-ref sc5 22))) (let ((e-22 (vector-ref sc5 23))) (let ((e-23 (vector-ref sc5 24))) (let ((e-24 (vector-ref sc5 25))) (let ((e-25 (vector-ref sc5 26))) (vector 0 e-0 e-1 cns (vector 1 e-6 nns) e-4 e-29 e-28 e-27 e-26 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))))))))) -(define ProcessRecord-TTImp-case--elabRecord-4956 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-5)) (case (vector-ref sc1 0) ((0) (ProcessRecord-TTImp-n--8859-3496-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 ) (vector 0 ) e-1)) (else (let ((e-2 (vector-ref sc1 1))) (let ((cns (let ((sc2 arg-16)) (let ((e-26 (vector-ref sc2 3))) e-26)))) (let ((nns (let ((sc2 arg-16)) (let ((e-3 (vector-ref sc2 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-25 (Context-Core-getNS arg-13 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((ProcessRecord-TTImp-n--8859-3496-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 ) (vector 0 ) e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (unbox arg-13))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (set-box! arg-13 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) (let ((e-31 (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-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-17 (vector-ref sc6 18))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (let ((e-20 (vector-ref sc6 21))) (let ((e-21 (vector-ref sc6 22))) (let ((e-22 (vector-ref sc6 23))) (let ((e-23 (vector-ref sc6 24))) (let ((e-24 (vector-ref sc6 25))) (let ((e-25 (vector-ref sc6 26))) (vector 0 e-0 e-31 cns (vector 1 e-6 nns) e-4 e-29 e-28 e-27 e-26 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Adding " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) "failed"))) eta-0))))))) -(define ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4772 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) -(define ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4450 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 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--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 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--caseC-32blockC-32inC-32elabRecordC-44elabGetters-3917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--elabRecordC-44elabGetters-3841 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--8859-3496-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-16 arg-14) arg-26 (ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-3917 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 (Basics-Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-28 arg-29)))) arg-19 (vector 1 )) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (Name-Core-C-61C-61_Eq__Name arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (Name-Core-C-47C-61_Eq__Name arg-28 arg-29)))) arg-16 arg-6))))) arg-24 (vector 1 arg-21 arg-23) arg-17)) (else (let ((fldNameStr (Name-Core-nameRoot arg-16))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-13 (vector 1 fldNameStr)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Unelab-TTImp-unelab arg-14 arg-13 arg-23 arg-18) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((tyC-39 (Utils-TTImp-substNames arg-6 arg-24 e-6))) (let ((act-26 ((Context-Core-log arg-13 "declare.record.field" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Field type: " (TTImp-TTImp-show_Show__RawImp tyC-39)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((rname (vector 2 "rec" 0))) (let ((act-27 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8859-3490-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--8859-3492-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--8859-3489-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--8859-3493-recTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) tyC-39)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Context-Core-log arg-13 "declare.record.projection" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Projection " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-8)))))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 0 arg-9 (ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4772 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-28) (lambda (arg-29) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-28 arg-29))))) arg-20)) (ProcessRecord-TTImp-projVis arg-4) (vector 1 (vector 0 ) (vector 0 )) (vector 0 arg-9 e-5 e-8))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((lhs_exp (TTImp-TTImp-apply (vector 0 arg-9 arg-26) (List-Types-Prelude-C-43C-43 'erased (List-Data-replicate 'erased arg-25 (vector 31 arg-9 0)) (List-Types-Prelude-C-43C-43 'erased (ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4612 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-28) (lambda (arg-29) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-28 arg-29)))) arg-19 (vector 1 ))) (List-Data-replicate 'erased (ProcessRecord-TTImp-n--8859-3495-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-17) (vector 31 arg-9 0))))))) (let ((lhs (vector 8 arg-9 (vector 0 arg-9 e-5) (ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4450 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-28) (lambda (arg-29) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-28 arg-29)))) arg-19 (vector 1 )))))) (let ((rhs (vector 0 arg-9 (vector 1 fldNameStr)))) (let ((act-30 ((Context-Core-log arg-13 "declare.record.projection" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Projection " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp lhs) (Strings-Types-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp rhs)))))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 2 arg-9 e-5 (vector 1 (vector 0 arg-9 lhs rhs) (vector 0 )))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((updsC-39 (vector 1 (vector 0 arg-16 (vector 8 arg-9 (vector 0 arg-9 e-5) (vector 0 arg-9 rname))) arg-24))) ((ProcessRecord-TTImp-n--8859-3496-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-16 arg-14) arg-26 (ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4270 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-28) (lambda (arg-29) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-28 arg-29)))) arg-19 (vector 1 ))) updsC-39 (vector 1 arg-21 arg-23) arg-17) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessRecord-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32elabRecord-5107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 arg-20 (vector 1 arg-23 arg-21) e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))) +(define ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecord-4950 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (ProcessRecord-TTImp-n--8670-3496-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 ) (vector 0 ) arg-17)) (else (let ((e-2 (vector-ref sc0 1))) (let ((cns (let ((sc1 arg-16)) (let ((e-26 (vector-ref sc1 3))) e-26)))) (let ((nns (let ((sc1 arg-16)) (let ((e-3 (vector-ref sc1 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (Context-Core-getNS arg-13 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ProcessRecord-TTImp-n--8670-3496-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 ) (vector 0 ) arg-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (unbox arg-13))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (set-box! arg-13 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) (let ((e-1 (vector-ref sc5 2))) (let ((e-4 (vector-ref sc5 5))) (let ((e-29 (vector-ref sc5 6))) (let ((e-28 (vector-ref sc5 7))) (let ((e-27 (vector-ref sc5 8))) (let ((e-26 (vector-ref sc5 9))) (let ((e-9 (vector-ref sc5 10))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (let ((e-14 (vector-ref sc5 15))) (let ((e-15 (vector-ref sc5 16))) (let ((e-16 (vector-ref sc5 17))) (let ((e-17 (vector-ref sc5 18))) (let ((e-18 (vector-ref sc5 19))) (let ((e-19 (vector-ref sc5 20))) (let ((e-20 (vector-ref sc5 21))) (let ((e-21 (vector-ref sc5 22))) (let ((e-22 (vector-ref sc5 23))) (let ((e-23 (vector-ref sc5 24))) (let ((e-24 (vector-ref sc5 25))) (let ((e-25 (vector-ref sc5 26))) (vector 0 e-0 e-1 cns (vector 1 e-6 nns) e-4 e-29 e-28 e-27 e-26 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))))))))) +(define ProcessRecord-TTImp-case--elabRecord-4910 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 arg-5)) (case (vector-ref sc1 0) ((0) (ProcessRecord-TTImp-n--8670-3496-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 ) (vector 0 ) e-1)) (else (let ((e-2 (vector-ref sc1 1))) (let ((cns (let ((sc2 arg-16)) (let ((e-26 (vector-ref sc2 3))) e-26)))) (let ((nns (let ((sc2 arg-16)) (let ((e-3 (vector-ref sc2 4))) e-3)))) (lambda (eta-0) (let ((act-24 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-25 (Context-Core-getNS arg-13 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((ProcessRecord-TTImp-n--8670-3496-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 ) (vector 0 ) e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (unbox arg-13))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (set-box! arg-13 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) (let ((e-31 (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-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-17 (vector-ref sc6 18))) (let ((e-18 (vector-ref sc6 19))) (let ((e-19 (vector-ref sc6 20))) (let ((e-20 (vector-ref sc6 21))) (let ((e-21 (vector-ref sc6 22))) (let ((e-22 (vector-ref sc6 23))) (let ((e-23 (vector-ref sc6 24))) (let ((e-24 (vector-ref sc6 25))) (let ((e-25 (vector-ref sc6 26))) (vector 0 e-0 e-31 cns (vector 1 e-6 nns) e-4 e-29 e-28 e-27 e-26 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-28))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Adding " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-3) "failed"))) eta-0))))))) +(define ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34) (let ((sc0 arg-34)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) +(define ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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) (vector 1 (vector 16 arg-9 arg-26) (vector 0 ))) (else (vector 0 )))))) +(define ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4416 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 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) arg-35) (else (vector 9 arg-9 arg-35 (vector 1 (vector 1 arg-26)) (vector 16 arg-9 arg-26))))))) +(define ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41) (let ((sc0 arg-41)) (cond ((equal? sc0 0) (+ 1 arg-24)) (else arg-24))))) +(define ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-3899 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (+ 1 arg-24)) (else arg-24))))) +(define ProcessRecord-TTImp-case--elabRecordC-44elabGetters-3825 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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) (ProcessRecord-TTImp-n--8670-3496-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-25 (ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-3899 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 (Basics-Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-27 arg-28)))) arg-18 (vector 1 )) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (Name-Core-C-61C-61_Eq__Name arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (Name-Core-C-47C-61_Eq__Name arg-27 arg-28)))) arg-15 arg-6))))) arg-23 (vector 1 arg-20 arg-22) arg-16)) (else (let ((fldNameStr (Name-Core-nameRoot arg-15))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-13 (vector 1 fldNameStr)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Unelab-TTImp-unelab arg-14 arg-13 arg-22 arg-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((tyC-39 (Utils-TTImp-substNames arg-6 arg-23 e-6))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Field type: " (TTImp-TTImp-show_Show__RawImp tyC-39))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((rname (vector 2 "rec" 0))) (let ((act-27 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8670-3490-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--8670-3492-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--8670-3489-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--8670-3493-recTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) tyC-39)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Projection " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-8))))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 0 arg-9 (ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4730 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 fldNameStr e-5 e-6 tyC-39 e-7 rname e-8 e-9 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-27) (lambda (arg-28) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-27 arg-28))))) arg-19)) (ProcessRecord-TTImp-projVis arg-4) (vector 1 (vector 0 ) (vector 0 )) (vector 0 arg-9 e-5 e-8))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((lhs_exp (TTImp-TTImp-apply (vector 0 arg-9 arg-25) (List-Types-Prelude-C-43C-43 'erased (List-Data-replicate 'erased arg-24 (vector 31 arg-9 0)) (List-Types-Prelude-C-43C-43 'erased (ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 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-27) (lambda (arg-28) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-27 arg-28)))) arg-18 (vector 1 ))) (List-Data-replicate 'erased (ProcessRecord-TTImp-n--8670-3495-countExp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 'erased arg-16) (vector 31 arg-9 0))))))) (let ((lhs (vector 8 arg-9 (vector 0 arg-9 e-5) (ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4416 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 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-27) (lambda (arg-28) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-27 arg-28)))) arg-18 (vector 1 )))))) (let ((rhs (vector 0 arg-9 (vector 1 fldNameStr)))) (let ((act-30 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Projection " (Strings-Types-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp lhs) (Strings-Types-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp rhs))))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 2 arg-9 e-5 (vector 1 (vector 0 arg-9 lhs rhs) (vector 0 )))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((updsC-39 (vector 1 (vector 0 arg-15 (vector 8 arg-9 (vector 0 arg-9 e-5) (vector 0 arg-9 rname))) arg-23))) ((ProcessRecord-TTImp-n--8670-3496-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-25 (ProcessRecord-TTImp-case--caseC-32blockC-32inC-32elabRecordC-44elabGetters-4240 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 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-27) (lambda (arg-28) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-27 arg-28)))) arg-18 (vector 1 ))) updsC-39 (vector 1 arg-20 arg-22) arg-16) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))) (define ProcessRecord-TTImp-case--elabRecordC-44recTy-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) (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--8859-3493-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--8882-3575-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) (Types-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--8859-3489-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8878-3497-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--8859-3492-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--8859-3492-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--8878-3497-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) e-11)))))))))))) -(define ProcessRecord-TTImp-n--8859-3490-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--8859-3491-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--8859-3496-elabGetters (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((b (vector 2 e-6 e-7 e-8 e-9))) (ProcessRecord-TTImp-case--elabRecordC-44elabGetters-3841 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 e-6 e-2 e-4 e-9 e-8 e-7 b e-1 arg-18 arg-17 arg-16 arg-15 (Basics-Prelude-C-124C-124 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-20) (lambda (arg-21) (Name-Core-C-61C-61_Eq__Name arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (Name-Core-C-47C-61_Eq__Name arg-20 arg-21)))) e-2 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-2)) (lambda () (Types-Prelude-elem 'erased (vector 0 (lambda (arg-20) (lambda (arg-21) (Name-Core-C-61C-61_Eq__Name arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (Name-Core-C-47C-61_Eq__Name arg-20 arg-21)))) e-2 arg-6))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessRecord-TTImp-n--8859-3494-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--8859-3492-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--8859-3489-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--8859-3492-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8859-3491-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--8859-3493-recTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13))))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8859-3490-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) conty eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((con (vector 0 arg-9 arg-14 e-5))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8859-3490-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) (ProcessRecord-TTImp-mkDataTy arg-9 arg-2) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((dt (vector 0 arg-9 arg-3 e-6 (vector 0 ) (vector 1 con (vector 0 ))))) (let ((act-26 ((Context-Core-log arg-13 "declare.record" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Record data type " (TTImp-TTImp-show_Show__ImpData dt)))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 1 arg-9 arg-4 dt)) eta-0))))))))))))))))))))) -(define ProcessRecord-TTImp-n--8859-3495-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-8 (vector-ref sc1 3))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (+ 1 (ProcessRecord-TTImp-n--8859-3495-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--8859-3495-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--8882-3575-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--8882-3575-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--8882-3575-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-n--8670-3493-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--8693-3575-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) (Types-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--8670-3489-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8689-3497-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--8670-3492-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--8670-3492-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--8689-3497-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) e-11)))))))))))) +(define ProcessRecord-TTImp-n--8670-3490-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--8670-3491-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--8670-3496-elabGetters (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((b (vector 2 e-6 e-7 e-8))) (ProcessRecord-TTImp-case--elabRecordC-44elabGetters-3825 arg-0 arg-1 arg-2 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-18 arg-17 arg-16 arg-15 (Basics-Prelude-C-124C-124 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-20) (lambda (arg-21) (Name-Core-C-61C-61_Eq__Name arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (Name-Core-C-47C-61_Eq__Name arg-20 arg-21)))) e-2 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-2)) (lambda () (Types-Prelude-elem 'erased (vector 0 (lambda (arg-20) (lambda (arg-21) (Name-Core-C-61C-61_Eq__Name arg-20 arg-21))) (lambda (arg-20) (lambda (arg-21) (Name-Core-C-47C-61_Eq__Name arg-20 arg-21)))) e-2 arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessRecord-TTImp-n--8670-3494-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--8670-3492-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--8670-3489-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--8670-3492-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ProcessRecord-TTImp-n--8670-3491-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--8670-3493-recTy arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13))))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8670-3490-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) conty eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((con (vector 0 arg-9 arg-14 e-5))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-13 (vector 0 ) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-2) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessRecord-TTImp-n--8670-3490-fname arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 eta-1)) arg-0) arg-6)) (ProcessRecord-TTImp-mkDataTy arg-9 arg-2) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((dt (vector 0 arg-9 arg-3 e-6 (vector 0 ) (vector 1 con (vector 0 ))))) (let ((act-26 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Record data type " (TTImp-TTImp-show_Show__ImpData dt))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((Check-Elab-TTImp-processDecl arg-6 arg-13 arg-12 arg-11 (vector 0 ) arg-7 arg-8 (vector 1 arg-9 arg-4 dt)) eta-0))))))))))))))))))))) +(define ProcessRecord-TTImp-n--8670-3495-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--8670-3495-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--8670-3495-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--8693-3575-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--8693-3575-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--8693-3575-apply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (vector 9 (TTImp-TTImp-getFC arg-14) arg-14 (vector 1 e-6) e-10) e-3))))))))))))))))) (define ProcessRecord-TTImp-projVis (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (vector 2 ))(else (vector 0 )))))) (define ProcessRecord-TTImp-processRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (ProcessRecord-TTImp-elabRecord arg-0 arg-1 arg-2 arg-3 arg-4 e-0 arg-6 arg-5 arg-7 arg-8 e-1 e-2 e-3 e-4 eta-0)))))))))) (define ProcessRecord-TTImp-mkDataTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 28 arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 1 arg-0 e-10 e-14 (vector 1 e-6) e-15 (ProcessRecord-TTImp-mkDataTy arg-0 e-3)))))))))))))))))) -(define ProcessRecord-TTImp-elabRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 arg-12) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessRecord-TTImp-n--8859-3494-elabAsData arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-lookupTyExact e-5 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 arg-8)) (case (vector-ref sc5 0) ((0) ((ProcessRecord-TTImp-n--8859-3496-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 ) (vector 0 ) e-1) ext-0)) (else (let ((e-2 (vector-ref sc5 1))) (let ((cns (let ((sc6 e-7)) (let ((e-30 (vector-ref sc6 3))) e-30)))) (let ((nns (let ((sc6 e-7)) (let ((e-3 (vector-ref sc6 4))) e-3)))) (let ((act-28 (Context-Core-extendNS arg-1 (vector 1 e-2 (vector 0 )) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-29 (Context-Core-getNS arg-1 ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 ((ProcessRecord-TTImp-n--8859-3496-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 ) (vector 0 ) e-1) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 (set-box! arg-1 (let ((sc10 e-12)) (let ((e-0 (vector-ref sc10 1))) (let ((e-35 (vector-ref sc10 2))) (let ((e-4 (vector-ref sc10 5))) (let ((e-33 (vector-ref sc10 6))) (let ((e-32 (vector-ref sc10 7))) (let ((e-31 (vector-ref sc10 8))) (let ((e-30 (vector-ref sc10 9))) (let ((e-29 (vector-ref sc10 10))) (let ((e-28 (vector-ref sc10 11))) (let ((e-27 (vector-ref sc10 12))) (let ((e-26 (vector-ref sc10 13))) (let ((e-13 (vector-ref sc10 14))) (let ((e-14 (vector-ref sc10 15))) (let ((e-15 (vector-ref sc10 16))) (let ((e-16 (vector-ref sc10 17))) (let ((e-17 (vector-ref sc10 18))) (let ((e-18 (vector-ref sc10 19))) (let ((e-19 (vector-ref sc10 20))) (let ((e-20 (vector-ref sc10 21))) (let ((e-21 (vector-ref sc10 22))) (let ((e-22 (vector-ref sc10 23))) (let ((e-23 (vector-ref sc10 24))) (let ((e-24 (vector-ref sc10 25))) (let ((e-25 (vector-ref sc10 26))) (vector 0 e-0 e-35 cns (vector 1 e-10 nns) e-4 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-32)))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Adding " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) "failed"))) ext-0))))))))))))))))))))))))) -(define ProcessParams-TTImp-case--caseC-32blockC-32inC-32processParams-3718 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (List-Types-Prelude-C-43C-43 'erased arg-20 arg-16))) -(define ProcessParams-TTImp-case--processParams-3621 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-8 "declare.param" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "Param env" e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((defNames (TTImp-TTImp-definedInBlock (let ((sc5 e-8)) (let ((e-33 (vector-ref sc5 3))) e-33)) arg-0))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessParams-TTImp-n--9479-3520-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-10 eta-1 eta-2))) defNames) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((nestBlock (List-Types-Prelude-C-43C-43 'erased e-9 e-11))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl e-2 arg-8 arg-7 arg-6 (vector 0 ) nestBlock e-10 eta-1)) arg-0) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))) -(define ProcessParams-TTImp-n--9479-3519-mkParamTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 28 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) e-7 (ProcessParams-TTImp-n--9479-3519-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--9479-3520-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((Context-Core-resolveName arg-8 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 (vector 8 e-5) (vector 0 (vector 0 ) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-9 arg-10)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-9 fc (vector 1 fc nt (vector 8 e-5)) arg-10)))))))))))))) -(define ProcessParams-TTImp-processParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((pty_raw (ProcessParams-TTImp-n--9479-3519-mkParamTy arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 arg-7))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) pty_raw) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-log arg-1 "declare.param" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-5)))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 (Num-Prelude-negate_Neg__Int 1) (vector 0 ) (vector 0 ) arg-4 arg-5 e-5 (Normalise-Core-gType 'erased arg-6) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessParams-TTImp-case--processParams-3621 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) (ProcessParams-TTImp-extend 'erased (vector 1 e-2 arg-1) (vector 1 e-3 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--caseC-32blockC-32inC-32processData-13902 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-14 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-21 eta-0))))))))))) -(define ProcessData-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-13683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31) (let ((sc0 arg-31)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-30))) (else (lambda (eta-0) (let ((act-24 ((Normalise-Core-logTermNF (vector 0 ) arg-13 "declare.data" (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc1 arg-22)) (let ((e-2 (vector-ref sc1 3))) e-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Normalise-Core-logTermNF (vector 0 ) arg-13 "declare.data" (+ 1 0) (lambda () "Now") (vector 0 ) arg-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))))))))))) -(define ProcessData-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-13605 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((6) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-17 (vector 0 ) arg-21 (let ((sc2 arg-22)) (let ((e-26 (vector-ref sc2 3))) e-26)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (vector 1 e-5)) (else (let ((act-25 ((Normalise-Core-logTermNF (vector 0 ) arg-13 "declare.data" (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc4 arg-22)) (let ((e-27 (vector-ref sc4 3))) e-27))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((act-26 ((Normalise-Core-logTermNF (vector 0 ) arg-13 "declare.data" (+ 1 0) (lambda () "Now") (vector 0 ) arg-21) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))) -(define ProcessData-TTImp-case--caseC-32blockC-32inC-32processData-13508 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((ndefm (vector 1 e-2))) (ProcessData-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-13605 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--caseC-32blockC-32inC-32processData-13186 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--processData-13070 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fullty (Env-Core-abstractEnvType arg-7 arg-4 arg-8 e-2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-14 (let ((sc1 arg-17)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-4 (vector-ref sc2 1))) (let ((ndefm (vector 1 e-4))) ((ProcessData-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-13605 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-3 e-2 _-0 fullty e-4 ndefm (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-logTermNF (vector 0 ) arg-13 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-14))) (vector 0 ) fullty) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf arg-7 arg-17 arg-8 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) ((ProcessData-TTImp-checkIsType 'erased arg-13 arg-6 arg-14 arg-8 e-8) eta-0)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-addDef arg-13 arg-14 (Context-Core-newDef arg-6 arg-14 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 fullty arg-5 (vector 6 0 e-9 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 )))(else (let ((act-30 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-14 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty eta-0)))))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-3))) (ProcessData-TTImp-case--caseC-32blockC-32inC-32processData-13186 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-3 e-2 _-0 fullty e-5 e-6 e-7 e-8 e-9 e-10 e-11 (TT-Core-C-61C-61_Eq__Visibility arg-5 (vector 1 )))))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-7 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 cvis arg-3 (vector 8 e-10) eta-1)) arg-0) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((ddef (vector 0 (vector 0 arg-4 arg-14 e-9 fullty) e-12))) (let ((act-32 ((Context-Core-addData arg-13 arg-7 arg-5 e-10 ddef) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (let ((sc10 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-19) (lambda (arg-20) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-19 arg-20)))) (vector 4 ) arg-1)))) (cond ((equal? sc10 0) ((ProcessData-TTImp-findNewtype arg-13 e-12) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (let ((act-34 (unbox arg-13))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 ((Context-Core-log arg-13 "declare.data" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Types-Prelude-C-43C-43 " defined in a mutual block with " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-6))))) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-36 (Context-Core-setMutWith arg-13 arg-6 (vector 8 e-10) e-6 eta-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-13 arg-6 (vector 8 e-10) eta-1)) arg-1) eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-38 (Context-Core-dropMutData arg-13 (vector 8 e-10) eta-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-39 ((ProcessData-TTImp-getDetags arg-13 arg-6 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc16 eta-1)) (let ((e-4 (vector-ref sc16 4))) e-4))) e-12)) eta-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (Context-Core-setDetags arg-13 arg-6 (vector 8 e-10) e-20 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((act-42 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((act-43 ((Context-Core-log arg-13 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2)))))))) eta-0))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((connames (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-12))) (let ((act-44 (let ((sc21 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-19) (lambda (arg-20) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-19 arg-20)))) (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 8 e-10) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-13 eta-1 eta-2))) (vector 1 (vector 8 e-10) connames)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessData-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-12832 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-12 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-19 eta-0))))))))))) -(define ProcessData-TTImp-case--caseC-32blockC-32inC-32processData-12659 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-logTermNF (vector 0 ) arg-11 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-7 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-addMutData arg-11 (vector 8 e-8) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-11))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1)) eta-1))) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-addToSave arg-11 arg-12 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 ((Context-Core-log arg-11 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2)))))))) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((sc11 arg-3)) (case (vector-ref sc11 0) ((0) (vector 1 (vector 0 )))(else (let ((act-34 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-12 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define ProcessData-TTImp-case--processData-12601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-resolveName arg-11 arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 57 arg-4 arg-12 eta-1))) (Elab-TTImp-elabTerm arg-5 arg-11 arg-10 arg-9 e-5 (vector 0 ) arg-8 arg-7 arg-6 (vector 15 arg-4 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-13) (vector 1 (Normalise-Core-gType 'erased arg-2)))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (let ((act-25 ((Normalise-Core-logTermNF (vector 0 ) arg-11 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-7) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-8 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-addMutData arg-11 (vector 8 e-9) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-11))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1)) eta-1))) (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1))) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-addToSave arg-11 arg-12 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 ((Context-Core-log arg-11 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2)))))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((sc13 arg-3)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 )))(else (let ((act-35 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-12 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty 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--caseC-32blockC-32inC-32findNewtype-12518 (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--findNewtype-12504 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-updateDef arg-1 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) (lambda (d) (let ((sc1 d)) (case (vector-ref sc1 0) ((5) (let ((e-0 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 5 e-0 e-3 (vector 1 e-1))))))(else (vector 0 ))))) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessData-TTImp-case--getRelevantArg-12364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (lambda () (lambda (eta-0) (let ((act-24 (((arg-5 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-6 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessData-TTImp-getRelevantArg arg-10 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-9) arg-8 1 e-5) eta-0)))))))))(else (lambda () (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-5 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-6 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessData-TTImp-getRelevantArg arg-10 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-9) (vector 1 arg-9) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-8)))))))(else (lambda () (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-5 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-6 1))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((ProcessData-TTImp-getRelevantArg arg-10 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-9) (vector 1 arg-9) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-8))))))) -(define ProcessData-TTImp-case--getDetags-12296 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4)))))))) -(define ProcessData-TTImp-case--getDetagsC-44getDisjointPos-12239 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-5 arg-6)))) (else (lambda (eta-0) (vector 1 arg-6))))))) -(define ProcessData-TTImp-case--getDetagsC-44allDisjoint-12190 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9905-11813-allDisjointWith arg-0 arg-1 arg-2 arg-3 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) -(define ProcessData-TTImp-case--getDetagsC-44allDisjointWith-12136 (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--9905-11813-allDisjointWith arg-0 arg-1 arg-2 arg-5 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) -(define ProcessData-TTImp-case--getDetagsC-44disjoint-12006 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessData-TTImp-n--9905-11811-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0)))))))))))))))))))))) -(define ProcessData-TTImp-case--getDetagsC-44disjoint-11901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessData-TTImp-n--9905-11811-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0)))))))))))))))))))))) -(define ProcessData-TTImp-case--getDetagsC-44disjointArgs-11848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (ProcessData-TTImp-n--9905-11811-disjointArgs arg-0 arg-1 arg-2 arg-4 arg-6)))))) -(define ProcessData-TTImp-case--caseC-32blockC-32inC-32checkCon-11540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-21 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessData-TTImp-case--checkCon-11384 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-resolveName arg-12 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-9 (lambda (eta-1) (vector 57 arg-2 arg-13 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-6 arg-12 arg-11 arg-10 e-5 (vector 0 ) arg-9 arg-8 arg-7 (vector 15 arg-2 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-14) (Normalise-Core-gType 'erased arg-2) eta-1))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf arg-6 arg-17 arg-7 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessData-TTImp-checkFamily 'erased arg-12 arg-2 arg-13 arg-3 arg-7 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((fullty (Env-Core-abstractEnvType arg-6 arg-2 arg-7 e-5))) (let ((act-26 ((Normalise-Core-logTermNF (vector 0 ) arg-12 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name arg-13))) (vector 0 ) fullty) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-12 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (Context-Core-addToSave arg-12 arg-13 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 ((Context-Core-log arg-12 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-13) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5)))))))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((2) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-13 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty eta-0))))))(else (vector 1 (vector 0 ))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 0 arg-2 arg-13 e-12 fullty))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-2 arg-13) eta-0))))))) +(define ProcessRecord-TTImp-elabRecord (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 ext-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 arg-12) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessRecord-TTImp-n--8670-3494-elabAsData arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-lookupTyExact e-5 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 arg-8)) (case (vector-ref sc5 0) ((0) ((ProcessRecord-TTImp-n--8670-3496-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 ) (vector 0 ) e-1) ext-0)) (else (let ((e-2 (vector-ref sc5 1))) (let ((cns (let ((sc6 e-7)) (let ((e-30 (vector-ref sc6 3))) e-30)))) (let ((nns (let ((sc6 e-7)) (let ((e-3 (vector-ref sc6 4))) e-3)))) (let ((act-28 (Context-Core-extendNS arg-1 (vector 1 e-2 (vector 0 )) ext-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-29 (Context-Core-getNS arg-1 ext-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 ((ProcessRecord-TTImp-n--8670-3496-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 ) (vector 0 ) e-1) ext-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-32 (set-box! arg-1 (let ((sc10 e-12)) (let ((e-0 (vector-ref sc10 1))) (let ((e-35 (vector-ref sc10 2))) (let ((e-4 (vector-ref sc10 5))) (let ((e-33 (vector-ref sc10 6))) (let ((e-32 (vector-ref sc10 7))) (let ((e-31 (vector-ref sc10 8))) (let ((e-30 (vector-ref sc10 9))) (let ((e-29 (vector-ref sc10 10))) (let ((e-28 (vector-ref sc10 11))) (let ((e-27 (vector-ref sc10 12))) (let ((e-26 (vector-ref sc10 13))) (let ((e-13 (vector-ref sc10 14))) (let ((e-14 (vector-ref sc10 15))) (let ((e-15 (vector-ref sc10 16))) (let ((e-16 (vector-ref sc10 17))) (let ((e-17 (vector-ref sc10 18))) (let ((e-18 (vector-ref sc10 19))) (let ((e-19 (vector-ref sc10 20))) (let ((e-20 (vector-ref sc10 21))) (let ((e-21 (vector-ref sc10 22))) (let ((e-22 (vector-ref sc10 23))) (let ((e-23 (vector-ref sc10 24))) (let ((e-24 (vector-ref sc10 25))) (let ((e-25 (vector-ref sc10 26))) (vector 0 e-0 e-35 cns (vector 1 e-10 nns) e-4 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (vector 1 act-32)))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Adding " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-10) "failed"))) ext-0))))))))))))))))))))))))) +(define ProcessParams-TTImp-case--caseC-32blockC-32inC-32processParams-3708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (List-Types-Prelude-C-43C-43 'erased arg-20 arg-16))) +(define ProcessParams-TTImp-case--processParams-3613 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logEnv e-2 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "Param env" e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (unbox arg-8))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((defNames (TTImp-TTImp-definedInBlock (let ((sc5 e-8)) (let ((e-33 (vector-ref sc5 3))) e-33)) arg-0))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessParams-TTImp-n--9286-3514-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-2 e-10 eta-1 eta-2))) defNames) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((nestBlock (List-Types-Prelude-C-43C-43 'erased e-9 e-11))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl e-2 arg-8 arg-7 arg-6 (vector 0 ) nestBlock e-10 eta-1)) arg-0) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))) +(define ProcessParams-TTImp-n--9286-3513-mkParamTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 28 arg-2)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 e-6) e-7 (ProcessParams-TTImp-n--9286-3513-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--9286-3514-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 ((Context-Core-resolveName arg-8 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 (vector 8 e-5) (vector 0 (vector 0 ) (vector 0 (List-Data-reverse 'erased (Env-Core-allVars arg-9 arg-10)) (lambda (fc) (lambda (nt) (UnifyState-Core-applyToFull arg-9 fc (vector 1 fc nt (vector 8 e-5)) arg-10)))))))))))))) +(define ProcessParams-TTImp-processParams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((pty_raw (ProcessParams-TTImp-n--9286-3513-mkParamTy arg-8 arg-7 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 arg-7))) (lambda (eta-0) (let ((act-24 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) pty_raw) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking " (TTImp-TTImp-show_Show__RawImp e-5))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 (Num-Prelude-negate_Neg__Int 1) (vector 0 ) (vector 0 ) arg-4 arg-5 e-5 (Normalise-Core-gType 'erased arg-6) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessParams-TTImp-case--processParams-3613 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--caseC-32blockC-32inC-32processData-13870 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-14 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-21 eta-0))))))))))) +(define ProcessData-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-13655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31) (let ((sc0 arg-31)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-30))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc1 arg-22)) (let ((e-2 (vector-ref sc1 3))) e-2)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-21 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))))))))))) +(define ProcessData-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-13577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((6) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-17 (vector 0 ) arg-21 (let ((sc2 arg-22)) (let ((e-26 (vector-ref sc2 3))) e-26)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (vector 1 e-5)) (else (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc4 arg-22)) (let ((e-27 (vector-ref sc4 3))) e-27)) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-21 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))) +(define ProcessData-TTImp-case--caseC-32blockC-32inC-32processData-13480 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((ndefm (vector 1 e-2))) (ProcessData-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-13577 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-2 ndefm (let ((sc1 e-2)) (let ((e-17 (vector-ref sc1 18))) e-17)))))))))) +(define ProcessData-TTImp-case--caseC-32blockC-32inC-32processData-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 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--processData-13048 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((fullty (Env-Core-abstractEnvType arg-7 arg-4 arg-8 e-2))) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-14 (let ((sc1 arg-17)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-4 (vector-ref sc2 1))) (let ((ndefm (vector 1 e-4))) ((ProcessData-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-13577 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-3 e-2 _-0 fullty e-4 ndefm (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-14))) (vector 0 ) fullty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf arg-7 arg-17 arg-8 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) ((ProcessData-TTImp-checkIsType 'erased arg-13 arg-6 arg-14 arg-8 e-8) eta-0)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (Context-Core-addDef arg-13 arg-14 (Context-Core-newDef arg-6 arg-14 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 fullty arg-5 (vector 6 0 e-9 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 0 )))(else (let ((act-30 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-14 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty eta-0)))))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-3))) (ProcessData-TTImp-case--caseC-32blockC-32inC-32processData-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 arg-15 arg-16 arg-17 e-3 e-2 _-0 fullty e-5 e-6 e-7 e-8 e-9 e-10 e-11 (TT-Core-C-61C-61_Eq__Visibility arg-5 (vector 1 )))))) (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-7 arg-13 arg-12 arg-11 arg-10 arg-9 arg-8 cvis arg-3 (vector 8 e-10) eta-1)) arg-0) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((ddef (vector 0 (vector 0 arg-4 arg-14 e-9 fullty) e-12))) (let ((act-32 ((Context-Core-addData arg-13 arg-7 arg-5 e-10 ddef) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (let ((sc10 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-19) (lambda (arg-20) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-19 arg-20)))) (vector 4 ) arg-1)))) (cond ((equal? sc10 0) ((ProcessData-TTImp-findNewtype arg-13 e-12) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-34 (let ((act-34 (unbox arg-13))) (vector 1 act-34)))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-35 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Types-Prelude-C-43C-43 " defined in a mutual block with " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-6)))) eta-0))) (let ((sc12 act-35)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((act-36 (Context-Core-setMutWith arg-13 arg-6 (vector 8 e-10) e-6 eta-0))) (let ((sc13 act-36)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (let ((act-37 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-13 arg-6 (vector 8 e-10) eta-1)) arg-1) eta-0))) (let ((sc14 act-37)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (vector 0 e-4))) (else (let ((act-38 (Context-Core-dropMutData arg-13 (vector 8 e-10) eta-0))) (let ((sc15 act-38)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((act-39 ((ProcessData-TTImp-getDetags arg-13 arg-6 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc16 eta-1)) (let ((e-4 (vector-ref sc16 4))) e-4))) e-12)) eta-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (Context-Core-setDetags arg-13 arg-6 (vector 8 e-10) e-20 eta-0))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((act-41 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-13 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((act-42 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((act-43 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-14) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((connames (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-12))) (let ((act-44 (let ((sc21 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-19) (lambda (arg-20) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-19 arg-20))) (lambda (arg-19) (lambda (arg-20) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-19 arg-20)))) (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 8 e-10) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-13 eta-1 eta-2))) (vector 1 (vector 8 e-10) connames)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessData-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-12812 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-12 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-19 eta-0))))))))))) +(define ProcessData-TTImp-case--caseC-32blockC-32inC-32processData-12643 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-7 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Context-Core-addMutData arg-11 (vector 8 e-8) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (unbox arg-11))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1)) eta-1))) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-addToSave arg-11 arg-12 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((sc11 arg-3)) (case (vector-ref sc11 0) ((0) (vector 1 (vector 0 )))(else (let ((act-34 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-12 eta-0))) (let ((sc11 act-34)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessData-TTImp-case--processData-12585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-resolveName arg-11 arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 57 arg-4 arg-12 eta-1))) (Elab-TTImp-elabTerm arg-5 arg-11 arg-10 arg-9 e-5 (vector 0 ) arg-8 arg-7 arg-6 (vector 15 arg-4 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-13) (vector 1 (Normalise-Core-gType 'erased arg-2)))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((fullty (Env-Core-abstractEnvType arg-5 arg-2 arg-6 e-2))) (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name arg-12))) (vector 0 ) fullty eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessData-TTImp-checkIsType 'erased arg-11 arg-4 arg-12 arg-6 e-7) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 fullty arg-3 (vector 6 0 e-8 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Context-Core-addMutData arg-11 (vector 8 e-9) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (unbox arg-11))) (vector 1 act-30)))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-11 arg-4 n (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1)) eta-1))) (let ((sc9 e-11)) (let ((e-1 (vector-ref sc9 2))) e-1))) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-11 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (Context-Core-addToSave arg-11 arg-12 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-12) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((sc13 arg-3)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 )))(else (let ((act-35 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-12 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (vector 0 e-4))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty 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--caseC-32blockC-32inC-32findNewtype-12502 (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--findNewtype-12488 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-updateDef arg-1 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 2))) e-4)) (lambda (d) (let ((sc1 d)) (case (vector-ref sc1 0) ((5) (let ((e-0 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 5 e-0 e-3 (vector 1 e-1))))))(else (vector 0 ))))) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessData-TTImp-case--getRelevantArg-12352 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((19) (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessData-TTImp-getRelevantArg arg-9 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-8) arg-7 1 e-5) eta-0)))))))))(else (lambda () (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessData-TTImp-getRelevantArg arg-9 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7)))))))(else (lambda () (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((ProcessData-TTImp-getRelevantArg arg-9 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-8) (vector 1 arg-8) 1 e-5) eta-0)))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 0 ))))) arg-7))))))) +(define ProcessData-TTImp-case--getDetags-12286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (vector 1 (vector 1 arg-4)))))))) +(define ProcessData-TTImp-case--getDetagsC-44getDisjointPos-12229 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-5 arg-6)))) (else (lambda (eta-0) (vector 1 arg-6))))))) +(define ProcessData-TTImp-case--getDetagsC-44allDisjoint-12180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9700-11803-allDisjointWith arg-0 arg-1 arg-2 arg-3 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) +(define ProcessData-TTImp-case--getDetagsC-44allDisjointWith-12126 (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--9700-11803-allDisjointWith arg-0 arg-1 arg-2 arg-5 arg-4)) (else (lambda (eta-0) (vector 1 1))))))) +(define ProcessData-TTImp-case--getDetagsC-44disjoint-11996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessData-TTImp-n--9700-11801-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0)))))))))))))))))))))) +(define ProcessData-TTImp-case--getDetagsC-44disjoint-11891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-11) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessData-TTImp-n--9700-11801-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0)))))))))))))))))))))) +(define ProcessData-TTImp-case--getDetagsC-44disjointArgs-11838 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 0))) (else (ProcessData-TTImp-n--9700-11801-disjointArgs arg-0 arg-1 arg-2 arg-4 arg-6)))))) +(define ProcessData-TTImp-case--caseC-32blockC-32inC-32checkCon-11532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-21 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessData-TTImp-case--checkCon-11380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-resolveName arg-12 arg-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-9 (lambda (eta-1) (vector 57 arg-2 arg-13 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-6 arg-12 arg-11 arg-10 e-5 (vector 0 ) arg-9 arg-8 arg-7 (vector 15 arg-2 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-14) (Normalise-Core-gType 'erased arg-2) eta-1))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf arg-6 arg-17 arg-7 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessData-TTImp-checkFamily 'erased arg-12 arg-2 arg-13 arg-3 arg-7 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((fullty (Env-Core-abstractEnvType arg-6 arg-2 arg-7 e-5))) (let ((act-26 (Normalise-Core-logTermNF (vector 0 ) arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name arg-13))) (vector 0 ) fullty eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-12 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (Context-Core-addToSave arg-12 arg-13 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-13) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-5))))))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-30 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((2) (let ((act-30 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-13 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty eta-0))))))(else (vector 1 (vector 0 ))))))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 0 arg-2 arg-13 e-12 fullty))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-2 arg-13) eta-0))))))) (define ProcessData-TTImp-case--updateNSC-44updateNSApp-11274 (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--caseC-32blockC-32inC-32checkFamily-11180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-5 arg-4 arg-3) eta-0))))))) (define ProcessData-TTImp-case--checkFamily-11129 (lambda (arg-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--caseC-32blockC-32inC-32checkFamily-11180 '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--checkIsType-11076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 9 arg-4 arg-3) eta-0))))))) -(define ProcessData-TTImp-n--9322-11265-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--updateNSC-44updateNSApp-11274 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--9322-11265-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--9322-11265-updateNSApp arg-0 arg-1 arg-2 e-6) e-7 e-8))))))(else arg-3))))) -(define ProcessData-TTImp-n--9827-11715-getRetType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessData-TTImp-n--9827-11715-getRetType arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) -(define ProcessData-TTImp-n--9827-11716-getPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-5 (vector-ref sc0 5))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalClosure (vector 0 ) arg-2 eta-0)) e-5)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessData-TTImp-n--9905-11815-getDisjointPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9905-11815-getDisjointPos arg-0 arg-1 arg-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-3) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessData-TTImp-n--9905-11814-allDisjoint arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (vector 1 arg-3 e-5))) (else (vector 1 e-5)))))))))))))))))))))) -(define ProcessData-TTImp-n--9905-11811-disjointArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9905-11812-disjoint arg-0 arg-1 arg-2 e-1 e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 0)) (else ((ProcessData-TTImp-n--9905-11811-disjointArgs arg-0 arg-1 arg-2 e-2 e-5) eta-0)))))))))))))))))))))))) -(define ProcessData-TTImp-n--9905-11812-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--getDetagsC-44disjoint-11901 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 (EqOrd-Prelude-C-47C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (ProcessData-TTImp-case--getDetagsC-44disjoint-12006 arg-0 arg-1 arg-2 e-22 e-24 e-25 e-7 e-9 e-10 e-11 e-8 e-26 e-23 (Name-Core-C-47C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define ProcessData-TTImp-n--9905-11813-allDisjointWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9905-11812-disjoint arg-0 arg-1 arg-2 arg-3 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9905-11813-allDisjointWith arg-0 arg-1 arg-2 arg-3 e-2) eta-0)) (else (vector 1 1))))))))))))))))))))) -(define ProcessData-TTImp-n--9905-11814-allDisjoint (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9905-11814-allDisjoint arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9905-11813-allDisjointWith arg-0 arg-1 arg-2 e-2 e-3) eta-0)) (else (vector 1 1)))))))))))))))))))) -(define ProcessData-TTImp-updateNS (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 1 e-0 e-1 e-2 e-3 e-4 (ProcessData-TTImp-updateNS arg-0 arg-1 e-5)))))))))(else (ProcessData-TTImp-n--9322-11265-updateNSApp arg-2 arg-1 arg-0 arg-2)))))) +(define ProcessData-TTImp-n--9127-11265-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--updateNSC-44updateNSApp-11274 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--9127-11265-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--9127-11265-updateNSApp arg-0 arg-1 arg-2 e-6) e-7 e-8))))))(else arg-3))))) +(define ProcessData-TTImp-n--9624-11707-getRetType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessData-TTImp-n--9624-11707-getRetType arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 arg-3)))))))))(else (lambda (eta-0) (vector 1 arg-3))))))) +(define ProcessData-TTImp-n--9624-11708-getPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-5 (vector-ref sc0 5))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalClosure (vector 0 ) arg-2 eta-0)) e-5)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessData-TTImp-n--9700-11805-getDisjointPos (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9700-11805-getDisjointPos arg-0 arg-1 arg-2 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-3) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessData-TTImp-n--9700-11804-allDisjoint arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 (vector 1 arg-3 e-5))) (else (vector 1 e-5)))))))))))))))))))))) +(define ProcessData-TTImp-n--9700-11801-disjointArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9700-11802-disjoint arg-0 arg-1 arg-2 e-1 e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (vector 1 0)) (else ((ProcessData-TTImp-n--9700-11801-disjointArgs arg-0 arg-1 arg-2 e-2 e-5) eta-0)))))))))))))))))))))))) +(define ProcessData-TTImp-n--9700-11802-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--getDetagsC-44disjoint-11891 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 (EqOrd-Prelude-C-47C-61_Eq__Int e-3 e-18))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((e-11 (vector-ref sc0 5))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((e-26 (vector-ref sc1 5))) (ProcessData-TTImp-case--getDetagsC-44disjoint-11996 arg-0 arg-1 arg-2 e-22 e-24 e-25 e-7 e-9 e-10 e-11 e-8 e-26 e-23 (Name-Core-C-47C-61_Eq__Name e-8 e-23))))))))(else (lambda (eta-0) (vector 1 1))))))))))) ((8) (let ((e-14 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((8) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (TT-Core-C-47C-61_Eq__Constant e-14 e-29)))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define ProcessData-TTImp-n--9700-11803-allDisjointWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (vector 1 1)))(else (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9700-11802-disjoint arg-0 arg-1 arg-2 arg-3 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9700-11803-allDisjointWith arg-0 arg-1 arg-2 arg-3 e-2) eta-0)) (else (vector 1 1))))))))))))))))))))) +(define ProcessData-TTImp-n--9700-11804-allDisjoint (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (let ((act-24 ((ProcessData-TTImp-n--9700-11804-allDisjoint arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--9700-11803-allDisjointWith arg-0 arg-1 arg-2 e-2 e-3) eta-0)) (else (vector 1 1)))))))))))))))))))) +(define ProcessData-TTImp-updateNS (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 1 e-0 e-1 e-2 e-3 e-4 (ProcessData-TTImp-updateNS arg-0 arg-1 e-5)))))))))(else (ProcessData-TTImp-n--9127-11265-updateNSApp arg-2 arg-1 arg-0 arg-2)))))) (define ProcessData-TTImp-processDataOpt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setDetermining arg-0 arg-1 arg-2 e-0 eta-0)))) ((2) (lambda (eta-0) (Context-Core-setUniqueSearch arg-0 arg-1 arg-2 0 eta-0))) ((3) (lambda (eta-0) (Context-Core-setExternal arg-0 arg-1 arg-2 0 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessData-TTImp-processData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Context-Core-lookupCtxtExact e-5 (let ((sc4 e-7)) (let ((e-31 (vector-ref sc4 1))) e-31))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-5 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-9 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-6) (vector 1 (Normalise-Core-gType 'erased e-0)))) eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-4 (vector-ref sc7 1))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-4))) (let ((act-29 ((Normalise-Core-logTermNF (vector 0 ) arg-1 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((act-30 (let ((act-30 ((Normalise-Core-nf arg-0 e-7 arg-6 e-4) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-5 arg-6 e-11) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((act-31 (Normalise-Core-getArity (vector 0 ) e-7 (vector 0 ) fullty eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-32 (Context-Core-addDef arg-1 e-5 (Context-Core-newDef arg-7 e-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-12 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-33 (Context-Core-addMutData arg-1 (vector 8 e-13) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((act-34 (let ((act-34 (unbox arg-1))) (vector 1 act-34)))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-15 (vector-ref sc13 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc13 1))) (let ((act-35 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-1 arg-7 n (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40)) eta-1))) (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40))) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (let ((act-36 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4))) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (vector 0 e-17))) (else (let ((act-37 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((act-38 ((Context-Core-log arg-1 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4)))))))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((sc18 arg-8)) (case (vector-ref sc18 0) ((0) (vector 1 (vector 0 )))(else (let ((act-39 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-5 eta-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty 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-24 ((Context-Core-inCurrentNS arg-1 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Context-Core-log arg-1 "declare.data" (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name e-8)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-8) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-8 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-12 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-9) (vector 1 (Normalise-Core-gType 'erased e-3)))) eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (let ((sc6 e-12)) (let ((e-2 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-3 arg-6 e-2))) (let ((act-29 ((Context-Core-lookupCtxtExact e-8 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-30 (let ((_-0 (vector 0 e-2 e-13))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-15 (vector-ref sc8 1))) (let ((ndefm (vector 1 e-15))) ((ProcessData-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-13605 e-7 e-6 e-5 e-4 e-3 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 e-9 e-10 e-11 e-13 e-2 _-0 fullty e-15 ndefm (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-0))))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-31 ((Normalise-Core-logTermNF (vector 0 ) arg-1 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-8))) (vector 0 ) fullty) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-32 (let ((act-32 ((Normalise-Core-nf arg-0 e-11 arg-6 e-2) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-8 arg-6 e-17) eta-0)))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-33 (Normalise-Core-getArity (vector 0 ) e-11 (vector 0 ) fullty eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-34 (Context-Core-addDef arg-1 e-8 (Context-Core-newDef arg-7 e-8 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-18 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc12 1))) (let ((act-35 (let ((sc13 arg-8)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 )))(else (let ((act-35 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-8 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty eta-0)))))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-13))) (ProcessData-TTImp-case--caseC-32blockC-32inC-32processData-13186 e-7 e-6 e-5 e-4 e-3 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 e-9 e-10 e-11 e-13 e-2 _-0 fullty e-14 e-15 e-16 e-17 e-18 e-19 e-20 (TT-Core-C-61C-61_Eq__Visibility arg-8 (vector 1 )))))) (let ((act-36 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 cvis e-4 (vector 8 e-19) eta-1)) e-7) eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc14 1))) (let ((ddef (vector 0 (vector 0 e-3 e-8 e-18 fullty) e-21))) (let ((act-37 ((Context-Core-addData arg-1 arg-0 arg-8 e-19 ddef) eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-22 (vector-ref sc15 1))) (vector 0 e-22))) (else (let ((act-38 (let ((sc16 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-10 arg-11)))) (vector 4 ) e-6)))) (cond ((equal? sc16 0) ((ProcessData-TTImp-findNewtype arg-1 e-21) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-23 (vector-ref sc16 1))) (vector 0 e-23))) (else (let ((act-39 (let ((act-39 (unbox arg-1))) (vector 1 act-39)))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-24 (vector-ref sc17 1))) (vector 0 e-24))) (else (let ((act-40 ((Context-Core-log arg-1 "declare.data" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Types-Prelude-C-43C-43 " defined in a mutual block with " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15))))) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-25 (vector-ref sc18 1))) (vector 0 e-25))) (else (let ((act-41 (Context-Core-setMutWith arg-1 arg-7 (vector 8 e-19) e-15 eta-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-26 (vector-ref sc19 1))) (vector 0 e-26))) (else (let ((act-42 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-1 arg-7 (vector 8 e-19) eta-1)) e-6) eta-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-27 (vector-ref sc20 1))) (vector 0 e-27))) (else (let ((act-43 (Context-Core-dropMutData arg-1 (vector 8 e-19) eta-0))) (let ((sc21 act-43)) (case (vector-ref sc21 0) ((0) (let ((e-28 (vector-ref sc21 1))) (vector 0 e-28))) (else (let ((act-44 ((ProcessData-TTImp-getDetags arg-1 arg-7 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc22 eta-1)) (let ((e-29 (vector-ref sc22 4))) e-29))) e-21)) eta-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-29 (vector-ref sc22 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc22 1))) (let ((act-45 (Context-Core-setDetags arg-1 arg-7 (vector 8 e-19) e-29 eta-0))) (let ((sc23 act-45)) (case (vector-ref sc23 0) ((0) (let ((e-30 (vector-ref sc23 1))) (vector 0 e-30))) (else (let ((act-46 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc24 act-46)) (case (vector-ref sc24 0) ((0) (let ((e-31 (vector-ref sc24 1))) (vector 0 e-31))) (else (let ((act-47 (Context-Core-addToSave arg-1 e-8 eta-0))) (let ((sc25 act-47)) (case (vector-ref sc25 0) ((0) (let ((e-32 (vector-ref sc25 1))) (vector 0 e-32))) (else (let ((act-48 ((Context-Core-log arg-1 "declare.data" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2)))))))) eta-0))) (let ((sc26 act-48)) (case (vector-ref sc26 0) ((0) (let ((e-33 (vector-ref sc26 1))) (vector 0 e-33))) (else (let ((connames (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-21))) (let ((act-49 (let ((sc27 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-10 arg-11)))) (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 8 e-19) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc27 act-49)) (case (vector-ref sc27 0) ((0) (let ((e-34 (vector-ref sc27 1))) (vector 0 e-34))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-1 eta-1 eta-2))) (vector 1 (vector 8 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-7 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-5 arg-6))))) (lambda () (ProcessData-TTImp-getRelevantArg arg-0 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 arg-3 e-5)) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((8) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((19) (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) ((ProcessData-TTImp-getRelevantArg arg-0 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 1 e-12) eta-1)))))))))(else (lambda () (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) ((ProcessData-TTImp-getRelevantArg arg-0 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-12) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2)))))))(else (lambda () (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) ((ProcessData-TTImp-getRelevantArg arg-0 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-10) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2))))) e-7) eta-0))))))))))(else (lambda (eta-0) (vector 1 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2))))))))))(else (lambda (eta-0) (vector 1 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2)))))))) -(define ProcessData-TTImp-getIndexPats (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-1) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessData-TTImp-n--9827-11715-getRetType arg-1 arg-0 e-5 e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessData-TTImp-n--9827-11716-getPats arg-1 arg-0 e-5 e-7) ext-0)))))))))))))))))) -(define ProcessData-TTImp-getDetags (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats arg-0 eta-1 eta-2))) arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessData-TTImp-n--9905-11815-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats arg-0 eta-1 eta-2))) arg-2) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessData-TTImp-n--9905-11815-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased e-5)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6))))))))))))))))))))) +(define ProcessData-TTImp-processData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Context-Core-lookupCtxtExact e-5 (let ((sc4 e-7)) (let ((e-31 (vector-ref sc4 1))) e-31))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-5 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-9 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-6) (vector 1 (Normalise-Core-gType 'erased e-0)))) eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (let ((e-4 (vector-ref sc7 1))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-4))) (let ((act-29 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((act-30 (let ((act-30 ((Normalise-Core-nf arg-0 e-7 arg-6 e-4) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-5 arg-6 e-11) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((act-31 (Normalise-Core-getArity (vector 0 ) e-7 (vector 0 ) fullty eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-32 (Context-Core-addDef arg-1 e-5 (Context-Core-newDef arg-7 e-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-12 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-33 (Context-Core-addMutData arg-1 (vector 8 e-13) eta-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((act-34 (let ((act-34 (unbox arg-1))) (vector 1 act-34)))) (let ((sc13 act-34)) (case (vector-ref sc13 0) ((0) (let ((e-15 (vector-ref sc13 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc13 1))) (let ((act-35 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (Context-Core-setMutWith arg-1 arg-7 n (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40)) eta-1))) (let ((sc14 e-15)) (let ((e-40 (vector-ref sc14 2))) e-40))) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (let ((act-36 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4))) eta-0))) (let ((sc15 act-36)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (vector 0 e-17))) (else (let ((act-37 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc16 act-37)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (vector 0 e-18))) (else (let ((act-38 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-4))))))) eta-0))) (let ((sc17 act-38)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (vector 0 e-19))) (else (let ((sc18 arg-8)) (case (vector-ref sc18 0) ((0) (vector 1 (vector 0 )))(else (let ((act-39 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-5 eta-0))) (let ((sc18 act-39)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty 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-24 ((Context-Core-inCurrentNS arg-1 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Types-Prelude-C-43C-43 "Processing " (Name-Core-show_Show__Name e-8))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 ((Context-Core-resolveName arg-1 e-8) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 arg-7 e-8 eta-1))) (Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 e-12 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 arg-7 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-9) (vector 1 (Normalise-Core-gType 'erased e-3)))) eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc5 1))) (let ((sc6 e-12)) (let ((e-2 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-3 arg-6 e-2))) (let ((act-29 ((Context-Core-lookupCtxtExact e-8 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-30 (let ((_-0 (vector 0 e-2 e-13))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-15 (vector-ref sc8 1))) (let ((ndefm (vector 1 e-15))) ((ProcessData-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processData-13577 e-7 e-6 e-5 e-4 e-3 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 e-9 e-10 e-11 e-13 e-2 _-0 fullty e-15 ndefm (let ((sc9 e-15)) (let ((e-17 (vector-ref sc9 18))) e-17))) eta-0))))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "data " (Name-Core-show_Show__Name e-8))) (vector 0 ) fullty eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-32 (let ((act-32 ((Normalise-Core-nf arg-0 e-11 arg-6 e-2) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) ((ProcessData-TTImp-checkIsType 'erased arg-1 arg-7 e-8 arg-6 e-17) eta-0)))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-33 (Normalise-Core-getArity (vector 0 ) e-11 (vector 0 ) fullty eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-34 (Context-Core-addDef arg-1 e-8 (Context-Core-newDef arg-7 e-8 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-0 fullty arg-8 (vector 6 0 e-18 (vector 0 ) (vector 0 ) (Context-Core-defaultFlags) (vector 0 ) (vector 0 ) (vector 0 ))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc12 1))) (let ((act-35 (let ((sc13 arg-8)) (case (vector-ref sc13 0) ((0) (vector 1 (vector 0 )))(else (let ((act-35 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-8 eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty eta-0)))))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (vector 0 e-20))) (else (let ((e-20 (vector-ref sc13 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-13))) (ProcessData-TTImp-case--caseC-32blockC-32inC-32processData-13162 e-7 e-6 e-5 e-4 e-3 arg-8 arg-7 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-8 e-9 e-10 e-11 e-13 e-2 _-0 fullty e-14 e-15 e-16 e-17 e-18 e-19 e-20 (TT-Core-C-61C-61_Eq__Visibility arg-8 (vector 1 )))))) (let ((act-36 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-checkCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 cvis e-4 (vector 8 e-19) eta-1)) e-7) eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc14 1))) (let ((ddef (vector 0 (vector 0 e-3 e-8 e-18 fullty) e-21))) (let ((act-37 ((Context-Core-addData arg-1 arg-0 arg-8 e-19 ddef) eta-0))) (let ((sc15 act-37)) (case (vector-ref sc15 0) ((0) (let ((e-22 (vector-ref sc15 1))) (vector 0 e-22))) (else (let ((act-38 (let ((sc16 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-10 arg-11)))) (vector 4 ) e-6)))) (cond ((equal? sc16 0) ((ProcessData-TTImp-findNewtype arg-1 e-21) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc16 act-38)) (case (vector-ref sc16 0) ((0) (let ((e-23 (vector-ref sc16 1))) (vector 0 e-23))) (else (let ((act-39 (let ((act-39 (unbox arg-1))) (vector 1 act-39)))) (let ((sc17 act-39)) (case (vector-ref sc17 0) ((0) (let ((e-24 (vector-ref sc17 1))) (vector 0 e-24))) (else (let ((act-40 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Types-Prelude-C-43C-43 " defined in a mutual block with " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)))) eta-0))) (let ((sc18 act-40)) (case (vector-ref sc18 0) ((0) (let ((e-25 (vector-ref sc18 1))) (vector 0 e-25))) (else (let ((act-41 (Context-Core-setMutWith arg-1 arg-7 (vector 8 e-19) e-15 eta-0))) (let ((sc19 act-41)) (case (vector-ref sc19 0) ((0) (let ((e-26 (vector-ref sc19 1))) (vector 0 e-26))) (else (let ((act-42 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-processDataOpt arg-1 arg-7 (vector 8 e-19) eta-1)) e-6) eta-0))) (let ((sc20 act-42)) (case (vector-ref sc20 0) ((0) (let ((e-27 (vector-ref sc20 1))) (vector 0 e-27))) (else (let ((act-43 (Context-Core-dropMutData arg-1 (vector 8 e-19) eta-0))) (let ((sc21 act-43)) (case (vector-ref sc21 0) ((0) (let ((e-28 (vector-ref sc21 1))) (vector 0 e-28))) (else (let ((act-44 ((ProcessData-TTImp-getDetags arg-1 arg-7 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc22 eta-1)) (let ((e-29 (vector-ref sc22 4))) e-29))) e-21)) eta-0))) (let ((sc22 act-44)) (case (vector-ref sc22 0) ((0) (let ((e-29 (vector-ref sc22 1))) (vector 0 e-29))) (else (let ((e-29 (vector-ref sc22 1))) (let ((act-45 (Context-Core-setDetags arg-1 arg-7 (vector 8 e-19) e-29 eta-0))) (let ((sc23 act-45)) (case (vector-ref sc23 0) ((0) (let ((e-30 (vector-ref sc23 1))) (vector 0 e-30))) (else (let ((act-46 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))) eta-0))) (let ((sc24 act-46)) (case (vector-ref sc24 0) ((0) (let ((e-31 (vector-ref sc24 1))) (vector 0 e-31))) (else (let ((act-47 (Context-Core-addToSave arg-1 e-8 eta-0))) (let ((sc25 act-47)) (case (vector-ref sc25 0) ((0) (let ((e-32 (vector-ref sc25 1))) (vector 0 e-32))) (else (let ((act-48 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-2))))))) eta-0))) (let ((sc26 act-48)) (case (vector-ref sc26 0) ((0) (let ((e-33 (vector-ref sc26 1))) (vector 0 e-33))) (else (let ((connames (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-21))) (let ((act-49 (let ((sc27 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-10 arg-11)))) (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 8 e-19) x 0 1 eta-1))) connames) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc27 act-49)) (case (vector-ref sc27 0) ((0) (let ((e-34 (vector-ref sc27 1))) (vector 0 e-34))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Utils-Elab-TTImp-updateErasable arg-1 eta-1 eta-2))) (vector 1 (vector 8 e-19) connames)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ProcessData-TTImp-getRelevantArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-5 arg-6))))) (lambda () (ProcessData-TTImp-getRelevantArg arg-0 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 arg-3 e-5)) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((8) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((19) (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) ((ProcessData-TTImp-getRelevantArg arg-0 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 1 e-11) eta-1)))))))))(else (lambda () (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) ((ProcessData-TTImp-getRelevantArg arg-0 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-11) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2)))))))(else (lambda () (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-25 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) ((ProcessData-TTImp-getRelevantArg arg-0 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) (vector 1 arg-1) 1 e-9) eta-1)))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 0 ))))) arg-2))))) e-6) eta-0))))))))))(else (lambda (eta-0) (vector 1 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2))))))))))(else (lambda (eta-0) (vector 1 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2)))))))) +(define ProcessData-TTImp-getIndexPats (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-1) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((ProcessData-TTImp-n--9624-11707-getRetType arg-1 arg-0 e-5 e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessData-TTImp-n--9624-11708-getPats arg-1 arg-0 e-5 e-7) ext-0)))))))))))))))))) +(define ProcessData-TTImp-getDetags (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats arg-0 eta-1 eta-2))) arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ProcessData-TTImp-n--9700-11805-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased e-5)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessData-TTImp-getIndexPats arg-0 eta-1 eta-2))) arg-2) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessData-TTImp-n--9700-11805-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased e-5)) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 )))(else (vector 1 (vector 1 e-6))))))))))))))))))))) (define ProcessData-TTImp-findNewtype (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) (let ((sc3 e-1)) (let ((e-3 (vector-ref sc3 4))) e-3))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) ((ProcessData-TTImp-getRelevantArg e-5 0 (vector 0 ) 0 e-6) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (Context-Core-updateDef arg-0 (let ((sc5 e-1)) (let ((e-8 (vector-ref sc5 2))) e-8)) (lambda (d) (let ((sc5 d)) (case (vector-ref sc5 0) ((5) (let ((e-0 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (vector 1 (vector 5 e-0 e-7 (vector 1 e-3))))))(else (vector 0 ))))) eta-0))) (else (vector 1 (vector 0 )))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define ProcessData-TTImp-conName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define ProcessData-TTImp-checkRetType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) ((ProcessData-TTImp-checkRetType 'erased arg-1 arg-2 e-10 arg-4) eta-0)))))))))))))(else (arg-4 arg-3))))))))(else (arg-4 arg-3)))))) +(define ProcessData-TTImp-checkRetType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) ((ProcessData-TTImp-checkRetType 'erased arg-1 arg-2 e-9 arg-4) eta-0)))))))))))))(else (arg-4 arg-3))))))))(else (arg-4 arg-3)))))) (define ProcessData-TTImp-checkIsType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessData-TTImp-checkRetType 'erased arg-1 arg-4 arg-5 (lambda (nf) (let ((sc0 nf)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 9 arg-2 arg-3) eta-0))))))))) (define ProcessData-TTImp-checkFamily (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (ProcessData-TTImp-checkRetType 'erased arg-1 arg-5 arg-6 (lambda (nf) (let ((sc0 nf)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-2 arg-3 arg-4) eta-0))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((nf-0 (vector 3 e-3 e-4 e-5 e-6 e-7))) (ProcessData-TTImp-case--caseC-32blockC-32inC-32checkFamily-11180 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-3 e-5 e-6 e-7 e-4 nf-0 (Name-Core-C-61C-61_Eq__Name arg-4 e-4)))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 10 arg-2 arg-3 arg-4) eta-0))))))))) -(define ProcessData-TTImp-checkCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ty_raw (ProcessData-TTImp-updateNS arg-8 arg-9 e-2))) (let ((act-25 ((Context-Core-log arg-1 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking constructor type " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp ty_raw)))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((Context-Core-log arg-1 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Updated " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-8 arg-9))))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Context-Core-lookupCtxtExact e-5 (let ((sc5 e-8)) (let ((e-32 (vector-ref sc5 1))) e-32))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((act-29 (let ((act-29 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 e-0 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-10 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 e-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ty_raw) (Normalise-Core-gType 'erased e-0) eta-1))) eta-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf arg-0 e-8 arg-6 e-10) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc8 1))) ((ProcessData-TTImp-checkFamily 'erased arg-1 e-0 e-5 arg-9 arg-6 e-11) eta-0)))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-10))) (let ((act-31 ((Normalise-Core-logTermNF (vector 0 ) arg-1 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-32 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-33 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-34 ((Context-Core-log arg-1 "declare.data.constructor" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10)))))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((act-35 (let ((sc13 arg-7)) (case (vector-ref sc13 0) ((2) (let ((act-35 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Name arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Name arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-5 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1908 arg-1909)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty eta-0))))))(else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((act-36 (Normalise-Core-getArity (vector 0 ) e-8 (vector 0 ) fullty eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (let ((e-17 (vector-ref sc14 1))) (vector 1 (vector 0 e-0 e-5 e-17 fullty)))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-0 e-5) eta-0))))))))))))))))))))))))))))))))))) -(define Parser-TTImp-case--collectDefs-6753 (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-Types-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-TTImp-collectDefs e-3))))))) -(define Parser-TTImp-case--collectDefsC-44isClause-6706 (lambda (arg-0 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--caseC-32blockC-32inC-32collectDefsC-44spanMap-6659 (lambda (arg-0 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-Types-Prelude-C-43C-43 'erased arg-9 e-2) e-3)))))) -(define Parser-TTImp-case--collectDefsC-44spanMap-6594 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32collectDefsC-44spanMap-6659 arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-7 arg-8 arg-6 e-2 (Parser-TTImp-n--6912-6560-spanMap arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-8 arg-7)))))))) -(define Parser-TTImp-case--recordParam-5914 (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--recordParam-5869 (lambda (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--pibindList-3446 (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--6912-6560-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--collectDefsC-44spanMap-6594 arg-0 arg-1 arg-2 arg-3 'erased 'erased e-2 e-3 arg-6 (arg-6 e-2))))))))) -(define Parser-TTImp-n--9740-5258-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-5278) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm)))))))))))))) -(define Parser-TTImp-n--7622-4804-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--7622-4804-mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3)))))))))))) -(define Parser-TTImp-n--6912-6561-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--collectDefsC-44isClause-6706 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--9737-4986-getFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-1))) ((8) (let ((e-3 (vector-ref sc0 2))) (Parser-TTImp-n--9737-4986-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Parser-TTImp-n--9737-4986-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-6)))(else (vector 4 1 "Not a function application")))))) -(define Parser-TTImp-n--10655-5950-fieldBody (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-5982) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-2 (vector 1 n) ty)) ns))))))))))))))))) -(define Parser-TTImp-n--7612-3867-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--7612-3867-bindAll arg-0 arg-1 arg-2 e-3 arg-4))))))))))))))) -(define Parser-TTImp-n--7597-2700-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--7597-2700-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--7597-2700-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--9740-5257-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--9740-5257-applyArgs arg-0 arg-1 arg-2 (vector 8 e-6 arg-3 e-7) e-3))))))))))) +(define ProcessData-TTImp-checkCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ty_raw (ProcessData-TTImp-updateNS arg-8 arg-9 e-2))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Checking constructor type " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp ty_raw))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Updated " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) (vector 0 arg-8 arg-9)))) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Context-Core-lookupCtxtExact e-5 (let ((sc5 e-8)) (let ((e-32 (vector-ref sc5 1))) e-32))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((act-29 (let ((act-29 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 57 e-0 e-5 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 e-10 (vector 0 ) arg-4 arg-5 arg-6 (vector 15 e-0 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ty_raw) (Normalise-Core-gType 'erased e-0) eta-1))) eta-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-nf arg-0 e-8 arg-6 e-10) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc8 1))) ((ProcessData-TTImp-checkFamily 'erased arg-1 e-0 e-5 arg-9 arg-6 e-11) eta-0)))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-10))) (let ((act-31 (Normalise-Core-logTermNF (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Constructor " (Name-Core-show_Show__Name e-5))) (vector 0 ) fullty eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-32 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addToSave arg-1 eta-1 eta-2))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-33 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-34 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Saving from " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (NameMap-Data-keys 'erased (TT-Core-getMetas 'erased e-10))))))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((act-35 (let ((sc13 arg-7)) (case (vector-ref sc13 0) ((2) (let ((act-35 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Name arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Name arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-5 eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1914 arg-1915)))) (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) fullty eta-0))))))(else (vector 1 (vector 0 ))))))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (let ((act-36 (Normalise-Core-getArity (vector 0 ) e-8 (vector 0 ) fullty eta-0))) (let ((sc14 act-36)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (vector 0 e-3))) (else (let ((e-17 (vector-ref sc14 1))) (vector 1 (vector 0 e-0 e-5 e-17 fullty)))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-0 e-5) eta-0))))))))))))))))))))))))))))))))))) +(define Parser-TTImp-case--collectDefs-6731 (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-Types-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-TTImp-collectDefs e-3))))))) +(define Parser-TTImp-case--collectDefsC-44isClause-6684 (lambda (arg-0 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--caseC-32blockC-32inC-32collectDefsC-44spanMap-6637 (lambda (arg-0 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-Types-Prelude-C-43C-43 'erased arg-9 e-2) e-3)))))) +(define Parser-TTImp-case--collectDefsC-44spanMap-6572 (lambda (arg-0 arg-1 arg-2 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--caseC-32blockC-32inC-32collectDefsC-44spanMap-6637 arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-7 arg-8 arg-6 e-2 (Parser-TTImp-n--6705-6538-spanMap arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-8 arg-7)))))))) +(define Parser-TTImp-case--recordParam-5920 (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--recordParam-5875 (lambda (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--pibindList-3452 (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--6705-6538-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--collectDefsC-44spanMap-6572 arg-0 arg-1 arg-2 arg-3 'erased 'erased e-2 e-3 arg-6 (arg-6 e-2))))))))) +(define Parser-TTImp-n--9533-5264-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-5284) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-1 start end) tm)))))))))))))) +(define Parser-TTImp-n--7415-4810-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--7415-4810-mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3)))))))))))) +(define Parser-TTImp-n--6705-6539-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--collectDefsC-44isClause-6684 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--9530-4992-getFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-1))) ((8) (let ((e-3 (vector-ref sc0 2))) (Parser-TTImp-n--9530-4992-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Parser-TTImp-n--9530-4992-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-6)))(else (vector 4 1 "Not a function application")))))) +(define Parser-TTImp-n--10448-5956-fieldBody (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-5988) (vector 7 1 (Parser-TTImp-expr arg-1 arg-0) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-2 (vector 1 n) ty)) ns))))))))))))))))) +(define Parser-TTImp-n--7405-3873-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--7405-3873-bindAll arg-0 arg-1 arg-2 e-3 arg-4))))))))))))))) +(define Parser-TTImp-n--7390-2706-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--7390-2706-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--7390-2706-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--9533-5263-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--9533-5263-applyArgs arg-0 arg-1 arg-2 (vector 8 e-6 arg-3 e-7) e-3))))))))))) (define Parser-TTImp-visibility (lambda () (vector 9 0 1 (Parser-TTImp-visOption) (lambda () (vector 0 (vector 0 )))))) -(define Parser-TTImp-visOption (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-2248) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-2258) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-2277) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-2291) (vector 0 (vector 0 ))))))))))) +(define Parser-TTImp-visOption (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-2254) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-2264) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-2283) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-2297) (vector 0 (vector 0 ))))))))))) (define Parser-TTImp-visOpt (lambda () (vector 9 0 0 (vector 7 1 (Parser-TTImp-visOption) (lambda () (lambda (vis) (vector 0 (vector 0 vis))))) (lambda () (vector 9 0 0 (vector 7 1 (Parser-TTImp-fnOpt) (lambda () (lambda (tot) (vector 0 (vector 1 tot))))) (lambda () (vector 7 1 (Parser-TTImp-fnDirectOpt) (lambda () (lambda (opt) (vector 0 (vector 1 opt))))))))))) -(define Parser-TTImp-typeExpr (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-4847) (vector 7 1 (Parser-Text-some 'erased 'erased (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (op) (vector 0 (vector 0 exp op))))))))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7622-4804-mkPi arg-1 arg-0 start end arg rest))))))))) (lambda () (vector 0 arg)))))))))) -(define Parser-TTImp-tyDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-4935) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-4958) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty))))))))))))))))))) -(define Parser-TTImp-totalityOpt (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "partial") (lambda () (lambda (_-2316) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-2334) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-2348) (vector 0 (vector 1 ))))))))))) +(define Parser-TTImp-typeExpr (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 9 0 1 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-4853) (vector 7 1 (Parser-Text-some 'erased 'erased (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (op) (vector 0 (vector 0 exp op))))))))) (lambda () (lambda (rest) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7415-4810-mkPi arg-1 arg-0 start end arg rest))))))))) (lambda () (vector 0 arg)))))))))) +(define Parser-TTImp-tyDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-4941) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-4964) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty))))))))))))))))))) +(define Parser-TTImp-totalityOpt (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "partial") (lambda () (lambda (_-2322) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-2340) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-2354) (vector 0 (vector 1 ))))))))))) (define Parser-TTImp-topDecl (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-TTImp-visibility) (lambda (vis) (vector 7 1 (Parser-TTImp-dataDecl arg-0 arg-1) (lambda () (lambda (dat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 arg-0 start end) vis dat))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-namespaceDecl) (lambda () (lambda (ns) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) ns ds)))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-visOpt)) (lambda (visOpts) (vector 8 1 0 (Parser-TTImp-getVisibility (vector 0 ) visOpts) (lambda (vis) (let ((opts (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Parser-TTImp-getRight 'erased 'erased eta-0)) visOpts))) (vector 7 1 (Parser-TTImp-tyDecl arg-0 arg-1) (lambda () (lambda (claim) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) vis opts claim)))))))))))))) (lambda () (vector 9 0 0 (Parser-TTImp-recordDecl arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-directive arg-0 arg-1) (lambda () (Parser-TTImp-definition arg-0 arg-1))))))))))))) -(define Parser-TTImp-simpleExpr (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-as arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-atom arg-0) (lambda () (vector 9 0 0 (Parser-TTImp-binder arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-rewrite_ arg-0 arg-1) (lambda () (vector 9 0 (Basics-Prelude-C-124C-124 0 (lambda () 0)) (Parser-TTImp-record_ arg-0 arg-1) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-3093) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-3109) (vector 0 e)))))))))))))))))))))) -(define Parser-TTImp-rewrite_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-4549) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rule) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-4566) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 13 (vector 0 arg-0 start end) rule tm)))))))))))))))))))) -(define Parser-TTImp-record_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-4373) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-4382) (vector 8 1 0 (vector 5 ) (lambda (_-4391) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-field arg-0 arg-1)) (lambda () (lambda (fs) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-4414) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (sc) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 7 (vector 0 arg-0 start end) fs sc))))))))))))))))))))))))) -(define Parser-TTImp-recordParam (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-5642) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-5666) (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))) params))))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) (Basics-Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-5695) (vector 8 1 0 (vector 5 ) (lambda (_-5704) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (vector 9 0 1 (vector 8 1 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 0 (vector 2 ))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "auto")))) (lambda () (vector 9 0 1 (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-5736) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 0 (vector 3 t)))))))) (lambda () (vector 0 (vector 0 )))))) (lambda (info) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-5784) (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 info e-7)))))))))) params))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 31 (vector 0 arg-0 start end) 1)))) (vector 0 )))))))))))))))) -(define Parser-TTImp-recordDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-TTImp-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-6140) (vector 8 1 0 (vector 5 ) (lambda (_-6149) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-recordParam arg-0 arg-1)) (lambda (paramss) (let ((params ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 0 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-6177) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-6187) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (dc) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-TTImp-fieldDecl arg-0 eta-0))) (lambda (flds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc (vector 0 ) vis (vector 0 fc n params dc ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) flds))))))))))))))))))))))))))))))))))))) +(define Parser-TTImp-simpleExpr (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-as arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-atom arg-0) (lambda () (vector 9 0 0 (Parser-TTImp-binder arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-rewrite_ arg-0 arg-1) (lambda () (vector 9 0 (Basics-Prelude-C-124C-124 0 (lambda () 0)) (Parser-TTImp-record_ arg-0 arg-1) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-3099) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-3115) (vector 0 e)))))))))))))))))))))) +(define Parser-TTImp-rewrite_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "rewrite") (lambda () (lambda (_-4555) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rule) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-4572) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 13 (vector 0 arg-0 start end) rule tm)))))))))))))))))))) +(define Parser-TTImp-record_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-4379) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-4388) (vector 8 1 0 (vector 5 ) (lambda (_-4397) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-field arg-0 arg-1)) (lambda () (lambda (fs) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-4420) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (sc) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 7 (vector 0 arg-0 start end) fs sc))))))))))))))))))))))))) +(define Parser-TTImp-recordParam (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-5648) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-5672) (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 (vector 1 ) e-7)))))))))) params))))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) (Basics-Prelude-C-124C-124 1 (lambda () 0)) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-5701) (vector 8 1 0 (vector 5 ) (lambda (_-5710) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (vector 9 0 1 (vector 8 1 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 0 (vector 2 ))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-keyword "auto")))) (lambda () (vector 9 0 1 (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-5742) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (t) (vector 0 (vector 3 t)))))))) (lambda () (vector 0 (vector 0 )))))) (lambda (info) (vector 7 0 (Parser-TTImp-pibindListName arg-0 start arg-1) (lambda () (lambda (params) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-5790) (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-6 (vector 0 e-2 (vector 0 info e-7)))))))))) params))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 31 (vector 0 arg-0 start end) 1)))) (vector 0 )))))))))))))))) +(define Parser-TTImp-recordDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 8 1 0 (Parser-TTImp-visibility) (lambda (vis) (vector 8 1 0 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (vector 7 0 (Source-Rule-Parser-keyword "record") (lambda () (lambda (_-6146) (vector 8 1 0 (vector 5 ) (lambda (_-6155) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-recordParam arg-0 arg-1)) (lambda (paramss) (let ((params ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 0 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-6183) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-6193) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (dc) (vector 8 1 1 (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-TTImp-fieldDecl arg-0 eta-0))) (lambda (flds) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc (vector 0 ) vis (vector 0 fc n params dc ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) flds))))))))))))))))))))))))))))))))))))) (define Parser-TTImp-prog (lambda (arg-0) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda () (lambda (ds) (vector 0 (Parser-TTImp-collectDefs ds))))))) -(define Parser-TTImp-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-3306) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-3321) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (Types-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 (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-3371) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 n ty))))))))))))))))))))) +(define Parser-TTImp-pibindListName (lambda (arg-0 arg-1 arg-2) (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-3312) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-3327) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (Types-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 (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-3377) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 n ty))))))))))))))))))))) (define Parser-TTImp-pibindList (lambda (arg-0 arg-1 arg-2) (vector 7 1 (Parser-TTImp-pibindListName arg-0 arg-1 arg-2) (lambda () (lambda (params) (vector 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 e-2 (vector 0 (vector 1 e-6) e-7))))))))) params))))))) (define Parser-TTImp-pibindAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-0 e-6 arg-1 e-10 e-11 (Parser-TTImp-pibindAll arg-0 arg-1 e-3 arg-3))))))))))))))) -(define Parser-TTImp-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-5020) (vector 8 1 0 (vector 5 ) (lambda (_-5029) (vector 7 1 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-5044) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9737-4986-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 0 fc arg-4 rhs)))))))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-5097) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (wstart) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-5114) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (wval) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-5130) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-clause (+ 1 arg-0) arg-1 eta-0))) (lambda () (lambda (ws) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9737-4986-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 1 fc arg-4 wval (vector 0 ) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ws)))))))))))))))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-5202) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-5210) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9737-4986-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 2 fc arg-4))))))))))))))))))) -(define Parser-TTImp-namespaceDecl (lambda () (vector 7 0 (Source-Rule-Parser-keyword "namespace") (lambda () (lambda (_-6274) (vector 8 1 0 (vector 5 ) (lambda (_-6283) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 0 (List1-Data-toList 'erased ns)))))))))))) +(define Parser-TTImp-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-5026) (vector 8 1 0 (vector 5 ) (lambda (_-5035) (vector 7 1 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-5050) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9530-4992-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 0 fc arg-4 rhs)))))))))))))))))) (lambda () (vector 9 0 0 (vector 7 0 (Source-Rule-Parser-keyword "with") (lambda () (lambda (_-5103) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (wstart) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-5120) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (wval) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-5136) (vector 7 1 (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-clause (+ 1 arg-0) arg-1 eta-0))) (lambda () (lambda (ws) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9530-4992-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 1 fc arg-4 wval (vector 0 ) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ws)))))))))))))))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-5208) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-5216) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (vector 8 1 1 (Parser-TTImp-n--9530-4992-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4) (lambda (bind-0) (vector 0 (vector 0 bind-0 (vector 2 fc arg-4))))))))))))))))))) +(define Parser-TTImp-namespaceDecl (lambda () (vector 7 0 (Source-Rule-Parser-keyword "namespace") (lambda () (lambda (_-6280) (vector 8 1 0 (vector 5 ) (lambda (_-6289) (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 0 (List1-Data-toList 'erased ns)))))))))))) (define Parser-TTImp-multiplicity (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) 1 (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (c) (vector 0 (vector 1 c))))) (lambda () (vector 0 (vector 0 )))))) -(define Parser-TTImp-let_ (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Basics-Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-3985) (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 8 1 0 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-4018) (vector 8 1 0 (vector 5 ) (lambda (_-4027) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-4042) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-4052) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 3 fc rig n (vector 31 fc 1) val scope))))))))))))))))))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-4113) (vector 8 1 0 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda (ds) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-4129) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-4139) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) (Parser-TTImp-collectDefs ds) scope))))))))))))))))))))))) -(define Parser-TTImp-lazy (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Lazy") (lambda () (lambda (_-4616) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Inf") (lambda () (lambda (_-4664) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Basics-Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Delay") (lambda () (lambda (_-4712) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 20 (vector 0 arg-0 start end) tm)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Force") (lambda () (lambda (_-4756) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 21 (vector 0 arg-0 start end) tm)))))))))))))))))))) -(define Parser-TTImp-lam (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "\\") (lambda () (lambda (_-3903) (vector 7 0 (Parser-TTImp-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-3919) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-3928) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7612-3867-bindAll arg-1 arg-0 (vector 0 arg-0 start end) binders scope)))))))))))))))))))))) -(define Parser-TTImp-implicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-3724) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3740) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-3749) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))) -(define Parser-TTImp-implicitArg (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Basics-Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-2848) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) (Basics-Prelude-C-124C-124 0 (lambda () 1)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-2868) (vector 8 1 0 (vector 5 ) (lambda (_-2877) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-2893) (vector 0 (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-2923) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 1 (vector 1 x)) (vector 0 (vector 0 arg-0 start end) (vector 1 x))))))))))))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "@{") (lambda () (lambda (_-2964) (vector 8 1 0 (vector 5 ) (lambda (_-2973) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-2989) (vector 0 (vector 0 (vector 0 ) tm))))))))))))))))) +(define Parser-TTImp-let_ (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Basics-Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-3991) (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 8 1 0 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-4024) (vector 8 1 0 (vector 5 ) (lambda (_-4033) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-4048) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-4058) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 3 fc rig n (vector 31 fc 1) val scope))))))))))))))))))))))))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "let") (lambda () (lambda (_-4119) (vector 8 1 0 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0))) (lambda (ds) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-4135) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-4145) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 5 (vector 0 arg-0 start end) (Parser-TTImp-collectDefs ds) scope))))))))))))))))))))))) +(define Parser-TTImp-lazy (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Lazy") (lambda () (lambda (_-4622) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Inf") (lambda () (lambda (_-4670) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 19 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Basics-Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Delay") (lambda () (lambda (_-4718) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 20 (vector 0 arg-0 start end) tm)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-exactIdent "Force") (lambda () (lambda (_-4762) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (tm) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 21 (vector 0 arg-0 start end) tm)))))))))))))))))))) +(define Parser-TTImp-lam (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "\\") (lambda () (lambda (_-3909) (vector 7 0 (Parser-TTImp-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-3925) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-3934) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7405-3873-bindAll arg-1 arg-0 (vector 0 arg-0 start end) binders scope)))))))))))))))))))))) +(define Parser-TTImp-implicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-3730) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3746) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-3755) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))) +(define Parser-TTImp-implicitArg (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Basics-Prelude-C-124C-124 0 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-2854) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) (Basics-Prelude-C-124C-124 0 (lambda () 1)) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-2874) (vector 8 1 0 (vector 5 ) (lambda (_-2883) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-2899) (vector 0 (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-2929) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 1 (vector 1 x)) (vector 0 (vector 0 arg-0 start end) (vector 1 x))))))))))))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-symbol "@{") (lambda () (lambda (_-2970) (vector 8 1 0 (vector 5 ) (lambda (_-2979) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-2995) (vector 0 (vector 0 (vector 0 ) tm))))))))))))))))) (define Parser-TTImp-ifThenElse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (arg-2)) (else (arg-3)))))) (define Parser-TTImp-getVisibility (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 (vector 0 ))) ((1) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (Parser-TTImp-getVisibility (vector 1 e-12) e-9)))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-TTImp-getVisibility arg-0 e-2)))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-TTImp-getVisibility arg-0 e-2))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 e-5)) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((0) (vector 4 0 "Multiple visibility modifiers"))(else (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) (Parser-TTImp-getVisibility arg-0 e-2))))))))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Parser-TTImp-getVisibility arg-0 e-2))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Parser-TTImp-getVisibility arg-0 e-2)))))))) (define Parser-TTImp-getRight (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5))))))) (define Parser-TTImp-getMult (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (cond ((equal? sc1 0) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) ((0) (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (vector 4 0 "Invalid multiplicity (must be 0 or 1)")))))) -(define Parser-TTImp-forall_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "forall") (lambda () (lambda (_-3595) (vector 8 1 0 (vector 5 ) (lambda (_-3604) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nstart) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nend) (let ((nfc (vector 0 arg-0 nstart nend))) (let ((binders (Types-Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 31 nfc 1)))) ns))) (vector 7 0 (Source-Rule-Parser-symbol ".") (lambda () (lambda (_-3646) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))))))) +(define Parser-TTImp-forall_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "forall") (lambda () (lambda (_-3601) (vector 8 1 0 (vector 5 ) (lambda (_-3610) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nstart) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (ns) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (nend) (let ((nfc (vector 0 arg-0 nstart nend))) (let ((binders (Types-Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 31 nfc 1)))) ns))) (vector 7 0 (Source-Rule-Parser-symbol ".") (lambda () (lambda (_-3652) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))))))) (define Parser-TTImp-fnOpt (lambda () (vector 7 1 (Parser-TTImp-totalityOpt) (lambda () (lambda (x) (vector 0 (vector 7 x))))))) -(define Parser-TTImp-fnDirectOpt (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-pragma "hint") (lambda () (lambda (_-2376) (vector 0 (vector 2 0))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-pragma "chaser") (lambda () (lambda (_-2396) (vector 0 (vector 2 1))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-pragma "globalhint") (lambda () (lambda (_-2416) (vector 0 (vector 3 0))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-pragma "defaulthint") (lambda () (lambda (_-2436) (vector 0 (vector 3 1))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) (Basics-Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-pragma "inline") (lambda () (lambda (_-2456) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-pragma "extern") (lambda () (lambda (_-2473) (vector 0 (vector 4 ))))))))))))))))) -(define Parser-TTImp-fieldDecl (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-6033) (vector 8 1 0 (vector 5 ) (lambda (_-6042) (vector 7 0 (Parser-TTImp-n--10655-5950-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-6060) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-6068) (vector 0 fs)))))))))))))) (lambda () (vector 7 1 (Parser-TTImp-n--10655-5950-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-6099) (vector 0 fs)))))))))) -(define Parser-TTImp-field (lambda (arg-0 arg-1) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol "->") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (path) (vector 7 0 (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) (Basics-Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-4484) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-4500) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))))))) +(define Parser-TTImp-fnDirectOpt (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-pragma "hint") (lambda () (lambda (_-2382) (vector 0 (vector 2 0))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-pragma "chaser") (lambda () (lambda (_-2402) (vector 0 (vector 2 1))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-pragma "globalhint") (lambda () (lambda (_-2422) (vector 0 (vector 3 0))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) 0 (vector 7 1 (Source-Rule-Parser-pragma "defaulthint") (lambda () (lambda (_-2442) (vector 0 (vector 3 1))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) (Basics-Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-pragma "inline") (lambda () (lambda (_-2462) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-pragma "extern") (lambda () (lambda (_-2479) (vector 0 (vector 4 ))))))))))))))))) +(define Parser-TTImp-fieldDecl (lambda (arg-0 arg-1) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-6039) (vector 8 1 0 (vector 5 ) (lambda (_-6048) (vector 7 0 (Parser-TTImp-n--10448-5956-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-6066) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-6074) (vector 0 fs)))))))))))))) (lambda () (vector 7 1 (Parser-TTImp-n--10448-5956-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-6105) (vector 0 fs)))))))))) +(define Parser-TTImp-field (lambda (arg-0 arg-1) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol "->") (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (path) (vector 7 0 (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) (Basics-Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-4490) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-4506) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))))))))) (lambda () (lambda (upd) (vector 7 1 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (val) (vector 0 ((upd path) val))))))))))))) (define Parser-TTImp-expr (lambda (ext-0 ext-1) (Parser-TTImp-typeExpr ext-0 ext-1))) -(define Parser-TTImp-explicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-3807) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-3823) (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) exp binders scope))))))))))))))))))))))) -(define Parser-TTImp-directive (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-6314) (vector 8 1 0 (vector 5 ) (lambda (_-6323) (vector 8 1 0 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-namespacedIdent)) (lambda (ps) (let ((topic (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (List1-Data-toList 'erased eta-0)) ps)))) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-6360) (vector 0 (vector 9 (vector 0 topic lvl)))))))))))))))))) +(define Parser-TTImp-explicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-3813) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-3829) (vector 7 0 (Parser-TTImp-bindSymbol) (lambda () (lambda (exp) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) exp binders scope))))))))))))))))))))))) +(define Parser-TTImp-directive (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-pragma "logging") (lambda () (lambda (_-6320) (vector 8 1 0 (vector 5 ) (lambda (_-6329) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-6345) (vector 0 (vector 9 lvl)))))))))))))) (define Parser-TTImp-definition (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-clause 0 arg-0 arg-1) (lambda () (lambda (nd) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 start end) (Builtin-fst 'erased 'erased nd) (vector 1 (Builtin-snd 'erased 'erased nd) (vector 0 ))))))))))))) -(define Parser-TTImp-dataOpt (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "noHints") (lambda () (lambda (_-5427) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "uniqueSearch") (lambda () (lambda (_-5445) (vector 0 (vector 2 ))))) (lambda () (vector 7 0 (Source-Rule-Parser-exactIdent "search") (lambda () (lambda (_-5459) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 0 (vector 0 ns)))))))))))))) -(define Parser-TTImp-dataDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "data") (lambda () (lambda (_-5497) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-5514) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-5531) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Basics-Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-5549) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-dataOpt)) (lambda () (lambda (dopts) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-5572) (vector 0 dopts))))))))))) (lambda (opts) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-tyDecl arg-0 eta-0))) (lambda (cs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty opts cs))))))))))))))))))))))))))) -(define Parser-TTImp-command (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-6807) (vector 7 0 (Source-Rule-Parser-exactIdent "t") (lambda () (lambda (_-6817) (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 1 tm))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-6850) (vector 7 0 (Source-Rule-Parser-exactIdent "s") (lambda () (lambda (_-6860) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 2 n))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-6891) (vector 7 0 (Source-Rule-Parser-exactIdent "es") (lambda () (lambda (_-6901) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 n))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-6932) (vector 7 0 (Source-Rule-Parser-exactIdent "gd") (lambda () (lambda (_-6942) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (l) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 4 l n)))))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-6985) (vector 7 0 (Source-Rule-Parser-exactIdent "missing") (lambda () (lambda (_-6995) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 5 n))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-7026) (vector 7 0 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-7036) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 6 n))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-7067) (vector 7 0 (Source-Rule-Parser-exactIdent "di") (lambda () (lambda (_-7077) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 7 n))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-7108) (vector 7 1 (Source-Rule-Parser-exactIdent "q") (lambda () (lambda (_-7118) (vector 0 (vector 8 )))))))) (lambda () (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 0 tm))))))))))))))))))))))) -(define Parser-TTImp-collectDefs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Parser-TTImp-case--collectDefs-6753 e-6 e-5 e-4 e-3 (Parser-TTImp-n--6912-6560-spanMap e-6 e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-TTImp-n--6912-6561-isClause e-6 e-5 e-4 e-3 e-5 eta-0)) e-3)))))) ((5) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (vector 1 (vector 5 e-7 e-8 (Parser-TTImp-collectDefs e-9)) (Parser-TTImp-collectDefs e-3))))))(else (vector 1 e-2 (Parser-TTImp-collectDefs e-3)))))))))))) -(define Parser-TTImp-clause (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (lhs) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-n--9740-5258-parseWithArg arg-2 arg-1 arg-0)) (lambda (extra) (Parser-TTImp-ifThenElse 'erased (Types-Prelude-C-47C-61_Eq__Nat arg-0 (List-Types-Prelude-length 'erased extra)) (lambda () (vector 4 0 "Wrong number of 'with' arguments")) (lambda () (Parser-TTImp-parseRHS arg-0 arg-1 arg-2 start (Parser-TTImp-n--9740-5257-applyArgs arg-2 arg-1 arg-0 lhs extra))))))))))))) -(define Parser-TTImp-case_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "case") (lambda () (lambda (_-4190) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scr) (vector 7 1 (Source-Rule-Parser-keyword "of") (lambda () (lambda (_-4207) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc scr (vector 31 fc 1) alts)))))))))))))))))))) -(define Parser-TTImp-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-4274) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-4282) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-4297) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 arg-2 end) arg-3 rhs)))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-4329) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-4337) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 arg-2 end) arg-3))))))))))))) +(define Parser-TTImp-dataOpt (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "noHints") (lambda () (lambda (_-5433) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "uniqueSearch") (lambda () (lambda (_-5451) (vector 0 (vector 2 ))))) (lambda () (vector 7 0 (Source-Rule-Parser-exactIdent "search") (lambda () (lambda (_-5465) (vector 7 1 (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 0 (vector 0 ns)))))))))))))) +(define Parser-TTImp-dataDecl (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "data") (lambda () (lambda (_-5503) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-5520) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-5537) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Basics-Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-5555) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-dataOpt)) (lambda () (lambda (dopts) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-5578) (vector 0 dopts))))))))))) (lambda (opts) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-tyDecl arg-0 eta-0))) (lambda (cs) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) n ty opts cs))))))))))))))))))))))))))) +(define Parser-TTImp-command (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-6785) (vector 7 0 (Source-Rule-Parser-exactIdent "t") (lambda () (lambda (_-6795) (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 1 tm))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-6828) (vector 7 0 (Source-Rule-Parser-exactIdent "s") (lambda () (lambda (_-6838) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 2 n))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-6869) (vector 7 0 (Source-Rule-Parser-exactIdent "es") (lambda () (lambda (_-6879) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 3 n))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-6910) (vector 7 0 (Source-Rule-Parser-exactIdent "gd") (lambda () (lambda (_-6920) (vector 7 0 (Source-Rule-Parser-intLit) (lambda () (lambda (l) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 4 l n)))))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-6963) (vector 7 0 (Source-Rule-Parser-exactIdent "missing") (lambda () (lambda (_-6973) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 5 n))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-7004) (vector 7 0 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-7014) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 6 n))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-7045) (vector 7 0 (Source-Rule-Parser-exactIdent "di") (lambda () (lambda (_-7055) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 7 n))))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-7086) (vector 7 1 (Source-Rule-Parser-exactIdent "q") (lambda () (lambda (_-7096) (vector 0 (vector 8 )))))))) (lambda () (vector 7 1 (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (vector 0 tm))))))))))))))))))))))) +(define Parser-TTImp-collectDefs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Parser-TTImp-case--collectDefs-6731 e-6 e-5 e-4 e-3 (Parser-TTImp-n--6705-6538-spanMap e-6 e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-TTImp-n--6705-6539-isClause e-6 e-5 e-4 e-3 e-5 eta-0)) e-3)))))) ((5) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (vector 1 (vector 5 e-7 e-8 (Parser-TTImp-collectDefs e-9)) (Parser-TTImp-collectDefs e-3))))))(else (vector 1 e-2 (Parser-TTImp-collectDefs e-3)))))))))))) +(define Parser-TTImp-clause (lambda (arg-0 arg-1 arg-2) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (lhs) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-TTImp-n--9533-5264-parseWithArg arg-2 arg-1 arg-0)) (lambda (extra) (Parser-TTImp-ifThenElse 'erased (Types-Prelude-C-47C-61_Eq__Nat arg-0 (List-Types-Prelude-length 'erased extra)) (lambda () (vector 4 0 "Wrong number of 'with' arguments")) (lambda () (Parser-TTImp-parseRHS arg-0 arg-1 arg-2 start (Parser-TTImp-n--9533-5263-applyArgs arg-2 arg-1 arg-0 lhs extra))))))))))))) +(define Parser-TTImp-case_ (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-keyword "case") (lambda () (lambda (_-4196) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scr) (vector 7 1 (Source-Rule-Parser-keyword "of") (lambda () (lambda (_-4213) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-caseAlt arg-0 eta-0))) (lambda (alts) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (let ((fc (vector 0 arg-0 start end))) (vector 4 fc scr (vector 31 fc 1) alts)))))))))))))))))))) +(define Parser-TTImp-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-4280) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-4288) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-4303) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 arg-2 end) arg-3 rhs)))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "impossible") (lambda () (lambda (_-4335) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-4343) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 2 (vector 0 arg-0 arg-2 end) arg-3))))))))))))) (define Parser-TTImp-caseAlt (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Parser-TTImp-appExpr arg-0 arg-1) (lambda () (lambda (lhs) (Parser-TTImp-caseRHS arg-0 arg-1 start lhs)))))))) (define Parser-TTImp-binder (lambda (arg-0 arg-1) (vector 9 0 0 (Parser-TTImp-autoImplicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-forall_ arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-implicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-explicitPi arg-0 arg-1) (lambda () (vector 9 0 0 (Parser-TTImp-lam arg-0 arg-1) (lambda () (Parser-TTImp-let_ arg-0 arg-1))))))))))))) -(define Parser-TTImp-bindSymbol (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) (Basics-Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-2615) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-2632) (vector 0 (vector 2 ))))))))) -(define Parser-TTImp-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Basics-Prelude-C-124C-124 0 (lambda () 0)) (vector 31 (vector 0 arg-0 arg-1 end) 1) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-3237) (Parser-TTImp-appExpr arg-0 arg-2))))) (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 (vector 1 n) ty))))))))))))))))) -(define Parser-TTImp-autoImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-3489) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-3499) (vector 8 1 0 (vector 5 ) (lambda (_-3508) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3524) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-3533) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope)))))))))))))))))))))))))))) -(define Parser-TTImp-atom (lambda (arg-0) (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 27 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-1966) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 28 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-2005) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 0))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-2047) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 1))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-2089) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) (Types-Prelude-fromInteger_Num__Nat 1000)))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Basics-Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "$") (lambda () (lambda (_-2172) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 16 (vector 0 arg-0 start end) x)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 29 (vector 0 arg-0 start end) x))))))))))))))))))))))))) -(define Parser-TTImp-as (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol "@") (lambda () (lambda (_-3034) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (pat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 17 (vector 0 arg-0 start end) (vector 1 ) (vector 1 x) pat))))))))))))))))) -(define Parser-TTImp-argExpr (lambda (arg-0 arg-1) (vector 9 0 0 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-2787) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 0 arg))))))) (lambda () (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-2811) (vector 7 1 (Parser-TTImp-implicitArg arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 1 arg))))))))))) -(define Parser-TTImp-appExpr (lambda (arg-0 arg-1) (vector 9 0 (Basics-Prelude-C-38C-38 0 (lambda () (Basics-Prelude-C-124C-124 1 (lambda () 0)))) (Parser-TTImp-case_ arg-0 arg-1) (lambda () (vector 9 0 (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Parser-TTImp-lazy arg-0 arg-1) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (f) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-TTImp-argExpr arg-0 arg-1)) (lambda (args) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7597-2700-applyExpImp arg-1 arg-0 start end f args))))))))))))))))) -(define GenerateDef-Interactive-TTImp-case--makeDefN-5056 (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))) (lambda (eta-0) (vector 1 e-2)))))) -(define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32propBindableUsed-4970 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) 1.0) (else (Num-Prelude-C-47_Fractional__Double (Types-Prelude-cast_Cast__Nat_Double arg-2) (Types-Prelude-cast_Cast__Nat_Double arg-1))))))) -(define GenerateDef-Interactive-TTImp-case--propBindableUsed-4956 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32propBindableUsed-4970 arg-0 e-2 e-3 (Types-Prelude-C-61C-61_Eq__Nat e-2 0))))))) -(define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32propBindableUsedC-44getProp-4903 (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 arg-3 arg-4)) (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))) (vector 0 (Types-Prelude-C-43_Num__Nat arg-3 (List-Types-Prelude-length 'erased (List-Data-nub 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (Name-Core-C-61C-61_Eq__Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-6 arg-7)))) e-5))) (Types-Prelude-C-43_Num__Nat arg-4 (List-Types-Prelude-length 'erased (List-Data-nub 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (Name-Core-C-61C-61_Eq__Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-6 arg-7)))) e-6))))))))))))) -(define GenerateDef-Interactive-TTImp-case--propBindableUsedC-44getProp-4888 (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))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32propBindableUsedC-44getProp-4903 arg-0 arg-1 arg-2 e-2 e-3 (GenerateDef-Interactive-TTImp-bindableUsed arg-1))))))) -(define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32makeDef-4802 (lambda (arg-0 arg-1 arg-2 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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (GenerateDef-Interactive-TTImp-makeDefFromType arg-4 arg-3 arg-2 arg-5 eta-0 eta-1 eta-2 eta-3 eta-4)))))))))))))))))))) -(define GenerateDef-Interactive-TTImp-case--makeDef-4732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-4 e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-4 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Searching for " (Name-Core-show_Show__Name e-7))) e-14 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((opts (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32makeDef-4802 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-9 e-13 e-14 _-0 e-7 e-8 (ExprSearch-Interactive-TTImp-initSearchOpts 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (GenerateDef-Interactive-TTImp-makeDefFromType arg-4 arg-3 arg-2 e-5 opts e-7 e-13 e-14 eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) -(define GenerateDef-Interactive-TTImp-case--makeDefFromType-4588 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-mkSplits arg-7 arg-6 arg-5 arg-4 arg-3 e-1 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-7 arg-8))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (set-box! arg-6 arg-9))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-5 arg-10))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (ExprSearch-Interactive-TTImp-map_Functor__Search 'erased 'erased (lambda (c) (vector 0 arg-4 c)) e-5)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-2) eta-0))))))) -(define GenerateDef-Interactive-TTImp-case--mkSplits-4493 (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 1 0 e-9)))))))))))) -(define GenerateDef-Interactive-TTImp-case--mkSplits-4457 (lambda (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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))) (else (lambda (eta-0) (GenerateDef-Interactive-TTImp-expandClause arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0))))))) -(define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32generateSplits-4232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (GenerateDef-Interactive-TTImp-splittableNames arg-1)) (else (List-Data-reverse 'erased (GenerateDef-Interactive-TTImp-splittableNames arg-1))))))) -(define GenerateDef-Interactive-TTImp-case--generateSplits-4204 (lambda (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 ((splitnames (let ((_-0 (vector 0 e-2 e-3))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32generateSplits-4232 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 _-0 (let ((sc1 arg-4)) (let ((e-6 (vector-ref sc1 7))) e-6)))))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (GenerateDef-Interactive-TTImp-trySplit arg-8 arg-7 arg-6 arg-2 arg-1 e-2 arg-0 eta-0 eta-1))) splitnames))))))) -(define GenerateDef-Interactive-TTImp-case--trySplit-4107 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-4 (GenerateDef-Interactive-TTImp-n--12340-3955-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--12340-3953-valid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) e-1)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-0 (vector 0 ))))))))) -(define GenerateDef-Interactive-TTImp-case--trySplitC-44updateLHS-4042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12340-3954-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))) -(define GenerateDef-Interactive-TTImp-case--trySplitC-44updateLHS-3984 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12340-3954-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))) -(define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandClause-3684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Expression search for " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x))))) (vector 0 arg-17 arg-16))))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (ExprSearch-Interactive-TTImp-exprSearchOpts arg-0 arg-6 arg-5 arg-3 arg-4 (vector 8 arg-16) (vector 0 ) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-traverse 'erased 'erased (lambda (rhsC-39) (let ((rhsraw (GenerateDef-Interactive-TTImp-n--11860-3531-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 rhsC-39))) (lambda (eta-1) (let ((act-26 ((Normalise-Core-logTermNF arg-9 arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got clause") arg-12 arg-11) eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 ((Context-Core-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp rhsraw)))) eta-1))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (GenerateDef-Interactive-TTImp-n--11860-3530-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 rhsraw) (vector 0 )))))))))))))) e-6) eta-0)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No searchable hole on RHS") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No searchable hole on RHS") eta-0))))))) -(define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandClause-3631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 8 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((7) (let ((e-9 (vector-ref sc4 1))) (let ((act-26 ((Context-Core-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Expression search for " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x))))) (vector 0 e-2 e-3))))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((act-27 (ExprSearch-Interactive-TTImp-exprSearchOpts arg-0 arg-6 arg-5 arg-3 arg-4 (vector 8 e-3) (vector 0 ) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) ((ExprSearch-Interactive-TTImp-traverse 'erased 'erased (lambda (rhsC-39) (let ((rhsraw (GenerateDef-Interactive-TTImp-n--11860-3531-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-9 rhsC-39))) (lambda (eta-1) (let ((act-28 ((Normalise-Core-logTermNF arg-9 arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got clause") arg-12 arg-11) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((act-29 ((Context-Core-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp rhsraw)))) eta-1))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (vector 1 (vector 1 (GenerateDef-Interactive-TTImp-n--11860-3530-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 rhsraw) (vector 0 )))))))))))))) e-11) eta-0))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No searchable hole on RHS") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No searchable hole on RHS") eta-0))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No searchable hole on RHS") eta-0))))))) +(define Parser-TTImp-bindSymbol (lambda () (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 1)) (Basics-Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-2621) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-2638) (vector 0 (vector 2 ))))))))) +(define Parser-TTImp-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Source-Rule-Parser-symbol ",") (vector 8 1 0 (Parser-TTImp-multiplicity) (lambda (rigc) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 8 1 1 (Parser-Text-option 'erased 'erased (Basics-Prelude-C-124C-124 0 (lambda () 0)) (vector 31 (vector 0 arg-0 arg-1 end) 1) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-3243) (Parser-TTImp-appExpr arg-0 arg-2))))) (lambda (ty) (vector 8 1 1 (Parser-TTImp-getMult rigc) (lambda (rig) (vector 0 (vector 0 rig (vector 0 (vector 1 n) ty))))))))))))))))) +(define Parser-TTImp-autoImplicitPi (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-3495) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-3505) (vector 8 1 0 (vector 5 ) (lambda (_-3514) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-3530) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-3539) (vector 7 1 (Parser-TTImp-typeExpr arg-0 arg-1) (lambda () (lambda (scope) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope)))))))))))))))))))))))))))) +(define Parser-TTImp-atom (lambda (arg-0) (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-constant) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 27 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-exactIdent "Type") (lambda () (lambda (_-1972) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 28 (vector 0 arg-0 start end)))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "_") (lambda () (lambda (_-2011) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 0))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-symbol "?") (lambda () (lambda (_-2053) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 31 (vector 0 arg-0 start end) 1))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-pragma "search") (lambda () (lambda (_-2095) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 11 (vector 0 arg-0 start end) (Types-Prelude-fromInteger_Num__Nat 1000)))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) 0 (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 0 (vector 0 arg-0 start end) x))))))))) (lambda () (vector 9 (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Basics-Prelude-C-124C-124 1 (lambda () 0)) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-symbol "$") (lambda () (lambda (_-2178) (vector 7 1 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 16 (vector 0 arg-0 start end) x)))))))))))) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Source-Rule-Parser-holeName) (lambda () (lambda (x) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 29 (vector 0 arg-0 start end) x))))))))))))))))))))))))) +(define Parser-TTImp-as (lambda (arg-0 arg-1) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (x) (vector 7 0 (Source-Rule-Parser-symbol "@") (lambda () (lambda (_-3040) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (pat) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (vector 17 (vector 0 arg-0 start end) (vector 1 ) (vector 1 x) pat))))))))))))))))) +(define Parser-TTImp-argExpr (lambda (arg-0 arg-1) (vector 9 0 0 (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-2793) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 0 arg))))))) (lambda () (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-2817) (vector 7 1 (Parser-TTImp-implicitArg arg-0 arg-1) (lambda () (lambda (arg) (vector 0 (vector 1 arg))))))))))) +(define Parser-TTImp-appExpr (lambda (arg-0 arg-1) (vector 9 0 (Basics-Prelude-C-38C-38 0 (lambda () (Basics-Prelude-C-124C-124 1 (lambda () 0)))) (Parser-TTImp-case_ arg-0 arg-1) (lambda () (vector 9 0 (Basics-Prelude-C-124C-124 1 (lambda () 0)) (Parser-TTImp-lazy arg-0 arg-1) (lambda () (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (start) (vector 7 1 (Parser-TTImp-simpleExpr arg-0 arg-1) (lambda () (lambda (f) (vector 8 1 1 (Parser-Text-many 'erased 'erased (Parser-TTImp-argExpr arg-0 arg-1)) (lambda (args) (vector 8 1 1 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (end) (vector 0 (Parser-TTImp-n--7390-2706-applyExpImp arg-1 arg-0 start end f args))))))))))))))))) +(define GenerateDef-Interactive-TTImp-case--makeDefN-5044 (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))) (lambda (eta-0) (vector 1 e-2)))))) +(define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32propBindableUsed-4958 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) 1.0) (else (Num-Prelude-C-47_Fractional__Double (Types-Prelude-cast_Cast__Nat_Double arg-2) (Types-Prelude-cast_Cast__Nat_Double arg-1))))))) +(define GenerateDef-Interactive-TTImp-case--propBindableUsed-4944 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32propBindableUsed-4958 arg-0 e-2 e-3 (Types-Prelude-C-61C-61_Eq__Nat e-2 0))))))) +(define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32propBindableUsedC-44getProp-4891 (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 arg-3 arg-4)) (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))) (vector 0 (Types-Prelude-C-43_Num__Nat arg-3 (List-Types-Prelude-length 'erased (List-Data-nub 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (Name-Core-C-61C-61_Eq__Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-6 arg-7)))) e-5))) (Types-Prelude-C-43_Num__Nat arg-4 (List-Types-Prelude-length 'erased (List-Data-nub 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (Name-Core-C-61C-61_Eq__Name arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-6 arg-7)))) e-6))))))))))))) +(define GenerateDef-Interactive-TTImp-case--propBindableUsedC-44getProp-4876 (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))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32propBindableUsedC-44getProp-4891 arg-0 arg-1 arg-2 e-2 e-3 (GenerateDef-Interactive-TTImp-bindableUsed arg-1))))))) +(define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32makeDef-4790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (GenerateDef-Interactive-TTImp-makeDefFromType arg-4 arg-3 arg-2 arg-5 eta-0 eta-1 eta-2 eta-3 eta-4)))))))))))))))))))) +(define GenerateDef-Interactive-TTImp-case--makeDef-4722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((sc3 e-10)) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-4 e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Searching for " (Name-Core-show_Show__Name e-7))) e-14 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((opts (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 (vector 0 e-13 e-14)))))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32makeDef-4790 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-9 e-13 e-14 _-0 e-7 e-8 (ExprSearch-Interactive-TTImp-initSearchOpts 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (GenerateDef-Interactive-TTImp-makeDefFromType arg-4 arg-3 arg-2 e-5 opts e-7 e-13 e-14 eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define GenerateDef-Interactive-TTImp-case--makeDefFromType-4578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-mkSplits arg-7 arg-6 arg-5 arg-4 arg-3 e-1 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-7 arg-8))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (set-box! arg-6 arg-9))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-5 arg-10))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (ExprSearch-Interactive-TTImp-map_Functor__Search 'erased 'erased (lambda (c) (vector 0 arg-4 c)) e-5)))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-2) eta-0))))))) +(define GenerateDef-Interactive-TTImp-case--mkSplits-4483 (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 1 0 e-9)))))))))))) +(define GenerateDef-Interactive-TTImp-case--mkSplits-4447 (lambda (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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))) (else (lambda (eta-0) (GenerateDef-Interactive-TTImp-expandClause arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 eta-0))))))) +(define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32generateSplits-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) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (GenerateDef-Interactive-TTImp-splittableNames arg-1)) (else (List-Data-reverse 'erased (GenerateDef-Interactive-TTImp-splittableNames arg-1))))))) +(define GenerateDef-Interactive-TTImp-case--generateSplits-4198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((splitnames (let ((_-0 (vector 0 e-2 e-3))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32generateSplits-4226 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3 e-2 _-0 (let ((sc1 arg-4)) (let ((e-6 (vector-ref sc1 7))) e-6)))))) (Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (GenerateDef-Interactive-TTImp-trySplit arg-8 arg-7 arg-6 arg-2 arg-1 e-2 arg-0 eta-0 eta-1))) splitnames))))))) +(define GenerateDef-Interactive-TTImp-case--trySplit-4101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-4 (GenerateDef-Interactive-TTImp-n--12153-3949-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--12153-3947-valid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) e-1)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-0 (vector 0 ))))))))) +(define GenerateDef-Interactive-TTImp-case--trySplitC-44updateLHS-4036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12153-3948-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))) +(define GenerateDef-Interactive-TTImp-case--trySplitC-44updateLHS-3978 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12153-3948-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))) +(define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandClause-3684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Expression search for " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x))))) (vector 0 arg-17 arg-16)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (ExprSearch-Interactive-TTImp-exprSearchOpts arg-0 arg-6 arg-5 arg-3 arg-4 (vector 8 arg-16) (vector 0 ) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-traverse 'erased 'erased (lambda (rhsC-39) (let ((rhsraw (GenerateDef-Interactive-TTImp-n--11679-3531-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 rhsC-39))) (lambda (eta-1) (let ((act-26 (Normalise-Core-logTermNF arg-9 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got clause") arg-12 arg-11 eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp rhsraw))) eta-1))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (GenerateDef-Interactive-TTImp-n--11679-3530-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 rhsraw) (vector 0 )))))))))))))) e-6) eta-0)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No searchable hole on RHS") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No searchable hole on RHS") eta-0))))))) +(define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandClause-3631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupDefExact (vector 8 e-3) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((7) (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Expression search for " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x))))) (vector 0 e-2 e-3)))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((act-27 (ExprSearch-Interactive-TTImp-exprSearchOpts arg-0 arg-6 arg-5 arg-3 arg-4 (vector 8 e-3) (vector 0 ) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) ((ExprSearch-Interactive-TTImp-traverse 'erased 'erased (lambda (rhsC-39) (let ((rhsraw (GenerateDef-Interactive-TTImp-n--11679-3531-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-9 rhsC-39))) (lambda (eta-1) (let ((act-28 (Normalise-Core-logTermNF arg-9 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got clause") arg-12 arg-11 eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((act-29 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp rhsraw))) eta-1))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (vector 1 (vector 1 (GenerateDef-Interactive-TTImp-n--11679-3530-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 rhsraw) (vector 0 )))))))))))))) e-11) eta-0))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No searchable hole on RHS") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No searchable hole on RHS") eta-0))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-4 "No searchable hole on RHS") eta-0))))))) (define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32expandClause-3608 (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 ((clause (vector 0 e-0 e-1 e-2 e-3))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandClause-3631 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 (TT-Core-getFn 'erased e-3)))))))))) (define GenerateDef-Interactive-TTImp-case--expandClause-3586 (lambda (arg-0 arg-1 arg-2 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))) (let ((clause (vector 0 e-0 e-1 e-4 e-3))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandClause-3631 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 (TT-Core-getFn 'erased e-3))))))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) (define GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32fnName-3469 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 arg-0 ")"))) (else "op"))))) (define GenerateDef-Interactive-TTImp-case--fnName-3456 (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-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 arg-0 ")"))) (else "op")))))))) -(define GenerateDef-Interactive-TTImp-n--12340-3953-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--11860-3530-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-8)))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (vector 1 e-3 e-4 e-5 e-6 e-7))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 e-9)))))))) -(define GenerateDef-Interactive-TTImp-n--12340-3955-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--trySplitC-44updateLHS-3984 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-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) e-1 arg-8))))) ((16) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--trySplitC-44updateLHS-4042 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-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) (vector 1 e-3) arg-8))))) ((8) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (vector 8 e-4 (GenerateDef-Interactive-TTImp-n--12340-3955-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--12340-3955-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--12340-3955-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--12340-3955-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--11820-3490-mkUniqueName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((29) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Utils-TTImp-uniqueName e-5 (vector 0 ) e-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 29 e-0 e-6))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) -(define GenerateDef-Interactive-TTImp-n--13371-4870-getProp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 0 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--propBindableUsedC-44getProp-4888 arg-0 e-2 e-3 (GenerateDef-Interactive-TTImp-n--13371-4870-getProp arg-0 e-3))))))))) -(define GenerateDef-Interactive-TTImp-n--12340-3954-fixNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 16 e-0 e-9))) ((2) (vector 31 e-0 0))(else arg-8)))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 8 e-2 (GenerateDef-Interactive-TTImp-n--12340-3954-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (GenerateDef-Interactive-TTImp-n--12340-3954-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--12340-3954-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--12340-3954-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--11860-3531-dropLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-8)(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-6 (vector-ref sc0 6))) (GenerateDef-Interactive-TTImp-n--11860-3531-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-6)))(else arg-8))))))))) -(define GenerateDef-Interactive-TTImp-uniqueRHS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-n--11820-3490-mkUniqueName e-2 e-1 e-0 arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) -(define GenerateDef-Interactive-TTImp-trySplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-getSplitsLHS arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (vector 1 (vector 0 arg-7 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-3 (GenerateDef-Interactive-TTImp-n--12340-3955-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--12340-3953-valid arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-1))))))(else (vector 1 (vector 0 arg-7 (vector 0 ))))))))))))) -(define GenerateDef-Interactive-TTImp-tryAllSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Splitting on " (Name-Core-show_Show__Name e-6)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((ExprSearch-Interactive-TTImp-trySearch 'erased arg-0 arg-2 (lambda (eta-1) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (GenerateDef-Interactive-TTImp-mkSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-2)) e-7) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((GenerateDef-Interactive-TTImp-collectClauses arg-0 arg-2 e-8) eta-1))))))) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3)) eta-0))))))))))))))))))) +(define GenerateDef-Interactive-TTImp-n--12153-3947-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--11679-3530-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 arg-8)))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (vector 1 e-3 e-4 e-5 e-6 e-7))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (vector 2 e-8 e-9)))))))) +(define GenerateDef-Interactive-TTImp-n--12153-3949-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--trySplitC-44updateLHS-3978 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-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) e-1 arg-8))))) ((16) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--trySplitC-44updateLHS-4036 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-10) (lambda (arg-11) (Name-Core-C-61C-61_Eq__Name arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Name-Core-C-47C-61_Eq__Name arg-10 arg-11)))) (vector 1 e-3) arg-8))))) ((8) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (vector 8 e-4 (GenerateDef-Interactive-TTImp-n--12153-3949-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--12153-3949-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--12153-3949-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--12153-3949-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--11639-3490-mkUniqueName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((29) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-3))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Utils-TTImp-uniqueName e-5 (vector 0 ) e-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 29 e-0 e-6))))))))))))))))(else (lambda (eta-0) (vector 1 arg-4))))))) +(define GenerateDef-Interactive-TTImp-n--13178-4858-getProp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 0 0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--propBindableUsedC-44getProp-4876 arg-0 e-2 e-3 (GenerateDef-Interactive-TTImp-n--13178-4858-getProp arg-0 e-3))))))))) +(define GenerateDef-Interactive-TTImp-n--12153-3948-fixNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 16 e-0 e-9))) ((2) (vector 31 e-0 0))(else arg-8)))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 8 e-2 (GenerateDef-Interactive-TTImp-n--12153-3948-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (GenerateDef-Interactive-TTImp-n--12153-3948-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--12153-3948-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--12153-3948-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--11679-3531-dropLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (cond ((equal? sc0 0) arg-8)(else (let ((e-0 (- arg-7 1))) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-6 (vector-ref sc0 6))) (GenerateDef-Interactive-TTImp-n--11679-3531-dropLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 e-6)))(else arg-8))))))))) +(define GenerateDef-Interactive-TTImp-uniqueRHS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-n--11639-3490-mkUniqueName e-2 e-1 e-0 arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) +(define GenerateDef-Interactive-TTImp-trySplit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-getSplitsLHS arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-7) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (vector 1 (vector 0 arg-7 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-3 (GenerateDef-Interactive-TTImp-n--12153-3949-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--12153-3947-valid arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-1))))))(else (vector 1 (vector 0 arg-7 (vector 0 ))))))))))))) +(define GenerateDef-Interactive-TTImp-tryAllSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Splitting on " (Name-Core-show_Show__Name e-6))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((ExprSearch-Interactive-TTImp-trySearch 'erased arg-0 arg-2 (lambda (eta-1) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (GenerateDef-Interactive-TTImp-mkSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 eta-2)) e-7) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((GenerateDef-Interactive-TTImp-collectClauses arg-0 arg-2 e-8) eta-1))))))) (GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-Types-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-propBindableUsed (lambda (arg-0) (GenerateDef-Interactive-TTImp-case--propBindableUsed-4956 arg-0 (GenerateDef-Interactive-TTImp-n--13371-4870-getProp arg-0 arg-0)))) +(define GenerateDef-Interactive-TTImp-propBindableUsed (lambda (arg-0) (GenerateDef-Interactive-TTImp-case--propBindableUsed-4944 arg-0 (GenerateDef-Interactive-TTImp-n--13178-4858-getProp arg-0 arg-0)))) (define GenerateDef-Interactive-TTImp-mostUsed (lambda (arg-0 arg-1) (EqOrd-Prelude-compare_Ord__Double (GenerateDef-Interactive-TTImp-propBindableUsed arg-1) (GenerateDef-Interactive-TTImp-propBindableUsed arg-0)))) -(define GenerateDef-Interactive-TTImp-mkSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (ExprSearch-Interactive-TTImp-trySearch 'erased arg-0 arg-2 (GenerateDef-Interactive-TTImp-case--mkSplits-4457 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-4)) (let ((e-7 (vector-ref sc0 8))) e-7))) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-generateSplits arg-1 arg-0 arg-2 arg-3 arg-4 arg-5 arg-6) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-log arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Splits: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d-1 x-1)))) d-0 x-0))))) d x)))) e-5)))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-10 (vector-ref sc2 7))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-11 e-10 1 0 e-9)))))))))) arg-5 e-5) eta-0)))))))))))))) +(define GenerateDef-Interactive-TTImp-mkSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (ExprSearch-Interactive-TTImp-trySearch 'erased arg-0 arg-2 (GenerateDef-Interactive-TTImp-case--mkSplits-4447 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-4)) (let ((e-7 (vector-ref sc0 8))) e-7))) (lambda (eta-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-generateSplits arg-1 arg-0 arg-2 arg-3 arg-4 arg-5 arg-6) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Splits: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-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) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-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) (Show-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) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__ImpClause x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__ImpClause d-1 x-1)))) d-0 x-0))))) d x)))) e-5))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((GenerateDef-Interactive-TTImp-tryAllSplits arg-0 arg-1 arg-2 arg-3 (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-10 (vector-ref sc2 7))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-11 e-10 1 0 e-9)))))))))) arg-5 e-5) eta-0)))))))))))))) (define GenerateDef-Interactive-TTImp-makeDefSort (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (ExprSearch-Interactive-TTImp-searchSort 'erased arg-0 arg-2 arg-4 (lambda (eta-0) (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-1 arg-2 arg-3 arg-6 eta-0)) (lambda (x) (lambda (y) ((arg-5 (Builtin-snd 'erased 'erased x)) (Builtin-snd 'erased 'erased y)))) ext-0))) (define GenerateDef-Interactive-TTImp-makeDefN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (ExprSearch-Interactive-TTImp-searchN 'erased arg-0 arg-2 arg-4 (lambda (eta-0) (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-1 arg-2 arg-3 arg-5 eta-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2)))))))))) -(define GenerateDef-Interactive-TTImp-makeDefFromType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (UnifyState-Core-tryUnify 'erased arg-0 arg-2 (lambda (eta-0) (let ((act-24 (Context-Core-branch arg-0 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-2))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-7) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 e-5 arg-6 e-8) eta-0)))))))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((pre_env (List-Data-replicate 'erased arg-6 (vector 31 arg-3 0)))) (let ((act-28 (Utils-TTImp-uniqueName e-5 (vector 0 ) (Strings-Types-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 arg-5) "_rhs") eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((initcs (vector 0 arg-3 (TTImp-TTImp-apply (vector 0 arg-3 arg-5) (List-Types-Prelude-C-43C-43 'erased pre_env (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-3 eta-1)) e-8))) (vector 29 arg-3 e-9)))) ((GenerateDef-Interactive-TTImp-case--makeDefFromType-4588 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 pre_env e-9 initcs (Context-Core-getNameID arg-5 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0))))))))))))))))))))))))))))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0)) ext-0))) -(define GenerateDef-Interactive-TTImp-makeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Metadata-Core-findTyDeclAt arg-1 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((act-25 ((Context-Core-getFullName arg-0 e-9) ext-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-0 "interaction.generate" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Searching for " (Name-Core-show_Show__Name e-8))) e-14 ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((opts (let ((_-0 (vector 1 (vector 0 e-7 (vector 0 e-9 (vector 0 e-13 e-14)))))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32makeDef-4802 arg-4 arg-3 arg-2 arg-1 arg-0 e-7 e-9 e-13 e-14 _-0 e-8 e-11 (ExprSearch-Interactive-TTImp-initSearchOpts 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (GenerateDef-Interactive-TTImp-makeDefFromType arg-0 arg-1 arg-2 e-7 opts e-8 e-13 e-14 ext-0))))))))))))))))))))))) (else (ExprSearch-Interactive-TTImp-noResult 'erased ext-0))))))))))) -(define GenerateDef-Interactive-TTImp-generateSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-1 arg-0 arg-2 arg-5 (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-8) (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((splitnames (let ((_-0 (vector 0 e-2 e-3))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32generateSplits-4232 e-9 e-8 e-7 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-3 e-2 _-0 (let ((sc3 arg-4)) (let ((e-6 (vector-ref sc3 7))) e-6)))))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (GenerateDef-Interactive-TTImp-trySplit arg-0 arg-1 arg-2 e-7 e-8 e-2 e-9 eta-1 eta-2))) splitnames) eta-0))))))))))))))))))) +(define GenerateDef-Interactive-TTImp-makeDefFromType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (UnifyState-Core-tryUnify 'erased arg-0 arg-2 (lambda (eta-0) (let ((act-24 (Context-Core-branch arg-0 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-2))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-7) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 e-5 arg-6 e-8) eta-0)))))))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((pre_env (List-Data-replicate 'erased arg-6 (vector 31 arg-3 0)))) (let ((act-28 (Utils-TTImp-uniqueName e-5 (vector 0 ) (Strings-Types-Prelude-C-43C-43 (GenerateDef-Interactive-TTImp-fnName 1 arg-5) "_rhs") eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((initcs (vector 0 arg-3 (TTImp-TTImp-apply (vector 0 arg-3 arg-5) (List-Types-Prelude-C-43C-43 'erased pre_env (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-3 eta-1)) e-8))) (vector 29 arg-3 e-9)))) ((GenerateDef-Interactive-TTImp-case--makeDefFromType-4578 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 pre_env e-9 initcs (Context-Core-getNameID arg-5 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0))))))))))))))))))))))))))))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0)) ext-0))) +(define GenerateDef-Interactive-TTImp-makeDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Metadata-Core-findTyDeclAt arg-1 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((act-25 ((Context-Core-getFullName arg-0 e-9) ext-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-26 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Searching for " (Name-Core-show_Show__Name e-8))) e-14 ext-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((opts (let ((_-0 (vector 1 (vector 0 e-7 (vector 0 e-9 (vector 0 e-13 e-14)))))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32makeDef-4790 arg-4 arg-3 arg-2 arg-1 arg-0 e-7 e-9 e-13 e-14 _-0 e-8 e-11 (ExprSearch-Interactive-TTImp-initSearchOpts 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (GenerateDef-Interactive-TTImp-makeDefFromType arg-0 arg-1 arg-2 e-7 opts e-8 e-13 e-14 ext-0))))))))))))))))))))))) (else (ExprSearch-Interactive-TTImp-noResult 'erased ext-0))))))))))) +(define GenerateDef-Interactive-TTImp-generateSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-elabTerm (vector 0 ) arg-1 arg-0 arg-2 arg-5 (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-8) (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((splitnames (let ((_-0 (vector 0 e-2 e-3))) (GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32generateSplits-4226 e-9 e-8 e-7 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-3 e-2 _-0 (let ((sc3 arg-4)) (let ((e-6 (vector-ref sc3 7))) e-6)))))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (GenerateDef-Interactive-TTImp-trySplit arg-0 arg-1 arg-2 e-7 e-8 e-2 e-9 eta-1 eta-2))) splitnames) 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--fnName-3456 e-0 arg-0 (Common-Lexer-Parser-isIdentNormal e-0)))) ((0) (let ((e-2 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-fnName arg-0 e-2))) ((4) (let ((e-3 (vector-ref sc0 1))) e-3))(else (Name-Core-nameRoot arg-1)))))) (define GenerateDef-Interactive-TTImp-expandClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((GenerateDef-Interactive-TTImp-uniqueRHS arg-0 arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ProcessDef-TTImp-checkClause (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) 1 arg-5 (vector 0 ) (vector 0 ) (vector 0 ) e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-2))) (let ((sc3 e-2)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-4 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32expandClause-3631 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 _-0 e-0 e-3 e-4 e-1 clause (TT-Core-getFn 'erased e-3)) ext-0)))))))))) (else (ExprSearch-Interactive-TTImp-noResult 'erased ext-0)))))))))))))))) (define GenerateDef-Interactive-TTImp-collectClauses (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-one '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-24 ((GenerateDef-Interactive-TTImp-collectClauses arg-0 arg-1 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-combine 'erased 'erased 'erased arg-0 arg-1 (lambda (eta-1) (lambda (eta-2) (List-Types-Prelude-C-43C-43 'erased eta-1 eta-2))) e-2 e-5) eta-0)))))))))))))) (define GenerateDef-Interactive-TTImp-bindableUsed (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((lhsns (Utils-TTImp-findIBindVars e-1))) (let ((rhsns (Utils-TTImp-findAllNames (vector 0 ) e-2))) (vector 1 (vector 0 lhsns (List-Data-filter 'erased (lambda (x) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) x lhsns)) rhsns))))))))(else (vector 0 )))))) -(define ExprSearch-Interactive-TTImp-case--exprSearchN-11475 (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) (vector 1 e-2)))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32exprSearchOpts-11361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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))) (vector 0 e-0 e-1 arg-14 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32exprSearchOpts-11310 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((ExprSearch-Interactive-TTImp-getLHSData arg-6 arg-7 arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-3))))))) -(define ExprSearch-Interactive-TTImp-case--exprSearchOpts-11211 (lambda (arg-0 arg-1 arg-2 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))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-6 (vector 8 e-9)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Metadata-Core-findHoleLHS arg-5 e-7 eta-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-log arg-6 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "LHS hole data " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 e-5 e-7))))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32exprSearchOpts-11310 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-9 e-10 _-0 e-7 e-8 (let ((sc5 arg-3)) (let ((e-16 (vector-ref sc5 2))) e-16))) eta-0)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (ExprSearch-Interactive-TTImp-search arg-6 arg-5 arg-4 arg-2 (let ((sc6 e-10)) (let ((e-25 (vector-ref sc6 8))) e-25)) e-11 (let ((sc6 e-10)) (let ((e-2 (vector-ref sc6 3))) e-2)) e-5 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) ((ExprSearch-Interactive-TTImp-firstLinearOK arg-6 arg-5 arg-4 arg-2 e-12) 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--caseC-32blockC-32inC-32exprSearchOptsC-44lookupHoleName-11140 (lambda (arg-0 arg-1 arg-2 arg-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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--exprSearchOptsC-44lookupHoleName-11076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-8 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-8 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))) -(define ExprSearch-Interactive-TTImp-case--getLHSDataC-44getLHS-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-3 (vector-ref sc0 3))) (vector 1 (vector 0 arg-3 e-3 arg-4))))(else (vector 0 )))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32search-10629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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 ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-searchHole arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-9 e-0 arg-1 arg-8 arg-11 eta-0)))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-8 (vector 0 ) (let ((sc1 arg-11)) (let ((e-23 (vector-ref sc1 3))) e-23)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (ExprSearch-Interactive-TTImp-searchHole arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-9 e-5 arg-1 arg-8 arg-11 eta-0))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-7 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a hole"))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Not a hole: " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-9) (Strings-Types-Prelude-C-43C-43 " in " (Show-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)))) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))) eta-0))))))))))) -(define ExprSearch-Interactive-TTImp-case--search-10598 (lambda (arg-0 arg-1 arg-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) ((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--caseC-32blockC-32inC-32search-10629 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4 e-8 e-9 bind-0 (let ((sc3 e-9)) (let ((e-17 (vector-ref sc3 18))) e-17)))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-7 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found"))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-0) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-7 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found"))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-0) eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-7 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found"))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-0) eta-0))))))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchC-44lookupHoleName-10523 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--searchC-44lookupHoleName-10455 (lambda (arg-0 arg-1 arg-2 arg-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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-9 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-9 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10340 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (vector 1 (ExprSearch-Interactive-TTImp-tryIntermediate arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (vector 0 ))) (else (vector 0 )))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10271 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (ExprSearch-Interactive-TTImp-tryIntermediateRec arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 (let ((sc1 arg-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) (vector 0 ))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 e-2 eta-0)) (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9966 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 e-2 eta-0)) (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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 1 (ExprSearch-Interactive-TTImp-tryIntermediateRec arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 (let ((sc1 arg-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) (vector 0 ))) (else (vector 0 )))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (vector 1 (ExprSearch-Interactive-TTImp-tryIntermediate arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (vector 0 ))) (else (vector 0 )))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9602 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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) (List-Types-Prelude-C-43C-43 'erased arg-21 (List-Types-Prelude-C-43C-43 'erased arg-23 arg-20))) (else (List-Types-Prelude-C-43C-43 'erased arg-23 (List-Types-Prelude-C-43C-43 'erased arg-20 (List-Types-Prelude-C-43C-43 'erased arg-21 arg-22)))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-9533 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-10 arg-7 1 arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((allHints ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-18) (lambda (arg-19) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-18 arg-19))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)))))) (let ((act-25 ((Context-Core-log arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Hints found for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-13) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) allHints)))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((tries (vector 1 (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (vector 1 (ExprSearch-Interactive-TTImp-searchNames arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 allHints) (vector 0 ))))) (let ((tryRec (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9966 arg-0 arg-1 arg-2 arg-3 arg-4 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 allHints e-6 tries (let ((sc3 arg-5)) (let ((e-2 (vector-ref sc3 3))) e-2))))) (let ((tryIntRec (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9862 arg-0 arg-1 arg-2 arg-3 arg-4 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 allHints e-6 tries tryRec (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 9))) e-8))))) (let ((tryInt (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9755 arg-0 arg-1 arg-2 arg-3 arg-4 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 allHints e-6 tries tryRec tryIntRec (Basics-Prelude-not (let ((sc3 arg-5)) (let ((e-11 (vector-ref sc3 6))) e-11)))))) (let ((allns (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9602 arg-0 arg-1 arg-2 arg-3 arg-4 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 allHints e-6 tries tryRec tryIntRec tryInt (let ((sc3 arg-5)) (let ((e-4 (vector-ref sc3 5))) e-4))))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 0 arg-4 arg-2 arg-3 allns eta-0))))))))))))))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--searchType-9488 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-9533 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-9 e-8 e-7 e-5 e-3 e-10 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased e-3) e-9)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((tryInt (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10340 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-8 (Basics-Prelude-not (let ((sc3 arg-5)) (let ((e-13 (vector-ref sc3 6))) e-13)))))) (let ((tryIntRec (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10271 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-8 tryInt (Basics-Prelude-C-124C-124 (let ((sc3 arg-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) (lambda () (Basics-Prelude-not (let ((sc3 arg-5)) (let ((e-10 (vector-ref sc3 9))) e-10)))))))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 0 arg-4 arg-2 arg-3 (List-Types-Prelude-C-43C-43 'erased tryInt (List-Types-Prelude-C-43C-43 'erased (vector 1 (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (vector 0 )) (List-Types-Prelude-C-43C-43 'erased (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10195 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-8 tryInt tryIntRec (let ((sc3 arg-5)) (let ((e-15 (vector-ref sc3 3))) e-15))) tryIntRec))) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((tryInt (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10340 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 (Basics-Prelude-not (let ((sc2 arg-5)) (let ((e-10 (vector-ref sc2 6))) e-10)))))) (let ((tryIntRec (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10271 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 tryInt (Basics-Prelude-C-124C-124 (let ((sc2 arg-5)) (let ((e-4 (vector-ref sc2 5))) e-4)) (lambda () (Basics-Prelude-not (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 9))) e-8)))))))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 0 arg-4 arg-2 arg-3 (List-Types-Prelude-C-43C-43 'erased tryInt (List-Types-Prelude-C-43C-43 'erased (vector 1 (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (vector 0 )) (List-Types-Prelude-C-43C-43 'erased (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10195 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 tryInt tryIntRec (let ((sc2 arg-5)) (let ((e-12 (vector-ref sc2 3))) e-12))) tryIntRec))) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((tryInt (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10340 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 (Basics-Prelude-not (let ((sc1 arg-5)) (let ((e-10 (vector-ref sc1 6))) e-10)))))) (let ((tryIntRec (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10271 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 tryInt (Basics-Prelude-C-124C-124 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) (lambda () (Basics-Prelude-not (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 9))) e-8)))))))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 0 arg-4 arg-2 arg-3 (List-Types-Prelude-C-43C-43 'erased tryInt (List-Types-Prelude-C-43C-43 'erased (vector 1 (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (vector 0 )) (List-Types-Prelude-C-43C-43 'erased (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10195 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 tryInt tryIntRec (let ((sc1 arg-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) tryIntRec))) eta-0)))))))))))))) -(define ExprSearch-Interactive-TTImp-case--searchType-9419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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))) (vector 0 (vector 3 arg-9 arg-20 (vector 0 arg-7 arg-6 arg-5 arg-4) e-2) e-3)))))) -(define ExprSearch-Interactive-TTImp-case--searchType-9261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 3 arg-10 arg-3 (vector 0 arg-8 arg-7 arg-6 arg-5) e-2) e-3)))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32tryIntermediateRec-9097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (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 (vector 0 ) e-3 e-4 0 e-6 e-7 e-8 e-9)))))))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32tryIntermediateRec-8954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-10 arg-8 "cty" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-10 arg-8 arg-7 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((optsC-39 (let ((sc3 arg-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 (vector 0 ) e-3 e-4 0 e-10 e-7 e-8 e-9)))))))))))) (let ((act-26 (Context-Core-logTerm arg-0 arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying recursive search for") arg-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-10 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (let ((sc4 arg-1)) (let ((e-1 (vector-ref sc4 2))) e-1)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((Context-Core-log arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Name-Core-show_Show__Name e-8))) eta-0)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (Context-Core-toFullNames 'erased arg-10 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) (let ((sc5 arg-1)) (let ((e-2 (vector-ref sc5 3))) e-2)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (Context-Core-logTerm (let ((sc6 arg-1)) (let ((e-0 (vector-ref sc6 1))) e-0)) arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-9 eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 optsC-39 arg-4 e-6 arg-2 arg-1 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 optsC-39 arg-4 e-6 arg-3 e-10) eta-0)))))))))))))))))))))))))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--tryIntermediateRec-8912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-11 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-n--16968-8748-isSingleCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (UnifyState-Core-genVarName arg-10 arg-8 "cty" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-10 arg-8 arg-7 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-6 (vector 11 arg-7) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((optsC-39 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (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-0 e-13 (vector 0 ) e-3 e-4 0 e-11 e-10 e-8 e-9)))))))))))) (let ((act-27 (Context-Core-logTerm arg-0 arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying recursive search for") arg-3 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (Context-Core-toFullNames 'erased arg-10 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (let ((sc6 arg-1)) (let ((e-3 (vector-ref sc6 2))) e-3)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) ((Context-Core-log arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Name-Core-show_Show__Name e-9))) eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (Context-Core-toFullNames 'erased arg-10 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) (let ((sc7 arg-1)) (let ((e-2 (vector-ref sc7 3))) e-2)) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (Context-Core-logTerm (let ((sc8 arg-1)) (let ((e-0 (vector-ref sc8 1))) e-0)) arg-10 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-10 eta-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-30 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 optsC-39 arg-4 e-7 arg-2 arg-1 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 optsC-39 arg-4 e-7 arg-3 e-11) eta-0))))))))))))))))))))))))))))))(else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0)))))))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--tryIntermediateRecC-44isSingleCon-8793 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32tryIntermediateWithC-44applyLocal-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 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-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-6 (vector-ref sc0 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 0 e-6 e-7 e-8 e-9))))))))))))) -(define ExprSearch-Interactive-TTImp-case--tryIntermediateWithC-44applyLocal-8454 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "cty" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-18 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 e-5 (vector 11 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((optsC-39 (let ((sc3 arg-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-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-2 e-3 e-4 0 e-10 e-7 e-8 e-9))))))))))))) (let ((act-26 ((ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-12 arg-11 arg-10 arg-9 0 arg-8 optsC-39 arg-6 (vector 1 (vector 0 arg-1 arg-2) (vector 0 )) e-6 arg-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6 arg-17 e-7) eta-0))))))))))))))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32makeHelper-8169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 1 e-2 arg-13 e-4 0 1 0 e-8 e-9))))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32makeHelper-7974 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((helperdef (vector 2 arg-9 arg-19 (Builtin-snd 'erased 'erased e-5)))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Def: " (TTImp-TTImp-show_Show__ImpDecl helperdef)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (vector 0 arg-24 (vector 1 helperdef arg-2)) (lambda (eta-1) (let ((act-25 (arg-3 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-8) eta-1)))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32makeHelper-7872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-logTermNF (vector 0 ) arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Type of scope name") (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (ExprSearch-Interactive-TTImp-searchN 'erased arg-12 arg-10 (+ 1 0) ((((arg-15 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 5))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 1 e-2 arg-13 e-4 0 1 0 e-8 e-9)))))))) arg-19) 0) e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((helperdef (vector 2 arg-9 arg-19 (Builtin-snd 'erased 'erased e-8)))) (let ((act-26 ((Context-Core-log arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Def: " (TTImp-TTImp-show_Show__ImpDecl helperdef)))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (vector 0 arg-24 (vector 1 helperdef arg-2)) (lambda (eta-1) (let ((act-27 (arg-3 eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-10) eta-1))))))))))))))))(else (let ((act-26 ((Context-Core-log arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results")) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))))(else (let ((act-26 ((Context-Core-log arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results")) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0)))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen") eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32makeHelper-7723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (UnifyState-Core-genVarName arg-12 arg-10 "cval" eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (UnifyState-Core-genCaseName arg-12 arg-10 "search" eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Context-Core-inCurrentNS arg-12 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((envC-39 (vector 1 (vector 0 arg-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-5) arg-6))) (let ((act-28 (Check-Elab-TTImp-metaVar (vector 1 e-6 arg-0) arg-12 arg-10 arg-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) envC-39 e-8 (TT-Core-weaken_Weaken__Term e-6 arg-0 arg-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((scope (ExprSearch-Interactive-TTImp-n--15727-7664-toApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased e-9))) (let ((act-29 (Context-Core-updateDef arg-12 e-8 (lambda (eta-1) (vector 1 (vector 0 ))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((def (vector 4 arg-9 (vector 3 arg-9 e-6 (vector 0 arg-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-5) scope) arg-1))) (let ((act-30 ((Normalise-Core-logTermNF arg-0 arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Binding def") arg-6 def) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-12))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-lookupTyExact e-8 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) e-0)) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((sc10 e-13)) (case (vector-ref sc10 0) ((1) (let ((e-2 (vector-ref sc10 1))) (let ((act-33 ((Normalise-Core-logTermNF (vector 0 ) arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Type of scope name") (vector 0 ) e-2) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-34 (ExprSearch-Interactive-TTImp-searchN 'erased arg-12 arg-10 (+ 1 0) ((((e-1 (let ((sc12 arg-7)) (let ((e-0 (vector-ref sc12 1))) (let ((e-20 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 5))) (let ((e-16 (vector-ref sc12 9))) (let ((e-15 (vector-ref sc12 10))) (vector 0 e-0 1 e-20 arg-13 e-4 0 1 0 e-16 e-15)))))))) e-8) 0) e-2) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-15)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((1) (let ((e-17 (vector-ref sc14 1))) (let ((helperdef (vector 2 arg-9 e-8 (Builtin-snd 'erased 'erased e-17)))) (let ((act-35 ((Context-Core-log arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Def: " (TTImp-TTImp-show_Show__ImpDecl helperdef)))) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (vector 1 (vector 1 (vector 0 def (vector 1 helperdef arg-2)) (lambda (eta-1) (let ((act-36 (arg-3 eta-1))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc16 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-19) eta-1))))))))))))))))(else (let ((act-35 ((Context-Core-log arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results")) eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))))(else (let ((act-35 ((Context-Core-log arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results")) eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen") eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--makeHelper-7679 (lambda (arg-0 arg-1 arg-2 arg-3 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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0)))(else (let ((e-0 (- arg-13 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-12 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local app") arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32makeHelper-7723 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-0 e-5 (let ((sc1 arg-7)) (let ((e-9 (vector-ref sc1 10))) e-9))) eta-0))))))))))))) -(define ExprSearch-Interactive-TTImp-case--searchLocalWithC-44findPos-7372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-6 arg-17 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-6 arg-18 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 1 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-n--14816-6842-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-25) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-n--14816-6842-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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-7120 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 eta-1)) arg-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-mkCandidates arg-0 arg-13 arg-11 arg-10 (arg-16 arg-17) (vector 0 ) e-5) eta-0))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-7002 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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) (ExprSearch-Interactive-TTImp-mkCandidates arg-0 arg-13 arg-11 arg-10 (arg-16 arg-17) (vector 0 ) (vector 0 )))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't use directly") eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-6908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-13 arg-11 (lambda (eta-1) (let ((act-24 (let ((sc1 (Basics-Prelude-C-38C-38 (Basics-Prelude-not (List-Data-isNil 'erased arg-19)) (lambda () arg-9)))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Must apply function") eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-6) arg-14) arg-15) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-7002 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-1)))))))))))) (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-6) arg-14) arg-20) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-7120 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--searchLocalWithC-44findDirect-6861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-6908 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6 arg-15)))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32tryRecursive-6739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-10 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-3))))))))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32tryRecursive-6707 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 (vector 0 ) e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) -(define ExprSearch-Interactive-TTImp-case--tryRecursive-6591 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-11 arg-4 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 (let ((sc2 arg-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 (vector 0 ) e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))) arg-4 e-5 arg-2 (vector 0 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) e-1)) e-2)) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-10))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((ExprSearch-Interactive-TTImp-traverse 'erased 'erased (lambda (lamc-0) (let ((sc3 lamc-0)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-26 (Context-Core-toFullNames 'erased arg-10 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-4 eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 0 e-7 e-3)))))))))))) e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-filterS 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--14005-6107-structDiffTm 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 ((sc4 arg-1)) (let ((e-3 (vector-ref sc4 3))) e-3)) eta-1)) e-7) eta-0)))))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32tryRecursiveC-44structDiff-6519 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--14005-6105-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--tryRecursiveC-44structDiff-6479 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32tryRecursiveC-44structDiff-6519 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--caseC-32blockC-32inC-32searchNamesC-44visible-5892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 arg-15))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--searchNamesC-44visible-5857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchNamesC-44visible-5892 arg-0 arg-1 arg-2 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 (Context-Core-visibleInAny arg-13 arg-12 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getSuccessful-5725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-one 'erased (vector 0 e-3 (vector 0 )) eta-0)))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32getSuccessful-5653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((base (Types-Prelude-maybe 'erased 'erased (lambda () "arg") (lambda () (lambda (r) (Strings-Types-Prelude-C-43C-43 (Name-Core-nameRoot (let ((sc2 r)) (let ((e-1 (vector-ref sc2 2))) e-1))) "_rhs"))) (let ((sc2 arg-6)) (let ((e-2 (vector-ref sc2 3))) e-2))))) (let ((act-25 (Utils-TTImp-uniqueName e-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) base eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((UnifyState-Core-newMeta arg-0 arg-11 arg-9 arg-8 arg-7 arg-4 (vector 1 e-6) arg-3 (vector 7 (Env-Core-length 'erased 'erased arg-4) (Context-Core-holeInit 1)) 1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-3 (vector-ref sc4 2))) (ExprSearch-Interactive-TTImp-one 'erased (vector 0 e-3 (vector 0 )) eta-0))))))))))))))))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--getSuccessful-5625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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 ((res (vector 0 ))) (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32getSuccessful-5653 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 res (Basics-Prelude-C-38C-38 arg-5 (lambda () (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))(else (lambda (eta-0) (vector 1 arg-12))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-5385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-3 arg-5 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-explicit 'erased eta-1)) arg-19)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-3 arg-5 eta-1)) arg-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-mkCandidates arg-0 arg-11 arg-9 arg-8 (vector 1 arg-8 arg-16 arg-1) (vector 0 ) e-6) eta-0))))))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-5300 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-11 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-5 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-11 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-5 e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-11 arg-9) (Unify-Core-inSearch)) arg-8) arg-5) arg-4) e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-5385 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ExprSearch-Interactive-TTImp-case--exprSearchN-11418 (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) (vector 1 e-2)))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32exprSearchOpts-11304 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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)) (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-14 e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32exprSearchOpts-11253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((ExprSearch-Interactive-TTImp-getLHSData arg-6 arg-7 arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-3))))))) +(define ExprSearch-Interactive-TTImp-case--exprSearchOpts-11156 (lambda (arg-0 arg-1 arg-2 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))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-6 (vector 8 e-9)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Metadata-Core-findHoleLHS arg-5 e-7 eta-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-log arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "LHS hole data " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 e-5 e-7)))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (let ((_-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32exprSearchOpts-11253 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-5 e-9 e-10 _-0 e-7 e-8 (let ((sc5 arg-3)) (let ((e-16 (vector-ref sc5 2))) e-16))) eta-0)))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (ExprSearch-Interactive-TTImp-search arg-6 arg-5 arg-4 arg-2 (let ((sc6 e-10)) (let ((e-25 (vector-ref sc6 8))) e-25)) e-11 (let ((sc6 e-10)) (let ((e-2 (vector-ref sc6 3))) e-2)) e-5 eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) ((ExprSearch-Interactive-TTImp-firstLinearOK arg-6 arg-5 arg-4 arg-2 e-12) 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--caseC-32blockC-32inC-32exprSearchOptsC-44lookupHoleName-11085 (lambda (arg-0 arg-1 arg-2 arg-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 ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--exprSearchOptsC-44lookupHoleName-11021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-8 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-8 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))) +(define ExprSearch-Interactive-TTImp-case--getLHSDataC-44getLHS-10829 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 3))) (vector 1 (vector 0 arg-3 e-3 arg-4))))(else (vector 0 )))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32search-10582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-searchHole arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-9 e-0 arg-1 arg-8 arg-11 eta-0)))) ((8) (lambda (eta-0) (let ((act-24 (Normalise-Core-getArity (vector 0 ) arg-8 (vector 0 ) (let ((sc1 arg-11)) (let ((e-23 (vector-ref sc1 3))) e-23)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (ExprSearch-Interactive-TTImp-searchHole arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-9 e-5 arg-1 arg-8 arg-11 eta-0))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not a hole")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Not a hole: " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-9) (Strings-Types-Prelude-C-43C-43 " in " (Show-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)))) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))) eta-0))))))))))) +(define ExprSearch-Interactive-TTImp-case--search-10551 (lambda (arg-0 arg-1 arg-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) ((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--caseC-32blockC-32inC-32search-10582 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-4 e-8 e-9 bind-0 (let ((sc3 e-9)) (let ((e-17 (vector-ref sc3 18))) e-17)))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-0) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-0) eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not found")) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-0) eta-0))))))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchC-44lookupHoleName-10476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--searchC-44lookupHoleName-10408 (lambda (arg-0 arg-1 arg-2 arg-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)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-9 (vector 0 e-5 e-6)))))))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-9 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10295 (lambda (arg-0 arg-1 arg-2 arg-3 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 (ExprSearch-Interactive-TTImp-tryIntermediate arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (vector 0 ))) (else (vector 0 )))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (ExprSearch-Interactive-TTImp-tryIntermediateRec arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 (let ((sc1 arg-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) (vector 0 ))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 e-2 eta-0)) (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9923 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 e-2 eta-0)) (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9819 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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 1 (ExprSearch-Interactive-TTImp-tryIntermediateRec arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 (let ((sc1 arg-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) (vector 0 ))) (else (vector 0 )))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (vector 1 (ExprSearch-Interactive-TTImp-tryIntermediate arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (vector 0 ))) (else (vector 0 )))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9561 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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) (List-Types-Prelude-C-43C-43 'erased arg-21 (List-Types-Prelude-C-43C-43 'erased arg-23 arg-20))) (else (List-Types-Prelude-C-43C-43 'erased arg-23 (List-Types-Prelude-C-43C-43 'erased arg-20 (List-Types-Prelude-C-43C-43 'erased arg-21 arg-22)))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-9492 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-10 arg-7 1 arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((allHints ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-18) (lambda (arg-19) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-18 arg-19))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)))))) (let ((act-25 (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Hints found for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-13) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) allHints))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((tries (vector 1 (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (vector 1 (ExprSearch-Interactive-TTImp-searchNames arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3 allHints) (vector 0 ))))) (let ((tryRec (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9923 arg-0 arg-1 arg-2 arg-3 arg-4 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 allHints e-6 tries (let ((sc3 arg-5)) (let ((e-2 (vector-ref sc3 3))) e-2))))) (let ((tryIntRec (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9819 arg-0 arg-1 arg-2 arg-3 arg-4 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 allHints e-6 tries tryRec (let ((sc3 arg-5)) (let ((e-8 (vector-ref sc3 9))) e-8))))) (let ((tryInt (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9712 arg-0 arg-1 arg-2 arg-3 arg-4 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 allHints e-6 tries tryRec tryIntRec (Basics-Prelude-not (let ((sc3 arg-5)) (let ((e-11 (vector-ref sc3 6))) e-11)))))) (let ((allns (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-9561 arg-0 arg-1 arg-2 arg-3 arg-4 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 allHints e-6 tries tryRec tryIntRec tryInt (let ((sc3 arg-5)) (let ((e-4 (vector-ref sc3 5))) e-4))))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 0 arg-4 arg-2 arg-3 allns eta-0))))))))))))))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--searchType-9447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((3) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-9492 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-9 e-8 e-7 e-5 e-3 e-10 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased e-3) e-9)) eta-0))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc2 1))) (let ((tryInt (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10295 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-8 (Basics-Prelude-not (let ((sc3 arg-5)) (let ((e-13 (vector-ref sc3 6))) e-13)))))) (let ((tryIntRec (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10226 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-8 tryInt (Basics-Prelude-C-124C-124 (let ((sc3 arg-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) (lambda () (Basics-Prelude-not (let ((sc3 arg-5)) (let ((e-10 (vector-ref sc3 9))) e-10)))))))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 0 arg-4 arg-2 arg-3 (List-Types-Prelude-C-43C-43 'erased tryInt (List-Types-Prelude-C-43C-43 'erased (vector 1 (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (vector 0 )) (List-Types-Prelude-C-43C-43 'erased (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10150 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-8 tryInt tryIntRec (let ((sc3 arg-5)) (let ((e-15 (vector-ref sc3 3))) e-15))) tryIntRec))) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((tryInt (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10295 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 (Basics-Prelude-not (let ((sc2 arg-5)) (let ((e-10 (vector-ref sc2 6))) e-10)))))) (let ((tryIntRec (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10226 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 tryInt (Basics-Prelude-C-124C-124 (let ((sc2 arg-5)) (let ((e-4 (vector-ref sc2 5))) e-4)) (lambda () (Basics-Prelude-not (let ((sc2 arg-5)) (let ((e-8 (vector-ref sc2 9))) e-8)))))))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 0 arg-4 arg-2 arg-3 (List-Types-Prelude-C-43C-43 'erased tryInt (List-Types-Prelude-C-43C-43 'erased (vector 1 (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (vector 0 )) (List-Types-Prelude-C-43C-43 'erased (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10150 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 tryInt tryIntRec (let ((sc2 arg-5)) (let ((e-12 (vector-ref sc2 3))) e-12))) tryIntRec))) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Searching locals only at") arg-2 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((tryInt (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10295 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 (Basics-Prelude-not (let ((sc1 arg-5)) (let ((e-10 (vector-ref sc1 6))) e-10)))))) (let ((tryIntRec (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10226 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 tryInt (Basics-Prelude-C-124C-124 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) (lambda () (Basics-Prelude-not (let ((sc1 arg-5)) (let ((e-8 (vector-ref sc1 9))) e-8)))))))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 0 arg-4 arg-2 arg-3 (List-Types-Prelude-C-43C-43 'erased tryInt (List-Types-Prelude-C-43C-43 'erased (vector 1 (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-2 arg-3) (vector 0 )) (List-Types-Prelude-C-43C-43 'erased (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchType-10150 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 tryInt tryIntRec (let ((sc1 arg-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) tryIntRec))) eta-0)))))))))))))) +(define ExprSearch-Interactive-TTImp-case--searchType-9382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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))) (vector 0 (vector 3 arg-7 arg-18 (vector 0 arg-4 arg-3 arg-2) e-2) e-3)))))) +(define ExprSearch-Interactive-TTImp-case--searchType-9227 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (vector 3 arg-8 arg-6 (vector 0 arg-5 arg-4 arg-3) e-2) e-3)))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32tryIntermediateRec-9063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (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 (vector 0 ) e-3 e-4 0 e-6 e-7 e-8 e-9)))))))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32tryIntermediateRec-8926 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-10 arg-8 "cty" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-10 arg-8 arg-7 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((optsC-39 (let ((sc3 arg-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 (vector 0 ) e-3 e-4 0 e-10 e-7 e-8 e-9)))))))))))) (let ((act-26 (Context-Core-logTerm arg-0 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying recursive search for") arg-3 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-10 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (let ((sc4 arg-1)) (let ((e-1 (vector-ref sc4 2))) e-1)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Name-Core-show_Show__Name e-8)) eta-0)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (Context-Core-toFullNames 'erased arg-10 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) (let ((sc5 arg-1)) (let ((e-2 (vector-ref sc5 3))) e-2)) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (Context-Core-logTerm (let ((sc6 arg-1)) (let ((e-0 (vector-ref sc6 1))) e-0)) arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-9 eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 optsC-39 arg-4 e-6 arg-2 arg-1 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 optsC-39 arg-4 e-6 arg-3 e-10) eta-0)))))))))))))))))))))))))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--tryIntermediateRec-8884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-11 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-n--16755-8722-isSingleCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-25 (UnifyState-Core-genVarName arg-10 arg-8 "cty" eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-10 arg-8 arg-7 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-6 (vector 11 arg-7) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((optsC-39 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (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-0 e-13 (vector 0 ) e-3 e-4 0 e-11 e-10 e-8 e-9)))))))))))) (let ((act-27 (Context-Core-logTerm arg-0 arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying recursive search for") arg-3 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (Context-Core-toFullNames 'erased arg-10 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (let ((sc6 arg-1)) (let ((e-3 (vector-ref sc6 2))) e-3)) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (Context-Core-log arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Name-Core-show_Show__Name e-9)) eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (Context-Core-toFullNames 'erased arg-10 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) (let ((sc7 arg-1)) (let ((e-2 (vector-ref sc7 3))) e-2)) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (Context-Core-logTerm (let ((sc8 arg-1)) (let ((e-0 (vector-ref sc8 1))) e-0)) arg-10 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-10 eta-0)))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-30 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 optsC-39 arg-4 e-7 arg-2 arg-1 eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 optsC-39 arg-4 e-7 arg-3 e-11) eta-0))))))))))))))))))))))))))))))(else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0)))))))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--tryIntermediateRecC-44isSingleCon-8765 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (let ((sc3 e-12)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1)))))))(else (lambda (eta-0) (vector 1 1))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32tryIntermediateWithC-44applyLocal-8540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (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-6 (vector-ref sc0 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 0 e-6 e-7 e-8 e-9))))))))))))) +(define ExprSearch-Interactive-TTImp-case--tryIntermediateWithC-44applyLocal-8434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (UnifyState-Core-genVarName arg-12 arg-10 "cty" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 e-5 (vector 11 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((optsC-39 (let ((sc3 arg-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-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-2 e-3 e-4 0 e-10 e-7 e-8 e-9))))))))))))) (let ((act-26 ((ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-12 arg-11 arg-10 arg-9 0 arg-8 optsC-39 arg-6 (vector 1 (vector 0 arg-1 arg-2) (vector 0 )) e-6 arg-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6 arg-17 e-7) eta-0))))))))))))))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32makeHelper-8151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 1 e-2 arg-13 e-4 0 1 0 e-8 e-9))))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32makeHelper-7960 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30) (let ((sc0 arg-30)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((helperdef (vector 2 arg-9 arg-19 (Builtin-snd 'erased 'erased e-5)))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Def: " (TTImp-TTImp-show_Show__ImpDecl helperdef))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (vector 0 arg-24 (vector 1 helperdef arg-2)) (lambda (eta-1) (let ((act-25 (arg-3 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-8) eta-1)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results") eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0)))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results") eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32makeHelper-7860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF (vector 0 ) arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Type of scope name") (vector 0 ) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (ExprSearch-Interactive-TTImp-searchN 'erased arg-12 arg-10 (+ 1 0) ((((arg-15 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 5))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 1 e-2 arg-13 e-4 0 1 0 e-8 e-9)))))))) arg-19) 0) e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((1) (let ((e-8 (vector-ref sc4 1))) (let ((helperdef (vector 2 arg-9 arg-19 (Builtin-snd 'erased 'erased e-8)))) (let ((act-26 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Def: " (TTImp-TTImp-show_Show__ImpDecl helperdef))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 1 (vector 0 arg-24 (vector 1 helperdef arg-2)) (lambda (eta-1) (let ((act-27 (arg-3 eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-10) eta-1))))))))))))))))(else (let ((act-26 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results") eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))))(else (let ((act-26 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results") eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0)))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen") eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32makeHelper-7713 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (UnifyState-Core-genVarName arg-12 arg-10 "cval" eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (UnifyState-Core-genCaseName arg-12 arg-10 "search" eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Context-Core-inCurrentNS arg-12 e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((envC-39 (vector 1 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-5) arg-6))) (let ((act-28 (Check-Elab-TTImp-metaVar (vector 1 e-6 arg-0) arg-12 arg-10 arg-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) envC-39 e-8 (TT-Core-weaken_Weaken__Term e-6 arg-0 arg-4) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((scope (ExprSearch-Interactive-TTImp-n--15535-7656-toApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 'erased e-9))) (let ((act-29 (Context-Core-updateDef arg-12 e-8 (lambda (eta-1) (vector 1 (vector 0 ))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((def (vector 4 arg-9 (vector 3 arg-9 e-6 (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-5) scope) arg-1))) (let ((act-30 (Normalise-Core-logTermNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Binding def") arg-6 def eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-12))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Context-Core-lookupTyExact e-8 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) e-0)) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc9 1))) (let ((sc10 e-13)) (case (vector-ref sc10 0) ((1) (let ((e-2 (vector-ref sc10 1))) (let ((act-33 (Normalise-Core-logTermNF (vector 0 ) arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Type of scope name") (vector 0 ) e-2 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-34 (ExprSearch-Interactive-TTImp-searchN 'erased arg-12 arg-10 (+ 1 0) ((((e-1 (let ((sc12 arg-7)) (let ((e-0 (vector-ref sc12 1))) (let ((e-20 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 5))) (let ((e-16 (vector-ref sc12 9))) (let ((e-15 (vector-ref sc12 10))) (vector 0 e-0 1 e-20 arg-13 e-4 0 1 0 e-16 e-15)))))))) e-8) 0) e-2) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-15)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((1) (let ((e-17 (vector-ref sc14 1))) (let ((helperdef (vector 2 arg-9 e-8 (Builtin-snd 'erased 'erased e-17)))) (let ((act-35 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Def: " (TTImp-TTImp-show_Show__ImpDecl helperdef))) eta-0))) (let ((sc15 act-35)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (vector 0 e-18))) (else (vector 1 (vector 1 (vector 0 def (vector 1 helperdef arg-2)) (lambda (eta-1) (let ((act-36 (arg-3 eta-1))) (let ((sc16 act-36)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (vector 0 e-19))) (else (let ((e-19 (vector-ref sc16 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 e-19) eta-1))))))))))))))))(else (let ((act-35 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results") eta-0))) (let ((sc14 act-35)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (vector 0 e-16))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))))(else (let ((act-35 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "No results") eta-0))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen") eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--makeHelper-7671 (lambda (arg-0 arg-1 arg-2 arg-3 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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0)))(else (let ((e-0 (- arg-13 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local app") arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32makeHelper-7713 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-0 e-5 (let ((sc1 arg-7)) (let ((e-9 (vector-ref sc1 10))) e-9))) eta-0))))))))))))) +(define ExprSearch-Interactive-TTImp-case--searchLocalWithC-44findPos-7364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-6 arg-17 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-6 arg-18 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 1 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-n--14624-6834-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) arg-25) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-n--14624-6834-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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-7112 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-10 arg-7 arg-4 arg-6 eta-1)) arg-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-mkCandidates arg-0 arg-13 arg-11 arg-10 (arg-16 arg-17) (vector 0 ) e-5) eta-0))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-6994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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) (ExprSearch-Interactive-TTImp-mkCandidates arg-0 arg-13 arg-11 arg-10 (arg-16 arg-17) (vector 0 ) (vector 0 )))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't use directly") eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-6900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-13 arg-11 (lambda (eta-1) (let ((act-24 (let ((sc1 (Basics-Prelude-C-38C-38 (Basics-Prelude-not (List-Data-isNil 'erased arg-19)) (lambda () arg-9)))) (cond ((equal? sc1 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Must apply function") eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-6) arg-14) arg-15) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-6994 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-1)))))))))))) (lambda (eta-1) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-6) arg-14) arg-20) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-7112 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--searchLocalWithC-44findDirect-6853 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-6900 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6 arg-15)))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32tryRecursive-6731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-10 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-3))))))))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32tryRecursive-6699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 (vector 0 ) e-3 e-4 e-5 e-6 e-7 e-8 e-9))))))))))))) +(define ExprSearch-Interactive-TTImp-case--tryRecursive-6583 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Normalise-Core-nf arg-0 arg-11 arg-4 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 (let ((sc2 arg-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 (vector 0 ) e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))) arg-4 e-5 arg-2 (vector 0 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) e-1)) e-2)) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-10))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 ((ExprSearch-Interactive-TTImp-traverse 'erased 'erased (lambda (lamc-0) (let ((sc3 lamc-0)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-26 (Context-Core-toFullNames 'erased arg-10 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-4 eta-1))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 0 e-7 e-3)))))))))))) e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-filterS 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--13813-6099-structDiffTm 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 ((sc4 arg-1)) (let ((e-3 (vector-ref sc4 3))) e-3)) eta-1)) e-7) eta-0)))))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32tryRecursiveC-44structDiff-6511 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13813-6097-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--tryRecursiveC-44structDiff-6471 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--caseC-32blockC-32inC-32tryRecursiveC-44structDiff-6511 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--caseC-32blockC-32inC-32searchNamesC-44visible-5886 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 arg-15))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--searchNamesC-44visible-5851 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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))) (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchNamesC-44visible-5886 arg-0 arg-1 arg-2 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 (Context-Core-visibleInAny arg-13 arg-12 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getSuccessful-5719 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-one 'erased (vector 0 e-3 (vector 0 )) eta-0)))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32getSuccessful-5647 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-11))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((base (Types-Prelude-maybe 'erased 'erased (lambda () "arg") (lambda () (lambda (r) (Strings-Types-Prelude-C-43C-43 (Name-Core-nameRoot (let ((sc2 r)) (let ((e-1 (vector-ref sc2 2))) e-1))) "_rhs"))) (let ((sc2 arg-6)) (let ((e-2 (vector-ref sc2 3))) e-2))))) (let ((act-25 (Utils-TTImp-uniqueName e-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) base eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((UnifyState-Core-newMeta arg-0 arg-11 arg-9 arg-8 arg-7 arg-4 (vector 1 e-6) arg-3 (vector 7 (Env-Core-length 'erased 'erased arg-4) (Context-Core-holeInit 1)) 1) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-3 (vector-ref sc4 2))) (ExprSearch-Interactive-TTImp-one 'erased (vector 0 e-3 (vector 0 )) eta-0))))))))))))))))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--getSuccessful-5619 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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 ((res (vector 0 ))) (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32getSuccessful-5647 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 res (Basics-Prelude-C-38C-38 arg-5 (lambda () (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))(else (lambda (eta-0) (vector 1 arg-12))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-5379 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-3 arg-5 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-explicit 'erased eta-1)) arg-19)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-searchIfHole arg-0 arg-11 arg-10 arg-9 arg-8 arg-6 arg-3 arg-5 eta-1)) arg-19) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-mkCandidates arg-0 arg-11 arg-9 arg-8 (vector 1 arg-8 arg-16 arg-1) (vector 0 ) e-6) eta-0))))))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-5298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-5 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-5 e-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-11 arg-9) (Unify-Core-inSearch)) arg-8) arg-5) arg-4) e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-5379 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-5146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 2 e-0 e-1)))) ((6) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 3 e-3 e-4))))(else (vector 1 )))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchName-5110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((namety (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-5146 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-11 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Trying " (Name-Core-show_Show__Name (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-12 arg-5 (TT-Core-embed 'erased 'erased arg-15)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((AutoSearch-Core-mkArgs arg-0 arg-11 arg-9 arg-8 arg-7 arg-5 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-11 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-5 arg-4 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-11 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-5 e-3 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-11 arg-9) (Unify-Core-inSearch)) arg-8) arg-5) arg-4) e-3) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-5385 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--searchName-5075 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (let ((ty (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchName-5110 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ty (ExprSearch-Interactive-TTImp-n--12785-5036-usableName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) -(define ExprSearch-Interactive-TTImp-case--firstSuccess-4772 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--12457-4710-continue 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-2) eta-1)))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12457-4710-continue 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-2 eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchName-5110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((namety (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-5146 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (let ((sc1 arg-2)) (let ((e-17 (vector-ref sc1 18))) e-17))))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Trying " (Name-Core-show_Show__Name (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 arg-12 arg-5 (TT-Core-embed 'erased 'erased arg-15)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((AutoSearch-Core-mkArgs arg-0 arg-11 arg-9 arg-8 arg-7 arg-5 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (Normalise-Core-logNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-5 arg-4 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "App type") arg-5 e-3 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-11 arg-9) (Unify-Core-inSearch)) arg-8) arg-5) arg-4) e-3) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchName-5379 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--searchName-5075 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (let ((ty (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchName-5110 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ty (ExprSearch-Interactive-TTImp-n--12601-5036-usableName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define ExprSearch-Interactive-TTImp-case--firstSuccess-4772 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--12273-4710-continue 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-2) eta-1)))))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--12273-4710-continue 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-2 eta-0))))))) (define ExprSearch-Interactive-TTImp-case--explicit-4684 (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-4547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles arg-0 arg-12 arg-2 (UnifyState-Core-applyTo arg-0 arg-5 (TT-Core-embed 'erased 'erased e-2) arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 e-3))))))))))))) (define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-4512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (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-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 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 arg-9 0 e-5 e-6 e-7 e-8 e-9)))))))))))) @@ -6156,51 +6084,51 @@ (define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchIfHole-4413 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-4444 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) (define ExprSearch-Interactive-TTImp-case--searchIfHole-4351 (lambda (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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0)))(else (let ((e-0 (- arg-9 1))) (let ((hole (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((rig (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-8))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-4444 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))))))))))))))))) (define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32getAllEnv-4236 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 0 arg-5 (vector 0 ) arg-8) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Types-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-6)) (else arg-6))))) -(define ExprSearch-Interactive-TTImp-case--getAllEnv-4212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((usable (ExprSearch-Interactive-TTImp-n--11844-4186-usableName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0))) (let ((sc0 usable)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 0 arg-5 (vector 0 ) arg-7) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Types-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-6)) (else arg-6)))))) +(define ExprSearch-Interactive-TTImp-case--getAllEnv-4212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((usable (ExprSearch-Interactive-TTImp-n--11660-4186-usableName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0))) (let ((sc0 usable)) (cond ((equal? sc0 0) (vector 1 (vector 0 (vector 0 arg-5 (vector 0 ) arg-7) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Types-Prelude-C-43C-43 'erased arg-4 (vector 1 arg-0 (vector 0 ))) (TT-Core-binderType 'erased arg-3))) arg-6)) (else arg-6)))))) (define ExprSearch-Interactive-TTImp-case--nextResult-3926 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 e-3))))))))))) -(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchSort-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)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (ExprSearch-Interactive-TTImp-n--11436-3805-returnBatch 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (List-Data-sortBy 'erased arg-1 arg-6) arg-7)))))) +(define ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchSort-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)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (ExprSearch-Interactive-TTImp-n--11252-3805-returnBatch 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (List-Data-sortBy 'erased arg-1 arg-6) arg-7)))))) (define ExprSearch-Interactive-TTImp-case--searchSort-3832 (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 ((_-0 (vector 0 e-2 e-3))) (ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchSort-3855 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 _-0 (List-Data-isNil 'erased e-2)))))))) (define ExprSearch-Interactive-TTImp-case--searchNC-44count-3735 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-6 e-2) e-3)))))))) (define ExprSearch-Interactive-TTImp-case--filterS-3628 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-1 arg-5)))) (else arg-5))))) -(define ExprSearch-Interactive-TTImp-n--13711-5845-visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-14 arg-12) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchNamesC-44visible-5892 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-14 arg-13 arg-12 e-1 _-0 (Context-Core-visibleInAny arg-13 arg-14 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) -(define ExprSearch-Interactive-TTImp-n--12785-5036-usableName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) 0) ((0) (let ((e-2 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-n--12785-5036-usableName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2))) ((5) (let ((e-4 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-n--12785-5036-usableName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-4)))(else 1))))) -(define ExprSearch-Interactive-TTImp-n--11844-4186-usableName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) -(define ExprSearch-Interactive-TTImp-n--15727-7664-toApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (TT-Core-apply 'erased e-1 (vector 1 e-1 (vector 1 ) (vector 8 e-3)) e-4)))))(else arg-14))))) -(define ExprSearch-Interactive-TTImp-n--14005-6107-structDiffTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (ExprSearch-Interactive-TTImp-n--14005-6106-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 arg-13 e-2))))) -(define ExprSearch-Interactive-TTImp-n--14005-6106-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--tryRecursiveC-44structDiff-6479 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--11436-3805-returnBatch (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) (lambda (eta-0) (ExprSearch-Interactive-TTImp-searchSort 'erased arg-5 arg-4 arg-3 arg-7 arg-1 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-2 (ExprSearch-Interactive-TTImp-n--11436-3805-returnBatch 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))) -(define ExprSearch-Interactive-TTImp-n--16542-8378-matchable (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-6 (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-n--16542-8378-matchable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) -(define ExprSearch-Interactive-TTImp-n--19599-11065-lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-7 (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-7 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-7 (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-n--11840-10444-lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-8 arg-9) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-8 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-8 arg-9) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-n--16968-8748-isSingleCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-n--16968-8748-isSingleCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-7 (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (let ((e-12 (vector-ref sc3 7))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (vector 1 0))(else (vector 1 1))))))(else (vector 1 1))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define ExprSearch-Interactive-TTImp-n--19365-10834-getLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (ExprSearch-Interactive-TTImp-n--19365-10834-getLHS arg-0 arg-1 arg-2 (vector 1 e-2 arg-3) e-4)) ((4) (ExprSearch-Interactive-TTImp-n--19365-10834-getLHS arg-0 arg-1 arg-2 (vector 1 e-2 arg-3) e-4))(else (ExprSearch-Interactive-TTImp-case--getLHSDataC-44getLHS-10884 arg-0 arg-1 arg-2 arg-3 arg-4 (TT-Core-getFn 'erased arg-4)))))))))(else (ExprSearch-Interactive-TTImp-case--getLHSDataC-44getLHS-10884 arg-0 arg-1 arg-2 arg-3 arg-4 (TT-Core-getFn 'erased arg-4))))))) -(define ExprSearch-Interactive-TTImp-n--14816-6842-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-8 arg-7 1 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--14816-6841-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-1)) (vector 1 (lambda (eta-1) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-13 eta-1))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No fst") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-6) eta-1)))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (Context-Core-sndName arg-13 eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No snd") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-9) eta-1)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 (Context-Core-isPairType arg-13 e-2 eta-1))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-27 (Context-Core-clearDefs arg-14 eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-6 e-7 eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-6 e-10 eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 1 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-7) eta-2))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) ((ExprSearch-Interactive-TTImp-n--14816-6842-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-6) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-10) eta-2))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) ((ExprSearch-Interactive-TTImp-n--14816-6842-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 (ExprSearch-Interactive-TTImp-noResult 'erased eta-1)))))))))))))))))))) (vector 0 ))) eta-0)))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--14816-6841-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--14816-6841-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--14816-6841-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--14816-6841-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--14816-6841-findDirect (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-11 arg-10 arg-8 arg-6 arg-17) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-6908 arg-0 arg-1 arg-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-6 arg-17)) ext-0)))))))))))) -(define ExprSearch-Interactive-TTImp-n--11300-3675-count (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (lambda (eta-1) (vector 1 (vector 0 )))))))(else (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (lambda (eta-1) (vector 1 (vector 0 )))))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 e-5 (vector 0 )) e-6))))))(else (let ((sc1 arg-6)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-n--11300-3675-count 'erased arg-1 arg-2 arg-3 arg-4 e-0 e-5) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-6 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-2 e-6) e-4))))))))))))))))))(else (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-n--11300-3675-count 'erased arg-1 arg-2 arg-3 arg-4 e-0 e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-2 e-6) e-4)))))))))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-n--12457-4710-continue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (set-box! arg-3 arg-5))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (set-box! arg-4 arg-6))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((ExprSearch-Interactive-TTImp-firstSuccess 'erased arg-4 arg-3 arg-7) ext-0))))))))))) -(define ExprSearch-Interactive-TTImp-n--14005-6104-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))) (Basics-Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--14005-6106-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--14005-6106-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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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))) (Basics-Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--14005-6106-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--14005-6106-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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6105-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-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-30 (vector-ref sc2 2))) (let ((e-31 (vector-ref sc2 3))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((2) (Basics-Prelude-C-124C-124 (Name-Core-C-47C-61_Eq__Name e-5 e-31) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--14005-6104-argDiff 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-15 arg-16)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-23 (vector-ref sc3 3))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased arg-15) (List-Types-Prelude-length 'erased arg-16)) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--14005-6104-argDiff 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-15 arg-16))))))))(else (let ((sc3 e-4)) (case (vector-ref sc3 0) ((2) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) 0)(else (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--14005-6104-argDiff 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--14005-6104-argDiff 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-23 (vector-ref sc2 3))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased arg-15) (List-Types-Prelude-length 'erased arg-16)) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--14005-6104-argDiff 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-15 arg-16))))))))(else (let ((sc2 e-4)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) 0)(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--14005-6104-argDiff 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--14005-6104-argDiff 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 ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((3) (Basics-Prelude-C-124C-124 (Name-Core-C-47C-61_Eq__Name e-5 e-37) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--14005-6104-argDiff 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-15 arg-16)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-23 (vector-ref sc3 3))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased arg-15) (List-Types-Prelude-length 'erased arg-16)) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--14005-6104-argDiff 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-15 arg-16))))))))(else (let ((sc3 e-4)) (case (vector-ref sc3 0) ((2) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) 0)(else (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--14005-6104-argDiff 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--14005-6104-argDiff 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-23 (vector-ref sc2 3))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased arg-15) (List-Types-Prelude-length 'erased arg-16)) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--14005-6104-argDiff 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-15 arg-16))))))))(else (let ((sc2 e-4)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) 0)(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--14005-6104-argDiff 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--14005-6104-argDiff 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-23 (vector-ref sc1 3))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased arg-15) (List-Types-Prelude-length 'erased arg-16)) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--14005-6104-argDiff 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-15 arg-16))))))))(else (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) 0)(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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--14005-6104-argDiff 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-n--16542-8379-applyLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-6 (vector 10 arg-9 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-n--16542-8378-matchable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (let ((act-25 (UnifyState-Core-genVarName arg-12 arg-10 "cty" eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 e-6 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 e-10 (vector 11 arg-9) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((optsC-39 (let ((sc6 arg-7)) (let ((e-0 (vector-ref sc6 1))) (let ((e-20 (vector-ref sc6 2))) (let ((e-19 (vector-ref sc6 3))) (let ((e-18 (vector-ref sc6 4))) (let ((e-17 (vector-ref sc6 5))) (let ((e-15 (vector-ref sc6 7))) (let ((e-14 (vector-ref sc6 8))) (let ((e-13 (vector-ref sc6 9))) (let ((e-12 (vector-ref sc6 10))) (vector 0 e-0 e-20 e-19 e-18 e-17 0 e-15 e-14 e-13 e-12))))))))))))) (let ((act-27 ((ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-12 arg-11 arg-10 arg-9 0 arg-8 optsC-39 arg-6 (vector 1 (vector 0 arg-1 arg-2) (vector 0 )) e-11 arg-4) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-11 arg-16 e-12) eta-0)))))))))))))))))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) +(define ExprSearch-Interactive-TTImp-n--13521-5839-visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-14 arg-12) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchNamesC-44visible-5886 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-14 arg-13 arg-12 e-1 _-0 (Context-Core-visibleInAny arg-13 arg-14 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) +(define ExprSearch-Interactive-TTImp-n--12601-5036-usableName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) 0) ((0) (let ((e-2 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-n--12601-5036-usableName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2))) ((5) (let ((e-4 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-n--12601-5036-usableName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-4)))(else 1))))) +(define ExprSearch-Interactive-TTImp-n--11660-4186-usableName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) 0)(else 1))))) +(define ExprSearch-Interactive-TTImp-n--15535-7656-toApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (TT-Core-apply 'erased e-1 (vector 1 e-1 (vector 1 ) (vector 8 e-3)) e-4)))))(else arg-14))))) +(define ExprSearch-Interactive-TTImp-n--13813-6099-structDiffTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-2 (vector-ref sc0 1))) (ExprSearch-Interactive-TTImp-n--13813-6098-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 arg-13 e-2))))) +(define ExprSearch-Interactive-TTImp-n--13813-6098-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--tryRecursiveC-44structDiff-6471 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--11252-3805-returnBatch (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) (lambda (eta-0) (ExprSearch-Interactive-TTImp-searchSort 'erased arg-5 arg-4 arg-3 arg-7 arg-1 eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-2 (ExprSearch-Interactive-TTImp-n--11252-3805-returnBatch 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))) +(define ExprSearch-Interactive-TTImp-n--16340-8360-matchable (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-6 (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-n--16340-8360-matchable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) +(define ExprSearch-Interactive-TTImp-n--19351-11010-lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-7 (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-7 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-7 (let ((sc2 arg-8)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-n--11656-10397-lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExactI arg-8 arg-9) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-8 (vector 0 e-7 e-6))))))))) (else (let ((act-25 ((Context-Core-lookupCtxtName arg-8 arg-9) ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (vector 1 (vector 1 e-1)))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-n--16755-8722-isSingleCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-n--16755-8722-isSingleCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5) eta-0))))))))(else (lambda (eta-0) (vector 1 1))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-7 (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (let ((e-12 (vector-ref sc3 7))) (let ((sc4 e-12)) (case (vector-ref sc4 0) ((1) (let ((e-16 (vector-ref sc4 2))) (let ((sc5 e-16)) (case (vector-ref sc5 0) ((0) (vector 1 0))(else (vector 1 1))))))(else (vector 1 1))))))(else (vector 1 1))))))(else (vector 1 1))))))))))))(else (lambda (eta-0) (vector 1 1))))))) +(define ExprSearch-Interactive-TTImp-n--19121-10783-getLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (ExprSearch-Interactive-TTImp-n--19121-10783-getLHS arg-0 arg-1 arg-2 (vector 1 e-2 arg-3) e-4)) ((4) (ExprSearch-Interactive-TTImp-n--19121-10783-getLHS arg-0 arg-1 arg-2 (vector 1 e-2 arg-3) e-4))(else (ExprSearch-Interactive-TTImp-case--getLHSDataC-44getLHS-10829 arg-0 arg-1 arg-2 arg-3 arg-4 (TT-Core-getFn 'erased arg-4)))))))))(else (ExprSearch-Interactive-TTImp-case--getLHSDataC-44getLHS-10829 arg-0 arg-1 arg-2 arg-3 arg-4 (TT-Core-getFn 'erased arg-4))))))) +(define ExprSearch-Interactive-TTImp-n--14624-6834-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-8 arg-7 1 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--14624-6833-findDirect arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-1)) (vector 1 (lambda (eta-1) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-13 eta-1))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No fst") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-6) eta-1)))))))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (Context-Core-sndName arg-13 eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "No snd") eta-2))) (lambda () (lambda (eta-2) (lambda (eta-3) (vector 1 eta-2)))) e-9) eta-1)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-26 (Context-Core-isPairType arg-13 e-2 eta-1))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-27 (Context-Core-clearDefs arg-14 eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-6 e-7 eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-6 e-10 eta-1))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc10 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-13 arg-12 arg-11 arg-10 arg-8 arg-7 1 arg-6 arg-5 arg-4 (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-7) eta-2))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) ((ExprSearch-Interactive-TTImp-n--14624-6834-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (lambda (arg) (TT-Core-apply 'erased arg-10 (vector 1 arg-10 (vector 1 ) e-6) (vector 1 e-14 (vector 1 e-15 (vector 1 (arg-16 arg) (vector 0 )))))) e-16 arg-18) eta-2))))))) (vector 1 (lambda (eta-2) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-14 e-10) eta-2))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc11 1))) ((ExprSearch-Interactive-TTImp-n--14624-6834-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 (ExprSearch-Interactive-TTImp-noResult 'erased eta-1)))))))))))))))))))) (vector 0 ))) eta-0)))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--14624-6833-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--14624-6833-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--14624-6833-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--14624-6833-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--14624-6833-findDirect (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-11 arg-10 arg-8 arg-6 arg-17) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-6900 arg-0 arg-1 arg-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-6 arg-17)) ext-0)))))))))))) +(define ExprSearch-Interactive-TTImp-n--11116-3675-count (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (lambda (eta-1) (vector 1 (vector 0 )))))))(else (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (lambda (eta-1) (vector 1 (vector 0 )))))))(else (let ((e-0 (- arg-5 1))) (let ((sc0 e-0)) (cond ((equal? sc0 0) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 e-5 (vector 0 )) e-6))))))(else (let ((sc1 arg-6)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-n--11116-3675-count 'erased arg-1 arg-2 arg-3 arg-4 e-0 e-5) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-6 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-2 e-6) e-4))))))))))))))))))(else (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-n--11116-3675-count 'erased arg-1 arg-2 arg-3 arg-4 e-0 e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 0 (vector 1 e-2 e-6) e-4)))))))))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-n--12273-4710-continue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (set-box! arg-3 arg-5))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (set-box! arg-4 arg-6))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((ExprSearch-Interactive-TTImp-firstSuccess 'erased arg-4 arg-3 arg-7) ext-0))))))))))) +(define ExprSearch-Interactive-TTImp-n--13813-6096-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))) (Basics-Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--13813-6098-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--13813-6098-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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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))) (Basics-Prelude-C-124C-124 (ExprSearch-Interactive-TTImp-n--13813-6098-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--13813-6098-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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6097-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-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-30 (vector-ref sc2 2))) (let ((e-31 (vector-ref sc2 3))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((2) (Basics-Prelude-C-124C-124 (Name-Core-C-47C-61_Eq__Name e-5 e-31) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--13813-6096-argDiff 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-15 arg-16)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-23 (vector-ref sc3 3))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased arg-15) (List-Types-Prelude-length 'erased arg-16)) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--13813-6096-argDiff 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-15 arg-16))))))))(else (let ((sc3 e-4)) (case (vector-ref sc3 0) ((2) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) 0)(else (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--13813-6096-argDiff 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--13813-6096-argDiff 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-23 (vector-ref sc2 3))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased arg-15) (List-Types-Prelude-length 'erased arg-16)) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--13813-6096-argDiff 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-15 arg-16))))))))(else (let ((sc2 e-4)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) 0)(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--13813-6096-argDiff 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--13813-6096-argDiff 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 ((sc2 arg-14)) (case (vector-ref sc2 0) ((1) (let ((e-36 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 3))) (let ((sc3 e-36)) (case (vector-ref sc3 0) ((3) (Basics-Prelude-C-124C-124 (Name-Core-C-47C-61_Eq__Name e-5 e-37) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--13813-6096-argDiff 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-15 arg-16)))))(else (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((1) (let ((e-23 (vector-ref sc3 3))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased arg-15) (List-Types-Prelude-length 'erased arg-16)) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--13813-6096-argDiff 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-15 arg-16))))))))(else (let ((sc3 e-4)) (case (vector-ref sc3 0) ((2) (let ((sc4 arg-14)) (case (vector-ref sc4 0) ((0) 0)(else (let ((sc4 arg-15)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-16)) (case (vector-ref sc5 0) ((0) (ExprSearch-Interactive-TTImp-n--13813-6096-argDiff 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--13813-6096-argDiff 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-23 (vector-ref sc2 3))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased arg-15) (List-Types-Prelude-length 'erased arg-16)) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--13813-6096-argDiff 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-15 arg-16))))))))(else (let ((sc2 e-4)) (case (vector-ref sc2 0) ((2) (let ((sc3 arg-14)) (case (vector-ref sc3 0) ((0) 0)(else (let ((sc3 arg-15)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-16)) (case (vector-ref sc4 0) ((0) (ExprSearch-Interactive-TTImp-n--13813-6096-argDiff 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--13813-6096-argDiff 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-23 (vector-ref sc1 3))) (Basics-Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-5 e-23) (lambda () (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__Nat (List-Types-Prelude-length 'erased arg-15) (List-Types-Prelude-length 'erased arg-16)) (lambda () (Extra-Bool-Data-anyTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--13813-6096-argDiff 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-15 arg-16))))))))(else (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) 0)(else (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-16)) (case (vector-ref sc3 0) ((0) (ExprSearch-Interactive-TTImp-n--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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--13813-6096-argDiff 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-n--16340-8361-applyLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-15)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-6 (vector 10 arg-9 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-n--16340-8360-matchable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-5) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (let ((act-25 (UnifyState-Core-genVarName arg-12 arg-10 "cty" eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 e-9 (vector 11 arg-9) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((optsC-39 (let ((sc6 arg-7)) (let ((e-0 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (let ((e-17 (vector-ref sc6 4))) (let ((e-16 (vector-ref sc6 5))) (let ((e-14 (vector-ref sc6 7))) (let ((e-13 (vector-ref sc6 8))) (let ((e-12 (vector-ref sc6 9))) (let ((e-11 (vector-ref sc6 10))) (vector 0 e-0 e-19 e-18 e-17 e-16 0 e-14 e-13 e-12 e-11))))))))))))) (let ((act-27 ((ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-12 arg-11 arg-10 arg-9 0 arg-8 optsC-39 arg-6 (vector 1 (vector 0 arg-1 arg-2) (vector 0 )) e-10 arg-4) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-10 arg-16 e-11) eta-0)))))))))))))))))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0)))))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))) (define ExprSearch-Interactive-TTImp-map_Functor__Search (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (arg-2 e-2) (lambda (eta-0) (let ((act-24 (e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (ExprSearch-Interactive-TTImp-map_Functor__Search 'erased 'erased arg-2 e-5)))))))))))))))) (define ExprSearch-Interactive-TTImp-__Impl_Functor_Search (lambda (ext-0 ext-1 ext-2 ext-3) (ExprSearch-Interactive-TTImp-map_Functor__Search 'erased 'erased ext-2 ext-3))) (define RecData-ExprSearch-Interactive-TTImp-vars (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (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-trySearch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (ExprSearch-Interactive-TTImp-firstSuccess 'erased arg-1 arg-2 (vector 1 arg-3 (vector 1 arg-4 (vector 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 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-noResult 'erased ext-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-12 (vector-ref sc4 6))) (let ((e-11 (vector-ref sc4 7))) (let ((e-10 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (vector 0 e-0 e-1 (vector 0 ) e-3 e-4 e-12 e-11 e-10 e-8 e-9))))))))))) arg-7 e-7 arg-9 (vector 0 (let ((sc4 arg-10)) (let ((e-1 (vector-ref sc4 2))) e-1)) e-2)) ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 ((ExprSearch-Interactive-TTImp-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-4 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (vector 0 e-9 e-3)))))))))))) e-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) ((ExprSearch-Interactive-TTImp-filterS 'erased (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--14005-6107-structDiffTm arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased (let ((sc6 arg-10)) (let ((e-3 (vector-ref sc6 3))) e-3)) eta-0)) e-9) ext-0))))))))))))))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-tryIntermediateWith (lambda (arg-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) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased 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-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-7 e-7) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (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 (vector 1 (ExprSearch-Interactive-TTImp-n--16542-8379-applyLocal arg-0 e-6 e-7 e-3 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-8 arg-9) (vector 1 (ExprSearch-Interactive-TTImp-tryIntermediateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 arg-9 arg-10) (vector 0 ))) eta-0)))))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-tryIntermediateRec (lambda (arg-0 arg-1 arg-2 arg-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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact (let ((sc2 e-2)) (let ((e-1 (vector-ref sc2 2))) e-1)) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-n--16968-8748-isSingleCon arg-0 e-2 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-7) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (cond ((equal? sc5 0) (let ((act-27 (UnifyState-Core-genVarName arg-1 arg-3 "cty" eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 e-8 (vector 11 arg-4) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((optsC-39 (let ((sc8 arg-6)) (let ((e-0 (vector-ref sc8 1))) (let ((e-16 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-13 (vector-ref sc8 7))) (let ((e-12 (vector-ref sc8 8))) (let ((e-11 (vector-ref sc8 9))) (let ((e-10 (vector-ref sc8 10))) (vector 0 e-0 e-16 (vector 0 ) e-3 e-4 0 e-13 e-12 e-11 e-10)))))))))))) (let ((act-29 (Context-Core-logTerm arg-0 arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying recursive search for") arg-8 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-30 (let ((act-30 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (let ((sc9 e-2)) (let ((e-4 (vector-ref sc9 2))) e-4)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc9 1))) ((Context-Core-log arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Name-Core-show_Show__Name e-11))) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-31 (let ((act-31 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) (let ((sc10 e-2)) (let ((e-3 (vector-ref sc10 3))) e-3)) eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc10 1))) (Context-Core-logTerm (let ((sc11 e-2)) (let ((e-0 (vector-ref sc11 1))) e-0)) arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-12 eta-0)))))))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-32 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 optsC-39 arg-7 e-9 arg-9 e-2 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc11 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 optsC-39 arg-7 e-9 arg-8 e-13) eta-0))))))))))))))))))))))))))))))(else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))))) (else (ExprSearch-Interactive-TTImp-noResult 'erased 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 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (let ((sc1 arg-10)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (ExprSearch-Interactive-TTImp-noResult 'erased ext-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-12 (vector-ref sc4 6))) (let ((e-11 (vector-ref sc4 7))) (let ((e-10 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (vector 0 e-0 e-1 (vector 0 ) e-3 e-4 e-12 e-11 e-10 e-8 e-9))))))))))) arg-7 e-7 arg-9 (vector 0 (let ((sc4 arg-10)) (let ((e-1 (vector-ref sc4 2))) e-1)) e-2)) ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-1))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 ((ExprSearch-Interactive-TTImp-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-4 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-28 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (vector 1 (vector 0 e-9 e-3)))))))))))) e-7) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) ((ExprSearch-Interactive-TTImp-filterS 'erased (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--13813-6099-structDiffTm arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased (let ((sc6 arg-10)) (let ((e-3 (vector-ref sc6 3))) e-3)) eta-0)) e-9) ext-0))))))))))))))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-tryIntermediateWith (lambda (arg-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) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased 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-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-7 e-7) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (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 (vector 1 (ExprSearch-Interactive-TTImp-n--16340-8361-applyLocal arg-0 e-6 e-7 e-3 arg-10 arg-9 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-8 arg-9) (vector 1 (ExprSearch-Interactive-TTImp-tryIntermediateWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3 arg-9 arg-10) (vector 0 ))) eta-0)))))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-tryIntermediateRec (lambda (arg-0 arg-1 arg-2 arg-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) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyExact (let ((sc2 e-2)) (let ((e-1 (vector-ref sc2 2))) e-1)) (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-1) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-n--16755-8722-isSingleCon arg-0 e-2 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-7) eta-0)))))))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (cond ((equal? sc5 0) (let ((act-27 (UnifyState-Core-genVarName arg-1 arg-3 "cty" eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-28 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 e-8 (vector 11 arg-4) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((optsC-39 (let ((sc8 arg-6)) (let ((e-0 (vector-ref sc8 1))) (let ((e-16 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-13 (vector-ref sc8 7))) (let ((e-12 (vector-ref sc8 8))) (let ((e-11 (vector-ref sc8 9))) (let ((e-10 (vector-ref sc8 10))) (vector 0 e-0 e-16 (vector 0 ) e-3 e-4 0 e-13 e-12 e-11 e-10)))))))))))) (let ((act-29 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying recursive search for") arg-8 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-30 (let ((act-30 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) (let ((sc9 e-2)) (let ((e-4 (vector-ref sc9 2))) e-4)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc9 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Name-Core-show_Show__Name e-11)) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-31 (let ((act-31 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) (let ((sc10 e-2)) (let ((e-3 (vector-ref sc10 3))) e-3)) eta-0))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc10 1))) (Context-Core-logTerm (let ((sc11 e-2)) (let ((e-0 (vector-ref sc11 1))) e-0)) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "LHS") e-12 eta-0)))))))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-32 (ExprSearch-Interactive-TTImp-tryRecursive arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 optsC-39 arg-7 e-9 arg-9 e-2 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc11 1))) ((ExprSearch-Interactive-TTImp-makeHelper arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 optsC-39 arg-7 e-9 arg-8 e-13) eta-0))))))))))))))))))))))))))))))(else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))))) (else (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))))))))))))))))))))) (define ExprSearch-Interactive-TTImp-tryIntermediate (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (ExprSearch-Interactive-TTImp-tryIntermediateWith 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))) (define ExprSearch-Interactive-TTImp-traverse (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 (lambda (eta-1) (let ((act-25 (e-3 eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-traverse 'erased 'erased arg-2 e-6) eta-1)))))))))))))))))))))) -(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) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((2) (let ((e-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (let ((e-19 (vector-ref sc2 3))) (let ((e-20 (vector-ref sc2 4))) (lambda (eta-0) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 e-20 arg-8 (vector 1 (ExprSearch-Interactive-TTImp-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 3 e-12 e-13 e-14 e-15) arg-8) (vector 1 (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-7 e-20) eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 e-5 e-13 (vector 0 ) arg-0 e-6 eta-1))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((nC-39 (vector 1 e-7))) (let ((envC-39 (vector 1 e-14 arg-7))) (let ((scC-39 (TT-Core-renameTop 'erased 'erased nC-39 e-15))) (let ((act-27 ((Context-Core-log arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 nC-39 arg-0) scC-39)))) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 ((ExprSearch-Interactive-TTImp-searchType (vector 1 nC-39 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 0 scC-39) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (vector 1 (ExprSearch-Interactive-TTImp-map_Functor__Search 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-2 (vector-ref sc8 1))) (let ((e-3 (vector-ref sc8 2))) (vector 0 (vector 3 e-12 nC-39 (vector 0 e-17 e-18 e-19 e-20) e-2) e-3))))) e-9)))))))))))))))))))))))))))))) (vector 0 ))) eta-0)))))))(else (ExprSearch-Interactive-TTImp-case--searchType-9488 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-10))))))))))(else (ExprSearch-Interactive-TTImp-case--searchType-9488 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-10))))))(else (let ((e-0 (- arg-9 1))) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((envC-39 (vector 1 e-4 arg-7))) (lambda (eta-0) (let ((act-24 ((Context-Core-log arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-3 arg-0) e-5)))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-25 ((ExprSearch-Interactive-TTImp-searchType (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 e-0 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (vector 1 (ExprSearch-Interactive-TTImp-map_Functor__Search 'erased 'erased (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-13 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (vector 0 (vector 3 e-2 e-3 (vector 0 e-7 e-8 e-9 e-10) e-13) e-12))))) e-11))))))))))))))))))(else (ExprSearch-Interactive-TTImp-case--searchType-9488 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-10))))))))))(else (ExprSearch-Interactive-TTImp-case--searchType-9488 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-10))))))))))) +(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) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (let ((sc1 arg-10)) (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-8 (vector 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-8) (vector 1 (lambda (eta-1) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-7 e-18) eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 e-5 e-12 (vector 0 ) arg-0 e-6 eta-1))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((nC-39 (vector 1 e-7))) (let ((envC-39 (vector 1 (vector 2 e-16 e-17 e-18) arg-7))) (let ((scC-39 (TT-Core-renameTop 'erased 'erased nC-39 e-14))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 nC-39 arg-0) scC-39))) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 ((ExprSearch-Interactive-TTImp-searchType (vector 1 nC-39 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 0 scC-39) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc7 1))) (vector 1 (ExprSearch-Interactive-TTImp-map_Functor__Search 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-2 (vector-ref sc8 1))) (let ((e-3 (vector-ref sc8 2))) (vector 0 (vector 3 e-11 nC-39 (vector 0 e-16 e-17 e-18) e-2) e-3))))) e-9)))))))))))))))))))))))))))))) (vector 0 ))) eta-0))))))(else (ExprSearch-Interactive-TTImp-case--searchType-9447 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-10))))))))))(else (ExprSearch-Interactive-TTImp-case--searchType-9447 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-10))))))(else (let ((e-0 (- arg-9 1))) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((envC-39 (vector 1 (vector 2 e-7 e-8 e-9) arg-7))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Introduced lambda, search for " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-3 arg-0) e-5))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((act-25 ((ExprSearch-Interactive-TTImp-searchType (vector 1 e-3 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 envC-39 arg-8 e-0 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (ExprSearch-Interactive-TTImp-map_Functor__Search 'erased 'erased (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-12 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (vector 0 (vector 3 e-2 e-3 (vector 0 e-7 e-8 e-9) e-12) e-11))))) e-10)))))))))))))))))(else (ExprSearch-Interactive-TTImp-case--searchType-9447 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-10))))))))))(else (ExprSearch-Interactive-TTImp-case--searchType-9447 arg-0 arg-9 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-10))))))))))) (define ExprSearch-Interactive-TTImp-searchSort (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (ExprSearch-Interactive-TTImp-searchN 'erased arg-1 arg-2 arg-3 arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32searchSort-3855 'erased arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 (List-Data-isNil 'erased e-2)) ext-0)))))))))))) -(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) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ExprSearch-Interactive-TTImp-n--13711-5845-visible arg-0 e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 e-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-logTerm arg-0 arg-1 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Searching " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) visns)) " for "))) arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-8 arg-9 (Types-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 eta-1)) visns) eta-0))))))))))))))))))))))))))))) +(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) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ExprSearch-Interactive-TTImp-n--13521-5839-visible arg-0 e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 e-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Searching " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) visns)) " for "))) arg-8 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 1 arg-7 arg-8 arg-9 (Types-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 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) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-getNS arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getNestedNS arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-case--searchName-5075 arg-0 e-2 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 (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-searchN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (UnifyState-Core-tryUnify 'erased arg-1 arg-2 (lambda (eta-0) (let ((act-24 (arg-4 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ExprSearch-Interactive-TTImp-n--11300-3675-count 'erased arg-4 arg-3 arg-2 arg-1 arg-3 e-5) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6)))))))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (lambda (eta-1) (vector 1 (vector 0 )))))) ext-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-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased 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-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-8 arg-10) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-8 e-7) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 1 arg-8 arg-10 arg-11 (vector 1 (ExprSearch-Interactive-TTImp-n--14816-6842-findPos arg-0 e-6 e-7 e-3 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (lambda (eta-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 arg-8 e-3 arg-10 arg-11) (vector 0 ))) eta-0))))))))))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-searchN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (UnifyState-Core-tryUnify 'erased arg-1 arg-2 (lambda (eta-0) (let ((act-24 (arg-4 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((ExprSearch-Interactive-TTImp-n--11116-3675-count 'erased arg-4 arg-3 arg-2 arg-1 arg-3 e-5) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6)))))))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) (lambda (eta-1) (vector 1 (vector 0 )))))) ext-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-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased 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-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-8 arg-10) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-8 e-7) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (ExprSearch-Interactive-TTImp-getSuccessful arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-7 1 arg-8 arg-10 arg-11 (vector 1 (ExprSearch-Interactive-TTImp-n--14624-6834-findPos arg-0 e-6 e-7 e-3 arg-11 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 (lambda (eta-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 arg-8 e-3 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) (ExprSearch-Interactive-TTImp-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 1 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))) (define ExprSearch-Interactive-TTImp-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (ExprSearch-Interactive-TTImp-case--searchIfHole-4351 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc0 arg-5)) (let ((e-3 (vector-ref sc0 4))) e-3))))) -(define 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 ext-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-9 (vector 0 ) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 3))) e-2)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Normalised type") e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((ExprSearch-Interactive-TTImp-searchType (vector 0 ) arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-8 arg-7 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 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ExprSearch-Interactive-TTImp-n--11840-10444-lookupHoleName arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-7 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (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--caseC-32blockC-32inC-32search-10629 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-4 e-8 e-9 bind-0 (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 18))) e-17))) ext-0)))))(else (let ((act-26 ((Context-Core-log arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) " not found"))) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) ext-0)))))))))))(else (let ((act-26 ((Context-Core-log arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) " not found"))) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) ext-0))))))))))(else (let ((act-26 ((Context-Core-log arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) " not found"))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) ext-0)))))))))))))))))))) +(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 ext-0) (let ((act-24 (Normalise-Core-normalise (vector 0 ) arg-9 (vector 0 ) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 3))) e-2)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Normalised type") e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((ExprSearch-Interactive-TTImp-searchType (vector 0 ) arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-8 arg-7 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 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ExprSearch-Interactive-TTImp-n--11656-10397-lookupHoleName arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-7 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (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--caseC-32blockC-32inC-32search-10582 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-4 e-8 e-9 bind-0 (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 18))) e-17))) ext-0)))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) " not found")) ext-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) ext-0)))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) " not found")) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) ext-0))))))))))(else (let ((act-26 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) " not found")) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-7) ext-0)))))))))))))))))))) (define RecData-ExprSearch-Interactive-TTImp-recname (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define SearchOpts-ExprSearch-Interactive-TTImp-recData (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define ExprSearch-Interactive-TTImp-one (lambda (arg-0 arg-1 ext-0) (vector 1 (vector 1 arg-1 (lambda (eta-0) (vector 1 (vector 0 ))))))) @@ -6208,22 +6136,22 @@ (define ExprSearch-Interactive-TTImp-nextResult (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (UnifyState-Core-tryUnify 'erased arg-1 arg-2 (lambda (eta-0) (let ((act-24 (arg-3 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 1 (vector 0 e-2 e-3)))))))))))))) (lambda (eta-0) (vector 1 (vector 0 ))) ext-0))) (define SearchOpts-ExprSearch-Interactive-TTImp-mustSplit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7)))) (define ExprSearch-Interactive-TTImp-mkCandidates (lambda (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) (ExprSearch-Interactive-TTImp-one 'erased (vector 0 arg-4 arg-5) 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) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (ExprSearch-Interactive-TTImp-firstSuccess 'erased arg-1 arg-2 (vector 1 (ExprSearch-Interactive-TTImp-mkCandidates arg-0 arg-1 arg-2 arg-3 (vector 4 arg-3 arg-4 e-10) (List-Types-Prelude-C-43C-43 'erased arg-5 e-11) e-3) (vector 1 (lambda (eta-0) (let ((act-24 (e-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-mkCandidates arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-5 e-3)) eta-0))))))) (vector 0 ))))))))))))))))))) -(define ExprSearch-Interactive-TTImp-makeHelper (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ExprSearch-Interactive-TTImp-case--makeHelper-7679 arg-0 e-6 e-7 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc2 arg-6)) (let ((e-12 (vector-ref sc2 4))) e-12))))))))))))) +(define ExprSearch-Interactive-TTImp-makeHelper (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ExprSearch-Interactive-TTImp-case--makeHelper-7671 arg-0 e-6 e-7 e-3 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc2 arg-6)) (let ((e-12 (vector-ref sc2 4))) e-12))))))))))))) (define SearchOpts-ExprSearch-Interactive-TTImp-ltor (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6)))) (define RecData-ExprSearch-Interactive-TTImp-lhsapp (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define ExprSearch-Interactive-TTImp-initSearchOpts (lambda (arg-0 arg-1) (vector 0 1 arg-0 (vector 0 ) arg-1 1 1 0 1 1 (vector 0 )))) (define SearchOpts-ExprSearch-Interactive-TTImp-inUnwrap (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) (define SearchOpts-ExprSearch-Interactive-TTImp-inArg (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (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 ext-0) (let ((act-24 ((ExprSearch-Interactive-TTImp-firstSuccess 'erased arg-1 arg-3 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((res (vector 0 ))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32getSuccessful-5653 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 res (Basics-Prelude-C-38C-38 arg-7 (lambda () (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0))))) ext-0)))(else (vector 1 e-5))))))))))) +(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 ext-0) (let ((act-24 ((ExprSearch-Interactive-TTImp-firstSuccess 'erased arg-1 arg-3 arg-11) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((res (vector 0 ))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32getSuccessful-5647 arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 res (Basics-Prelude-C-38C-38 arg-7 (lambda () (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0))))) ext-0)))(else (vector 1 e-5))))))))))) (define SearchOpts-ExprSearch-Interactive-TTImp-getRecData (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) -(define ExprSearch-Interactive-TTImp-getLHSData (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-1 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (ExprSearch-Interactive-TTImp-n--19365-10834-getLHS e-2 arg-1 arg-0 (vector 0 ) e-6))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-getLHSData (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-1 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (ExprSearch-Interactive-TTImp-n--19121-10783-getLHS e-2 arg-1 arg-0 (vector 0 ) e-6))))))))))))))))))) (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-Types-Prelude-C-43C-43 'erased arg-2 (vector 1 e-2 (vector 0 ))) e-9))) (ExprSearch-Interactive-TTImp-case--getAllEnv-4212 e-2 e-3 e-9 e-8 arg-2 arg-1 rest (TT-Core-weakenVar 'erased 'erased arg-2 0 'erased))))))))))))) (define SearchOpts-ExprSearch-Interactive-TTImp-genExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9)))) -(define ExprSearch-Interactive-TTImp-firstSuccess (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (e-2 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (vector 1 (vector 1 e-1 (lambda (eta-2) (ExprSearch-Interactive-TTImp-n--12457-4710-continue 'erased e-2 e-3 arg-2 arg-1 e-5 e-6 (vector 1 e-4 e-3) eta-2))))))) (else (ExprSearch-Interactive-TTImp-n--12457-4710-continue 'erased e-2 e-3 arg-2 arg-1 e-5 e-6 e-3 eta-1)))))))))) (lambda (err) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--12457-4710-continue 'erased e-2 e-3 arg-2 arg-1 e-5 e-6 e-3 eta-1))) eta-0))))))))))))))))))) +(define ExprSearch-Interactive-TTImp-firstSuccess (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (e-2 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-4 (vector-ref sc4 2))) (vector 1 (vector 1 e-1 (lambda (eta-2) (ExprSearch-Interactive-TTImp-n--12273-4710-continue 'erased e-2 e-3 arg-2 arg-1 e-5 e-6 (vector 1 e-4 e-3) eta-2))))))) (else (ExprSearch-Interactive-TTImp-n--12273-4710-continue 'erased e-2 e-3 arg-2 arg-1 e-5 e-6 e-3 eta-1)))))))))) (lambda (err) (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--12273-4710-continue 'erased e-2 e-3 arg-2 arg-1 e-5 e-6 e-3 eta-1))) eta-0))))))))))))))))))) (define ExprSearch-Interactive-TTImp-firstLinearOK (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (ExprSearch-Interactive-TTImp-noResult 'erased 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) (UnifyState-Core-handleUnify 'erased arg-0 arg-2 (lambda (eta-1) (let ((act-24 (let ((sc2 (Basics-Prelude-not (List-Data-isNil 'erased e-7)))) (cond ((equal? sc2 0) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-2) (Check-Elab-TTImp-processDecl (vector 0 ) arg-0 arg-1 arg-2 (vector 1 (vector 1 ) (vector 0 )) (vector 0 ) (vector 0 ) eta-2)) e-7) eta-1)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-2 arg-3 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 1 (vector 0 ) e-6 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-9 (vector 0 ) e-6 eta-1))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-10 eta-1))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-11) eta-1)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (e-3 eta-1))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (vector 1 (vector 1 e-11 (ExprSearch-Interactive-TTImp-firstLinearOK arg-0 arg-1 arg-2 arg-3 e-12)))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-24 (e-3 eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((ExprSearch-Interactive-TTImp-firstLinearOK arg-0 arg-1 arg-2 arg-3 e-5) eta-1)))))))) eta-0)))))))))))) (define ExprSearch-Interactive-TTImp-filterS (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((fnext (ExprSearch-Interactive-TTImp-filterS 'erased arg-1 e-5))) ((ExprSearch-Interactive-TTImp-case--filterS-3628 'erased e-2 e-3 arg-1 e-5 fnext (arg-1 e-2)) eta-0))))))))))))))) -(define ExprSearch-Interactive-TTImp-exprSearchOpts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ExprSearch-Interactive-TTImp-n--19599-11065-lookupHoleName arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5 e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-0 (vector 8 e-9)) ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (Metadata-Core-findHoleLHS arg-1 e-11 ext-0)))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((Context-Core-log arg-0 "interaction.search" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "LHS hole data " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 e-8 e-11))))) ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-9 e-10))))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32exprSearchOpts-11310 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-8 e-9 e-10 _-0 e-11 e-12 (let ((sc7 arg-3)) (let ((e-18 (vector-ref sc7 2))) e-18))) ext-0)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-29 (ExprSearch-Interactive-TTImp-search arg-0 arg-1 arg-2 arg-4 (let ((sc8 e-10)) (let ((e-27 (vector-ref sc8 8))) e-27)) e-13 (let ((sc8 e-10)) (let ((e-2 (vector-ref sc8 3))) e-2)) e-8 ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) ((ExprSearch-Interactive-TTImp-firstLinearOK arg-0 arg-1 arg-2 arg-4 e-14) ext-0))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-5) ext-0)))))))))))))))) +(define ExprSearch-Interactive-TTImp-exprSearchOpts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ExprSearch-Interactive-TTImp-n--19351-11010-lookupHoleName arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-5 e-5 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((act-26 (let ((act-26 ((Context-Core-getFullName arg-0 (vector 8 e-9)) ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (Metadata-Core-findHoleLHS arg-1 e-11 ext-0)))))))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "LHS hole data " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x-0)))) d x))))) (vector 0 e-8 e-11)))) ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-9 e-10))))) ((ExprSearch-Interactive-TTImp-case--caseC-32blockC-32inC-32exprSearchOpts-11253 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-8 e-9 e-10 _-0 e-11 e-12 (let ((sc7 arg-3)) (let ((e-18 (vector-ref sc7 2))) e-18))) ext-0)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-29 (ExprSearch-Interactive-TTImp-search arg-0 arg-1 arg-2 arg-4 (let ((sc8 e-10)) (let ((e-27 (vector-ref sc8 8))) e-27)) e-13 (let ((sc8 e-10)) (let ((e-2 (vector-ref sc8 3))) e-2)) e-8 ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) ((ExprSearch-Interactive-TTImp-firstLinearOK arg-0 arg-1 arg-2 arg-4 e-14) ext-0))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-4 arg-5) ext-0)))))))))))))))) (define ExprSearch-Interactive-TTImp-exprSearchN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (ExprSearch-Interactive-TTImp-searchN 'erased arg-0 arg-2 arg-4 (lambda (eta-0) (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 eta-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2)))))))))) (define ExprSearch-Interactive-TTImp-exprSearch (lambda (arg-0 arg-1 arg-2 ext-3 ext-1 ext-2 ext-0) (ExprSearch-Interactive-TTImp-exprSearchOpts arg-0 arg-1 arg-2 (ExprSearch-Interactive-TTImp-initSearchOpts 0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) ext-3 ext-1 ext-2 ext-0))) (define ExprSearch-Interactive-TTImp-explicit (lambda (arg-0 arg-1) (ExprSearch-Interactive-TTImp-case--explicit-4684 'erased arg-1 (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))) @@ -6231,289 +6159,289 @@ (define SearchOpts-ExprSearch-Interactive-TTImp-depth (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define ExprSearch-Interactive-TTImp-combine (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) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 1 ((arg-5 e-2) e-6) (ExprSearch-Interactive-TTImp-trySearch 'erased arg-3 arg-4 (lambda (eta-1) (let ((act-24 (e-7 eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (ExprSearch-Interactive-TTImp-one 'erased e-2 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-combine 'erased 'erased 'erased arg-3 arg-4 arg-5 e-8 e-5) eta-1)))))))))))) (ExprSearch-Interactive-TTImp-trySearch 'erased arg-3 arg-4 (lambda (eta-1) (let ((act-24 (e-3 eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (ExprSearch-Interactive-TTImp-one 'erased e-6 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-combine 'erased 'erased 'erased arg-3 arg-4 arg-5 e-5 e-8) eta-1)))))))))))) (lambda (eta-1) (let ((act-24 (e-3 eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (e-7 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-combine 'erased 'erased 'erased arg-3 arg-4 arg-5 e-5 e-8) eta-1))))))))))))))))))))))))))))) (define ExprSearch-Interactive-TTImp-ExprDefs (lambda () (vector "Prelude.Types.List" (vector "TTImp.TTImp.ImpDecl" )))) -(define CaseSplit-Interactive-TTImp-case--getSplits-13442 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (CaseSplit-Interactive-TTImp-getSplitsLHS arg-3 arg-4 arg-2 e-5 e-9 e-10 arg-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 2 ))))))))) -(define CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32getSplitsLHS-13305 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (CaseSplit-Interactive-TTImp-mkCase arg-5 arg-4 e-1 arg-15 eta-1 eta-2))) arg-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CaseSplit-Interactive-TTImp-combine e-5 (vector 0 ))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-11) eta-0))))))) -(define CaseSplit-Interactive-TTImp-case--getSplitsLHS-13250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-5 (vector 0 ) arg-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-5 arg-3 arg-2 arg-9 arg-0 c e-5)) e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32getSplitsLHS-13305 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 e-10 e-11 _-0 e-5 e-8 (Context-Core-getNameID e-6 (let ((sc5 arg-10)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0))))))))))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-3))))))))) -(define CaseSplit-Interactive-TTImp-case--mkCase-13054 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-4 arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (set-box! arg-3 arg-7))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-4 (vector 0 ) e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Context-Core-log arg-4 "interaction.casesplit" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-1)))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 ((Context-Core-log arg-4 "interaction.casesplit" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-7)))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (CaseSplit-Interactive-TTImp-getUpdates arg-6 arg-1 e-7 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-7 e-10))))))))))))))))))))))))))))))))) -(define CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32mkCase-12929 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-0)))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define CaseSplit-Interactive-TTImp-case--mkCase-12885 (lambda (arg-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) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf e-0 arg-6 e-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-0 arg-6 e-2 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-impossibleOK e-0 arg-6 e-6 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (vector 1 arg-0))) (else (vector 1 (vector 2 ))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))) -(define CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findUpdates-12696 (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findUpdates-12640 (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--caseC-32blockC-32inC-32findUpdates-12610 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 e-2)) e-1)))))))) (vector 1 act-24))))))))) -(define CaseSplit-Interactive-TTImp-case--findUpdates-12564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (CaseSplit-Interactive-TTImp-recordUpdate arg-5 arg-2 arg-1 (vector 0 arg-2 arg-3) eta-0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32findUpdates-12610 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-7) (lambda (arg-8) (Name-Core-C-61C-61_Eq__Name arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Name-Core-C-47C-61_Eq__Name arg-7 arg-8)))) arg-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0))))))))))))) -(define CaseSplit-Interactive-TTImp-case--recordUpdate-12519 (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--newLHS-12428 (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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-5 (vector 31 arg-5 0))) (List-Data-take 'erased arg-4 e-3)))) (let ((ups (List-Data-drop 'erased arg-4 e-3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-update arg-6 arg-3 arg-2 arg-1 eta-1)) ups) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CaseSplit-Interactive-TTImp-apply e-2 (List-Types-Prelude-C-43C-43 'erased keep e-5)))))))))))))))) -(define CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32updateArg-12288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (CaseSplit-Interactive-TTImp-expandCon arg-5 arg-1 (List-Data-filter 'erased (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-7 arg-0)) arg-4) arg-2 eta-0))) (else (lambda (eta-0) (vector 1 (vector 31 arg-1 0)))))))) -(define CaseSplit-Interactive-TTImp-case--updateArg-12268 (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--caseC-32blockC-32inC-32updateArg-12288 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Name-Core-C-61C-61_Eq__Name arg-0 arg-3))) (else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-0)))))))) -(define CaseSplit-Interactive-TTImp-case--expandCon-12204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-3 arg-4 (vector 0 ) arg-1 (vector 0 ) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-2 arg-0) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-2 eta-1)) e-6)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0))))))) -(define CaseSplit-Interactive-TTImp-case--getArgNames-12033 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-12 arg-11 arg-6 arg-10 arg-9 arg-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CaseSplit-Interactive-TTImp-case--getArgNameC-44findNames-11892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10516-11727-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) (CaseSplit-Interactive-TTImp-defaultNames))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10516-11727-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-2))))))))) -(define CaseSplit-Interactive-TTImp-case--getArgNameC-44lookupName-11766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-9)))) (else (CaseSplit-Interactive-TTImp-n--10516-11726-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-11 arg-10)))))) -(define CaseSplit-Interactive-TTImp-case--unique-11650 (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findCons-11465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-5 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-1 eta-2))) e-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 e-10 e-11)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Not a type constructor " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Not a type constructor " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7))))))))))) -(define CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32findCons-11421 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Can't find type of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS"))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (let ((e-8 (vector-ref sc3 7))) (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-1 eta-2))) e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 e-12 e-13))))))))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Not a type constructor " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Not a type constructor " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5)))))))))))))))))))) -(define CaseSplit-Interactive-TTImp-case--findCons-11377 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 "Can't find function name on LHS"))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-findTyName (vector 0 ) arg-2 e-5 (vector 0 ) arg-1 arg-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Can't find type of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS")))))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (Context-Core-lookupDefExact e-3 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((6) (let ((e-8 (vector-ref sc6 7))) (let ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-3 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-1 eta-2))) e-8) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-15 e-16))))))))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Not a type constructor " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Not a type constructor " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7)))))))))))))))))))))))))))))))))) -(define CaseSplit-Interactive-TTImp-case--getDefining-11349 (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--caseC-32blockC-32inC-32findTyName-11200 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-2)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CaseSplit-Interactive-TTImp-case--findTyName-11163 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-12 arg-11 arg-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((3) (let ((e-2 (vector-ref sc2 2))) (vector 1 (vector 1 e-2))))(else (vector 1 (vector 0 )))))))))))) (else (CaseSplit-Interactive-TTImp-findTyName (vector 1 arg-4 arg-0) arg-1 arg-12 (vector 1 arg-9 arg-11) arg-10 arg-5)))))) -(define CaseSplit-Interactive-TTImp-n--10516-11727-notBound (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) (vector 1 arg-7) arg-3)))) -(define CaseSplit-Interactive-TTImp-n--10412-11635-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-Types-Prelude-C-43C-43 arg-5 (Show-Prelude-show_Show__Int arg-6))))))) -(define CaseSplit-Interactive-TTImp-n--10516-11726-lookupName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-6 arg-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-getFullName arg-6 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((CaseSplit-Interactive-TTImp-case--getArgNameC-44lookupName-11766 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-6 e-7 e-3 arg-8 e-5 e-8 (Name-Core-C-61C-61_Eq__Name e-5 e-8)) eta-0)))))))))))))))))))))) -(define CaseSplit-Interactive-TTImp-n--10516-11729-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (CaseSplit-Interactive-TTImp-unique (vector 1 e-0 arg-8) (vector 1 e-0 arg-8) 0 arg-9)))(else (CaseSplit-Interactive-TTImp-unique arg-8 arg-8 0 arg-9)))))) -(define CaseSplit-Interactive-TTImp-n--10516-11728-findNames (lambda (arg-0 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 ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10516-11727-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) (vector 1 "f" (vector 1 "g" (vector 0 )))))))(else (lambda (eta-0) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10516-11727-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) (CaseSplit-Interactive-TTImp-defaultNames))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--10516-11726-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-7 (NameMap-Data-toList 'erased (let ((sc1 arg-5)) (let ((e-14 (vector-ref sc1 15))) e-14)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10516-11727-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) (CaseSplit-Interactive-TTImp-defaultNames)))) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10516-11727-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-2))))))))))))))(else (lambda (eta-0) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10516-11727-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) (CaseSplit-Interactive-TTImp-defaultNames))))))))) +(define CaseSplit-Interactive-TTImp-case--getSplits-13387 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (CaseSplit-Interactive-TTImp-getSplitsLHS arg-3 arg-4 arg-2 e-5 e-9 e-10 arg-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 2 ))))))))) +(define CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32getSplitsLHS-13250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (CaseSplit-Interactive-TTImp-mkCase arg-5 arg-4 e-1 arg-15 eta-1 eta-2))) arg-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CaseSplit-Interactive-TTImp-combine e-5 (vector 0 ))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-11) eta-0))))))) +(define CaseSplit-Interactive-TTImp-case--getSplitsLHS-13195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-5 (vector 0 ) arg-7 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-5 arg-3 arg-2 arg-9 arg-0 c e-5)) e-11) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 1 (vector 0 e-6 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32getSplitsLHS-13250 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-6 e-10 e-11 _-0 e-5 e-8 (Context-Core-getNameID e-6 (let ((sc5 arg-10)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0))))))))))))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-3))))))))) +(define CaseSplit-Interactive-TTImp-case--mkCase-13009 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-4 arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (set-box! arg-3 arg-7))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-26 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-4 (vector 0 ) e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-1))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-log arg-4 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-7))) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (CaseSplit-Interactive-TTImp-getUpdates arg-6 arg-1 e-7 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 e-7 e-10))))))))))))))))))))))))))))))))) +(define CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32mkCase-12884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-0)))) (else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define CaseSplit-Interactive-TTImp-case--mkCase-12840 (lambda (arg-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) ((5) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf e-0 arg-6 e-2 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf e-0 arg-6 e-2 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((ProcessDef-TTImp-impossibleOK e-0 arg-6 e-6 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (vector 1 (vector 1 arg-0))) (else (vector 1 (vector 2 ))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 )))))))) +(define CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findUpdates-12651 (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findUpdates-12595 (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--caseC-32blockC-32inC-32findUpdates-12565 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 (vector 1 (vector 0 arg-3 arg-1) e-0) e-1))))))) (vector 1 act-24)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (set-box! arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 (vector 1 (vector 0 arg-1 (vector 0 arg-2 e-2)) e-1)))))))) (vector 1 act-24))))))))) +(define CaseSplit-Interactive-TTImp-case--findUpdates-12519 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (CaseSplit-Interactive-TTImp-recordUpdate arg-5 arg-2 arg-1 (vector 0 arg-2 arg-3) eta-0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32findUpdates-12565 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-7) (lambda (arg-8) (Name-Core-C-61C-61_Eq__Name arg-7 arg-8))) (lambda (arg-7) (lambda (arg-8) (Name-Core-C-47C-61_Eq__Name arg-7 arg-8)))) arg-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0))))))))))))) +(define CaseSplit-Interactive-TTImp-case--recordUpdate-12474 (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--newLHS-12383 (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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 0 arg-5 (vector 31 arg-5 0))) (List-Data-take 'erased arg-4 e-3)))) (let ((ups (List-Data-drop 'erased arg-4 e-3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-update arg-6 arg-3 arg-2 arg-1 eta-1)) ups) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CaseSplit-Interactive-TTImp-apply e-2 (List-Types-Prelude-C-43C-43 'erased keep e-5)))))))))))))))) +(define CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32updateArg-12243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (CaseSplit-Interactive-TTImp-expandCon arg-5 arg-1 (List-Data-filter 'erased (lambda (arg-7) (Name-Core-C-47C-61_Eq__Name arg-7 arg-0)) arg-4) arg-2 eta-0))) (else (lambda (eta-0) (vector 1 (vector 31 arg-1 0)))))))) +(define CaseSplit-Interactive-TTImp-case--updateArg-12223 (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--caseC-32blockC-32inC-32updateArg-12243 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Name-Core-C-61C-61_Eq__Name arg-0 arg-3))) (else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-0)))))))) +(define CaseSplit-Interactive-TTImp-case--expandCon-12159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-3 arg-4 (vector 0 ) arg-1 (vector 0 ) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-2 arg-0) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 16 arg-2 eta-1)) e-6)))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0))))))) +(define CaseSplit-Interactive-TTImp-case--getArgNames-11990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-12 arg-11 arg-5 arg-10 arg-9 arg-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 (vector 0 ))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CaseSplit-Interactive-TTImp-case--getArgNameC-44findNames-11852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10290-11689-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) (CaseSplit-Interactive-TTImp-defaultNames))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10290-11689-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-2))))))))) +(define CaseSplit-Interactive-TTImp-case--getArgNameC-44lookupName-11728 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 arg-9)))) (else (CaseSplit-Interactive-TTImp-n--10290-11688-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-11 arg-10)))))) +(define CaseSplit-Interactive-TTImp-case--unique-11612 (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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findCons-11451 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((6) (let ((e-8 (vector-ref sc1 7))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-5 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc2 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-1 eta-2))) e-8) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 e-10 e-11)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Not a type constructor " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Not a type constructor " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) arg-7))))))))))) +(define CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32findCons-11407 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Can't find type of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS"))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((6) (let ((e-8 (vector-ref sc3 7))) (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-1 eta-2))) e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 e-12 e-13))))))))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Not a type constructor " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Not a type constructor " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-5)))))))))))))))))))) +(define CaseSplit-Interactive-TTImp-case--findCons-11363 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-1 "Can't find function name on LHS"))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-findTyName (vector 0 ) arg-2 e-5 (vector 0 ) arg-1 arg-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Can't find type of " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-1) " in LHS")))))) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (Context-Core-lookupDefExact e-3 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((6) (let ((e-8 (vector-ref sc6 7))) (let ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-3 eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (vector 0 e-15))) (else (let ((e-15 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-1 eta-2))) e-8) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 0 e-2 (vector 0 e-15 e-16))))))))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Not a type constructor " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7))))))))))(else (vector 1 (vector 0 (vector 1 arg-1 (Strings-Types-Prelude-C-43C-43 "Not a type constructor " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x)))) e-7)))))))))))))))))))))))))))))))))) +(define CaseSplit-Interactive-TTImp-case--getDefining-11335 (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--caseC-32blockC-32inC-32findTyName-11197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-2)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CaseSplit-Interactive-TTImp-case--findTyName-11164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-nf arg-0 arg-10 arg-9 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((3) (let ((e-2 (vector-ref sc2 2))) (vector 1 (vector 1 e-2))))(else (vector 1 (vector 0 )))))))))))) (else (CaseSplit-Interactive-TTImp-findTyName (vector 1 arg-6 arg-0) arg-1 arg-10 (vector 1 (vector 3 arg-5 arg-4 arg-3) arg-9) arg-8 arg-7)))))) +(define CaseSplit-Interactive-TTImp-n--10290-11689-notBound (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Name-Core-C-61C-61_Eq__Name arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Name-Core-C-47C-61_Eq__Name arg-8 arg-9)))) (vector 1 arg-7) arg-3)))) +(define CaseSplit-Interactive-TTImp-n--10186-11597-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-Types-Prelude-C-43C-43 arg-5 (Show-Prelude-show_Show__Int arg-6))))))) +(define CaseSplit-Interactive-TTImp-n--10290-11688-lookupName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-6 arg-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-getFullName arg-6 e-6) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((CaseSplit-Interactive-TTImp-case--getArgNameC-44lookupName-11728 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-6 e-7 e-3 arg-8 e-5 e-8 (Name-Core-C-61C-61_Eq__Name e-5 e-8)) eta-0)))))))))))))))))))))) +(define CaseSplit-Interactive-TTImp-n--10290-11691-getName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (CaseSplit-Interactive-TTImp-unique (vector 1 e-0 arg-8) (vector 1 e-0 arg-8) 0 arg-9)))(else (CaseSplit-Interactive-TTImp-unique arg-8 arg-8 0 arg-9)))))) +(define CaseSplit-Interactive-TTImp-n--10290-11690-findNames (lambda (arg-0 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 ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10290-11689-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) (vector 1 "f" (vector 1 "g" (vector 0 )))))))(else (lambda (eta-0) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10290-11689-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) (CaseSplit-Interactive-TTImp-defaultNames))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--10290-11688-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-7 (NameMap-Data-toList 'erased (let ((sc1 arg-5)) (let ((e-14 (vector-ref sc1 15))) e-14)))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10290-11689-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) (CaseSplit-Interactive-TTImp-defaultNames)))) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10290-11689-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-2))))))))))))))(else (lambda (eta-0) (vector 1 (List-Data-filter 'erased (lambda (eta-1) (CaseSplit-Interactive-TTImp-n--10290-11689-notBound 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) (CaseSplit-Interactive-TTImp-defaultNames))))))))) (define CaseSplit-Interactive-TTImp-show_Show__SplitError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "No valid case splits") ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "Can't split on " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-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--updateArg-12268 e-1 e-0 arg-3 arg-2 arg-1 arg-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Name-Core-C-61C-61_Eq__Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Name-Core-C-47C-61_Eq__Name arg-5 arg-6)))) e-1 arg-1))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-2 e-5 e-6))))))))))))))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 9 e-5 e-9 e-7 e-10)))))))))))))))))) ((17) (let ((e-12 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-12)))(else (lambda (eta-0) (vector 1 (vector 31 (TTImp-TTImp-getFC arg-4) 0)))))))) +(define CaseSplit-Interactive-TTImp-updateArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (CaseSplit-Interactive-TTImp-case--updateArg-12223 e-1 e-0 arg-3 arg-2 arg-1 arg-0 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-5) (lambda (arg-6) (Name-Core-C-61C-61_Eq__Name arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (Name-Core-C-47C-61_Eq__Name arg-5 arg-6)))) e-1 arg-1))))) ((8) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 8 e-2 e-5 e-6))))))))))))))))) ((9) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc2 1))) (vector 1 (vector 9 e-5 e-9 e-7 e-10)))))))))))))))))) ((17) (let ((e-12 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-12)))(else (lambda (eta-0) (vector 1 (vector 31 (TTImp-TTImp-getFC arg-4) 0)))))))) (define CaseSplit-Interactive-TTImp-update (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-3 e-5)))))))))))))))) -(define CaseSplit-Interactive-TTImp-unique (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (CaseSplit-Interactive-TTImp-unique arg-1 arg-1 (b+ arg-2 1 63) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((var (CaseSplit-Interactive-TTImp-n--10412-11635-mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (CaseSplit-Interactive-TTImp-case--unique-11650 e-2 e-3 arg-3 arg-2 arg-1 var (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (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-8 (vector-ref sc1 3))) (CaseSplit-Interactive-TTImp-substLets arg-0 (SubstEnv-TT-Core-subst arg-0 e-2 e-8 e-4)))) ((4) (let ((e-13 (vector-ref sc1 3))) (CaseSplit-Interactive-TTImp-substLets arg-0 (SubstEnv-TT-Core-subst arg-0 e-2 e-13 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-unique (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (CaseSplit-Interactive-TTImp-unique arg-1 arg-1 (b+ arg-2 1 63) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((var (CaseSplit-Interactive-TTImp-n--10186-11597-mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (CaseSplit-Interactive-TTImp-case--unique-11612 e-2 e-3 arg-3 arg-2 arg-1 var (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (vector 1 var) arg-3)))))))))) +(define CaseSplit-Interactive-TTImp-substLets (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-substLets arg-0 (SubstEnv-TT-Core-subst arg-0 e-2 e-7 e-4)))) ((4) (let ((e-11 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-substLets arg-0 (SubstEnv-TT-Core-subst arg-0 e-2 e-11 e-4))))(else (vector 3 e-1 e-2 e-3 (CaseSplit-Interactive-TTImp-substLets (vector 1 e-2 arg-0) e-4))))))))))(else arg-1))))) (define CaseSplit-Interactive-TTImp-recordUpdate (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((nupdates (Types-Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 (Builtin-fst 'erased 'erased x) (vector 0 arg-1 (Builtin-snd 'erased 'erased x)))) (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 (vector 1 (vector 0 arg-2 (Utils-TTImp-substNames (vector 0 ) nupdates arg-3)) e-1)))))))) (vector 1 act-25)))))))))) -(define CaseSplit-Interactive-TTImp-newLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (CaseSplit-Interactive-TTImp-case--newLHS-12428 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--newLHS-12383 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getFnArgs arg-6 (vector 0 ))))) (define Updates-CaseSplit-Interactive-TTImp-namemap (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) -(define CaseSplit-Interactive-TTImp-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 e-5 arg-1 arg-2 (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 (TTImp-TTImp-getFC arg-4) (vector 1 ) arg-4) (vector 0 )) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-0 e-6))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-1 e-7))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-0 (vector 0 ) e-2 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 ((Context-Core-log arg-0 "interaction.casesplit" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-3)))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 ((Context-Core-log arg-0 "interaction.casesplit" (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-11)))) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (CaseSplit-Interactive-TTImp-getUpdates e-6 arg-3 e-11 eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-11 e-14)))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-27 (let ((act-27 (set-box! arg-0 e-6))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-1 e-7))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((sc5 err)) (case (vector-ref sc5 0) ((5) (let ((e-0 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((act-29 ((Normalise-Core-nf e-0 e-6 e-2 e-3) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-30 ((Normalise-Core-nf e-0 e-6 e-2 e-4) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-31 ((ProcessDef-TTImp-impossibleOK e-0 e-6 e-11 e-12) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (vector 1 (vector 1 arg-4))) (else (vector 1 (vector 2 )))))))))))))))))))))))))(else (vector 1 (vector 2 ))))))))))))))) ext-0)))))))))))))))))) +(define CaseSplit-Interactive-TTImp-mkCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-1))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 e-5 arg-1 arg-2 (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 (TTImp-TTImp-getFC arg-4) (vector 1 ) arg-4) (vector 0 )) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (set-box! arg-0 e-6))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-29 (let ((act-29 (set-box! arg-1 e-7))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-0 (vector 0 ) e-2 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "Original LHS: " (TTImp-TTImp-show_Show__RawImp arg-3))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Types-Prelude-C-43C-43 "New LHS: " (TTImp-TTImp-show_Show__RawImp e-11))) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 (CaseSplit-Interactive-TTImp-getUpdates e-6 arg-3 e-11 eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-11 e-14)))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-27 (let ((act-27 (set-box! arg-0 e-6))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-1 e-7))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((sc5 err)) (case (vector-ref sc5 0) ((5) (let ((e-0 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((act-29 ((Normalise-Core-nf e-0 e-6 e-2 e-3) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-30 ((Normalise-Core-nf e-0 e-6 e-2 e-4) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-31 ((ProcessDef-TTImp-impossibleOK e-0 e-6 e-11 e-12) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (vector 1 (vector 1 arg-4))) (else (vector 1 (vector 2 )))))))))))))))))))))))))(else (vector 1 (vector 2 ))))))))))))))) ext-0)))))))))))))))))) (define CaseSplit-Interactive-TTImp-getUpdates (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "TTImp.Interactive.CaseSplit.UPD" ) (vector 0 (vector 0 ) (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-findUpdates e-5 arg-0 arg-1 arg-2) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))))))))))))))))))) -(define CaseSplit-Interactive-TTImp-getSplitsLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((lhs (CaseSplit-Interactive-TTImp-substLets (vector 0 ) arg-5))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-1 "interaction.casesplit" (+ 1 (+ 1 (+ 1 0))) (lambda () "Splitting") arg-5 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((usedns (CaseSplit-Interactive-TTImp-findAllVars 'erased arg-5))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CaseSplit-Interactive-TTImp-findCons arg-1 arg-6 lhs) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((act-27 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-1 (vector 0 ) lhs eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-1 arg-3 arg-4 usedns arg-6 c e-12)) e-11) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (let ((_-0 (vector 1 (vector 0 e-9 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32getSplitsLHS-13305 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 lhs e-5 usedns e-6 e-9 e-10 e-11 _-0 e-12 e-13 (Context-Core-getNameID e-9 (let ((sc8 e-6)) (let ((e-0 (vector-ref sc8 1))) e-0)))) eta-0)))))))))))))))))))) (else (let ((e-3 (vector-ref sc3 1))) (vector 1 (vector 0 e-3)))))))))))))))))))))))))) +(define CaseSplit-Interactive-TTImp-getSplitsLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((lhs (CaseSplit-Interactive-TTImp-substLets (vector 0 ) arg-5))) (lambda (eta-0) (let ((act-24 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Splitting") arg-5 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((usedns (CaseSplit-Interactive-TTImp-findAllVars 'erased arg-5))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((CaseSplit-Interactive-TTImp-findCons arg-1 arg-6 lhs) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (let ((e-10 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (let ((act-27 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-1 (vector 0 ) lhs eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (c) (CaseSplit-Interactive-TTImp-newLHS arg-1 arg-3 arg-4 usedns arg-6 c e-12)) e-11) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (let ((_-0 (vector 1 (vector 0 e-9 (vector 0 e-10 e-11))))) ((CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32getSplitsLHS-13250 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 lhs e-5 usedns e-6 e-9 e-10 e-11 _-0 e-12 e-13 (Context-Core-getNameID e-9 (let ((sc8 e-6)) (let ((e-0 (vector-ref sc8 1))) e-0)))) eta-0)))))))))))))))))))) (else (let ((e-3 (vector-ref sc3 1))) (vector 1 (vector 0 e-3)))))))))))))))))))))))))) (define CaseSplit-Interactive-TTImp-getSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Metadata-Core-findLHSAt arg-1 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) ((CaseSplit-Interactive-TTImp-getSplitsLHS arg-1 arg-0 arg-2 e-7 e-9 e-10 arg-4) ext-0))))))))) (else (vector 1 (vector 0 (vector 2 ))))))))))))) (define CaseSplit-Interactive-TTImp-getFnArgs (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (CaseSplit-Interactive-TTImp-getFnArgs e-1 (vector 1 (vector 0 e-0 e-2) arg-1)))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-getFnArgs e-4 (vector 1 (vector 1 e-3 e-5 e-6) arg-1)))))))(else (vector 0 arg-0 arg-1)))))) (define CaseSplit-Interactive-TTImp-getEnvArgNames (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-explicitlyBound arg-1 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-0 arg-1 e-5 (vector 0 ) (vector 0 ) arg-3) eta-0))))))))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (((e-5 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-2 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) ((CaseSplit-Interactive-TTImp-getEnvArgNames arg-0 arg-1 e-0 e-6) eta-0))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))) -(define CaseSplit-Interactive-TTImp-getDefining (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-4 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-getDefining 'erased e-4)))(else (CaseSplit-Interactive-TTImp-case--getDefining-11349 '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 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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((act-24 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 arg-2 e-2 arg-3 arg-4 e-9 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 (vector 0 )))))))))(else (vector 1 (vector 0 ))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-1 arg-2 arg-3 (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) e-5) arg-4) arg-5 e-10) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-5 e-11)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CaseSplit-Interactive-TTImp-getArgName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--10516-11728-findNames 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CaseSplit-Interactive-TTImp-n--10516-11729-getName 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 e-5 arg-5))))))))) -(define CaseSplit-Interactive-TTImp-findUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-22 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 (vector 0 e-12 e-22) eta-0)) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32findUpdates-12610 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-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-22 (let ((sc5 e-6)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))))))))))))(else (lambda (eta-0) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 arg-3 eta-0)))))))) ((8) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-15 e-24) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-16 e-25) eta-0)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-9 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-7 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((17) (let ((e-3 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))))) ((9) (let ((e-18 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 e-27) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-20 e-29) eta-0)))))))))(else (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (let ((e-9 (vector-ref sc0 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-7 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((17) (let ((e-3 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))) -(define CaseSplit-Interactive-TTImp-findTyName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((b (vector 3 e-6 e-7 e-8 e-9))) (CaseSplit-Interactive-TTImp-case--findTyName-11163 arg-0 arg-1 e-1 e-6 e-2 e-4 e-9 e-8 e-7 b arg-4 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name arg-4 e-2))))))))(else (CaseSplit-Interactive-TTImp-findTyName (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) arg-4 e-4)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CaseSplit-Interactive-TTImp-findCons (lambda (arg-0 arg-1 arg-2) (CaseSplit-Interactive-TTImp-case--findCons-11377 arg-2 arg-1 arg-0 (CaseSplit-Interactive-TTImp-getDefining 'erased arg-2)))) +(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--getDefining-11335 '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 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))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((act-24 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 arg-2 e-2 arg-3 arg-4 e-8 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 e-5 (vector 0 )))))))))(else (vector 1 (vector 0 ))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 (vector 10 e-1 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-1 arg-2 arg-3 (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 eta-1)) e-5) arg-4) arg-5 e-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased e-5 e-10)))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CaseSplit-Interactive-TTImp-getArgName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-n--10290-11690-findNames 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-6) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (CaseSplit-Interactive-TTImp-n--10290-11691-getName 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 e-5 arg-5))))))))) +(define CaseSplit-Interactive-TTImp-findUpdates (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact e-22 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 (vector 0 e-12 e-22) eta-0)) (else (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--caseC-32blockC-32inC-32findUpdates-12565 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-4) (lambda (arg-5) (Name-Core-C-61C-61_Eq__Name arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) e-22 (let ((sc5 e-6)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-0)))))))))))))))))))(else (lambda (eta-0) (CaseSplit-Interactive-TTImp-recordUpdate arg-0 e-12 e-13 arg-3 eta-0)))))))) ((8) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-24 (vector-ref sc1 2))) (let ((e-25 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-15 e-24) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-16 e-25) eta-0)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-9 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((17) (let ((e-7 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((17) (let ((e-3 (vector-ref sc1 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))))))))) ((9) (let ((e-18 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((9) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 e-27) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-20 e-29) eta-0)))))))))(else (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (let ((e-9 (vector-ref sc0 2))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-9)))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((17) (let ((e-7 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-7 arg-3)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((17) (let ((e-3 (vector-ref sc0 4))) (CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 arg-2 e-3)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))))))) +(define CaseSplit-Interactive-TTImp-findTyName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((3) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CaseSplit-Interactive-TTImp-case--findTyName-11164 arg-0 arg-1 e-1 e-8 e-7 e-6 e-2 e-4 arg-4 arg-3 arg-2 (Name-Core-C-61C-61_Eq__Name arg-4 e-2))))))(else (CaseSplit-Interactive-TTImp-findTyName (vector 1 e-2 arg-0) arg-1 arg-2 (vector 1 e-3 arg-3) arg-4 e-4)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CaseSplit-Interactive-TTImp-findCons (lambda (arg-0 arg-1 arg-2) (CaseSplit-Interactive-TTImp-case--findCons-11363 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-explicitlyBound (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-explicitlyBound arg-0 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (vector 1 e-2 e-10))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CaseSplit-Interactive-TTImp-explicitlyBound (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CaseSplit-Interactive-TTImp-explicitlyBound arg-0 e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (vector 1 (vector 1 e-2 e-9))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define CaseSplit-Interactive-TTImp-expandCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-lookupTyExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-1) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-0 e-5 (vector 0 ) arg-2 (vector 0 ) e-7) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (TTImp-TTImp-apply (vector 0 arg-1 arg-3) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 16 arg-1 eta-0)) e-8))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0)))))))))))))))) (define CaseSplit-Interactive-TTImp-defaultNames (lambda () (vector 1 "x" (vector 1 "y" (vector 1 "z" (vector 1 "w" (vector 1 "v" (vector 1 "s" (vector 1 "t" (vector 1 "u" (vector 0 ))))))))))) (define CaseSplit-Interactive-TTImp-combine (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 (vector 0 )))(else (vector 1 (List-Data-reverse 'erased arg-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (CaseSplit-Interactive-TTImp-combine e-3 arg-1))(else (CaseSplit-Interactive-TTImp-combine e-3 (vector 1 e-2 arg-1)))))))))))) (define CaseSplit-Interactive-TTImp-apply (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (CaseSplit-Interactive-TTImp-apply (vector 8 e-4 arg-0 e-5) e-2)))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (CaseSplit-Interactive-TTImp-apply (vector 9 e-6 arg-0 e-7 e-8) e-2)))))))))) (else arg-0))))) -(define AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-5450 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--7868-4990-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 0 ) arg-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) -(define AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-5336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (AutoSearch-Core-n--7868-4990-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 0 ) arg-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-21) (lambda (e) (AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-5450 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e (AutoSearch-Core-n--7868-4989-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e))) eta-0))))))) -(define AutoSearch-Core-case--caseC-32blockC-32inC-32searchType-5258 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target") arg-2 arg-21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-getSearchData arg-12 arg-10 arg-8 arg-19 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-4)) (cond ((equal? sc3 0) ((AutoSearch-Core-checkConcreteDets arg-0 arg-12 arg-11 arg-10 arg-8 arg-2 arg-3 (vector 3 arg-20 arg-19 arg-18 arg-17 arg-16)) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-5336 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 (Basics-Prelude-C-38C-38 arg-8 (lambda () arg-4))) eta-0)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0))))))) -(define AutoSearch-Core-case--searchType-5217 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--caseC-32blockC-32inC-32searchType-5258 arg-0 arg-1 arg-2 arg-3 arg-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 (Types-Prelude-C-61C-61_Eq__Nat e-4 (List-Types-Prelude-length 'erased e-5))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-2 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-16) eta-0))))))))))) -(define AutoSearch-Core-case--searchTypeC-44tryGroups-5101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--7868-4990-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--abandonIfCycle-4898 (lambda (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--caseC-32blockC-32inC-32checkConcreteDets-4691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-1) eta-0)))))))))))) -(define AutoSearch-Core-case--checkConcreteDets-4661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-toFullNames 'erased arg-11 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Context-Core-log arg-11 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Determining arguments for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)))))))) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))))) -(define AutoSearch-Core-case--concreteDets-4554 (lambda (arg-0 arg-1 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 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2)) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 e-5 arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((AutoSearch-Core-n--11972-4151-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-6 0) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2) eta-0))))))))))))))))))))) -(define AutoSearch-Core-case--concreteDetsC-44concrete-4452 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((sc2 (Basics-Prelude-not (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))) -(define AutoSearch-Core-case--concreteDetsC-44concrete-4336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((sc2 (Basics-Prelude-not (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0))))))) -(define AutoSearch-Core-case--concreteDetsC-44drop-4171 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-12 (AutoSearch-Core-n--11972-4150-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-15) arg-14 arg-13))) (else (AutoSearch-Core-n--11972-4150-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-15) arg-14 arg-13)))))) -(define AutoSearch-Core-case--searchNames-4055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (AutoSearch-Core-anyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-18)) (else (AutoSearch-Core-exactlyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-3 arg-18)))))) -(define AutoSearch-Core-case--caseC-32blockC-32inC-32searchNamesC-44visible-3881 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-15 arg-18))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define AutoSearch-Core-case--searchNamesC-44visible-3840 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--caseC-32blockC-32inC-32searchNamesC-44visible-3881 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 _-0 (Context-Core-visibleInAny arg-16 arg-15 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define AutoSearch-Core-case--caseC-32blockC-32inC-32searchName-3640 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-isPairNF 'erased arg-13 arg-4 arg-19 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((candidate (TT-Core-apply 'erased arg-11 (vector 1 arg-11 arg-18 arg-1) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc2 eta-1)) (let ((e-4 (vector-ref sc2 4))) e-4))) arg-21)))) (let ((act-25 ((Normalise-Core-logTermNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Candidate ") arg-4 candidate) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 e-5 arg-7 arg-6 arg-5 arg-4 eta-1)) (AutoSearch-Core-impLast 'erased arg-21)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 candidate)))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))) -(define AutoSearch-Core-case--searchName-3579 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-3) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchName-3640 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--searchName-3370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--caseC-32blockC-32inC-32searchLocalWithC-44findPos-3024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-17 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-18 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-16 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-n--9957-2320-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-n--9957-2320-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--searchLocalWithC-44findPos-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 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-sndName arg-13 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-isPairType arg-13 arg-19 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-17 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-18 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-16 (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) ((AutoSearch-Core-n--9957-2320-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-5) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) ((AutoSearch-Core-n--9957-2320-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-2603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-4 (vector-ref sc1 4))) e-4))) arg-19)))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-logTermNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((envC-39 (AutoSearch-Core-n--9957-2318-clearEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-1 arg-4))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-19)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 candidate))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))))))) -(define AutoSearch-Core-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-2541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-usableLocal arg-0 arg-13 arg-11 arg-9 arg-4 arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-4 (vector-ref sc3 4))) e-4))) arg-19)))) (let ((act-25 ((Normalise-Core-logTermNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((envC-39 (AutoSearch-Core-n--9957-2318-clearEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-1 arg-4))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-19)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 candidate)))))))))))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-15 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))) -(define AutoSearch-Core-case--searchLocalWithC-44findDirect-2455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-14 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-14) e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-2541 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--caseC-32blockC-32inC-32usableLocalC-44usableLocalArg-2056 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--9570-1987-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11)) (else (lambda (eta-0) (vector 1 1))))))) -(define AutoSearch-Core-case--usableLocalC-44usableLocalArg-2003 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-3 e-5 arg-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-usableLocal arg-3 arg-9 arg-8 arg-7 arg-6 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) ((AutoSearch-Core-n--9570-1987-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11) eta-0)) (else (vector 1 1)))))))))))))))) (else (AutoSearch-Core-n--9570-1987-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11)))))) -(define AutoSearch-Core-case--caseC-32blockC-32inC-32getAllEnv-1842 (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 (TT-Core-binderLoc 'erased arg-3) (vector 0 ) arg-8) (TT-Core-weakenNs_Weaken__Term arg-1 (List-Types-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--getAllEnv-1815 (lambda (arg-0 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--caseC-32blockC-32inC-32getAllEnv-1842 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--exactlyOne-1632 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-6 e-11))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 (set-box! arg-7 e-10))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-commit arg-7 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 e-6)))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--9132-1605-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-8 e-9) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--9132-1605-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-8 e-9) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--9132-1605-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0))))))))))))))))))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-5 (vector 0 ) arg-3) eta-0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--9132-1605-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0)))))))))))))))))))))) -(define AutoSearch-Core-case--exactlyOne-1551 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-8 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-5 (vector 0 ) arg-3) eta-0))))))) -(define AutoSearch-Core-case--anyOne-1468 (lambda (arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-1102 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0))))))) -(define AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 4))) e-4))) arg-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ok 1)) ((AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-1102 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-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 arg-16 arg-17 arg-18) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc1 arg-15)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (else (lambda (eta-0) (vector 1 arg-4))))))) -(define AutoSearch-Core-case--caseC-32blockC-32inC-32searchIfHole-814 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-6)) (cond ((equal? sc1 0) ((Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc2 arg-15)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)) (else (vector 1 arg-4)))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-normaliseScope arg-0 arg-14 arg-3 (let ((sc2 arg-2)) (let ((e-6 (vector-ref sc2 5))) e-6))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-searchType arg-0 arg-11 arg-10 arg-9 arg-13 arg-8 arg-7 arg-1 arg-5 1 e-5 arg-3 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-logTermNF arg-0 arg-11 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved arg") arg-3 e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-logTermNF arg-0 arg-11 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Arg meta") arg-3 (let ((sc4 arg-2)) (let ((e-4 (vector-ref sc4 4))) e-4))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Unify-Core-solveIfUndefined arg-0 arg-11 arg-10 arg-3 (let ((sc5 arg-2)) (let ((e-4 (vector-ref sc5 4))) e-4)) e-6) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (cond ((equal? sc6 0) (vector 1 (vector 0 ))) (else (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232 eta-1)))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc7 arg-2)) (let ((e-4 (vector-ref sc7 4))) e-4))) e-6) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((ok 1)) ((AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-1102 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-0 e-1 e-5 e-6 e-7 e-8 ok e-10 (let ((sc8 e-10)) (let ((e-11 (vector-ref sc8 1))) e-11))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define AutoSearch-Core-case--searchIfHole-779 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--caseC-32blockC-32inC-32searchIfHole-814 arg-0 arg-1 arg-2 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--impLastC-44impl-705 (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--caseC-32blockC-32inC-32mkArgs-626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-18 arg-17 arg-3 arg-19 arg-16) e-2) e-3)))))))) -(define AutoSearch-Core-case--mkArgs-559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-setInvertible arg-1 arg-11 (vector 8 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (((arg-6 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 e-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-12 arg-11 arg-10 arg-9 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-2 arg-17 arg-3 e-3 arg-16) e-7) e-4)))))))))))))))))))) -(define AutoSearch-Core-n--11580-3828-visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-17 arg-15) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchNamesC-44visible-3881 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-17 arg-16 arg-15 e-1 _-0 (Context-Core-visibleInAny arg-16 arg-17 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) -(define AutoSearch-Core-n--9570-1987-usableLocalArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--usableLocalC-44usableLocalArg-2003 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (Types-Prelude-C-61C-61_Eq__Nat arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (Types-Prelude-C-47C-61_Eq__Nat arg-13 arg-14)))) arg-10 arg-11))))))))) -(define AutoSearch-Core-n--7868-4990-tryGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-8 eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Search: Trying " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat (List-Types-Prelude-length 'erased e-7)) (Strings-Types-Prelude-C-43C-43 " names " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--searchTypeC-44tryGroups-5101 arg-0 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--7868-4989-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 err))) eta-0))))))))))))) ((0) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Search: Trying " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat (List-Types-Prelude-length 'erased e-7)) (Strings-Types-Prelude-C-43C-43 " names " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--searchTypeC-44tryGroups-5101 arg-0 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--7868-4989-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 err))) eta-0))))))))))))(else (let ((sc0 arg-15)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Search: Trying " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat (List-Types-Prelude-length 'erased e-7)) (Strings-Types-Prelude-C-43C-43 " names " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--searchTypeC-44tryGroups-5101 arg-0 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--7868-4989-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--9132-1605-normRes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 e-6 arg-4 e-2 eta-0))))))))) -(define AutoSearch-Core-n--8191-697-impl (lambda (arg-0 arg-1 arg-2 arg-3) (AutoSearch-Core-case--impLastC-44impl-705 'erased arg-1 'erased arg-3 (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) e-3))))) -(define AutoSearch-Core-n--9957-2320-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--9957-2319-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--searchLocalWithC-44findPos-2856 arg-0 arg-1 arg-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--9957-2316-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--9957-2319-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--9957-2319-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--9957-2319-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--9957-2319-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--9957-2319-findDirect (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-17) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-17 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-13 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-18 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-18) e-3) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-2541 arg-0 arg-1 arg-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--11972-4150-drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--concreteDetsC-44drop-4171 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-2 e-3 arg-13 arg-12 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-15) (lambda (arg-16) (Types-Prelude-C-61C-61_Eq__Nat arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Types-Prelude-C-47C-61_Eq__Nat arg-15 arg-16)))) arg-12 arg-13))))))))) -(define AutoSearch-Core-n--11972-4151-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (((e-4 arg-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-6 (vector 10 e-1 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-n--11972-4151-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 1) eta-0)))))))))) ((3) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-10 e-6 1 e-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((argsC-39 (AutoSearch-Core-n--11972-4150-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-11 parg) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) ((AutoSearch-Core-n--11972-4151-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-11 1) eta-1)))))))) argsC-39) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (let ((e-16 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-11 parg) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-n--11972-4151-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 1) eta-1)))))))) e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) ((1) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 arg-13)) (cond ((equal? sc2 0) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) (let ((e-3 (vector-ref sc5 2))) (let ((act-25 (let ((sc6 (Basics-Prelude-not (let ((sc7 e-3)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))))))) ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) (let ((e-3 (vector-ref sc5 2))) (let ((act-25 (let ((sc6 (Basics-Prelude-not (let ((sc7 e-3)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define AutoSearch-Core-n--9957-2317-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-binderLoc 'erased e-4) (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--9957-2317-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--9957-2318-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--9957-2317-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--9957-2316-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--7868-4989-ambig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((19) 0)(else 1))))) -(define AutoSearch-Core-usableLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-25 (vector-ref sc1 1))) (let ((sc2 e-25)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Extra-Bool-Data-allTrue e-6))))))))))))))(else (lambda (eta-0) (vector 1 0)))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-1 arg-2 (Basics-Prelude-not arg-3) e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) ((AutoSearch-Core-n--9570-1987-usableLocalArg e-5 e-7 e-8 arg-0 e-9 e-6 arg-4 arg-3 arg-2 arg-1 0 (let ((sc2 e-10)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-9) eta-0))))))))))))) ((2) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) e-15) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Extra-Bool-Data-allTrue e-6))))))))))))))) ((0) (let ((e-17 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-20 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 10 e-17 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 0))))))))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) +(define AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-5426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--7690-4972-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 0 ) arg-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1)))))))) +(define AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-5312 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (AutoSearch-Core-n--7690-4972-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 0 ) arg-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-21) (lambda (e) (AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-5426 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e (AutoSearch-Core-n--7690-4971-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e))) eta-0))))))) +(define AutoSearch-Core-case--caseC-32blockC-32inC-32searchType-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 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target") arg-2 arg-21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-getSearchData arg-12 arg-10 arg-8 arg-19 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 arg-4)) (cond ((equal? sc3 0) ((AutoSearch-Core-checkConcreteDets arg-0 arg-12 arg-11 arg-10 arg-8 arg-2 arg-3 (vector 3 arg-20 arg-19 arg-18 arg-17 arg-16)) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchType-5312 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 (Basics-Prelude-C-38C-38 arg-8 (lambda () arg-4))) eta-0)))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0))))))) +(define AutoSearch-Core-case--searchType-5195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--caseC-32blockC-32inC-32searchType-5236 arg-0 arg-1 arg-2 arg-3 arg-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 (Types-Prelude-C-61C-61_Eq__Nat e-4 (List-Types-Prelude-length 'erased e-5))))))))))(else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-2 arg-16 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else ((AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-16) eta-0))))))))))) +(define AutoSearch-Core-case--searchTypeC-44tryGroups-5079 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--7690-4972-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--abandonIfCycle-4870 (lambda (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--caseC-32blockC-32inC-32checkConcreteDets-4665 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) arg-1) eta-0)))))))))))) +(define AutoSearch-Core-case--checkConcreteDets-4635 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-7) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) arg-1) eta-0))))))))))) (else (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-toFullNames 'erased arg-11 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Context-Core-log arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Determining arguments for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))))))) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else ((AutoSearch-Core-concreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) arg-1) eta-0)))))))))))))))) +(define AutoSearch-Core-case--concreteDets-4528 (lambda (arg-0 arg-1 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 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2)) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-10))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-evalClosure arg-0 e-5 arg-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((AutoSearch-Core-n--11765-4125-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-5 e-6 0) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((AutoSearch-Core-concreteDets arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-4) arg-3 arg-2) eta-0))))))))))))))))))))) +(define AutoSearch-Core-case--concreteDetsC-44concrete-4426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((sc2 (Basics-Prelude-not (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))) +(define AutoSearch-Core-case--concreteDetsC-44concrete-4310 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((sc2 (Basics-Prelude-not (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0))))))) +(define AutoSearch-Core-case--concreteDetsC-44drop-4145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-12 (AutoSearch-Core-n--11765-4124-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-15) arg-14 arg-13))) (else (AutoSearch-Core-n--11765-4124-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-15) arg-14 arg-13)))))) +(define AutoSearch-Core-case--searchNames-4029 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (AutoSearch-Core-anyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-18)) (else (AutoSearch-Core-exactlyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-3 arg-18)))))) +(define AutoSearch-Core-case--caseC-32blockC-32inC-32searchNamesC-44visible-3855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-15 arg-18))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define AutoSearch-Core-case--searchNamesC-44visible-3814 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--caseC-32blockC-32inC-32searchNamesC-44visible-3855 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-1 _-0 (Context-Core-visibleInAny arg-16 arg-15 (let ((sc1 e-1)) (let ((e-9 (vector-ref sc1 10))) e-9))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define AutoSearch-Core-case--caseC-32blockC-32inC-32searchName-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 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-isPairNF 'erased arg-13 arg-4 arg-19 arg-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((candidate (TT-Core-apply 'erased arg-11 (vector 1 arg-11 arg-18 arg-1) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc2 eta-1)) (let ((e-4 (vector-ref sc2 4))) e-4))) arg-21)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Candidate ") arg-4 candidate eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 e-5 arg-7 arg-6 arg-5 arg-4 eta-1)) (AutoSearch-Core-impLast 'erased arg-21)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 candidate)))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))) +(define AutoSearch-Core-case--searchName-3555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-3) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchName-3616 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--searchName-3348 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--caseC-32blockC-32inC-32searchLocalWithC-44findPos-3004 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-17 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-18 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-16 (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-n--9765-2309-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) arg-26) (vector 1 e-6 (vector 1 e-7 (vector 1 (arg-22 arg) (vector 0 )))))) e-8 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-n--9765-2309-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--searchLocalWithC-44findPos-2836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-25 eta-0))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-fstName arg-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-sndName arg-13 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 eta-1)))) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-isPairType arg-13 arg-19 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-27 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-17 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-18 eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 arg-16 (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) ((AutoSearch-Core-n--9765-2309-findPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-24 arg-23 (lambda (arg) (TT-Core-apply 'erased arg-11 (vector 1 arg-11 (vector 1 ) e-5) (vector 1 e-9 (vector 1 e-10 (vector 1 (arg-22 arg) (vector 0 )))))) e-11 arg-16) eta-1))))))) (vector 1 (lambda (eta-1) (let ((act-30 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc8 1))) ((AutoSearch-Core-n--9765-2309-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchLocalWithC-44findDirect-2587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc1 eta-0)) (let ((e-4 (vector-ref sc1 4))) e-4))) arg-19)))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((envC-39 (AutoSearch-Core-n--9765-2307-clearEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-1 arg-4))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-19)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 candidate))))))))))))) (else (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))))))) +(define AutoSearch-Core-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-2525 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-usableLocal arg-0 arg-13 arg-11 arg-9 arg-4 arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((candidate (TT-Core-apply 'erased arg-11 (arg-16 arg-1) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (let ((e-4 (vector-ref sc3 4))) e-4))) arg-19)))) (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Local var candidate ") arg-4 candidate eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((envC-39 (AutoSearch-Core-n--9765-2307-clearEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-1 arg-4))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchIfHole arg-0 arg-13 arg-12 arg-11 arg-9 arg-8 1 arg-7 arg-6 arg-5 envC-39 eta-1)) (AutoSearch-Core-impLast 'erased arg-19)) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 candidate)))))))))))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Can't use ") arg-4 arg-15 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0)))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-11 (vector 0 ) arg-5) eta-0))))))) +(define AutoSearch-Core-case--searchLocalWithC-44findDirect-2443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-15 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-14 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-14) e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-2525 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--caseC-32blockC-32inC-32usableLocalC-44usableLocalArg-2047 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--9380-1978-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11)) (else (lambda (eta-0) (vector 1 1))))))) +(define AutoSearch-Core-case--usableLocalC-44usableLocalArg-1994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-9))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-evalClosure arg-3 e-5 arg-10) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-usableLocal arg-3 arg-9 arg-8 arg-7 arg-6 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) ((AutoSearch-Core-n--9380-1978-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11) eta-0)) (else (vector 1 1)))))))))))))))) (else (AutoSearch-Core-n--9380-1978-usableLocalArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-13) arg-12 arg-11)))))) +(define AutoSearch-Core-case--caseC-32blockC-32inC-32getAllEnv-1834 (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-Types-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--getAllEnv-1807 (lambda (arg-0 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--caseC-32blockC-32inC-32getAllEnv-1834 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--exactlyOne-1624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-6 e-11))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 (set-box! arg-7 e-10))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-26 (Context-Core-commit arg-7 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (vector 1 e-6)))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8943-1597-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-8 e-9) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8943-1597-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-8 e-9) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8943-1597-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0))))))))))))))))))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-5 (vector 0 ) arg-3) eta-0)))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-7))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 arg-2 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--8943-1597-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) arg-9) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-5 arg-4 e-6 e-7) eta-0)))))))))))))))))))))) +(define AutoSearch-Core-case--exactlyOne-1543 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((29) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-8 eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-5 (vector 0 ) arg-3) eta-0))))))) +(define AutoSearch-Core-case--anyOne-1460 (lambda (arg-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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-1094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-9 (vector 0 ) arg-4) eta-0))))))) +(define AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-984 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 4))) e-4))) arg-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ok 1)) ((AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-1094 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-904 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc1 arg-15)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (else (lambda (eta-0) (vector 1 arg-4))))))) +(define AutoSearch-Core-case--caseC-32blockC-32inC-32searchIfHole-810 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((sc1 arg-6)) (cond ((equal? sc1 0) ((Normalise-Core-normaliseScope (vector 0 ) arg-14 (vector 0 ) (let ((sc2 arg-15)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)) (else (vector 1 arg-4)))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-normaliseScope arg-0 arg-14 arg-3 (let ((sc2 arg-2)) (let ((e-6 (vector-ref sc2 5))) e-6))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-searchType arg-0 arg-11 arg-10 arg-9 arg-13 arg-8 arg-7 arg-1 arg-5 1 e-5 arg-3 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved arg") arg-3 e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Normalise-Core-logTermNF arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Arg meta") arg-3 (let ((sc4 arg-2)) (let ((e-4 (vector-ref sc4 4))) e-4)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Unify-Core-solveIfUndefined arg-0 arg-11 arg-10 arg-3 (let ((sc5 arg-2)) (let ((e-4 (vector-ref sc5 4))) e-4)) e-6) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (cond ((equal? sc6 0) (vector 1 (vector 0 ))) (else (let ((act-29 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234 eta-1)))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245 eta-1))))))))))) arg-0 arg-11 arg-10) (Unify-Core-inTerm)) arg-9) arg-3) (let ((sc7 arg-2)) (let ((e-4 (vector-ref sc7 4))) e-4))) e-6) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc7 1))) (let ((ok 1)) ((AutoSearch-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32searchIfHole-1094 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-0 e-1 e-5 e-6 e-7 e-8 ok e-10 (let ((sc8 e-10)) (let ((e-11 (vector-ref sc8 1))) e-11))) eta-0)))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define AutoSearch-Core-case--searchIfHole-775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--caseC-32blockC-32inC-32searchIfHole-810 arg-0 arg-1 arg-2 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--impLastC-44impl-701 (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--caseC-32blockC-32inC-32mkArgs-624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-17 arg-16 arg-3 arg-18 arg-15) e-2) e-3)))))))) +(define AutoSearch-Core-case--mkArgs-559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Unify-Core-setInvertible arg-1 arg-10 (vector 8 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (((arg-5 arg-12) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-8 e-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-11 arg-10 arg-9 arg-8 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-2 arg-16 arg-3 e-3 arg-15) e-7) e-4)))))))))))))))))))) +(define AutoSearch-Core-n--11373-3802-visible (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-17 arg-15) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchNamesC-44visible-3855 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-17 arg-16 arg-15 e-1 _-0 (Context-Core-visibleInAny arg-16 arg-17 (let ((sc2 e-1)) (let ((e-9 (vector-ref sc2 10))) e-9)))) ext-0)))) (else (vector 1 (vector 0 )))))))))))) +(define AutoSearch-Core-n--9380-1978-usableLocalArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--usableLocalC-44usableLocalArg-1994 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 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (Types-Prelude-C-61C-61_Eq__Nat arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (Types-Prelude-C-47C-61_Eq__Nat arg-13 arg-14)))) arg-10 arg-11))))))))) +(define AutoSearch-Core-n--7690-4972-tryGroups (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased e-8 eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Search: Trying " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat (List-Types-Prelude-length 'erased e-7)) (Strings-Types-Prelude-C-43C-43 " names " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--searchTypeC-44tryGroups-5079 arg-0 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--7690-4971-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 err))) eta-0))))))))))))) ((0) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0)))(else (let ((sc1 arg-15)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Search: Trying " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat (List-Types-Prelude-length 'erased e-7)) (Strings-Types-Prelude-C-43C-43 " names " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--searchTypeC-44tryGroups-5079 arg-0 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--7690-4971-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 err))) eta-0))))))))))))(else (let ((sc0 arg-15)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (lambda (eta-1) (let ((act-24 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 "Search: Trying " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat (List-Types-Prelude-length 'erased e-7)) (Strings-Types-Prelude-C-43C-43 " names " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-7))))))))))) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-25 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "For target") arg-2 arg-14 eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else ((AutoSearch-Core-searchNames arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 (vector 1 arg-1 arg-7) arg-6 arg-5 arg-3 arg-2 e-5 e-6 arg-14) eta-1)))))))))) (lambda (err) (AutoSearch-Core-case--searchTypeC-44tryGroups-5079 arg-0 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--7690-4971-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--8943-1597-normRes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 e-6 arg-4 e-2 eta-0))))))))) +(define AutoSearch-Core-n--8006-693-impl (lambda (arg-0 arg-1 arg-2 arg-3) (AutoSearch-Core-case--impLastC-44impl-701 'erased arg-1 'erased arg-3 (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) e-3))))) +(define AutoSearch-Core-n--9765-2309-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--9765-2308-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--searchLocalWithC-44findPos-2836 arg-0 arg-1 arg-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--9765-2305-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--9765-2308-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--9765-2308-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--9765-2308-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--9765-2308-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--9765-2308-findDirect (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 ext-0) (let ((act-24 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-17) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((act-25 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Trying") arg-4 arg-17 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Normalise-Core-logNF arg-0 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "For target") arg-4 arg-18 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-18) e-3) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchLocalWithC-44findDirect-2525 arg-0 arg-1 arg-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--11765-4124-drop (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--concreteDetsC-44drop-4145 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased e-2 e-3 arg-13 arg-12 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-15) (lambda (arg-16) (Types-Prelude-C-61C-61_Eq__Nat arg-15 arg-16))) (lambda (arg-15) (lambda (arg-16) (Types-Prelude-C-47C-61_Eq__Nat arg-15 arg-16)))) arg-12 arg-13))))))))) +(define AutoSearch-Core-n--11765-4125-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (((e-4 arg-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-6 (vector 10 e-1 1))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-n--11765-4125-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 1) eta-0)))))))))) ((3) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-10 e-6 1 e-7 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((argsC-39 (AutoSearch-Core-n--11765-4124-drop arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 'erased 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-25 ((Normalise-Core-evalClosure arg-0 arg-11 parg) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) ((AutoSearch-Core-n--11765-4125-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-11 1) eta-1)))))))) argsC-39) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))) ((2) (let ((e-16 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure arg-0 arg-11 parg) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-n--11765-4125-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 1) eta-1)))))))) e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) ((1) (let ((e-19 (vector-ref sc0 2))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((2) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((sc2 arg-13)) (cond ((equal? sc2 0) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) (let ((e-3 (vector-ref sc5 2))) (let ((act-25 (let ((sc6 (Basics-Prelude-not (let ((sc7 e-3)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))))))) ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) (let ((e-3 (vector-ref sc5 2))) (let ((act-25 (let ((sc6 (Basics-Prelude-not (let ((sc7 e-3)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (vector 0 ))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define AutoSearch-Core-n--9765-2306-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--9765-2306-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--9765-2307-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--9765-2306-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--9765-2305-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--7690-4971-ambig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((19) 0)(else 1))))) +(define AutoSearch-Core-usableLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-25 (vector-ref sc1 1))) (let ((sc2 e-25)) (case (vector-ref sc2 0) ((3) (lambda (eta-0) (vector 1 0)))(else (lambda (eta-0) (vector 1 1))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Extra-Bool-Data-allTrue e-6))))))))))))))(else (lambda (eta-0) (vector 1 0)))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-getSearchData arg-1 arg-2 (Basics-Prelude-not arg-3) e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc1 1))) ((AutoSearch-Core-n--9380-1978-usableLocalArg e-5 e-7 e-8 arg-0 e-9 e-6 arg-4 arg-3 arg-2 arg-1 0 (let ((sc2 e-10)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-9) eta-0))))))))))))) ((2) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) e-15) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Extra-Bool-Data-allTrue e-6))))))))))))))) ((0) (let ((e-17 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (((e-20 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 10 e-17 1))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) ((AutoSearch-Core-usableLocal arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0)))))))))))))(else (lambda (eta-0) (vector 1 0))))))))) ((9) (lambda (eta-0) (vector 1 1)))(else (lambda (eta-0) (vector 1 0))))))) (define AutoSearch-Core-successful (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-branch arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (e-2 eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 (unbox arg-2))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (set-box! arg-2 e-5))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 (let ((act-30 (set-box! arg-1 e-6))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 e-3) eta-1))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (vector 1 (vector 1 (vector 1 (vector 0 e-7 (vector 0 e-9 e-8))) e-12))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-26 (let ((act-26 (set-box! arg-2 e-5))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-27 (let ((act-27 (set-box! arg-1 e-6))) (vector 1 act-27)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-28 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 e-3) eta-1))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 0 err) e-9))))))))))))))))) eta-0))))))))))))))))))) -(define AutoSearch-Core-searchType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 e-3 arg-11) e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 (vector 0 e-6 e-7 e-8 e-9) e-5))))))))))))) ((1) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 e-3 arg-11) e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 e-3 e-5)))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((3) (let ((e-12 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((e-10 (vector-ref sc4 3))) (let ((e-9 (vector-ref sc4 4))) (let ((e-8 (vector-ref sc4 5))) (let ((nty (vector 3 e-12 e-11 e-10 e-9 e-8))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchType-5258 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 (Types-Prelude-C-61C-61_Eq__Nat e-9 (List-Types-Prelude-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) eta-0)))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-6) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-8 (vector-ref sc3 5))) (let ((nty (vector 3 e-1 e-2 e-3 e-4 e-8))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchType-5258 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 (Types-Prelude-C-61C-61_Eq__Nat e-4 (List-Types-Prelude-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) eta-0)))))))))))))))))))))))))))))) -(define AutoSearch-Core-searchNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (AutoSearch-Core-n--11580-3828-visible arg-0 e-2 e-3 arg-13 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 e-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((elabs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 eta-1)) visns))) (let ((sc3 arg-11)) (cond ((equal? sc3 0) ((AutoSearch-Core-anyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs) eta-0)) (else ((AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-13 elabs) eta-0)))))))))))))))))))))))) -(define AutoSearch-Core-searchName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-getNS arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getNestedNS arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 (Basics-Prelude-not (Context-Core-visibleInAny (vector 1 e-6 e-7) (let ((sc5 e-3)) (let ((e-1 (vector-ref sc5 2))) e-1)) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 10))) e-9)))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (Context-Core-C-61C-61_Eq__DefFlag arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (Context-Core-C-47C-61_Eq__DefFlag arg-13 arg-14)))) (vector 5 ) (let ((sc4 e-3)) (let ((e-11 (vector-ref sc4 12))) e-11))))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((ty (let ((sc4 e-3)) (let ((e-25 (vector-ref sc4 3))) e-25)))) (let ((namety (AutoSearch-Core-case--searchName-3370 arg-0 e-2 e-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 ty (let ((sc4 e-3)) (let ((e-17 (vector-ref sc4 18))) e-17))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-10 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Searching Name " (Name-Core-show_Show__Name e-2))) arg-10 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 e-8) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (let ((e-11 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-30 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11223) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11228) (lambda (arg-11229) (lambda (arg-11231) (lambda (arg-11232) (Unify-Core-unifyD_Unify__NF vars arg-11223 arg-11225 arg-11227 arg-11228 arg-11229 arg-11231 arg-11232))))))))) (lambda (vars) (lambda (arg-11234) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11239) (lambda (arg-11240) (lambda (arg-11242) (lambda (arg-11243) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11234 arg-11236 arg-11238 arg-11239 arg-11240 arg-11242 arg-11243)))))))))) arg-0 arg-1 arg-2) (Unify-Core-inTerm)) arg-3) arg-10) arg-11) e-4) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-11 e-4))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchName-3640 arg-0 e-2 e-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 ty namety e-8 e-9 e-11 e-4 _-0 e-12 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))) -(define AutoSearch-Core-searchLocalWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-10 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-n--9957-2320-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-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 (vector 2 e-6 e-7 e-8) arg-11) e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 (vector 0 e-6 e-7 e-8) e-5)))))))))))) ((1) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-searchType (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) arg-7 arg-8 arg-9 arg-10 (vector 1 (vector 1 e-10 e-11 e-12) arg-11) e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 3 e-1 e-2 (vector 1 e-10 e-11 e-12) e-5))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((3) (let ((e-12 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((e-10 (vector-ref sc4 3))) (let ((e-9 (vector-ref sc4 4))) (let ((e-8 (vector-ref sc4 5))) (let ((nty (vector 3 e-12 e-11 e-10 e-9 e-8))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchType-5236 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 (Types-Prelude-C-61C-61_Eq__Nat e-9 (List-Types-Prelude-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) eta-0)))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-6) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-26 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-8 (vector-ref sc3 5))) (let ((nty (vector 3 e-1 e-2 e-3 e-4 e-8))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchType-5236 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 (Types-Prelude-C-61C-61_Eq__Nat e-4 (List-Types-Prelude-length 'erased e-8))) eta-0))))))))(else (let ((act-27 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Next target: ") arg-11 e-7 eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((AutoSearch-Core-searchLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 tryingC-39 arg-7 arg-8 arg-10 arg-11 e-7) eta-0)))))))))))))))))))))))))))))) +(define AutoSearch-Core-searchNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (AutoSearch-Core-n--11373-3802-visible arg-0 e-2 e-3 arg-13 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (vector 1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 3))) e-28)) (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 4))) e-27))) eta-1 eta-2))) (vector 1 e-2 e-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((elabs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 eta-1)) visns))) (let ((sc3 arg-11)) (cond ((equal? sc3 0) ((AutoSearch-Core-anyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs) eta-0)) (else ((AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-13 elabs) eta-0)))))))))))))))))))))))) +(define AutoSearch-Core-searchName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Context-Core-getNS arg-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-getNestedNS arg-1 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 (Basics-Prelude-not (Context-Core-visibleInAny (vector 1 e-6 e-7) (let ((sc5 e-3)) (let ((e-1 (vector-ref sc5 2))) e-1)) (let ((sc5 e-3)) (let ((e-9 (vector-ref sc5 10))) e-9)))))) (cond ((equal? sc4 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (Context-Core-C-61C-61_Eq__DefFlag arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (Context-Core-C-47C-61_Eq__DefFlag arg-13 arg-14)))) (vector 5 ) (let ((sc4 e-3)) (let ((e-11 (vector-ref sc4 12))) e-11))))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((ty (let ((sc4 e-3)) (let ((e-25 (vector-ref sc4 3))) e-25)))) (let ((namety (AutoSearch-Core-case--searchName-3348 arg-0 e-2 e-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 ty (let ((sc4 e-3)) (let ((e-17 (vector-ref sc4 18))) e-17))))) (let ((act-27 ((Normalise-Core-nf arg-0 e-5 arg-10 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Searching Name " (Name-Core-show_Show__Name e-2))) arg-10 e-8 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 e-8) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (let ((e-11 (vector-ref sc7 1))) (let ((e-4 (vector-ref sc7 2))) (let ((act-30 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-11225) (lambda (arg-11227) (lambda (arg-11229) (lambda (arg-11230) (lambda (arg-11231) (lambda (arg-11233) (lambda (arg-11234) (Unify-Core-unifyD_Unify__NF vars arg-11225 arg-11227 arg-11229 arg-11230 arg-11231 arg-11233 arg-11234))))))))) (lambda (vars) (lambda (arg-11236) (lambda (arg-11238) (lambda (arg-11240) (lambda (arg-11241) (lambda (arg-11242) (lambda (arg-11244) (lambda (arg-11245) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-11236 arg-11238 arg-11240 arg-11241 arg-11242 arg-11244 arg-11245)))))))))) arg-0 arg-1 arg-2) (Unify-Core-inTerm)) arg-3) arg-10) arg-11) e-4) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-11 e-4))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchName-3616 arg-0 e-2 e-3 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-6 e-7 ty namety e-8 e-9 e-11 e-4 _-0 e-12 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) e-0))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))) +(define AutoSearch-Core-searchLocalWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-10 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-n--9765-2309-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (t) (AutoSearch-Core-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 t arg-11)) (AutoSearch-Core-getAllEnv arg-0 arg-3 arg-4 (vector 0 ) arg-10)))) (AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-11 elabs)))) -(define AutoSearch-Core-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)))(else (let ((e-0 (- arg-7 1))) (let ((hole (let ((sc0 arg-11)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((rig (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchIfHole-814 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-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact (vector 8 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((AutoSearch-Core-case--caseC-32blockC-32inC-32searchIfHole-810 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))) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-2 "sa" eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-10 arg-5 e-9 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-4 e-7))) (let ((act-28 ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 e-6 argRig arg-5 e-11 e-12 (vector 7 (Env-Core-length 'erased 'erased arg-5) (Context-Core-holeInit 1)) 1) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((act-29 (Unify-Core-setInvertible arg-1 arg-3 (vector 8 e-15) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((act-30 (let ((act-30 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-14)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-17) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((sc10 e-17)) (let ((e-19 (vector-ref sc10 1))) (let ((e-18 (vector-ref sc10 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-15 argRig e-8 e-14 e-12) e-19) e-18)))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))))))) +(define AutoSearch-Core-mkArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (UnifyState-Core-genName arg-1 arg-2 "sa" eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-27 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-5 e-8 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-4 e-6))) (let ((act-28 ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 argRig arg-5 e-10 e-11 (vector 7 (Env-Core-length 'erased 'erased arg-5) (Context-Core-holeInit 1)) 1) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (let ((e-14 (vector-ref sc7 1))) (let ((e-13 (vector-ref sc7 2))) (let ((act-29 (Unify-Core-setInvertible arg-1 arg-3 (vector 8 e-14) eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (vector 0 e-15))) (else (let ((act-30 (let ((act-30 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-13)) eta-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-16) eta-0)))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc9 1))) (let ((sc10 e-16)) (let ((e-18 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (vector 1 (vector 0 (vector 1 (vector 0 e-14 argRig e-7 e-13 e-11) e-18) e-17))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))))))) (define ArgInfo-AutoSearch-Core-metaApp (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4)))) (define AutoSearch-Core-isPairNF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (Context-Core-isPairType arg-1 e-2 eta-0)))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-24 (((e-10 arg-4) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-7 1))) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((AutoSearch-Core-isPairNF 'erased arg-1 arg-2 e-5 arg-4) eta-0))))))))(else (lambda (eta-0) (vector 1 1)))))))))(else (lambda (eta-0) (vector 1 1))))))) -(define AutoSearch-Core-impLast (lambda (arg-0 arg-1) (List-Types-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Basics-Prelude-not (AutoSearch-Core-n--8191-697-impl 'erased arg-1 'erased eta-0))) arg-1) (List-Data-filter 'erased (lambda (eta-0) (AutoSearch-Core-n--8191-697-impl 'erased arg-1 'erased eta-0)) arg-1)))) +(define AutoSearch-Core-impLast (lambda (arg-0 arg-1) (List-Types-Prelude-C-43C-43 'erased (List-Data-filter 'erased (lambda (eta-0) (Basics-Prelude-not (AutoSearch-Core-n--8006-693-impl 'erased arg-1 'erased eta-0))) arg-1) (List-Data-filter 'erased (lambda (eta-0) (AutoSearch-Core-n--8006-693-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-Types-Prelude-C-43C-43 'erased arg-3 (vector 1 e-2 (vector 0 ))) e-9))) (AutoSearch-Core-case--getAllEnv-1815 e-2 e-3 e-9 e-8 arg-3 arg-2 arg-1 rest (Basics-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-5 arg-6))))) arg-2))))))))))))))) -(define AutoSearch-Core-exactlyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased e-1 (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((29) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-1)))))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-case--exactlyOne-1632 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 arg-7) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((AutoSearch-Core-case--exactlyOne-1632 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0)))))))))))) -(define AutoSearch-Core-concreteDets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--concreteDets-4554 arg-0 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__Nat arg-10 arg-11)))) arg-7 arg-8)))))))))) -(define AutoSearch-Core-checkConcreteDets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-isPairType arg-1 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Normalise-Core-evalClosure arg-0 e-6 e-9) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 e-6 e-11) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13) eta-0))))))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc7 e-12)) (let ((e-0 (vector-ref sc7 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0)) e-5) eta-0)))))))))) (else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) ((Context-Core-log arg-1 "auto" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Determining arguments for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0)))))))) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0)))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define AutoSearch-Core-getAllEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((rest (AutoSearch-Core-getAllEnv e-3 arg-1 arg-2 (List-Types-Prelude-C-43C-43 'erased arg-3 (vector 1 e-2 (vector 0 ))) e-9))) (AutoSearch-Core-case--getAllEnv-1807 e-2 e-3 e-9 e-8 arg-3 arg-2 arg-1 rest (Basics-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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-5 arg-6))))) arg-2))))))))))))))) +(define AutoSearch-Core-exactlyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased e-1 (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((29) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-1)))))) eta-0)))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 arg-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-case--exactlyOne-1624 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-24 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 arg-7) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((AutoSearch-Core-case--exactlyOne-1624 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0)))))))))))) +(define AutoSearch-Core-concreteDets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--concreteDets-4528 arg-0 e-2 e-3 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__Nat arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__Nat arg-10 arg-11)))) arg-7 arg-8)))))))))) +(define AutoSearch-Core-checkConcreteDets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-isPairType arg-1 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Normalise-Core-evalClosure arg-0 e-6 e-9) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure arg-0 e-6 e-11) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-13) eta-0))))))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc6 1))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc7 e-12)) (let ((e-0 (vector-ref sc7 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-10)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0))))))))))))(else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-0)) e-5) eta-0)))))))))) (else (let ((act-26 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc5 1))) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Determining arguments for " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))))))) eta-0)))))))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (vector 0 e-9))) (else ((AutoSearch-Core-concreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0)) e-5) eta-0)))))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define ArgInfo-AutoSearch-Core-argType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) e-5)))) (define ArgInfo-AutoSearch-Core-argRig (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (define AutoSearch-Core-anyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased e-2 (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((29) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-1)))))) eta-0)))(else (lambda (eta-0) (UnifyState-Core-tryUnify 'erased arg-1 arg-2 e-2 (AutoSearch-Core-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0)))))))))))) (define AutoSearch-Core-abandonIfCycle (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-convert_Convert__Term arg-0 e-5 arg-2 arg-3 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Cycle in search") eta-0)) (else ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-2 arg-3 e-3) eta-0)))))))))))))))))))))) (define InitPrimitives-Core-addPrimitives (lambda (arg-0) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (InitPrimitives-Core-addPrim arg-0 eta-0 eta-1))) (Primitives-Core-allPrimitives)))) (define InitPrimitives-Core-addPrim (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-addBuiltin (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) arg-0 (Primitives-Core-opName 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) e-1)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (CompileExpr-Compiler-compileDef arg-0 (Primitives-Core-opName 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))))))) -(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32mkForgetDef-10101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((ncdef (CompileExpr-Core-forgetDef e-2))) (lambda (eta-0) (Context-Core-setNamedCompiled arg-1 arg-0 ncdef eta-0))))))))) -(define CompileExpr-Compiler-case--mkForgetDef-10089 (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--caseC-32blockC-32inC-32mkForgetDef-10101 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-Types-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0))))))) -(define CompileExpr-Compiler-case--compileDef-10029 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Def arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Def arg-5319 arg-5320)))) (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CompileExpr-Compiler-toCDef arg-1 arg-0 (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0))))))) -(define CompileExpr-Compiler-case--toCDef-9839 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 6 arg-0 (FC-Core-emptyFC) arg-1 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--12307-9787-toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 'erased eta-1)) (CompileExpr-Compiler-n--12307-9788-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3))))))))))) -(define CompileExpr-Compiler-case--toCDef-9767 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 arg-0 e-2 e-3)))))))) -(define CompileExpr-Compiler-case--toCDef-9707 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 (vector 7 (FC-Core-emptyFC) e-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--12307-9657-toArgExp arg-0 arg-1 arg-2 arg-3 'erased eta-1)) (CompileExpr-Compiler-n--12307-9658-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3)))))))))))))))) -(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32nfToCFType-9321 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 e-6)))))))))))))))))) -(define CompileExpr-Compiler-case--nfToCFType-9245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-8 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 eta-1)) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 16 arg-9 e-6))))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-6) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-7))))))))))))))))) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-2 e-5))))))))))) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (lambda (eta-0) (vector 1 (vector 9 )))) ((4) (lambda (eta-0) (vector 1 (vector 10 )))) ((5) (lambda (eta-0) (vector 1 (vector 11 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-6))))))))))))))))))) -(define CompileExpr-Compiler-case--getNArgs-9000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-3 arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 e-3 e-5))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0))))))) -(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getFieldArgs-8818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 e-3) arg-11)))))))) -(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32getFieldArgs-8778 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 e-7 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-4 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (vector 1 (vector 1 (vector 0 e-10 e-3) e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CompileExpr-Compiler-case--getFieldArgs-8763 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 e-11 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (let ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-9 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (vector 1 (vector 1 (vector 0 e-15 e-14) e-12)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0))))))) -(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getPArgs-8651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-3 arg-9)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0))))))) -(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32getPArgs-8617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-1 e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((8) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((6) (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-8 e-1))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0))))))) -(define CompileExpr-Compiler-case--getPArgs-8601 (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--caseC-32blockC-32inC-32getPArgs-8617 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--mkArgList-8559 (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--toCExpTreeC-39-8401 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-11)) arg-13)))) (else (lambda (eta-0) (vector 1 (vector 11 arg-11 (vector 0 arg-7 arg-11) arg-12 arg-13)))))))) -(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32toCExpTreeC-39-8223 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-13)) arg-17)))) (else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-boolHackTree 'erased (CompileExpr-Compiler-natHackTree 'erased (vector 10 arg-13 (vector 0 arg-2 arg-13) arg-16 arg-17)))))))))) -(define CompileExpr-Compiler-case--toCExpTreeC-39-8167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-conCases arg-0 arg-12 arg-11 arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-getDef arg-0 arg-12 arg-11 arg-8) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32toCExpTreeC-39-8223 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-11 arg-12 arg-13 _-0 e-5 e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) -(define CompileExpr-Compiler-case--getNewType-7958 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--9863-7829-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 0 arg-7 e-10 arg-0))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1) arg-9 arg-6 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 (CompileExpr-Core-substs arg-0 arg-1 env e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define CompileExpr-Compiler-case--getNewTypeC-44mkSubst-7855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 1 arg-14 (CompileExpr-Compiler-n--9863-7829-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Types-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--9863-7829-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Types-Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12))))))) -(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-7614 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 1 arg-3) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 0 ) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)))))))) -(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-7566 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-7614 arg-0 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--9857-7449-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--caseC-32blockC-32inC-32conCases-7500 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-7566 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 (CompileExpr-Compiler-mkDropSubst 0 (let ((sc2 arg-9)) (let ((e-3 (vector-ref sc2 4))) e-3)) arg-1 arg-0)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-7566 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--conCases-7477 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32conCases-7500 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-toCExpTree (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 (vector 0 ) arg-0 e-6) e-7))))))))))))))))))))))) -(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32toCExp-7342 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-2 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-3 e-4 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))))))) -(define CompileExpr-Compiler-case--toCExp-7292 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-3 arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-toCExpTm arg-0 arg-3 arg-2 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CompileExpr-Compiler-numArgs 'erased e-6 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((2) (let ((e-0 (vector-ref sc5 1))) (let ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))) ((0) (let ((e-1 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) (else (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-9 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))))))))))))))))))))))))))))))) -(define CompileExpr-Compiler-case--toCExpTm-7226 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 12 arg-3 arg-2)))) (else (lambda (eta-0) (vector 1 (vector 5 arg-3 (vector 1 (TT-Core-show_Show__Constant arg-2)) (vector 0 ) (vector 0 ))))))))) +(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32mkForgetDef-10091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((ncdef (CompileExpr-Core-forgetDef e-2))) (lambda (eta-0) (Context-Core-setNamedCompiled arg-1 arg-0 ncdef eta-0))))))))) +(define CompileExpr-Compiler-case--mkForgetDef-10079 (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--caseC-32blockC-32inC-32mkForgetDef-10091 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-Types-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0))))))) +(define CompileExpr-Compiler-case--compileDef-10019 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Def arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Def arg-5319 arg-5320)))) (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((CompileExpr-Compiler-toCDef arg-1 arg-0 (let ((sc2 e-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) e-5) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-0))) eta-0))))))) +(define CompileExpr-Compiler-case--toCDef-9829 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 (vector 6 arg-0 (FC-Core-emptyFC) arg-1 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--12119-9777-toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 'erased eta-1)) (CompileExpr-Compiler-n--12119-9778-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3))))))))))) +(define CompileExpr-Compiler-case--toCDef-9757 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 arg-0 e-2 e-3)))))))) +(define CompileExpr-Compiler-case--toCDef-9697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 (vector 7 (FC-Core-emptyFC) e-5 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--12119-9647-toArgExp arg-0 arg-1 arg-2 arg-3 'erased eta-1)) (CompileExpr-Compiler-n--12119-9648-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3)))))))))))))))) +(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32nfToCFType-9313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 e-6)))))))))))))))))) +(define CompileExpr-Compiler-case--nfToCFType-9237 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-8 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 eta-1)) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 16 arg-9 e-6))))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-5 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-6) eta-1))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-5 e-7))))))))))))))))) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-2 e-5))))))))))) ((2) (lambda (eta-0) (vector 1 (vector 0 )))) ((3) (lambda (eta-0) (vector 1 (vector 9 )))) ((4) (lambda (eta-0) (vector 1 (vector 10 )))) ((5) (lambda (eta-0) (vector 1 (vector 11 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 14 e-6))))))))))))))))))) +(define CompileExpr-Compiler-case--getNArgs-8994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-3 arg-2 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 e-3 e-5))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-4) "Unknown name for struct") eta-0))))))) +(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getFieldArgs-8812 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 e-2 e-3) arg-11)))))))) +(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32getFieldArgs-8772 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 e-7 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-4 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (let ((e-10 (vector-ref sc6 1))) (let ((e-3 (vector-ref sc6 2))) (vector 1 (vector 1 (vector 0 e-10 e-3) e-6)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CompileExpr-Compiler-case--getFieldArgs-8757 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-9 (vector-ref sc2 1))) (let ((e-8 (vector-ref sc2 2))) (let ((sc3 e-8)) (case (vector-ref sc3 0) ((1) (let ((e-11 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (let ((act-24 (CompileExpr-Compiler-getFieldArgs arg-1 e-11 eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (let ((act-25 (CompileExpr-Compiler-getPArgs arg-1 e-9 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (let ((e-15 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (vector 1 (vector 1 (vector 0 e-15 e-14) e-12)))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) "Badly formed struct type") eta-0))))))) +(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getPArgs-8645 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((8) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (vector 0 e-3 arg-9)))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-11) "Unknown field name") eta-0))))))) +(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32getPArgs-8611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-1 e-4) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((8) (let ((e-3 (vector-ref sc3 2))) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((6) (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-8 e-1))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-6) "Unknown field name") eta-0))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-6 "Badly formed struct type") eta-0))))))) +(define CompileExpr-Compiler-case--getPArgs-8595 (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--caseC-32blockC-32inC-32getPArgs-8611 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--mkArgList-8553 (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--toCExpTreeC-39-8395 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-11)) arg-13)))) (else (lambda (eta-0) (vector 1 (vector 11 arg-11 (vector 0 arg-7 arg-11) arg-12 arg-13)))))))) +(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32toCExpTreeC-39-8217 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-13)) arg-17)))) (else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-boolHackTree 'erased (CompileExpr-Compiler-natHackTree 'erased (vector 10 arg-13 (vector 0 arg-2 arg-13) arg-16 arg-17)))))))))) +(define CompileExpr-Compiler-case--toCExpTreeC-39-8161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-12))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-conCases arg-0 arg-12 arg-11 arg-8) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-getDef arg-0 arg-12 arg-11 arg-8) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32toCExpTreeC-39-8217 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased arg-11 arg-12 arg-13 _-0 e-5 e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))))))) +(define CompileExpr-Compiler-case--getNewType-7952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--9679-7823-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased 0 arg-7 e-10 arg-0))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1) arg-9 arg-6 arg-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 1 (CompileExpr-Core-substs arg-0 arg-1 env e-5))))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define CompileExpr-Compiler-case--getNewTypeC-44mkSubst-7849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9679-7823-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Types-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--9679-7823-mkSubst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 'erased (Types-Prelude-C-43_Num__Nat (+ 1 0) arg-15) arg-14 arg-13 arg-12))))))) +(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-7608 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 1 arg-3) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)))) (else (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-12 (vector 0 ) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)))))))) +(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-7560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-7608 arg-0 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--9673-7443-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--caseC-32blockC-32inC-32conCases-7494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-7560 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 (CompileExpr-Compiler-mkDropSubst 0 (let ((sc2 arg-9)) (let ((e-3 (vector-ref sc2 4))) e-3)) arg-1 arg-0)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32conCases-7560 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--conCases-7471 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32conCases-7494 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-toCExpTree (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 (vector 0 ) arg-0 e-6) e-7))))))))))))))))))))))) +(define CompileExpr-Compiler-case--caseC-32blockC-32inC-32toCExp-7336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-2 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-3 e-4 arg-8 arg-6))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))))))))) +(define CompileExpr-Compiler-case--toCExp-7286 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-3 arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-3))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-toCExpTm arg-0 arg-3 arg-2 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((CompileExpr-Compiler-numArgs 'erased e-6 e-2) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((2) (let ((e-0 (vector-ref sc5 1))) (let ((res (CompileExpr-Compiler-expandToArity arg-0 e-0 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res))))) ((0) (let ((e-1 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-applyNewType arg-0 e-1 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))) (else (let ((e-9 (vector-ref sc5 1))) (let ((e-4 (vector-ref sc5 2))) (let ((res (CompileExpr-Compiler-eraseConArgs arg-0 e-9 e-4 e-7 e-5))) (vector 1 (CompileExpr-Compiler-natHack 'erased res)))))))))))))))))))))))))))))))))) +(define CompileExpr-Compiler-case--toCExpTm-7220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 12 arg-3 arg-2)))) (else (lambda (eta-0) (vector 1 (vector 5 arg-3 (vector 1 (TT-Core-show_Show__Constant arg-2)) (vector 0 ) (vector 0 ))))))))) (define CompileExpr-Compiler-case--boolHackTree-6764 (lambda (arg-0 arg-1 arg-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--natHackTree-6548 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (let ((defb (Types-Prelude-maybe 'erased 'erased (lambda () (vector 14 arg-4 "Nat case not covered")) (lambda () (lambda (eta-0) eta-0)) arg-1))) (let ((scase (Types-Prelude-maybe 'erased 'erased (lambda () defb) (lambda () (lambda (eta-0) eta-0)) (CompileExpr-Compiler-getSBranch 'erased arg-3 arg-2)))) (let ((zcase (Types-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--caseC-32blockC-32inC-32mkDropSubst-6090 (lambda (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--mkDropSubst-6069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CompileExpr-Compiler-case--caseC-32blockC-32inC-32mkDropSubst-6090 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-6) (lambda (arg-7) (Types-Prelude-C-61C-61_Eq__Nat arg-6 arg-7))) (lambda (arg-6) (lambda (arg-7) (Types-Prelude-C-47C-61_Eq__Nat arg-6 arg-7)))) arg-4 arg-3))))))) -(define CompileExpr-Compiler-case--dropPosC-44drop-5975 (lambda (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--8291-5961-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Types-Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)) (else (vector 1 arg-6 (CompileExpr-Compiler-n--8291-5961-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Types-Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7))))))) -(define CompileExpr-Compiler-case--applyNewTypeC-44keep-5877 (lambda (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--8173-5855-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased (Types-Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)))))) +(define CompileExpr-Compiler-case--dropPosC-44drop-5975 (lambda (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--8113-5961-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Types-Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)) (else (vector 1 arg-6 (CompileExpr-Compiler-n--8113-5961-drop 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (Types-Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7))))))) +(define CompileExpr-Compiler-case--applyNewTypeC-44keep-5877 (lambda (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--7995-5855-keep arg-0 arg-1 arg-2 arg-3 arg-4 'erased (Types-Prelude-C-43_Num__Nat (+ 1 0) arg-8) arg-7)))))) (define CompileExpr-Compiler-case--caseC-32blockC-32inC-32numArgs-5470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 e-1 (let ((sc2 arg-5)) (let ((e-3 (vector-ref sc2 4))) e-3)))))) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((0) (let ((e-19 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 0 e-1 e-19)))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))(else (lambda (eta-0) (vector 1 (vector 2 0))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 2 (List-Types-Prelude-length 'erased e-4)))))) ((2) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 e-8))))) ((3) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 e-9))))) ((4) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 2 e-11)))))(else (lambda (eta-0) (vector 1 (vector 2 0)))))))) (define CompileExpr-Compiler-case--numArgs-5455 (lambda (arg-0 arg-1 arg-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--caseC-32blockC-32inC-32numArgs-5470 'erased arg-1 arg-2 arg-3 arg-4 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (lambda (eta-0) (vector 1 (vector 2 0)))))))) -(define CompileExpr-Compiler-n--9010-6611-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 "Basics") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-11)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-14 (vector-ref sc7 1))) (let ((sc8 e-14)) (cond ((equal? sc8 "True") (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((e-16 (vector-ref sc9 1))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 0 (vector 0 e-16) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc8 "False") (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((e-19 (vector-ref sc9 1))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 0 (vector 0 e-19) e-4)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "EqOrd") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((sc5 e-22)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-25 (vector-ref sc7 1))) (let ((sc8 e-25)) (cond ((equal? sc8 "LT") (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((e-27 (vector-ref sc9 1))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 0 (vector 0 e-27) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc8 "EQ") (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 1))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 0 (vector 0 e-30) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc8 "GT") (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((e-33 (vector-ref sc9 1))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 0 (vector 0 e-33) 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 )))))))(else (vector 0 )))))))))(else (vector 0 )))))) -(define CompileExpr-Compiler-n--12307-9787-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--12307-9657-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--9863-7829-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--getNewTypeC-44mkSubst-7855 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 (Types-Prelude-C-61C-61_Eq__Nat arg-11 arg-13))))))))) -(define CompileExpr-Compiler-n--7972-5674-mkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 arg-4))) -(define CompileExpr-Compiler-n--7972-5675-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-Types-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-Types-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-Types-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--8173-5856-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--8173-5856-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--8173-5855-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--8173-5855-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--applyNewTypeC-44keep-5877 arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2 e-3 arg-6 (Types-Prelude-C-61C-61_Eq__Nat arg-6 arg-3))))))))) -(define CompileExpr-Compiler-n--12307-9788-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--12307-9788-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3))))))))) -(define CompileExpr-Compiler-n--12307-9658-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--12307-9658-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))))))) -(define CompileExpr-Compiler-n--8291-5961-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--dropPosC-44drop-5975 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-61C-61_Eq__Nat arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-47C-61_Eq__Nat arg-8 arg-9)))) arg-6 arg-5))))))))) -(define CompileExpr-Compiler-n--9857-7449-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--8070-5774-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--8070-5774-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--8070-5796-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-Types-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-Types-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-Types-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-n--8832-6611-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 "Basics") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-11)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-14 (vector-ref sc7 1))) (let ((sc8 e-14)) (cond ((equal? sc8 "True") (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((e-16 (vector-ref sc9 1))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 0 (vector 0 e-16) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc8 "False") (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((e-19 (vector-ref sc9 1))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 0 (vector 0 e-19) e-4)))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "EqOrd") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((sc5 e-22)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-25 (vector-ref sc7 1))) (let ((sc8 e-25)) (cond ((equal? sc8 "LT") (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((e-27 (vector-ref sc9 1))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 0 (vector 0 e-27) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc8 "EQ") (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((e-30 (vector-ref sc9 1))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 0 (vector 0 e-30) e-4)))(else (vector 0 ))))))(else (vector 0 ))))) ((equal? sc8 "GT") (let ((sc9 e-2)) (case (vector-ref sc9 0) ((1) (let ((e-33 (vector-ref sc9 1))) (let ((sc10 e-3)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 0 (vector 0 e-33) 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 )))))))(else (vector 0 )))))))))(else (vector 0 )))))) +(define CompileExpr-Compiler-n--12119-9777-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--12119-9647-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--9679-7823-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--getNewTypeC-44mkSubst-7849 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 (Types-Prelude-C-61C-61_Eq__Nat arg-11 arg-13))))))))) +(define CompileExpr-Compiler-n--7794-5674-mkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 arg-4))) +(define CompileExpr-Compiler-n--7794-5675-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-Types-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-Types-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-Types-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--7995-5856-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--7995-5856-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--7995-5855-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--7995-5855-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--applyNewTypeC-44keep-5877 arg-0 arg-1 arg-2 arg-3 arg-4 'erased e-2 e-3 arg-6 (Types-Prelude-C-61C-61_Eq__Nat arg-6 arg-3))))))))) +(define CompileExpr-Compiler-n--12119-9778-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--12119-9778-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3))))))))) +(define CompileExpr-Compiler-n--12119-9648-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) (CompileExpr-Compiler-n--12119-9648-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))))))) +(define CompileExpr-Compiler-n--8113-5961-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--dropPosC-44drop-5975 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-61C-61_Eq__Nat arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (Types-Prelude-C-47C-61_Eq__Nat arg-8 arg-9)))) arg-6 arg-5))))))))) +(define CompileExpr-Compiler-n--9673-7443-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--7892-5774-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--7892-5774-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--7892-5796-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-Types-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-Types-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-Types-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 "Types") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-11)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-14 (vector-ref sc7 1))) (let ((sc8 e-14)) (cond ((equal? sc8 "Z") (let ((sc9 e-3)) (case (vector-ref sc9 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 )))))))(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 "Types") (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-11)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-12)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-14 (vector-ref sc7 1))) (let ((sc8 e-14)) (cond ((equal? sc8 "S") (let ((sc9 e-3)) (case (vector-ref sc9 0) ((1) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((sc10 e-17)) (case (vector-ref sc10 0) ((0) (let ((fc (CompileExpr-Core-getFC 'erased arg-1))) (vector 1 (vector 3 fc e-16 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 )))))))(else (vector 0 ))))))))(else (vector 0 )))))) -(define CompileExpr-Compiler-toCExpTreeC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (let ((e-19 (vector-ref sc2 3))) (let ((e-20 (vector-ref sc2 4))) (let ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-getNewType arg-0 arg-1 fc (vector 0 e-2 fc) arg-2 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((alts (vector 1 (vector 0 e-17 e-18 e-19 e-20) e-14))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 alts) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 alts) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((_-0 (vector 0 ))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32toCExpTreeC-39-8223 arg-0 e-0 e-2 e-14 e-17 e-18 e-19 e-20 alts e-4 'erased arg-2 arg-1 fc _-0 e-7 e-8 e-9 (List-Data-isNil 'erased e-8)) eta-0)))))))))))))))))) (else (let ((e-3 (vector-ref sc4 1))) (vector 1 e-3)))))))))))))))))) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Unexpected DelayCase") eta-0))) ((2) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((alts (vector 1 (vector 2 e-26 e-27) e-14))) ((CompileExpr-Compiler-case--toCExpTreeC-39-8401 arg-0 e-0 e-14 e-26 e-27 alts e-4 e-2 'erased arg-2 arg-1 fc e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))) (else (let ((e-29 (vector-ref sc2 1))) (CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-29)))))))) (else (lambda (eta-0) (vector 1 (vector 14 (TT-Core-getLoc 'erased e-4) (Strings-Types-Prelude-C-43C-43 "Missing case tree in " (Name-Core-show_Show__Name arg-2))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-8))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) e-10))))) (else (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) (Strings-Types-Prelude-C-43C-43 "Impossible case encountered in " (Name-Core-show_Show__Name arg-2)))))))))) +(define CompileExpr-Compiler-toCExpTreeC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (let ((e-19 (vector-ref sc2 3))) (let ((e-20 (vector-ref sc2 4))) (let ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-getNewType arg-0 arg-1 fc (vector 0 e-2 fc) arg-2 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((alts (vector 1 (vector 0 e-17 e-18 e-19 e-20) e-14))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 alts) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 alts) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((_-0 (vector 0 ))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32toCExpTreeC-39-8217 arg-0 e-0 e-2 e-14 e-17 e-18 e-19 e-20 alts e-4 'erased arg-2 arg-1 fc _-0 e-7 e-8 e-9 (List-Data-isNil 'erased e-8)) eta-0)))))))))))))))))) (else (let ((e-3 (vector-ref sc4 1))) (vector 1 e-3)))))))))))))))))) ((1) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Unexpected DelayCase") eta-0))) ((2) (let ((e-26 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((alts (vector 1 (vector 2 e-26 e-27) e-14))) ((CompileExpr-Compiler-case--toCExpTreeC-39-8395 arg-0 e-0 e-14 e-26 e-27 alts e-4 e-2 'erased arg-2 arg-1 fc e-6 e-7 (List-Data-isNil 'erased e-6)) eta-0))))))))))))))))) (else (let ((e-29 (vector-ref sc2 1))) (CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-29)))))))) (else (lambda (eta-0) (vector 1 (vector 14 (TT-Core-getLoc 'erased e-4) (Strings-Types-Prelude-C-43C-43 "Missing case tree in " (Name-Core-show_Show__Name arg-2))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-8))) ((2) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) e-10))))) (else (lambda (eta-0) (vector 1 (vector 14 (FC-Core-emptyFC) (Strings-Types-Prelude-C-43C-43 "Impossible case encountered in " (Name-Core-show_Show__Name arg-2)))))))))) (define CompileExpr-Compiler-toCExpTree (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((fc (TT-Core-getLoc 'erased e-4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree (vector 1 e-10 (vector 1 e-11 arg-0)) arg-1 arg-2 e-12) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 3 fc e-11 0 (vector 8 fc (vector 0 e-2 (TT-Core-getLoc 'erased e-4))) (vector 3 fc e-10 0 (vector 13 fc) e-6))))))))))))))(else (CompileExpr-Compiler-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3))))))(else (CompileExpr-Compiler-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3))))))))(else (CompileExpr-Compiler-toCExpTreeC-39 arg-0 arg-1 arg-2 arg-3)))))) -(define CompileExpr-Compiler-toCExpTm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-4 e-2)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((2) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (let ((sc2 e-51)) (cond ((equal? sc2 0) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((e-54 (vector-ref sc3 1))) (let ((e-55 (vector-ref sc3 2))) (let ((sc4 e-54)) (case (vector-ref sc4 0) ((1) (let ((e-57 (vector-ref sc4 1))) (let ((e-58 (vector-ref sc4 2))) (let ((sc5 e-57)) (cond ((equal? sc5 "Basics") (let ((sc6 e-58)) (case (vector-ref sc6 0) ((1) (let ((e-60 (vector-ref sc6 1))) (let ((e-61 (vector-ref sc6 2))) (let ((sc7 e-60)) (cond ((equal? sc7 "Prelude") (let ((sc8 e-61)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-55)) (case (vector-ref sc9 0) ((1) (let ((e-63 (vector-ref sc9 1))) (let ((sc10 e-63)) (cond ((equal? sc10 "True") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc10 "False") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))) ((equal? sc5 "EqOrd") (let ((sc6 e-58)) (case (vector-ref sc6 0) ((1) (let ((e-65 (vector-ref sc6 1))) (let ((e-66 (vector-ref sc6 2))) (let ((sc7 e-65)) (cond ((equal? sc7 "Prelude") (let ((sc8 e-66)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-55)) (case (vector-ref sc9 0) ((1) (let ((e-68 (vector-ref sc9 1))) (let ((sc10 e-68)) (cond ((equal? sc10 "LT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc10 "EQ") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc10 "GT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))) ((3) (lambda (eta-0) (vector 1 (vector 5 e-7 e-9 (vector 0 ) (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-7 (vector 1 e-7 e-5) (vector 0 )))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 eta-1)) e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-11 (vector 1 e-11 e-12) e-5)))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 2 e-16 e-17 e-5))))))))) ((1) (let ((e-76 (vector-ref sc1 2))) (let ((e-77 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-77) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) (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-76)))))))))))))))) ((2) (let ((e-83 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-83) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 5 e-16 (vector 1 "->") (vector 0 ) (vector 1 e-5 (vector 1 (vector 2 e-16 e-17 e-6) (vector 0 ))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 13 e-16))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-21 e-5 (vector 1 e-6 (vector 0 ))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (CompileExpr-Compiler-toCExpTm arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 13 e-30))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-34 e-5))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-39 e-5))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((t (TT-Core-constTag e-44))) (CompileExpr-Compiler-case--toCExpTm-7226 arg-0 arg-1 e-44 e-43 arg-2 t (EqOrd-Prelude-C-61C-61_Eq__Int t 0)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 13 e-46))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 5 e-49 (vector 1 "Type") (vector 0 ) (vector 0 )))))))))) -(define CompileExpr-Compiler-toCExp (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Compiler-case--toCExp-7292 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3)))) -(define CompileExpr-Compiler-toCDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Types-Prelude-C-43C-43 "Encountered undefined name " (Name-Core-show_Show__Name e-5)))))))))))) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree e-1 arg-0 arg-1 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (CompileExpr-Compiler-case--toCDef-9707 e-5 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-5)))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 0 ) e-8) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 2 e-7 e-2 e-3)))))))))))))))))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (CompileExpr-Compiler-case--toCDef-9839 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 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (Builtin-snd 'erased 'erased eta-0)))) e-12))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-10) e-11 nt)))))))) ((6) (let ((e-14 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ) e-14 (vector 0 )))))) ((7) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Types-Prelude-C-43C-43 "Encountered unimplemented hole " (Name-Core-show_Show__Name e-5)))))))))))) ((9) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Types-Prelude-C-43C-43 "Encountered constrained hole " (Name-Core-show_Show__Name e-5)))))))))))) ((8) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Types-Prelude-C-43C-43 "Encountered incomplete proof search " (Name-Core-show_Show__Name e-5))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Types-Prelude-C-43C-43 "Encountered uncompilable name " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x))))) (vector 0 e-5 arg-3))))))))))))))))) +(define CompileExpr-Compiler-toCExpTm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 0 e-4 e-2)))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((sc1 e-8)) (case (vector-ref sc1 0) ((2) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (let ((sc2 e-51)) (cond ((equal? sc2 0) (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) (let ((e-54 (vector-ref sc3 1))) (let ((e-55 (vector-ref sc3 2))) (let ((sc4 e-54)) (case (vector-ref sc4 0) ((1) (let ((e-57 (vector-ref sc4 1))) (let ((e-58 (vector-ref sc4 2))) (let ((sc5 e-57)) (cond ((equal? sc5 "Basics") (let ((sc6 e-58)) (case (vector-ref sc6 0) ((1) (let ((e-60 (vector-ref sc6 1))) (let ((e-61 (vector-ref sc6 2))) (let ((sc7 e-60)) (cond ((equal? sc7 "Prelude") (let ((sc8 e-61)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-55)) (case (vector-ref sc9 0) ((1) (let ((e-63 (vector-ref sc9 1))) (let ((sc10 e-63)) (cond ((equal? sc10 "True") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc10 "False") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))) ((equal? sc5 "EqOrd") (let ((sc6 e-58)) (case (vector-ref sc6 0) ((1) (let ((e-65 (vector-ref sc6 1))) (let ((e-66 (vector-ref sc6 2))) (let ((sc7 e-65)) (cond ((equal? sc7 "Prelude") (let ((sc8 e-66)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-55)) (case (vector-ref sc9 0) ((1) (let ((e-68 (vector-ref sc9 1))) (let ((sc10 e-68)) (cond ((equal? sc10 "LT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc10 "EQ") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50))))) ((equal? sc10 "GT") (lambda (eta-0) (vector 1 (vector 12 e-7 (vector 0 e-50)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 )))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))))))))))))))) ((3) (lambda (eta-0) (vector 1 (vector 5 e-7 e-9 (vector 0 ) (vector 0 )))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-7 (vector 1 e-7 e-5) (vector 0 )))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 eta-1)) e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 4 e-11 (vector 1 e-11 e-12) e-5)))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 2 e-16 e-17 e-5))))))))) ((1) (let ((e-74 (vector-ref sc1 1))) (let ((e-75 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-75) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) (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-74)))))))))))))))) ((2) (let ((e-80 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-80) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 5 e-16 (vector 1 "->") (vector 0 ) (vector 1 e-5 (vector 1 (vector 2 e-16 e-17 e-6) (vector 0 ))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 13 e-16))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-22) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-21 e-5 (vector 1 e-6 (vector 0 ))))))))))))))))))) ((5) (let ((e-28 (vector-ref sc0 4))) (CompileExpr-Compiler-toCExpTm arg-0 arg-1 arg-2 e-28))) ((6) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 13 e-30))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-34 e-5))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 8 e-39 e-5))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((t (TT-Core-constTag e-44))) (CompileExpr-Compiler-case--toCExpTm-7220 arg-0 arg-1 e-44 e-43 arg-2 t (EqOrd-Prelude-C-61C-61_Eq__Int t 0)))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 13 e-46))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 5 e-49 (vector 1 "Type") (vector 0 ) (vector 0 )))))))))) +(define CompileExpr-Compiler-toCExp (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Compiler-case--toCExp-7286 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3)))) +(define CompileExpr-Compiler-toCDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Types-Prelude-C-43C-43 "Encountered undefined name " (Name-Core-show_Show__Name e-5)))))))))))) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree e-1 arg-0 arg-1 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (CompileExpr-Compiler-case--toCDef-9697 e-5 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkArgList 0 e-5)))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 0 ) e-8) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (vector 1 (vector 2 e-7 e-2 e-3)))))))))))))))))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (CompileExpr-Compiler-case--toCDef-9829 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 (Types-Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (Builtin-snd 'erased 'erased eta-0)))) e-12))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 e-10) e-11 nt)))))))) ((6) (let ((e-14 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 ) e-14 (vector 0 )))))) ((7) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Types-Prelude-C-43C-43 "Encountered unimplemented hole " (Name-Core-show_Show__Name e-5)))))))))))) ((9) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Types-Prelude-C-43C-43 "Encountered constrained hole " (Name-Core-show_Show__Name e-5)))))))))))) ((8) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Types-Prelude-C-43C-43 "Encountered incomplete proof search " (Name-Core-show_Show__Name e-5))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Types-Prelude-C-43C-43 "Encountered uncompilable name " (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (vector 0 (lambda (x) (Context-Core-show_Show__Def x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__Def d x))))) (vector 0 e-5 arg-3))))))))))))))))) (define CompileExpr-Compiler-numArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (vector 2 e-5)))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-lookupCtxtExact e-3 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-4))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32numArgs-5470 'erased e-1 e-2 e-3 arg-1 e-4 _-0 (let ((sc3 e-4)) (let ((e-17 (vector-ref sc3 18))) e-17))) eta-0)))) (else (vector 1 (vector 2 0))))))))))))))))))(else (lambda (eta-0) (vector 1 (vector 2 0)))))))) -(define CompileExpr-Compiler-nfToCFType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-37 (vector-ref sc0 2))) (let ((sc1 e-37)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 1 )))) ((12) (lambda (eta-0) (vector 1 (vector 2 )))) ((13) (lambda (eta-0) (vector 1 (vector 3 )))) ((14) (lambda (eta-0) (vector 1 (vector 4 )))) ((15) (lambda (eta-0) (vector 1 (vector 5 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-31 (vector-ref sc2 2))) (let ((sc3 e-31)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (vector 1 (vector 6 ))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc4 arg-2)) (cond ((equal? sc4 1) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 3))) (let ((e-15 (vector-ref sc5 4))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-20 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-5 (vector-ref sc6 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-20 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-28 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-20 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-20 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-34 (vector-ref sc2 2))) (let ((sc3 e-34)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "String not allowed in a foreign struct") eta-0)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-28 (vector-ref sc3 2))) (let ((sc4 e-28)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc4 arg-2)) (cond ((equal? sc4 1) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 3))) (let ((e-15 (vector-ref sc5 4))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-20 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-5 (vector-ref sc6 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-20 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-28 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-20 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-20 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-28 (vector-ref sc1 2))) (let ((sc2 e-28)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-20 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-20 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-31 (vector-ref sc1 2))) (let ((sc2 e-31)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (vector 1 (vector 6 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-28 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-20 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-20 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-28 (vector-ref sc1 2))) (let ((sc2 e-28)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-20 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-20 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-34 (vector-ref sc1 2))) (let ((sc2 e-34)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "String not allowed in a foreign struct") eta-0)))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-28 (vector-ref sc2 2))) (let ((sc3 e-28)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-20 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-20 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-28 (vector-ref sc1 2))) (let ((sc2 e-28)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-20 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-20 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-28 (vector-ref sc0 2))) (let ((sc1 e-28)) (case (vector-ref sc1 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-20 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "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-20 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-20) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-16 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-18 (vector-ref sc9 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc9 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-22 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-22 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-12 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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-nfToCFType (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-36 (vector-ref sc0 2))) (let ((sc1 e-36)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (vector 1 (vector 1 )))) ((12) (lambda (eta-0) (vector 1 (vector 2 )))) ((13) (lambda (eta-0) (vector 1 (vector 3 )))) ((14) (lambda (eta-0) (vector 1 (vector 4 )))) ((15) (lambda (eta-0) (vector 1 (vector 5 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-30 (vector-ref sc2 2))) (let ((sc3 e-30)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (vector 1 (vector 6 ))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc4 arg-2)) (cond ((equal? sc4 1) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 3))) (let ((e-15 (vector-ref sc5 4))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-5 (vector-ref sc6 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-33 (vector-ref sc2 2))) (let ((sc3 e-33)) (case (vector-ref sc3 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "String not allowed in a foreign struct") eta-0)))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((8) (let ((e-27 (vector-ref sc3 2))) (let ((sc4 e-27)) (case (vector-ref sc4 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc4 arg-2)) (cond ((equal? sc4 1) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 3))) (let ((e-15 (vector-ref sc5 4))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((2) (let ((e-19 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc6 arg-3)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-5 (vector-ref sc6 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (let ((sc10 e-8)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc11 lamc-0)) (let ((e-16 (vector-ref sc11 1))) (let ((e-11 (vector-ref sc11 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc13 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc12 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc4 0) (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((0) (let ((e-21 (vector-ref sc5 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-12 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc12 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (vector 1 (vector 6 ))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-33 (vector-ref sc1 2))) (let ((sc2 e-33)) (case (vector-ref sc2 0) ((16) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "String not allowed in a foreign struct") eta-0)))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((8) (let ((e-27 (vector-ref sc2 2))) (let ((sc3 e-27)) (case (vector-ref sc3 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc3 arg-2)) (cond ((equal? sc3 1) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 3))) (let ((e-15 (vector-ref sc4 4))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((2) (let ((e-19 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc5 arg-3)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-5 (vector-ref sc5 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (let ((sc9 e-8)) (case (vector-ref sc9 0) ((0) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc10 lamc-0)) (let ((e-16 (vector-ref sc10 1))) (let ((e-11 (vector-ref sc10 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc12 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc11 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc3 0) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((e-21 (vector-ref sc4 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-12 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc11 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((8) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc2 arg-2)) (cond ((equal? sc2 1) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-12 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 3))) (let ((e-15 (vector-ref sc3 4))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((2) (let ((e-19 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-5 (vector-ref sc4 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc9 lamc-0)) (let ((e-16 (vector-ref sc9 1))) (let ((e-11 (vector-ref sc9 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc11 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc10 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc2 0) (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc10 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-27 (vector-ref sc0 2))) (let ((sc1 e-27)) (case (vector-ref sc1 0) ((18) (lambda (eta-0) (vector 1 (vector 7 )))) ((17) (lambda (eta-0) (vector 1 (vector 8 )))) ((19) (lambda (eta-0) (vector 1 (vector 12 ))))(else (let ((sc1 arg-2)) (cond ((equal? sc1 1) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((sc3 e-14)) (case (vector-ref sc3 0) ((2) (let ((e-19 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-5 (vector-ref sc3 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc8 lamc-0)) (let ((e-16 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc10 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc9 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc1 0) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (let ((e-21 (vector-ref sc2 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-12 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc9 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((sc2 e-14)) (case (vector-ref sc2 0) ((2) (let ((e-19 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-26 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 13 e-6 e-8)))))))))))))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-5 (vector-ref sc2 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc7 lamc-0)) (let ((e-16 (vector-ref sc7 1))) (let ((e-11 (vector-ref sc7 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc8 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-18 (vector-ref sc9 1))) (vector 0 e-18))) (else (let ((e-18 (vector-ref sc9 1))) (vector 1 (vector 0 e-16 e-18))))))))))))))))) e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0)))))))))))))))))))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-21 "Function types not allowed in a foreign struct") eta-0))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc6 lamc-0)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-28)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc8 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc7 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-43C-43 "Can't marshal type for foreign call " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-7))) eta-0))))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 eta-1)) e-10) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 16 e-7 e-11)))))))))))))) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc5 lamc-0)) (let ((e-12 (vector-ref sc5 1))) (let ((e-11 (vector-ref sc5 2))) (lambda (eta-1) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (vector 1 (vector 0 e-12 e-14))))))))))))))))) e-9) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc5 1))) (vector 1 (vector 15 e-10 e-11)))))))))) ((2) (vector 1 (vector 0 ))) ((3) (vector 1 (vector 9 ))) ((4) (vector 1 (vector 10 ))) ((5) (vector 1 (vector 11 ))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc6 1))) (vector 1 (vector 14 e-11)))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "Type") (vector 0 ))))) ((9) (lambda (eta-0) (vector 1 (vector 16 (vector 1 "__") (vector 0 )))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) e-6 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-3) (Strings-Types-Prelude-C-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--natHackTree-6548 'erased e-4 e-3 e-2 e-1 ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-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 "Types") (let ((sc4 e-17)) (case (vector-ref sc4 0) ((1) (let ((e-19 (vector-ref sc4 1))) (let ((e-20 (vector-ref sc4 2))) (let ((sc5 e-19)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((1) (let ((e-22 (vector-ref sc7 1))) (let ((sc8 e-22)) (cond ((equal? sc8 "Z") (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 12 e-1 (vector 1 0)))(else arg-1)))) ((equal? sc8 "S") (let ((sc9 e-4)) (case (vector-ref sc9 0) ((1) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (let ((sc10 e-26)) (case (vector-ref sc10 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-25 (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))))))(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-29 (vector-ref sc1 1))) (let ((e-30 (vector-ref sc1 2))) (let ((sc2 e-30)) (case (vector-ref sc2 0) ((0) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((sc3 e-31)) (case (vector-ref sc3 0) ((1) (let ((e-34 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((sc4 e-34)) (cond ((equal? sc4 "Types") (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-37 (vector-ref sc5 1))) (let ((e-38 (vector-ref sc5 2))) (let ((sc6 e-37)) (cond ((equal? sc6 "Prelude") (let ((sc7 e-38)) (case (vector-ref sc7 0) ((0) (let ((sc8 e-32)) (case (vector-ref sc8 0) ((1) (let ((e-40 (vector-ref sc8 1))) (let ((sc9 e-40)) (cond ((equal? sc9 "natToInteger") (let ((sc10 e-8)) (case (vector-ref sc10 0) ((1) (let ((e-42 (vector-ref sc10 1))) (let ((e-43 (vector-ref sc10 2))) (let ((sc11 e-43)) (case (vector-ref sc11 0) ((0) e-42)(else arg-1))))))(else arg-1)))) ((equal? sc9 "integerToNat") (let ((sc10 e-8)) (case (vector-ref sc10 0) ((1) (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (let ((sc11 e-47)) (case (vector-ref sc11 0) ((0) e-46)(else arg-1))))))(else arg-1)))) ((equal? sc9 "plus") (vector 4 e-6 (vector 1 e-29 (vector 1 "prim__add_Integer")) e-8)) ((equal? sc9 "mult") (vector 4 e-6 (vector 1 e-29 (vector 1 "prim__mul_Integer")) e-8))(else arg-1)))))(else arg-1))))(else arg-1))))(else arg-1))))))(else arg-1)))) ((equal? sc4 "Nat") (let ((sc5 e-35)) (case (vector-ref sc5 0) ((1) (let ((e-50 (vector-ref sc5 1))) (let ((e-51 (vector-ref sc5 2))) (let ((sc6 e-50)) (cond ((equal? sc6 "Data") (let ((sc7 e-51)) (case (vector-ref sc7 0) ((0) (let ((sc8 e-32)) (case (vector-ref sc8 0) ((1) (let ((e-53 (vector-ref sc8 1))) (let ((sc9 e-53)) (cond ((equal? sc9 "minus") (vector 4 e-6 (vector 1 e-29 (vector 1 "prim__sub_Integer")) e-8))(else arg-1)))))(else arg-1))))(else arg-1))))(else arg-1))))))(else arg-1))))(else arg-1))))))(else arg-1))))))(else arg-1))))))(else arg-1))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (vector 2 e-10 e-11 (CompileExpr-Compiler-natHack 'erased e-12))))))(else arg-1))))) (define CompileExpr-Compiler-natBranch (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (CompileExpr-Compiler-isNatCon e-1))))) -(define CompileExpr-Compiler-mkForgetDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32mkForgetDef-10101 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-Types-Prelude-C-43C-43 "Trying to compile unknown name " (Name-Core-show_Show__Name arg-1))) ext-0)))))))))))))))) +(define CompileExpr-Compiler-mkForgetDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32mkForgetDef-10091 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-Types-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--mkDropSubst-6069 e-2 e-3 arg-2 arg-1 arg-0 (CompileExpr-Compiler-mkDropSubst (Types-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--mkArgList-8559 e-0 arg-0 (CompileExpr-Compiler-mkArgList (b+ arg-0 1 63) e-0)))))))) +(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--mkArgList-8553 e-0 arg-0 (CompileExpr-Compiler-mkArgList (b+ arg-0 1 63) e-0)))))))) (define CompileExpr-Compiler-isNatCon (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 "Types") (let ((sc3 e-4)) (case (vector-ref sc3 0) ((1) (let ((e-6 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-6)) (cond ((equal? sc4 "Prelude") (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-1)) (case (vector-ref sc6 0) ((1) (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (cond ((equal? sc7 "Z") 0) ((equal? sc7 "S") 0)(else 1)))))(else 1))))(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))) (Types-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))) (Types-Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased (CompileExpr-Compiler-trySBranch 'erased arg-1 e-2) (CompileExpr-Compiler-getSBranch 'erased arg-1 e-3))))))))) -(define CompileExpr-Compiler-getPArgs (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-0 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-6 (vector-ref sc1 5))) (let ((_-0 (vector 2 e-1 e-2 e-3 e-4 e-6))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32getPArgs-8617 arg-1 arg-0 e-2 e-3 e-4 e-6 e-1 _-0 (List-Data-reverse 'erased e-6)) ext-0))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Badly formed struct type") ext-0))))))))))) -(define CompileExpr-Compiler-getNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupDefExact e-7 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((5) (let ((e-4 (vector-ref sc5 3))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 2))) (let ((env (CompileExpr-Compiler-n--9863-7829-mkSubst e-9 arg-0 e-10 e-8 e-7 e-3 arg-4 arg-3 arg-2 arg-1 'erased 0 arg-3 e-14 e-9))) (let ((act-26 ((CompileExpr-Compiler-toCExpTree (List-Types-Prelude-C-43C-43 'erased e-9 arg-0) arg-1 arg-4 e-10) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 1 (CompileExpr-Core-substs e-9 arg-0 env e-16)))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))(else (CompileExpr-Compiler-getNewType arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) +(define CompileExpr-Compiler-getPArgs (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-0 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-6 (vector-ref sc1 5))) (let ((_-0 (vector 2 e-1 e-2 e-3 e-4 e-6))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32getPArgs-8611 arg-1 arg-0 e-2 e-3 e-4 e-6 e-1 _-0 (List-Data-reverse 'erased e-6)) ext-0))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Badly formed struct type") ext-0))))))))))) +(define CompileExpr-Compiler-getNewType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (vector 1 (vector 0 )))) ((0) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-lookupDefExact e-7 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((5) (let ((e-4 (vector-ref sc5 3))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((1) (let ((e-13 (vector-ref sc6 1))) (let ((sc7 e-13)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 2))) (let ((env (CompileExpr-Compiler-n--9679-7823-mkSubst e-9 arg-0 e-10 e-8 e-7 e-3 arg-4 arg-3 arg-2 arg-1 'erased 0 arg-3 e-14 e-9))) (let ((act-26 ((CompileExpr-Compiler-toCExpTree (List-Types-Prelude-C-43C-43 'erased e-9 arg-0) arg-1 arg-4 e-10) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (vector 0 e-16))) (else (let ((e-16 (vector-ref sc8 1))) (vector 1 (vector 1 (CompileExpr-Core-substs e-9 arg-0 env e-16)))))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))))))))))))))))(else (CompileExpr-Compiler-getNewType arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))) (define CompileExpr-Compiler-getNArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 "IORes") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 6 e-4))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Ptr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "AnyPtr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "GCPtr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-14 (vector-ref sc3 2))) (let ((sc4 e-14)) (case (vector-ref sc4 0) ((0) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "GCAnyPtr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 4 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Buffer") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 5 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Unit") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (vector 1 (vector 2 ))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))) ((equal? sc2 "Struct") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-20 (vector-ref sc3 1))) (let ((e-21 (vector-ref sc3 2))) (let ((sc4 e-21)) (case (vector-ref sc4 0) ((1) (let ((e-23 (vector-ref sc4 1))) (let ((e-24 (vector-ref sc4 2))) (let ((sc5 e-24)) (case (vector-ref sc5 0) ((0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-0 e-20) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((8) (let ((e-3 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((6) (let ((e-6 (vector-ref sc8 1))) (let ((act-25 (CompileExpr-Compiler-getFieldArgs arg-0 e-23 eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (vector 1 (vector 1 e-6 e-7)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Unknown name for struct") eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Unknown name for struct") eta-0)))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-2)))))))) (define CompileExpr-Compiler-getFieldArgs (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Normalise-Core-evalClosure (vector 0 ) arg-0 arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 5))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (case (vector-ref sc5 0) ((0) (let ((act-25 (CompileExpr-Compiler-getFieldArgs arg-0 e-12 ext-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-26 (CompileExpr-Compiler-getPArgs arg-0 e-10 ext-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc7 1))) (let ((sc8 e-14)) (let ((e-16 (vector-ref sc8 1))) (let ((e-15 (vector-ref sc8 2))) (vector 1 (vector 1 (vector 0 e-16 e-15) e-13))))))))))))))))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 ))))))))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 )))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased e-5) "Badly formed struct type") ext-0))))))))))) (define CompileExpr-Compiler-getDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-6)))))))))) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-8) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (vector 1 e-5)))))))))(else (CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 e-3)))))))(else (CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 e-3))))))))))) -(define CompileExpr-Compiler-getCFTypes (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 1 e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 1 e-5 arg-1) e-11) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 (Value-Core-getLoc 'erased arg-2) 1 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (List-Data-reverse 'erased arg-1) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 (Value-Core-getLoc 'erased arg-2) 1 arg-2) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 (List-Data-reverse 'erased arg-1) e-5))))))))))))) -(define CompileExpr-Compiler-expandToArity (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((13) (let ((e-6 (vector-ref sc0 1))) (vector 13 e-6)))(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (CompileExpr-Compiler-n--8070-5774-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--8070-5796-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--7972-5675-mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-n--7972-5674-mkLocal arg-0 arg-4 arg-3 arg-1 (CompileExpr-Core-getFC 'erased arg-3) eta-0)) (List-Data-reverse 'erased arg-4))))(else (let ((e-0 (- arg-2 1))) (vector 2 (CompileExpr-Core-getFC 'erased arg-3) (vector 2 "eta" arg-1) (CompileExpr-Compiler-etaExpand (vector 1 (vector 2 "eta" arg-1) arg-0) (b+ arg-1 1 63) e-0 (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "eta" arg-1) arg-0 arg-3) (vector 1 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-weakenVar 'erased 'erased eta-0)) arg-4)))))))))) +(define CompileExpr-Compiler-getCFTypes (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 1 e-8) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (unbox arg-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-26 (((e-4 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc4 1))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 1 e-5 arg-1) e-10) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 (Value-Core-getLoc 'erased arg-2) 1 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (List-Data-reverse 'erased arg-1) e-5)))))))))))))))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-nfToCFType arg-0 (Value-Core-getLoc 'erased arg-2) 1 arg-2) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 (List-Data-reverse 'erased arg-1) e-5))))))))))))) +(define CompileExpr-Compiler-expandToArity (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((13) (let ((e-6 (vector-ref sc0 1))) (vector 13 e-6)))(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) (CompileExpr-Compiler-n--7892-5774-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--7892-5796-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--7794-5675-mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-n--7794-5674-mkLocal arg-0 arg-4 arg-3 arg-1 (CompileExpr-Core-getFC 'erased arg-3) eta-0)) (List-Data-reverse 'erased arg-4))))(else (let ((e-0 (- arg-2 1))) (vector 2 (CompileExpr-Core-getFC 'erased arg-3) (vector 2 "eta" arg-1) (CompileExpr-Compiler-etaExpand (vector 1 (vector 2 "eta" arg-1) arg-0) (b+ arg-1 1 63) e-0 (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "eta" arg-1) arg-0 arg-3) (vector 1 0 (Types-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--8291-5961-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--8113-5961-drop 'erased e-8 e-7 e-6 e-5 arg-1 0 e-8)))))))(else arg-2))))) (define CompileExpr-Compiler-constCases (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-3))(else (lambda (eta-0) (let ((act-24 ((CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-25 ((CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 0 e-5 e-7) e-8)))))))))))))))))))(else (CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-3))))))))))) -(define CompileExpr-Compiler-conCases (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-5 (let ((sc3 e-9)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32conCases-7500 e-7 arg-0 e-8 e-6 e-5 e-3 arg-2 arg-1 e-9 e-1 _-0 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0)))) (else (let ((act-26 ((Context-Core-getFullName arg-1 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((CompileExpr-Compiler-toCExpTree (List-Types-Prelude-C-43C-43 'erased e-7 arg-0) arg-1 arg-2 e-8) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 0 e-11 (vector 0 ) e-7 e-12) e-13))))))))))))))))))))))))))))))))))))(else (CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 e-3))))))))))) +(define CompileExpr-Compiler-conCases (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-5 (let ((sc3 e-9)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc3 1))) (let ((sc4 e-10)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((CompileExpr-Compiler-case--caseC-32blockC-32inC-32conCases-7494 e-7 arg-0 e-8 e-6 e-5 e-3 arg-2 arg-1 e-9 e-1 _-0 (let ((sc5 e-1)) (let ((e-17 (vector-ref sc5 18))) e-17))) eta-0)))) (else (let ((act-26 ((Context-Core-getFullName arg-1 e-5) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 ((CompileExpr-Compiler-toCExpTree (List-Types-Prelude-C-43C-43 'erased e-7 arg-0) arg-1 arg-2 e-8) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 ((CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc7 1))) (vector 1 (vector 1 (vector 0 e-11 (vector 0 ) e-7 e-12) e-13))))))))))))))))))))))))))))))))))))(else (CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 e-3))))))))))) (define CompileExpr-Compiler-compileExp (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((CompileExpr-Compiler-toCExp (vector 0 ) arg-0 (vector 1 "main") arg-1) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 e-5)))))))) (define CompileExpr-Compiler-compileDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Def arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Def arg-5319 arg-5320)))) (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((CompileExpr-Compiler-toCDef arg-0 arg-1 (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2)) e-7) ext-0)))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (Context-Core-setCompiled arg-0 arg-1 e-7 ext-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-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 (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-155) (Types-Prelude-pure_Applicative__Maybe 'erased arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-156 arg-158)))))) (lambda (eta-0) (CompileExpr-Compiler-n--9010-6611-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--8173-5856-keepArg arg-0 arg-4 arg-3 arg-2 arg-1 'erased fnC-39)))) -(define Directory-Core-case--findIpkgFile-1219 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-n--6482-1090-findIpkgFileC-39 e-1 "" eta-0))) act-24)))) (else (lambda (eta-0) (vector 0 ))))))) -(define Directory-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findIpkgFileC-44findIpkgFileC-39-1166 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (Directory-Core-n--6482-1090-findIpkgFileC-39 e-5 (Path-Utils-C-60C-47C-62 e-6 arg-0) eta-0))))))) (else (lambda (eta-0) (vector 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 (Types-Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (Types-Prelude-map_Functor__Maybe 'erased 'erased func arg-45))))) (lambda (a) (lambda (arg-112) (Types-Prelude-pure_Applicative__Maybe 'erased arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (Types-Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-113 arg-115)))))) (lambda (eta-0) (CompileExpr-Compiler-n--8832-6611-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--7995-5856-keepArg arg-0 arg-4 arg-3 arg-2 arg-1 'erased fnC-39)))) +(define Directory-Core-case--findIpkgFile-1219 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-n--6310-1090-findIpkgFileC-39 e-1 "" eta-0))) act-24)))) (else (lambda (eta-0) (vector 0 ))))))) +(define Directory-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findIpkgFileC-44findIpkgFileC-39-1166 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (Directory-Core-n--6310-1090-findIpkgFileC-39 e-5 (Path-Utils-C-60C-47C-62 e-6 arg-0) eta-0))))))) (else (lambda (eta-0) (vector 0 ))))))) (define Directory-Core-case--caseC-32blockC-32inC-32findIpkgFileC-44findIpkgFileC-39-1128 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 arg-1 (vector 0 e-1 arg-0)))))) (else (Directory-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32findIpkgFileC-44findIpkgFileC-39-1166 arg-0 arg-1 arg-2 arg-3 (Path-Utils-splitParent arg-1))))))) (define Directory-Core-case--findIpkgFileC-44findIpkgFileC-39-1104 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (Directory-Core-case--caseC-32blockC-32inC-32findIpkgFileC-44findIpkgFileC-39-1128 arg-0 arg-1 e-2 _-0 (List-Data-find 'erased (lambda (f) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__String arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2))))) (else (lambda (eta-0) (vector 0 ))))))) -(define Directory-Core-case--dirEntries-1050 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries e-2 eta-0))) (let ((act-25 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) eta-0))) (vector 1 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5)))))))) +(define Directory-Core-case--dirEntries-1050 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries e-2 eta-0))) (let ((act-25 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) eta-0))) (vector 1 act-24)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5)))))))) (define Directory-Core-case--getEntries-1006 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Directory-Core-getEntries arg-0 eta-0))) (vector 1 e-2 act-24))))) (else (lambda (eta-0) (vector 0 ))))))) (define Directory-Core-case--ensureDirectoryExists-937 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0)))))))) (define Directory-Core-case--makeBuildDirectory-886 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (Path-Utils-C-60C-47C-62 (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)) arg-5) e-5) eta-0)))))))) -(define Directory-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkdirAll-842 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0))(else (lambda (eta-0) arg-2))))))(else (lambda (eta-0) arg-2)))))) +(define Directory-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkdirAll-842 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0))(else (lambda (eta-0) arg-2))))))(else (lambda (eta-0) arg-2)))))) (define Directory-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkdirAll-818 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Directory-Core-mkdirAll e-1))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Directory-Core-case--caseC-32blockC-32inC-32mkdirAll-797 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((exist 1)) ((Directory-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkdirAll-818 arg-0 exist (Path-Utils-parent arg-0)) eta-0)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) ((Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0) eta-0))(else act-24)))))(else act-24)))))))))) -(define Directory-Core-case--mkdirAll-775 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Directory-Core-dirExists arg-0 eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) (else (let ((act-25 (let ((exist 1)) ((Directory-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkdirAll-818 arg-0 exist (Path-Utils-parent arg-0)) eta-0)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) ((Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-26 (arg-317 eta-1))) ((arg-318 act-26) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0) eta-0))(else act-25)))))(else act-25)))))))))))))) -(define Directory-Core-case--dirExists-739 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1)))))) +(define Directory-Core-case--caseC-32blockC-32inC-32mkdirAll-797 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((exist 1)) ((Directory-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkdirAll-818 arg-0 exist (Path-Utils-parent arg-0)) eta-0)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) ((Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0) eta-0))(else act-24)))))(else act-24)))))))))) +(define Directory-Core-case--mkdirAll-775 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (Directory-Core-dirExists arg-0 eta-0))) (let ((sc1 act-24)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) (else (let ((act-25 (let ((exist 1)) ((Directory-Core-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32mkdirAll-818 arg-0 exist (Path-Utils-parent arg-0)) eta-0)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) ((Directory-System-createDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-26 (arg-274 eta-1))) ((arg-275 act-26) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0) eta-0))(else act-25)))))(else act-25)))))))))))))) +(define Directory-Core-case--dirExists-739 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1)))))) (define Directory-Core-case--pathToNS-670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 55 (Strings-Types-Prelude-C-43C-43 "Source file " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__String arg-0) (Strings-Types-Prelude-C-43C-43 " is not in the source directory " (Show-Prelude-show_Show__String (Path-Utils-C-60C-47C-62 arg-2 arg-3)))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Path-Utils-show_Show__Body eta-1)) (List-Data-reverse 'erased (let ((sc1 (Path-Utils-parse (Path-Utils-C-60C-46C-62 e-2 "")))) (let ((e-4 (vector-ref sc1 3))) e-4)))))))))))) (define Directory-Core-case--pathToNS-648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Path-Utils-C-60C-47C-62 arg-2 arg-3)) (else arg-3))))) (define Directory-Core-case--nsToSource-574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 51 arg-1 arg-0) eta-0))))))) (define Directory-Core-case--nsToPath-504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 (vector 51 arg-1 arg-0))))))))) (define Directory-Core-case--findLibraryFile-443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Can't find library " arg-0)) eta-0))))))) (define Directory-Core-case--caseC-32blockC-32inC-32readDataFile-351 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-4 e-5) eta-0)))))))) -(define Directory-Core-case--readDataFile-327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Can't find data file " (Strings-Types-Prelude-C-43C-43 arg-0 (Strings-Types-Prelude-C-43C-43 " in any of " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__String d x)))) arg-3))))) eta-0))))))) -(define Directory-Core-case--firstAvailable-277 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 1 arg-0))))))))) (else (Directory-Core-firstAvailable arg-1)))))) -(define Directory-Core-n--6482-1090-findIpkgFileC-39 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Directory-Core-dirEntries arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) ((Directory-Core-case--caseC-32blockC-32inC-32findIpkgFileC-44findIpkgFileC-39-1128 arg-1 arg-0 e-2 _-0 (List-Data-find 'erased (lambda (f) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2)) ext-0)))) (else (vector 0 ))))))) -(define Directory-Core-readDataFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p arg-1)) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (let ((act-25 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-26 (arg-317 eta-0))) ((arg-318 act-26) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-1) ext-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-8) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Can't find data file " (Strings-Types-Prelude-C-43C-43 arg-1 (Strings-Types-Prelude-C-43C-43 " in any of " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__String d x)))) fs))))) ext-0))))))))))))))))) +(define Directory-Core-case--readDataFile-327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Can't find data file " (Strings-Types-Prelude-C-43C-43 arg-0 (Strings-Types-Prelude-C-43C-43 " in any of " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__String d x)))) arg-3))))) eta-0))))))) +(define Directory-Core-case--firstAvailable-277 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 1 arg-0))))))))) (else (Directory-Core-firstAvailable arg-1)))))) +(define Directory-Core-n--6310-1090-findIpkgFileC-39 (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Directory-Core-dirEntries arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) ((Directory-Core-case--caseC-32blockC-32inC-32findIpkgFileC-44findIpkgFileC-39-1128 arg-1 arg-0 e-2 _-0 (List-Data-find 'erased (lambda (f) (Types-Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2)) ext-0)))) (else (vector 0 ))))))) +(define Directory-Core-readDataFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p arg-1)) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (let ((act-25 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-26 (let ((act-26 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-26 (arg-274 eta-0))) ((arg-275 act-26) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-1) ext-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-8) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Can't find data file " (Strings-Types-Prelude-C-43C-43 arg-1 (Strings-Types-Prelude-C-43C-43 " in any of " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__String d x)))) fs))))) ext-0))))))))))))))))) (define Directory-Core-pathToNS (lambda (arg-0 arg-1 arg-2) (let ((sdir (Maybe-Data-fromMaybe 'erased (lambda () "") arg-1))) (let ((base (Directory-Core-case--pathToNS-648 arg-2 arg-1 arg-0 sdir (Path-Utils-isAbsolute arg-2)))) (Directory-Core-case--pathToNS-670 arg-2 arg-1 arg-0 sdir base (Path-Utils-stripPrefix base arg-2)))))) (define Directory-Core-nsToSource (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fnameOrig (Path-Utils-joinPath (List-Data-reverse 'erased arg-2)))) (let ((fnameBase (Types-Prelude-maybe 'erased 'erased (lambda () fnameOrig) (lambda () (lambda (srcdir) (Path-Utils-C-60C-47C-62 srcdir fnameOrig))) (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((fs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (ext) (Path-Utils-C-60C-46C-62 fnameBase ext)) (vector 1 ".idr" (vector 1 ".lidr" (vector 1 ".yaff" (vector 1 ".org" (vector 1 ".md" (vector 0 ))))))))) (let ((act-25 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 51 arg-1 arg-2) ext-0))))))))))))))))))) (define Directory-Core-nsToPath (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fnameBase (Path-Utils-joinPath (List-Data-reverse 'erased arg-2)))) (let ((fs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p (Path-Utils-C-60C-46C-62 fnameBase "ttc"))) (vector 1 (Path-Utils-C-60C-47C-62 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) "ttc") (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 6))) e-8)))))) (let ((act-25 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (vector 1 e-1)))) (else (vector 1 (vector 0 (vector 51 arg-1 arg-2)))))))))))))))))))) (define Directory-Core-mkdirAll (lambda (arg-0) (Directory-Core-case--mkdirAll-775 arg-0 (Path-Utils-C-61C-61_Eq__Path (Path-Utils-parse arg-0) (Path-Utils-emptyPath))))) (define Directory-Core-makeBuildDirectory (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bdir (Path-Utils-C-60C-47C-62 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) "ttc"))) (let ((ns (List-Data-reverse 'erased (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (List-Data-tailC-39 'erased arg-1))))) (let ((ndir (Path-Utils-joinPath ns))) (let ((act-25 (let ((act-25 ((Directory-Core-mkdirAll (Path-Utils-C-60C-47C-62 bdir ndir)) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (Path-Utils-C-60C-47C-62 (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 3))) e-2)) ndir) e-7) ext-0)))))))))))))))))))) (define Directory-Core-getTTCFileName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getDirs arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Directory-Core-pathToNS (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-1) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((fname (Path-Utils-C-60C-46C-62 (Path-Utils-joinPath (List-Data-reverse 'erased e-7)) arg-2))) (let ((bdir (let ((sc3 e-6)) (let ((e-2 (vector-ref sc3 3))) e-2)))) (vector 1 (Path-Utils-C-60C-47C-62 bdir (Path-Utils-C-60C-47C-62 "ttc" fname))))))))))))))))))))) -(define Directory-Core-getEntries (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-dirEntry 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries arg-0 ext-0))) (vector 1 e-2 act-25)))) (else (vector 0 ))))))) -(define Directory-Core-firstAvailable (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2 (vector 0 )) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-4) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (vector 1 (vector 1 e-2)))))))) (else ((Directory-Core-firstAvailable e-3) eta-0))))))))))))))))) +(define Directory-Core-getEntries (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-dirEntry 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries arg-0 ext-0))) (vector 1 e-2 act-25)))) (else (vector 0 ))))))) +(define Directory-Core-firstAvailable (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2 (vector 0 )) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-4) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (vector 1 (vector 1 e-2)))))))) (else ((Directory-Core-firstAvailable e-3) eta-0))))))))))))))))) (define Directory-Core-findLibraryFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (p) (Path-Utils-C-60C-47C-62 p arg-1)) (List-Types-Prelude-C-43C-43 'erased (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (x) (Path-Utils-C-60C-47C-62 x "lib")) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 6))) e-8))))))) (let ((act-25 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Types-Prelude-C-43C-43 "Can't find library " arg-1)) ext-0))))))))))))))))) -(define Directory-Core-findIpkgFile (lambda (ext-0) (let ((act-24 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357)))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-n--6482-1090-findIpkgFileC-39 e-1 "" ext-0))) act-25))) (else (vector 0 ))))))) +(define Directory-Core-findIpkgFile (lambda (ext-0) (let ((act-24 ((Directory-System-currentDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832)))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-n--6310-1090-findIpkgFileC-39 e-1 "" ext-0))) act-25))) (else (vector 0 ))))))) (define Directory-Core-ensureDirectoryExists (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((Directory-Core-mkdirAll arg-0) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) ext-0)))))))))))) -(define Directory-Core-dirExists (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-openDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-25 (arg-317 eta-0))) ((arg-318 act-25) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) ext-0))) 0))) (else 1)))))) -(define Directory-Core-dirEntries (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-openDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries e-2 ext-0))) (let ((act-26 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-26 (arg-317 eta-0))) ((arg-318 act-26) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) ext-0))) (vector 1 act-25))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5)))))))) +(define Directory-Core-dirExists (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-openDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-25 (arg-274 eta-0))) ((arg-275 act-25) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) ext-0))) 0))) (else 1)))))) +(define Directory-Core-dirEntries (lambda (arg-0 ext-0) (let ((act-24 ((Directory-System-openDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 (Directory-Core-getEntries e-2 ext-0))) (let ((act-26 ((Directory-System-closeDir 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-26 (arg-274 eta-0))) ((arg-275 act-26) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) ext-0))) (vector 1 act-25))))) (else (let ((e-5 (vector-ref sc0 1))) (vector 0 e-5)))))))) (define Term-Utils-setupTerm (lambda (ext-0) (Term-Utils-prim__setupTerm ext-0))) (define Term-Utils-getTermCols (lambda (ext-0) (Term-Utils-prim__getTermCols ext-0))) (define IdrisPaths-yprefix (lambda () "__PREFIX__")) -(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) (+ 1 0))) "12194ed0b"))) +(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) (+ 1 0))) "7141c4868"))) (define Pretty-Idris-case--renderWithoutColor-2349 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Term-Utils-getTermCols eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 1.0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 0 (Types-Prelude-cast_Cast__Nat_Int e-2) 1.0)))))))))))) (define Pretty-Idris-case--render-2301 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Doc-Prettyprinter-PrettyPrint-Text-reAnnotateS 'erased 'erased (lambda (eta-0) (Pretty-Idris-colorAnn eta-0)) arg-5)) (else (Doc-Prettyprinter-PrettyPrint-Text-unAnnotateS 'erased 'erased arg-5)))))) (define Pretty-Idris-case--render-2256 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Term-Utils-getTermCols eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-5 1.0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 1 ))))(else (lambda (eta-0) (vector 1 (vector 0 (Types-Prelude-cast_Cast__Nat_Int e-2) 1.0)))))))))))) (define Pretty-Idris-case--prettyTermC-44goC-44deGuard-2014 (lambda (arg-0 arg-1 arg-2 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 Pretty-Idris-case--prettyTermC-44goC-44dePure-1960 (lambda (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 Pretty-Idris-case--prettyTermC-44go-1505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-689-leftAppPrec) arg-4) (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Name-Core-pretty_Pretty__Name 'erased arg-2)))) (else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-689-leftAppPrec) arg-4) (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased arg-2) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Name-Core-pretty_Pretty__Name 'erased arg-3)))))))))) -(define Pretty-Idris-case--prettyTermC-44go-1185 (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))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-6 (Pretty-Idris-n--9473-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-backslash 'erased) (Pretty-Idris-n--9718-1043-prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "=>") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-3)))))))))))) +(define Pretty-Idris-case--prettyTermC-44go-1505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-689-leftAppPrec) arg-4) (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Name-Core-pretty_Pretty__Name 'erased arg-2)))) (else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-689-leftAppPrec) arg-4) (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased arg-2) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Name-Core-pretty_Pretty__Name 'erased arg-3)))))))))) +(define Pretty-Idris-case--prettyTermC-44go-1185 (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))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-6 (Pretty-Idris-n--9299-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-backslash 'erased) (Pretty-Idris-n--9544-1043-prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "=>") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-3)))))))))))) (define Pretty-Idris-case--prettyTermC-44parenthesise-702 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased eta-0))) (else (lambda (eta-0) eta-0)))))) -(define Pretty-Idris-n--9473-687-startPrec (lambda () (vector 4 0))) -(define Pretty-Idris-n--9718-1043-prettyBindings (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-neutral_Monoid__C-40DocC-32C-36annC-41 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((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) ((24) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-10)))(else (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-10)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-11))))(else (let ((sc4 e-11)) (case (vector-ref sc4 0) ((24) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-10)) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9718-1043-prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-10)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-11) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9718-1043-prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))))))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-10)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-11))))(else (let ((sc3 e-11)) (case (vector-ref sc3 0) ((24) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-10)) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9718-1043-prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-10)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-11) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9718-1043-prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))))))))))))))))))) -(define Pretty-Idris-n--9473-690-parenthesise (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased eta-0))) (else (lambda (eta-0) eta-0)))))) -(define Pretty-Idris-n--9473-689-leftAppPrec (lambda () (vector 4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))) -(define Pretty-Idris-n--9473-691-go (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-pretty_Pretty__Name 'erased 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) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Semiring-Algebra-branchVal 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) (lambda () (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-6) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-7)))) (lambda () (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "_")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-6)))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-7)))) e-3)))) (else (let ((e-142 (vector-ref sc2 1))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Name-Core-pretty_Pretty__Name 'erased e-142)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-6)))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-7)))))))))) ((0) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\_)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-6)))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-7)))))) (else (let ((e-145 (vector-ref sc2 1))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Name-Core-pretty_Pretty__Name 'erased e-145)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-6)))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-7)))))))))) ((2) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Semiring-Algebra-branchVal 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) (lambda () (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-6) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "=>") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-7)))) (lambda () (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-auto_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "_")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-6))))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-7)))) e-3)))) (else (let ((e-148 (vector-ref sc2 1))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-auto_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Name-Core-pretty_Pretty__Name 'erased e-148)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-6))))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-7)))))))))) (else (let ((e-139 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-default_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-688-appPrec) e-139) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "_")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-6)))))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-7)))))) (else (let ((e-151 (vector-ref sc2 1))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-default_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-688-appPrec) e-139) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Name-Core-pretty_Pretty__Name 'erased e-151)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-6)))))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-7))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (Pretty-Idris-case--prettyTermC-44go-1185 e-8 e-10 e-13 e-12 e-11 e-9 arg-0 (Pretty-Idris-n--9718-1042-getLamNames e-8 e-10 e-13 e-12 e-11 e-9 arg-0 (vector 1 (vector 0 e-9 (vector 0 e-11 e-12)) (vector 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))) (let ((e-20 (vector-ref sc0 7))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((24) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-let_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-15) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-16)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-in_)) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-19))))))))))(else ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-let_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-15) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-16)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-17) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-18)))))))) (Doc-Prettyprinter-PrettyPrint-Text-hardline 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 4 (Doc-Prettyprinter-PrettyPrint-Text-fillSep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-prettyAlt eta-0)) e-20)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-in_)) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-19))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-case_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-22) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-of_) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Doc-Prettyprinter-PrettyPrint-Text-punctuate 'erased (Symbols-Prettyprinter-PrettyPrint-Text-semi 'erased) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-prettyCase eta-0)) e-23)))))))))))) ((5) (let ((e-26 (vector-ref sc0 3))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-let_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Symbols-Prettyprinter-PrettyPrint-Text-angles 'erased (Symbols-Prettyprinter-PrettyPrint-Text-angles 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "definitions")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-in_)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-26)))))))) ((6) (let ((e-28 (vector-ref sc0 2))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-record_) (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Doc-Prettyprinter-PrettyPrint-Text-punctuate 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-prettyUpdate eta-0)) e-28))))))))) ((7) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-689-leftAppPrec) e-30) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-688-appPrec) e-31))))))) ((8) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go arg-0 e-33) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased) (Pretty-Idris-n--9473-691-go arg-0 e-34)))))) ((10) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (let ((sc1 e-36)) (case (vector-ref sc1 0) ((0) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Inf") (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-688-appPrec) e-37))))(else ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Lazy") (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-688-appPrec) e-37))))))))) ((11) (let ((e-39 (vector-ref sc0 2))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Delay") (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-688-appPrec) e-39))))) ((12) (let ((e-41 (vector-ref sc0 2))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Force") (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-688-appPrec) e-41))))) ((9) (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))) (let ((sc1 e-44)) (case (vector-ref sc1 0) ((0) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-689-leftAppPrec) e-43) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "@") (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-45))))))) (else (let ((e-155 (vector-ref sc1 1))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((0) (let ((e-156 (vector-ref sc2 1))) (let ((e-157 (vector-ref sc2 2))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Pretty-Idris-case--prettyTermC-44go-1505 e-42 e-156 e-155 e-157 e-43 arg-0 (Name-Core-C-61C-61_Eq__Name e-155 e-157)))))))(else ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-689-leftAppPrec) e-43) (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-155) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Pretty-Idris-n--9473-691-go arg-0 e-45))))))))))))))))))) ((13) (Pretty-Idris-pragma (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "%search"))))) ((15) (let ((e-49 (vector-ref sc0 2))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "`") (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-49)))))) ((16) (let ((e-51 (vector-ref sc0 2))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "`") (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Name-Core-pretty_Pretty__Name 'erased e-51))))))) ((17) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "`") (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Symbols-Prettyprinter-PrettyPrint-Text-angles 'erased (Symbols-Prettyprinter-PrettyPrint-Text-angles 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "declaration"))))))) ((18) (let ((e-55 (vector-ref sc0 2))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "~") (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-55)))))) ((19) (let ((e-57 (vector-ref sc0 2))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-pragma (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "%runElab")))) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-57))))) ((14) (let ((e-59 (vector-ref sc0 2))) (TT-Core-pretty_Pretty__Constant 'erased e-59))) ((20) (let ((e-62 (vector-ref sc0 3))) (Pretty-Idris-meta (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Types-Prelude-strCons #\? e-62))))) ((21) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "Type")) ((22) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Name-Core-pretty_Pretty__Name 'erased e-65) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "@")) (Pretty-Idris-n--9473-691-go arg-0 e-66))))) ((23) (let ((e-68 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) (Pretty-Idris-n--9473-691-go arg-0 e-68)))) ((24) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "_")))) ((25) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "?")))) ((26) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-73) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-72) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-74))))))))) ((27) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Name-Core-pretty_Pretty__Name 'erased e-76) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-77)))))) ((28) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-79) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-80)))))) ((29) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-82) (Name-Core-pretty_Pretty__Name 'erased e-83)))))) ((30) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-85) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-86))))))) ((31) (let ((e-88 (vector-ref sc0 2))) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-88)))) ((32) (let ((e-91 (vector-ref sc0 3))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-do_) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Doc-Prettyprinter-PrettyPrint-Text-punctuate 'erased (Symbols-Prettyprinter-PrettyPrint-Text-semi 'erased) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-prettyDo eta-0)) e-91)))))))))) ((33) (let ((e-93 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "!") (Pretty-Idris-n--9473-691-go arg-0 e-93)))) ((34) (let ((e-95 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-enclose 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "[|") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "|]") (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-95)))) ((35) (let ((e-97 (vector-ref sc0 2))) (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Doc-Prettyprinter-PrettyPrint-Text-punctuate 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) eta-0)) e-97)))))))) ((36) (let ((e-99 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 3))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-99) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-100))))))) ((37) (let ((e-102 (vector-ref sc0 2))) (let ((e-103 (vector-ref sc0 3))) (let ((e-104 (vector-ref sc0 4))) (let ((sc1 e-103)) (case (vector-ref sc1 0) ((24) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-102) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "**") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-104))))))(else (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-102) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-103) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "**") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-104)))))))))))))) ((38) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "()")))) ((39) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-109 (vector-ref sc0 4))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "if")))) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-107)) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "then")))) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-108)) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "else")))) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-109)) (vector 0 ))))))))))))) ((40) (let ((e-110 (vector-ref sc0 1))) (let ((e-111 (vector-ref sc0 2))) (let ((e-112 (vector-ref sc0 3))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) (Pretty-Idris-n--9718-1944-dePure e-110 e-112 e-111 arg-0 e-111)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Doc-Prettyprinter-PrettyPrint-Text-punctuate 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-prettyDo (Pretty-Idris-n--9718-1945-deGuard e-110 e-112 e-111 arg-0 eta-0))) e-112))))))))))) ((41) (let ((e-114 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 3))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-rewrite_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-114) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-in_)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-115)))))))) ((42) (let ((e-117 (vector-ref sc0 2))) (let ((e-118 (vector-ref sc0 3))) (let ((e-119 (vector-ref sc0 4))) (let ((sc1 e-118)) (case (vector-ref sc1 0) ((0) (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-117) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "..") (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-119))))) (else (let ((e-161 (vector-ref sc1 1))) (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-117) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-161) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "..") (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-119))))))))))))) ((43) (let ((e-121 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 3))) (let ((sc1 e-122)) (case (vector-ref sc1 0) ((0) (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-121) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "..")))) (else (let ((e-164 (vector-ref sc1 1))) (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-121) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-164) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased ".."))))))))))) ((46) (let ((e-125 (vector-ref sc0 3))) (Pretty-Idris-n--9473-691-go arg-0 e-125))) ((44) (let ((e-127 (vector-ref sc0 2))) (let ((e-128 (vector-ref sc0 3))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-127) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) eta-0)) e-128)))))))) ((45) (let ((e-130 (vector-ref sc0 2))) (let ((e-131 (vector-ref sc0 3))) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) eta-0)) e-130))) (Doc-Prettyprinter-PrettyPrint-Text-fillSep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-688-appPrec) eta-0)) e-131))))))) (else (let ((e-133 (vector-ref sc0 2))) (let ((e-134 (vector-ref sc0 3))) ((Pretty-Idris-n--9473-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9473-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-with_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40ListC-32C-36aC-41 'erased 'erased (vector 0 (lambda (ann) (lambda (arg-3265) (Name-Core-pretty_Pretty__Name 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Name-Core-prettyPrec_Pretty__Name 'erased arg-3266 arg-3267))))) e-133) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9473-691-go (Pretty-Idris-n--9473-687-startPrec) e-134)))))))))))) -(define Pretty-Idris-n--9718-1042-getLamNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (Pretty-Idris-n--9718-1042-getLamNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-1 (vector 0 e-3 e-4)) arg-7) e-5))))))(else (vector 0 (List-Data-reverse 'erased arg-7) arg-8)))))) -(define Pretty-Idris-n--9718-1944-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))) (Pretty-Idris-case--prettyTermC-44goC-44dePure-1960 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 Pretty-Idris-n--9718-1945-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)))) (Pretty-Idris-case--prettyTermC-44goC-44deGuard-2014 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 Pretty-Idris-n--9473-688-appPrec (lambda () (vector 4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))) +(define Pretty-Idris-n--9299-687-startPrec (lambda () (vector 4 0))) +(define Pretty-Idris-n--9544-1043-prettyBindings (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-neutral_Monoid__C-40DocC-32C-36annC-41 'erased)) (else (let ((e-2 (vector-ref sc0 1))) (let ((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) ((24) (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-10)))(else (let ((sc4 e-3)) (case (vector-ref sc4 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-10)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-11))))(else (let ((sc4 e-11)) (case (vector-ref sc4 0) ((24) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-10)) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9544-1043-prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-10)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-11) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9544-1043-prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))))))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-10)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-11))))(else (let ((sc3 e-11)) (case (vector-ref sc3 0) ((24) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-10)) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9544-1043-prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-6) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-10)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-11) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9544-1043-prettyBindings arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)))))))))))))))))))))))))) +(define Pretty-Idris-n--9299-690-parenthesise (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda (eta-0) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased eta-0))) (else (lambda (eta-0) eta-0)))))) +(define Pretty-Idris-n--9299-689-leftAppPrec (lambda () (vector 4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))) +(define Pretty-Idris-n--9299-691-go (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-pretty_Pretty__Name 'erased 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) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Semiring-Algebra-branchVal 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) (lambda () (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-6) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-7)))) (lambda () (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "_")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-6)))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-7)))) e-3)))) (else (let ((e-142 (vector-ref sc2 1))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Name-Core-pretty_Pretty__Name 'erased e-142)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-6)))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-7)))))))))) ((0) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\_)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-6)))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-7)))))) (else (let ((e-145 (vector-ref sc2 1))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Name-Core-pretty_Pretty__Name 'erased e-145)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-6)))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-7)))))))))) ((2) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Semiring-Algebra-branchVal 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) (lambda () (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-6) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "=>") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-7)))) (lambda () (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-auto_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "_")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-6))))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-7)))) e-3)))) (else (let ((e-148 (vector-ref sc2 1))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-auto_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Name-Core-pretty_Pretty__Name 'erased e-148)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-6))))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-7)))))))))) (else (let ((e-139 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-default_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-688-appPrec) e-139) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "_")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-6)))))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-7)))))) (else (let ((e-151 (vector-ref sc2 1))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-default_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-688-appPrec) e-139) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-3) (Name-Core-pretty_Pretty__Name 'erased e-151)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-6)))))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "->") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-7))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (Pretty-Idris-case--prettyTermC-44go-1185 e-8 e-10 e-13 e-12 e-11 e-9 arg-0 (Pretty-Idris-n--9544-1042-getLamNames e-8 e-10 e-13 e-12 e-11 e-9 arg-0 (vector 1 (vector 0 e-9 (vector 0 e-11 e-12)) (vector 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))) (let ((e-20 (vector-ref sc0 7))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((24) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-let_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-15) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-16)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-in_)) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-19))))))))))(else ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-let_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-15) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-16)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-17) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-18)))))))) (Doc-Prettyprinter-PrettyPrint-Text-hardline 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 4 (Doc-Prettyprinter-PrettyPrint-Text-fillSep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-prettyAlt eta-0)) e-20)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-in_)) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-19))))))))))))))))))) ((4) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-case_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-22) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-of_) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Doc-Prettyprinter-PrettyPrint-Text-punctuate 'erased (Symbols-Prettyprinter-PrettyPrint-Text-semi 'erased) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-prettyCase eta-0)) e-23)))))))))))) ((5) (let ((e-26 (vector-ref sc0 3))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-687-startPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-let_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Symbols-Prettyprinter-PrettyPrint-Text-angles 'erased (Symbols-Prettyprinter-PrettyPrint-Text-angles 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "definitions")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-in_)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-26)))))))) ((6) (let ((e-28 (vector-ref sc0 2))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-record_) (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Doc-Prettyprinter-PrettyPrint-Text-punctuate 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-prettyUpdate eta-0)) e-28))))))))) ((7) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-689-leftAppPrec) e-30) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-688-appPrec) e-31))))))) ((8) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go arg-0 e-33) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased) (Pretty-Idris-n--9299-691-go arg-0 e-34)))))) ((10) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (let ((sc1 e-36)) (case (vector-ref sc1 0) ((0) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Inf") (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-688-appPrec) e-37))))(else ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Lazy") (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-688-appPrec) e-37))))))))) ((11) (let ((e-39 (vector-ref sc0 2))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Delay") (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-688-appPrec) e-39))))) ((12) (let ((e-41 (vector-ref sc0 2))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Force") (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-688-appPrec) e-41))))) ((9) (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))) (let ((sc1 e-44)) (case (vector-ref sc1 0) ((0) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-689-leftAppPrec) e-43) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "@") (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-45))))))) (else (let ((e-155 (vector-ref sc1 1))) (let ((sc2 e-45)) (case (vector-ref sc2 0) ((0) (let ((e-156 (vector-ref sc2 1))) (let ((e-157 (vector-ref sc2 2))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Pretty-Idris-case--prettyTermC-44go-1505 e-42 e-156 e-155 e-157 e-43 arg-0 (Name-Core-C-61C-61_Eq__Name e-155 e-157)))))))(else ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-689-leftAppPrec) e-43) (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-155) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Pretty-Idris-n--9299-691-go arg-0 e-45))))))))))))))))))) ((13) (Pretty-Idris-pragma (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "%search"))))) ((15) (let ((e-49 (vector-ref sc0 2))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "`") (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-49)))))) ((16) (let ((e-51 (vector-ref sc0 2))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "`") (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Name-Core-pretty_Pretty__Name 'erased e-51))))))) ((17) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "`") (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Symbols-Prettyprinter-PrettyPrint-Text-angles 'erased (Symbols-Prettyprinter-PrettyPrint-Text-angles 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "declaration"))))))) ((18) (let ((e-55 (vector-ref sc0 2))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "~") (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-55)))))) ((19) (let ((e-57 (vector-ref sc0 2))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-pragma (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "%runElab")))) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-57))))) ((14) (let ((e-59 (vector-ref sc0 2))) (TT-Core-pretty_Pretty__Constant 'erased e-59))) ((20) (let ((e-62 (vector-ref sc0 3))) (Pretty-Idris-meta (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Types-Prelude-strCons #\? e-62))))) ((21) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "Type")) ((22) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Name-Core-pretty_Pretty__Name 'erased e-65) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "@")) (Pretty-Idris-n--9299-691-go arg-0 e-66))))) ((23) (let ((e-68 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) (Pretty-Idris-n--9299-691-go arg-0 e-68)))) ((24) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "_")))) ((25) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "?")))) ((26) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-73) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-72) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-74))))))))) ((27) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Name-Core-pretty_Pretty__Name 'erased e-76) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-77)))))) ((28) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-79) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-80)))))) ((29) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-82) (Name-Core-pretty_Pretty__Name 'erased e-83)))))) ((30) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-85) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-86))))))) ((31) (let ((e-88 (vector-ref sc0 2))) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-88)))) ((32) (let ((e-91 (vector-ref sc0 3))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-do_) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Doc-Prettyprinter-PrettyPrint-Text-punctuate 'erased (Symbols-Prettyprinter-PrettyPrint-Text-semi 'erased) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-prettyDo eta-0)) e-91)))))))))) ((33) (let ((e-93 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "!") (Pretty-Idris-n--9299-691-go arg-0 e-93)))) ((34) (let ((e-95 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-enclose 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "[|") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "|]") (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-95)))) ((35) (let ((e-97 (vector-ref sc0 2))) (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Doc-Prettyprinter-PrettyPrint-Text-punctuate 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) eta-0)) e-97)))))))) ((36) (let ((e-99 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 3))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-99) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-100))))))) ((37) (let ((e-102 (vector-ref sc0 2))) (let ((e-103 (vector-ref sc0 3))) (let ((e-104 (vector-ref sc0 4))) (let ((sc1 e-103)) (case (vector-ref sc1 0) ((24) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-102) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "**") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-104))))))(else (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-102) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-103) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "**") (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-104)))))))))))))) ((38) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "()")))) ((39) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-109 (vector-ref sc0 4))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 2 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "if")))) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-107)) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "then")))) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-108)) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-0)) (Strings-Data-lines "else")))) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-109)) (vector 0 ))))))))))))) ((40) (let ((e-110 (vector-ref sc0 1))) (let ((e-111 (vector-ref sc0 2))) (let ((e-112 (vector-ref sc0 3))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) (Pretty-Idris-n--9544-1944-dePure e-110 e-112 e-111 arg-0 e-111)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Doc-Prettyprinter-PrettyPrint-Text-punctuate 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-prettyDo (Pretty-Idris-n--9544-1945-deGuard e-110 e-112 e-111 arg-0 eta-0))) e-112))))))))))) ((41) (let ((e-114 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 3))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-rewrite_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-114) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-in_)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-115)))))))) ((42) (let ((e-117 (vector-ref sc0 2))) (let ((e-118 (vector-ref sc0 3))) (let ((e-119 (vector-ref sc0 4))) (let ((sc1 e-118)) (case (vector-ref sc1 0) ((0) (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-117) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "..") (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-119))))) (else (let ((e-161 (vector-ref sc1 1))) (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-117) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-161) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "..") (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-119))))))))))))) ((43) (let ((e-121 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 3))) (let ((sc1 e-122)) (case (vector-ref sc1 0) ((0) (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-121) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "..")))) (else (let ((e-164 (vector-ref sc1 1))) (Symbols-Prettyprinter-PrettyPrint-Text-brackets 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-121) (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-164) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased ".."))))))))))) ((46) (let ((e-125 (vector-ref sc0 3))) (Pretty-Idris-n--9299-691-go arg-0 e-125))) ((44) (let ((e-127 (vector-ref sc0 2))) (let ((e-128 (vector-ref sc0 3))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-127) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) eta-0)) e-128)))))))) ((45) (let ((e-130 (vector-ref sc0 2))) (let ((e-131 (vector-ref sc0 3))) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) eta-0)) e-130))) (Doc-Prettyprinter-PrettyPrint-Text-fillSep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-688-appPrec) eta-0)) e-131))))))) (else (let ((e-133 (vector-ref sc0 2))) (let ((e-134 (vector-ref sc0 3))) ((Pretty-Idris-n--9299-690-parenthesise (Show-Prelude-C-62_Ord__Prec arg-0 (Pretty-Idris-n--9299-688-appPrec))) (Doc-Prettyprinter-PrettyPrint-Text-group 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-with_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40ListC-32C-36aC-41 'erased 'erased (vector 0 (lambda (ann) (lambda (arg-3271) (Name-Core-pretty_Pretty__Name 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Name-Core-prettyPrec_Pretty__Name 'erased arg-3272 arg-3273))))) e-133) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Pretty-Idris-n--9299-691-go (Pretty-Idris-n--9299-687-startPrec) e-134)))))))))))) +(define Pretty-Idris-n--9544-1042-getLamNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (Pretty-Idris-n--9544-1042-getLamNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 (vector 0 e-1 (vector 0 e-3 e-4)) arg-7) e-5))))))(else (vector 0 (List-Data-reverse 'erased arg-7) arg-8)))))) +(define Pretty-Idris-n--9544-1944-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))) (Pretty-Idris-case--prettyTermC-44goC-44dePure-1960 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 Pretty-Idris-n--9544-1945-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)))) (Pretty-Idris-case--prettyTermC-44goC-44deGuard-2014 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 Pretty-Idris-n--9299-688-appPrec (lambda () (vector 4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))) (define Pretty-Idris-with_ (lambda () (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "with")))) (define Pretty-Idris-rewrite_ (lambda () (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "rewrite")))) (define Pretty-Idris-renderWithoutColor (lambda (arg-0 arg-1 ext-0) (let ((act-24 (REPLOpts-Idris-getConsoleWidth arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((act-25 (let ((act-25 (Term-Utils-getTermCols ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-6 1.0)))))))) (else (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (cond ((equal? sc2 0) (vector 1 (vector 1 )))(else (vector 1 (vector 0 (Types-Prelude-cast_Cast__Nat_Int e-2) 1.0))))))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((layout ((Doc-Prettyprinter-PrettyPrint-Text-layoutPretty 'erased e-6) arg-1))) (vector 1 (Terminal-Render-Prettyprinter-PrettyPrint-Text-renderString (Doc-Prettyprinter-PrettyPrint-Text-unAnnotateS 'erased 'erased layout)))))))))))))))) (define Pretty-Idris-render (lambda (arg-0 arg-1 ext-0) (let ((act-24 (REPLOpts-Idris-getConsoleWidth arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (REPLOpts-Idris-getColor arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-26 (let ((act-26 (Term-Utils-getTermCols ext-0))) (vector 1 act-26)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 e-7 1.0)))))))) (else (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (cond ((equal? sc3 0) (vector 1 (vector 1 )))(else (vector 1 (vector 0 (Types-Prelude-cast_Cast__Nat_Int e-2) 1.0))))))))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((layout ((Doc-Prettyprinter-PrettyPrint-Text-layoutPretty 'erased e-7) arg-1))) (vector 1 (Terminal-Render-Prettyprinter-PrettyPrint-Text-renderString (let ((sc3 e-6)) (cond ((equal? sc3 0) (Doc-Prettyprinter-PrettyPrint-Text-reAnnotateS 'erased 'erased (lambda (eta-0) (Pretty-Idris-colorAnn eta-0)) layout)) (else (Doc-Prettyprinter-PrettyPrint-Text-unAnnotateS 'erased 'erased layout)))))))))))))))))))))))) (define Pretty-Idris-record_ (lambda () (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "record")))) (define Pretty-Idris-prettyUpdate (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0)) e-0)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Pretty-Idris-prettyTerm e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0)) e-2)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\$) (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased)) (Pretty-Idris-prettyTerm e-3)))))))))) -(define Pretty-Idris-prettyTerm (lambda (ext-0) (Pretty-Idris-n--9473-691-go (vector 0 ) ext-0))) +(define Pretty-Idris-prettyTerm (lambda (ext-0) (Pretty-Idris-n--9299-691-go (vector 0 ) ext-0))) (define Pretty-Idris-prettyRig (lambda (arg-0 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\0) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\1) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) ext-0))) (define Pretty-Idris-prettyDo (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Pretty-Idris-prettyTerm e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-3) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "<-") (Pretty-Idris-prettyTerm e-4)))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-prettyTerm e-6) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "<-") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyTerm e-7) (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 4 (Doc-Prettyprinter-PrettyPrint-Text-fillSep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-prettyAlt eta-0)) e-8)))))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 5))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-let_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyRig 'erased e-11) (Name-Core-pretty_Pretty__Name 'erased e-10)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Pretty-Idris-prettyTerm e-13)))))))) ((4) (let ((e-15 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-let_) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-prettyTerm e-15) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-prettyTerm e-17) (Doc-Prettyprinter-PrettyPrint-Text-hang 'erased 4 (Doc-Prettyprinter-PrettyPrint-Text-fillSep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-prettyAlt eta-0)) e-18))))))))))) ((5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-let_) (Symbols-Prettyprinter-PrettyPrint-Text-braces 'erased (Symbols-Prettyprinter-PrettyPrint-Text-angles 'erased (Symbols-Prettyprinter-PrettyPrint-Text-angles 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "definitions")))))) (else (let ((e-22 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-rewrite_) (Pretty-Idris-prettyTerm e-22)))))))) (define Pretty-Idris-prettyCase (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-prettyTerm e-1) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "=>") (Pretty-Idris-prettyTerm e-2)))))) ((1) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Symbols-Prettyprinter-PrettyPrint-Text-angles 'erased (Symbols-Prettyprinter-PrettyPrint-Text-angles 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "with alts not possible"))))) (else (let ((e-10 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-prettyTerm e-10) (Pretty-Idris-impossible_)))))))) @@ -6534,56 +6462,56 @@ (define Pretty-Idris-code (lambda (ext-0) (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 4 ) ext-0))) (define Pretty-Idris-case_ (lambda () (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "case")))) (define Pretty-Idris-auto_ (lambda () (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "auto")))) -(define Syntax-Idris-case--resolved-10353 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 arg-3 e-7 e-8))))))))))) -(define Syntax-Idris-case--full-10312 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 arg-3 e-7 e-8))))))))))) -(define Syntax-Idris-case--toBuf-10006 (lambda (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 0))))) -(define Syntax-Idris-case--fromBuf-9841 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Fixity" eta-0))))))) -(define Syntax-Idris-case--showPrecC-44deGuard-9139 (lambda (arg-0 arg-1 arg-2 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--showPrecC-44dePure-9085 (lambda (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--showPrec-8644 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Types-Prelude-C-43C-43 " {" (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) "}")))) (else (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Types-Prelude-C-43C-43 " {" (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-3) "}")))))))))) -(define Syntax-Idris-n--10615-8476-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-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Types-Prelude-C-43C-43 " => " (Syntax-Idris-show_Show__PTerm e-2)))))) ((1) " | <>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible"))))))) -(define Syntax-Idris-n--10615-8393-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-Types-Prelude-C-43C-43 " | " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Types-Prelude-C-43C-43 " => " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-2) ";"))))))) ((1) " | <>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 " | " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible;")))))))) -(define Syntax-Idris-n--12783-10229-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-3 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 2))) (((e-4 arg-3) e-7) eta-0))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((Syntax-Idris-n--12783-10229-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--12782-10187-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-3 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) (((e-1 arg-3) e-7) eta-0))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((Syntax-Idris-n--12782-10187-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--13043-10432-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-1) eta-0))))(else (lambda (eta-0) (vector 1 arg-1))))))) -(define Syntax-Idris-n--13043-10436-goPairedPTerms (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc2 eta-2)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (lambda (eta-3) (vector 1 (vector 0 e-6 e-5) eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--13043-10436-goPairedPTerms arg-0 'erased e-3) eta-0)))))))))))) -(define Syntax-Idris-n--13043-10446-goPTypeDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10429-goPTypeDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--13043-10446-goPTypeDecls arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--13043-10429-goPTypeDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--13043-10435-goPTerms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--13043-10435-goPTerms arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--13043-10424-goPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (arg-0 arg-1)) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-2 e-3 e-8 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--13043-10432-goPiInfo arg-0 e-4) eta-3)) (lambda (eta-3) (vector 1 e-5)) eta-2)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) ((arg-0 e-8) eta-0)))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 2 e-8 e-9 e-5 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--13043-10432-goPiInfo arg-0 e-10) eta-3)) (lambda (eta-3) (vector 1 e-11)) eta-2)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-5) (let ((sc1 eta-5)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (vector 3 e-14 e-15 e-5 eta-6 eta-7 eta-8 eta-9))))))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-16) eta-4)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-17) eta-3)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-18) eta-2)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-19) eta-1)) (Syntax-Idris-n--13043-10440-goPClauses arg-0 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 4 e-21 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-22) eta-1)) (Syntax-Idris-n--13043-10440-goPClauses arg-0 e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 5 e-24 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10442-goPDecls arg-0 e-25) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-5))))))) (Syntax-Idris-n--13043-10443-goPFieldUpdates arg-0 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 7 e-29 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-30) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((8) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 8 e-32 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-33) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-34) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((9) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (let ((e-38 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 9 e-35 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-36) eta-2)) (lambda (eta-2) (vector 1 e-37)) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-38) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((10) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-39 e-40 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((11) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-42 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-43) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-44 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((13) (arg-0 arg-1)) ((14) (arg-0 arg-1)) ((15) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-50 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-51) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((16) (arg-0 arg-1)) ((17) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 17 e-54 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-1) (Syntax-Idris-n--13043-10428-goPDecl arg-0 eta-1)) e-55) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((18) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 18 e-56 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-57) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((19) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-58 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-59) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((20) (arg-0 arg-1)) ((21) (arg-0 arg-1)) ((22) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 22 e-64 e-65 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-66) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((23) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 23 e-67 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-68) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((24) (arg-0 arg-1)) ((25) (arg-0 arg-1)) ((26) (let ((e-71 (vector-ref sc0 1))) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 26 e-71 e-72 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-73) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((27) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 27 e-75 e-76 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((28) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-78 e-79 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-80) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((29) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 29 e-81 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-82) eta-1)) (lambda (eta-1) (vector 1 e-83)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((30) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 30 e-84 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-85) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((31) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 31 e-87 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-88) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((32) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 32 e-89 e-90 e-5))))))) (Syntax-Idris-n--13043-10439-goPDos arg-0 e-91) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((33) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 33 e-92 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-93) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((34) (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 34 e-94 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-95) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((35) (let ((e-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 35 e-96 e-5))))))) (Syntax-Idris-n--13043-10435-goPTerms arg-0 e-97) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((36) (let ((e-98 (vector-ref sc0 1))) (let ((e-99 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 36 e-98 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-99) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-100) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((37) (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))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 37 e-101 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-102) eta-2)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-103) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-104) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((38) (arg-0 arg-1)) ((39) (let ((e-106 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-109 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 39 e-106 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-107) eta-2)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-108) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-109) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((40) (let ((e-110 (vector-ref sc0 1))) (let ((e-111 (vector-ref sc0 2))) (let ((e-112 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 40 e-110 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-111) eta-1)) (Syntax-Idris-n--13043-10439-goPDos arg-0 e-112) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((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))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 41 e-113 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-114) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-115) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((42) (let ((e-116 (vector-ref sc0 1))) (let ((e-117 (vector-ref sc0 2))) (let ((e-118 (vector-ref sc0 3))) (let ((e-119 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 42 e-116 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-117) eta-2)) (Syntax-Idris-n--13043-10434-goMPTerm arg-0 e-118) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-119) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((43) (let ((e-120 (vector-ref sc0 1))) (let ((e-121 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 43 e-120 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-121) eta-1)) (Syntax-Idris-n--13043-10434-goMPTerm arg-0 e-122) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((46) (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-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 46 e-123 e-124 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-125) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((44) (let ((e-126 (vector-ref sc0 1))) (let ((e-127 (vector-ref sc0 2))) (let ((e-128 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 44 e-126 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-127) eta-1)) (lambda (eta-1) (vector 1 e-128)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((45) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (let ((e-131 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 45 e-129 e-130 e-5))))))) (Syntax-Idris-n--13043-10435-goPTerms arg-0 e-131) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) (else (let ((e-132 (vector-ref sc0 1))) (let ((e-133 (vector-ref sc0 2))) (let ((e-134 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 47 e-132 e-133 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-134) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))))))) -(define Syntax-Idris-n--13043-10445-goPFnOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10433-goPFnOpt arg-0 e-2) eta-1)) (Syntax-Idris-n--13043-10445-goPFnOpts arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--13043-10433-goPFnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--13043-10435-goPTerms arg-0 e-1) eta-0)))))))) -(define Syntax-Idris-n--13043-10444-goPFields (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10431-goPField arg-0 e-2) eta-1)) (Syntax-Idris-n--13043-10444-goPFields arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--13043-10443-goPFieldUpdates (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10425-goPFieldUpdate arg-0 e-2) eta-1)) (Syntax-Idris-n--13043-10443-goPFieldUpdates arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--13043-10425-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (Syntax-Idris-n--13043-10424-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--13043-10431-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))) (let ((e-5 (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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 0 e-0 e-1 e-2 e-6 eta-4 eta-5))))))))) (Syntax-Idris-n--13043-10432-goPiInfo arg-0 e-3) eta-2)) (lambda (eta-2) (vector 1 e-4)) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-5) eta-0))))))))))) -(define Syntax-Idris-n--13043-10439-goPDos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10426-goPDo arg-0 e-2) eta-1)) (Syntax-Idris-n--13043-10439-goPDos arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--13043-10426-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (Syntax-Idris-n--13043-10424-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-3 e-5))))))) (Syntax-Idris-n--13043-10424-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 2 e-5 e-9 eta-4 eta-5))))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-6) eta-2)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--13043-10440-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 3 e-9 e-10 e-11 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--13043-10424-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 4 e-14 e-5 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-15) eta-3)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-16) eta-2)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-17) eta-1)) (Syntax-Idris-n--13043-10440-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-19 e-5))))))) (Syntax-Idris-n--13043-10442-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-21 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-22) eta-0))))))))) -(define Syntax-Idris-n--13043-10442-goPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10428-goPDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--13043-10442-goPDecls arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--13043-10428-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 0 e-0 e-1 e-2 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10445-goPFnOpts arg-0 e-3) eta-1)) (Syntax-Idris-n--13043-10429-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-7))))))) (Syntax-Idris-n--13043-10440-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))) (let ((e-10 (vector-ref sc0 4))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-7 e-8 e-9 e-5))))))) (Syntax-Idris-n--13043-10430-goPDataDecl 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) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 3 e-11 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10436-goPairedPTerms arg-0 'erased e-12) eta-1)) (Syntax-Idris-n--13043-10442-goPDecls 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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 4 e-14 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10436-goPairedPTerms arg-0 'erased e-15) eta-1)) (Syntax-Idris-n--13043-10442-goPDecls arg-0 e-16) eta-0)))))) ((5) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-17 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-18) eta-0))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((e-23 (vector-ref sc0 5))) (let ((e-24 (vector-ref sc0 6))) (let ((e-25 (vector-ref sc0 7))) (let ((e-26 (vector-ref sc0 8))) (let ((e-27 (vector-ref sc0 9))) (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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 6 e-19 e-20 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--13043-10436-goPairedPTerms arg-0 'erased e-21) eta-6)) (lambda (eta-6) (vector 1 e-22)) eta-5)) (lambda (eta-5) (vector 1 e-23)) eta-4)) (Syntax-Idris-n--13043-10436-goPairedPTerms arg-0 'erased e-24) eta-3)) (lambda (eta-3) (vector 1 e-25)) eta-2)) (lambda (eta-2) (vector 1 e-26)) eta-1)) (Syntax-Idris-n--13043-10442-goPDecls arg-0 e-27) 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))) (let ((e-32 (vector-ref sc0 5))) (let ((e-33 (vector-ref sc0 6))) (let ((e-34 (vector-ref sc0 7))) (let ((e-35 (vector-ref sc0 8))) (let ((e-36 (vector-ref sc0 9))) (let ((e-37 (vector-ref sc0 10))) (let ((e-38 (vector-ref sc0 11))) (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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 7 e-28 e-29 e-30 e-31 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--13043-10437-go3TupledPTerms arg-0 'erased 'erased e-32) eta-6)) (Syntax-Idris-n--13043-10436-goPairedPTerms arg-0 'erased e-33) eta-5)) (lambda (eta-5) (vector 1 e-34)) eta-4)) (Syntax-Idris-n--13043-10435-goPTerms arg-0 e-35) eta-3)) (lambda (eta-3) (vector 1 e-36)) eta-2)) (lambda (eta-2) (vector 1 e-37)) eta-1)) (Syntax-Idris-n--13043-10441-goMPDecls arg-0 e-38) eta-0)))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((e-42 (vector-ref sc0 4))) (let ((e-43 (vector-ref sc0 5))) (let ((e-44 (vector-ref sc0 6))) (let ((e-45 (vector-ref sc0 7))) (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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 8 e-39 e-40 e-41 e-42 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--13043-10438-go4TupledPTerms arg-0 'erased 'erased e-43) eta-2)) (lambda (eta-2) (vector 1 e-44)) eta-1)) (Syntax-Idris-n--13043-10444-goPFields arg-0 e-45) eta-0)))))))))) ((9) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-46 e-5))))))) (Syntax-Idris-n--13043-10442-goPDecls arg-0 e-47) eta-0))))) ((10) (lambda (eta-0) (vector 1 arg-1))) ((11) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (let ((e-54 (vector-ref sc0 3))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-52 e-53 e-5))))))) (Syntax-Idris-n--13043-10442-goPDecls arg-0 e-54) eta-0)))))) ((12) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (let ((e-58 (vector-ref sc0 4))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 12 e-55 e-56 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-57) eta-1)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-58) eta-0))))))) ((13) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-59 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-60) eta-0))))) (else (lambda (eta-0) (vector 1 arg-1))))))) -(define Syntax-Idris-n--13043-10430-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--13043-10446-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-7) eta-0)))))))))) -(define Syntax-Idris-n--13043-10440-goPClauses (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--13043-10427-goPClause arg-0 e-2) eta-1)) (Syntax-Idris-n--13043-10440-goPClauses arg-0 e-3) eta-0))))))))) -(define Syntax-Idris-n--13043-10427-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 0 e-0 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-1) eta-2)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--13043-10442-goPDecls arg-0 e-3) eta-0))))))) ((1) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-4 e-9 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-5) eta-3)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-6) eta-2)) (lambda (eta-2) (vector 1 e-7)) eta-1)) (Syntax-Idris-n--13043-10440-goPClauses arg-0 e-8) eta-0)))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-9 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-10) eta-0))))))))) -(define Syntax-Idris-n--13043-10434-goMPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-2) eta-0)))))))) -(define Syntax-Idris-n--13043-10441-goMPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--13043-10442-goPDecls arg-0 e-2) eta-0)))))))) -(define Syntax-Idris-n--13043-10438-go4TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc4 eta-3)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (lambda (d) (lambda (ts) (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 0 e-5 d))) ts))))))))) (Syntax-Idris-n--13043-10432-goPiInfo arg-0 e-14) eta-2)) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-15) eta-1)) (Syntax-Idris-n--13043-10438-go4TupledPTerms arg-0 'erased 'erased e-3) eta-0)))))))))))))))))) -(define Syntax-Idris-n--13043-10437-go3TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc3 eta-2)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (lambda (eta-3) (vector 1 (vector 0 e-6 (vector 0 e-10 e-5)) eta-3)))))))) (Syntax-Idris-n--13043-10424-goPTerm arg-0 e-11) eta-1)) (Syntax-Idris-n--13043-10437-go3TupledPTerms arg-0 'erased 'erased e-3) eta-0))))))))))))))) -(define Syntax-Idris-n--9907-7456-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--10615-9069-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--showPrecC-44dePure-9085 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--10615-9070-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--showPrecC-44deGuard-9139 arg-0 arg-1 arg-2 arg-3 e-2 e-5 e-6 e-4 e-0 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-6) (vector 1 "guard")))))))(else arg-4)))))))(else arg-4))))))(else arg-4))))) -(define Syntax-Idris-toBuf_TTC__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Syntax-Idris-toBuf_TTC__Fixity arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Syntax-Idris-toBuf_TTC__Fixity arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Syntax-Idris-toBuf_TTC__Fixity arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Syntax-Idris-toBuf_TTC__Fixity arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 (StringMap-Data-toList 'erased (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 (StringMap-Data-toList 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 (List-Data-filter 'erased (lambda (n) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (Builtin-fst 'erased 'erased n) (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 4))) e-3)))) (ANameMap-Data-toList 'erased (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 (List-Data-filter 'erased (lambda (n) (Syntax-Idris-case--toBuf-10006 arg-1 arg-0 e-5 e-6 e-7 n (NameMap-Data-lookup 'erased (Builtin-fst 'erased 'erased n) (let ((sc3 arg-1)) (let ((e-11 (vector-ref sc3 6))) e-11))))) (ANameMap-Data-toList 'erased (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 (let ((sc4 arg-1)) (let ((e-11 (vector-ref sc4 7))) e-11)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 9))) e-10))) ext-0)))))))))))))))))))))))))) +(define Syntax-Idris-case--resolved-10357 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 arg-3 e-7 e-8))))))))))) +(define Syntax-Idris-case--full-10316 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (vector 0 e-0 e-1 arg-2 e-3 e-4 e-5 arg-3 e-7 e-8))))))))))) +(define Syntax-Idris-case--toBuf-10010 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) 1)(else 0))))) +(define Syntax-Idris-case--fromBuf-9845 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (vector 1 )))) ((equal? sc0 2) (lambda (eta-0) (vector 1 (vector 2 )))) ((equal? sc0 3) (lambda (eta-0) (vector 1 (vector 3 ))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Fixity" eta-0))))))) +(define Syntax-Idris-case--showPrecC-44deGuard-9145 (lambda (arg-0 arg-1 arg-2 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--showPrecC-44dePure-9091 (lambda (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--showPrec-8650 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Types-Prelude-C-43C-43 " {" (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) "}")))) (else (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-5 arg-4) (Strings-Types-Prelude-C-43C-43 " {" (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-2) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-5 arg-3) "}")))))))))) +(define Syntax-Idris-n--10430-8482-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-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Types-Prelude-C-43C-43 " => " (Syntax-Idris-show_Show__PTerm e-2)))))) ((1) " | <>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible"))))))) +(define Syntax-Idris-n--10430-8399-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-Types-Prelude-C-43C-43 " | " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Types-Prelude-C-43C-43 " => " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-2) ";"))))))) ((1) " | <>") (else (let ((e-10 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 " | " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-10) " impossible;")))))))) +(define Syntax-Idris-n--12597-10233-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-resolved_HasNames__Name arg-3 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 2))) (((e-4 arg-3) e-7) eta-0))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((Syntax-Idris-n--12597-10233-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--12596-10191-insertAll (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-full_HasNames__Name arg-3 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) (((e-1 arg-3) e-7) eta-0))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) ((Syntax-Idris-n--12596-10191-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--12857-10436-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-1) eta-0))))(else (lambda (eta-0) (vector 1 arg-1))))))) +(define Syntax-Idris-n--12857-10440-goPairedPTerms (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc2 eta-2)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (lambda (eta-3) (vector 1 (vector 0 e-6 e-5) eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--12857-10440-goPairedPTerms arg-0 'erased e-3) eta-0)))))))))))) +(define Syntax-Idris-n--12857-10450-goPTypeDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10433-goPTypeDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--12857-10450-goPTypeDecls arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--12857-10433-goPTypeDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 e-2 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--12857-10439-goPTerms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--12857-10439-goPTerms arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--12857-10428-goPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (arg-0 arg-1)) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-2 e-3 e-8 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--12857-10436-goPiInfo arg-0 e-4) eta-3)) (lambda (eta-3) (vector 1 e-5)) eta-2)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-7) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) ((arg-0 e-8) eta-0)))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 2 e-8 e-9 e-5 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--12857-10436-goPiInfo arg-0 e-10) eta-3)) (lambda (eta-3) (vector 1 e-11)) eta-2)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-13) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-4) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-5) (let ((sc1 eta-5)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (vector 3 e-14 e-15 e-5 eta-6 eta-7 eta-8 eta-9))))))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-16) eta-4)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-17) eta-3)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-18) eta-2)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-19) eta-1)) (Syntax-Idris-n--12857-10444-goPClauses arg-0 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 4 e-21 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-22) eta-1)) (Syntax-Idris-n--12857-10444-goPClauses arg-0 e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 5 e-24 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10446-goPDecls arg-0 e-25) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-27 e-5))))))) (Syntax-Idris-n--12857-10447-goPFieldUpdates arg-0 e-28) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 7 e-29 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-30) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((8) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 8 e-32 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-33) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-34) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((9) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (let ((e-38 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 9 e-35 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-36) eta-2)) (lambda (eta-2) (vector 1 e-37)) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-38) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((10) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-39 e-40 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-41) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((11) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-42 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-43) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-44 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((13) (arg-0 arg-1)) ((14) (arg-0 arg-1)) ((15) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-50 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-51) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((16) (arg-0 arg-1)) ((17) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 17 e-54 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-1) (Syntax-Idris-n--12857-10432-goPDecl arg-0 eta-1)) e-55) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((18) (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 18 e-56 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-57) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((19) (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-58 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-59) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((20) (arg-0 arg-1)) ((21) (arg-0 arg-1)) ((22) (let ((e-64 (vector-ref sc0 1))) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 22 e-64 e-65 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-66) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((23) (let ((e-67 (vector-ref sc0 1))) (let ((e-68 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 23 e-67 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-68) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((24) (arg-0 arg-1)) ((25) (arg-0 arg-1)) ((26) (let ((e-71 (vector-ref sc0 1))) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 26 e-71 e-72 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-73) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((27) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 27 e-75 e-76 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-77) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((28) (let ((e-78 (vector-ref sc0 1))) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-78 e-79 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-80) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((29) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 29 e-81 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-82) eta-1)) (lambda (eta-1) (vector 1 e-83)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((30) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 30 e-84 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-85) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((31) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 31 e-87 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-88) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((32) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (let ((e-91 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 32 e-89 e-90 e-5))))))) (Syntax-Idris-n--12857-10443-goPDos arg-0 e-91) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((33) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 33 e-92 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-93) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((34) (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 34 e-94 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-95) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((35) (let ((e-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 35 e-96 e-5))))))) (Syntax-Idris-n--12857-10439-goPTerms arg-0 e-97) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((36) (let ((e-98 (vector-ref sc0 1))) (let ((e-99 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 36 e-98 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-99) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-100) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((37) (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))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 37 e-101 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-102) eta-2)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-103) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-104) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((38) (arg-0 arg-1)) ((39) (let ((e-106 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-109 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 39 e-106 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-107) eta-2)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-108) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-109) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((40) (let ((e-110 (vector-ref sc0 1))) (let ((e-111 (vector-ref sc0 2))) (let ((e-112 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 40 e-110 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-111) eta-1)) (Syntax-Idris-n--12857-10443-goPDos arg-0 e-112) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((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))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 41 e-113 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-114) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-115) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((42) (let ((e-116 (vector-ref sc0 1))) (let ((e-117 (vector-ref sc0 2))) (let ((e-118 (vector-ref sc0 3))) (let ((e-119 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 42 e-116 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-117) eta-2)) (Syntax-Idris-n--12857-10438-goMPTerm arg-0 e-118) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-119) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((43) (let ((e-120 (vector-ref sc0 1))) (let ((e-121 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 43 e-120 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-121) eta-1)) (Syntax-Idris-n--12857-10438-goMPTerm arg-0 e-122) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((46) (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-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 46 e-123 e-124 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-125) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((44) (let ((e-126 (vector-ref sc0 1))) (let ((e-127 (vector-ref sc0 2))) (let ((e-128 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 44 e-126 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-127) eta-1)) (lambda (eta-1) (vector 1 e-128)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((45) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (let ((e-131 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 45 e-129 e-130 e-5))))))) (Syntax-Idris-n--12857-10439-goPTerms arg-0 e-131) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) (else (let ((e-132 (vector-ref sc0 1))) (let ((e-133 (vector-ref sc0 2))) (let ((e-134 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 47 e-132 e-133 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-134) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))))))) +(define Syntax-Idris-n--12857-10449-goPFnOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10437-goPFnOpt arg-0 e-2) eta-1)) (Syntax-Idris-n--12857-10449-goPFnOpts arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--12857-10437-goPFnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-1))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--12857-10439-goPTerms arg-0 e-1) eta-0)))))))) +(define Syntax-Idris-n--12857-10448-goPFields (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10435-goPField arg-0 e-2) eta-1)) (Syntax-Idris-n--12857-10448-goPFields arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--12857-10447-goPFieldUpdates (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10429-goPFieldUpdate arg-0 e-2) eta-1)) (Syntax-Idris-n--12857-10447-goPFieldUpdates arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--12857-10429-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (Syntax-Idris-n--12857-10428-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--12857-10435-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))) (let ((e-5 (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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 0 e-0 e-1 e-2 e-6 eta-4 eta-5))))))))) (Syntax-Idris-n--12857-10436-goPiInfo arg-0 e-3) eta-2)) (lambda (eta-2) (vector 1 e-4)) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-5) eta-0))))))))))) +(define Syntax-Idris-n--12857-10443-goPDos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10430-goPDo arg-0 e-2) eta-1)) (Syntax-Idris-n--12857-10443-goPDos arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--12857-10430-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (Syntax-Idris-n--12857-10428-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-3 e-5))))))) (Syntax-Idris-n--12857-10428-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 2 e-5 e-9 eta-4 eta-5))))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-6) eta-2)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--12857-10444-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 3 e-9 e-10 e-11 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--12857-10428-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 4 e-14 e-5 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-15) eta-3)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-16) eta-2)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-17) eta-1)) (Syntax-Idris-n--12857-10444-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-19 e-5))))))) (Syntax-Idris-n--12857-10446-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-21 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-22) eta-0))))))))) +(define Syntax-Idris-n--12857-10446-goPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10432-goPDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--12857-10446-goPDecls arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--12857-10432-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 0 e-0 e-1 e-2 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10449-goPFnOpts arg-0 e-3) eta-1)) (Syntax-Idris-n--12857-10433-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-7))))))) (Syntax-Idris-n--12857-10444-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))) (let ((e-10 (vector-ref sc0 4))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-7 e-8 e-9 e-5))))))) (Syntax-Idris-n--12857-10434-goPDataDecl 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) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 3 e-11 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10440-goPairedPTerms arg-0 'erased e-12) eta-1)) (Syntax-Idris-n--12857-10446-goPDecls 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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 4 e-14 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10440-goPairedPTerms arg-0 'erased e-15) eta-1)) (Syntax-Idris-n--12857-10446-goPDecls arg-0 e-16) eta-0)))))) ((5) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-17 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-18) eta-0))))) ((6) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((e-23 (vector-ref sc0 5))) (let ((e-24 (vector-ref sc0 6))) (let ((e-25 (vector-ref sc0 7))) (let ((e-26 (vector-ref sc0 8))) (let ((e-27 (vector-ref sc0 9))) (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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 6 e-19 e-20 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--12857-10440-goPairedPTerms arg-0 'erased e-21) eta-6)) (lambda (eta-6) (vector 1 e-22)) eta-5)) (lambda (eta-5) (vector 1 e-23)) eta-4)) (Syntax-Idris-n--12857-10440-goPairedPTerms arg-0 'erased e-24) eta-3)) (lambda (eta-3) (vector 1 e-25)) eta-2)) (lambda (eta-2) (vector 1 e-26)) eta-1)) (Syntax-Idris-n--12857-10446-goPDecls arg-0 e-27) 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))) (let ((e-32 (vector-ref sc0 5))) (let ((e-33 (vector-ref sc0 6))) (let ((e-34 (vector-ref sc0 7))) (let ((e-35 (vector-ref sc0 8))) (let ((e-36 (vector-ref sc0 9))) (let ((e-37 (vector-ref sc0 10))) (let ((e-38 (vector-ref sc0 11))) (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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-7) (let ((sc1 eta-7)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (vector 7 e-28 e-29 e-30 e-31 e-5 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13))))))))))))) (Syntax-Idris-n--12857-10441-go3TupledPTerms arg-0 'erased 'erased e-32) eta-6)) (Syntax-Idris-n--12857-10440-goPairedPTerms arg-0 'erased e-33) eta-5)) (lambda (eta-5) (vector 1 e-34)) eta-4)) (Syntax-Idris-n--12857-10439-goPTerms arg-0 e-35) eta-3)) (lambda (eta-3) (vector 1 e-36)) eta-2)) (lambda (eta-2) (vector 1 e-37)) eta-1)) (Syntax-Idris-n--12857-10445-goMPDecls arg-0 e-38) eta-0)))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((e-42 (vector-ref sc0 4))) (let ((e-43 (vector-ref sc0 5))) (let ((e-44 (vector-ref sc0 6))) (let ((e-45 (vector-ref sc0 7))) (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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 8 e-39 e-40 e-41 e-42 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--12857-10442-go4TupledPTerms arg-0 'erased 'erased e-43) eta-2)) (lambda (eta-2) (vector 1 e-44)) eta-1)) (Syntax-Idris-n--12857-10448-goPFields arg-0 e-45) eta-0)))))))))) ((9) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 9 e-46 e-5))))))) (Syntax-Idris-n--12857-10446-goPDecls arg-0 e-47) eta-0))))) ((10) (lambda (eta-0) (vector 1 arg-1))) ((11) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (let ((e-54 (vector-ref sc0 3))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-52 e-53 e-5))))))) (Syntax-Idris-n--12857-10446-goPDecls arg-0 e-54) eta-0)))))) ((12) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 3))) (let ((e-58 (vector-ref sc0 4))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 12 e-55 e-56 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-57) eta-1)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-58) eta-0))))))) ((13) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-59 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-60) eta-0))))) (else (lambda (eta-0) (vector 1 arg-1))))))) +(define Syntax-Idris-n--12857-10434-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 0 e-0 e-1 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--12857-10450-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (vector 1 e-5 e-6 e-8))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-7) eta-0)))))))))) +(define Syntax-Idris-n--12857-10444-goPClauses (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc1 eta-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-3) (vector 1 e-5 eta-3)))))))) (Syntax-Idris-n--12857-10431-goPClause arg-0 e-2) eta-1)) (Syntax-Idris-n--12857-10444-goPClauses arg-0 e-3) eta-0))))))))) +(define Syntax-Idris-n--12857-10431-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc1 eta-3)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (lambda (eta-4) (lambda (eta-5) (vector 0 e-0 e-5 eta-4 eta-5))))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-1) eta-2)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--12857-10446-goPDecls arg-0 e-3) eta-0))))))) ((1) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 4))) (let ((e-8 (vector-ref sc0 5))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-3) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-4) (let ((sc1 eta-4)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc1 1))) (vector 1 (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (vector 1 e-4 e-9 eta-5 eta-6 eta-7)))))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-5) eta-3)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-6) eta-2)) (lambda (eta-2) (vector 1 e-7)) eta-1)) (Syntax-Idris-n--12857-10444-goPClauses arg-0 e-8) eta-0)))))))) (else (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 2 e-9 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-10) eta-0))))))))) +(define Syntax-Idris-n--12857-10438-goMPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-2) eta-0)))))))) +(define Syntax-Idris-n--12857-10445-goMPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Syntax-Idris-n--12857-10446-goPDecls arg-0 e-2) eta-0)))))))) +(define Syntax-Idris-n--12857-10442-go4TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (let ((sc4 eta-3)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (lambda (d) (lambda (ts) (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 0 e-5 d))) ts))))))))) (Syntax-Idris-n--12857-10436-goPiInfo arg-0 e-14) eta-2)) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-15) eta-1)) (Syntax-Idris-n--12857-10442-go4TupledPTerms arg-0 'erased 'erased e-3) eta-0)))))))))))))))))) +(define Syntax-Idris-n--12857-10441-go3TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (let ((sc3 eta-2)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (lambda (eta-3) (vector 1 (vector 0 e-6 (vector 0 e-10 e-5)) eta-3)))))))) (Syntax-Idris-n--12857-10428-goPTerm arg-0 e-11) eta-1)) (Syntax-Idris-n--12857-10441-go3TupledPTerms arg-0 'erased 'erased e-3) eta-0))))))))))))))) +(define Syntax-Idris-n--9722-7462-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--10430-9075-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--showPrecC-44dePure-9091 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--10430-9076-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--showPrecC-44deGuard-9145 arg-0 arg-1 arg-2 arg-3 e-2 e-5 e-6 e-4 e-0 tm (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS e-6) (vector 1 "guard")))))))(else arg-4)))))))(else arg-4))))))(else arg-4))))) +(define Syntax-Idris-toBuf_TTC__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Syntax-Idris-toBuf_TTC__Fixity arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Syntax-Idris-toBuf_TTC__Fixity arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Syntax-Idris-toBuf_TTC__Fixity arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Syntax-Idris-toBuf_TTC__Fixity arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 (StringMap-Data-toList 'erased (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 (StringMap-Data-toList 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 (List-Data-filter 'erased (lambda (n) (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (Name-Core-C-61C-61_Eq__Name arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Name-Core-C-47C-61_Eq__Name arg-4 arg-5)))) (Builtin-fst 'erased 'erased n) (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 4))) e-3)))) (ANameMap-Data-toList 'erased (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2)))) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 (List-Data-filter 'erased (lambda (n) (Syntax-Idris-case--toBuf-10010 arg-1 arg-0 e-5 e-6 e-7 n (NameMap-Data-lookup 'erased (Builtin-fst 'erased 'erased n) (let ((sc3 arg-1)) (let ((e-11 (vector-ref sc3 6))) e-11))))) (ANameMap-Data-toList 'erased (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 (let ((sc4 arg-1)) (let ((e-11 (vector-ref sc4 7))) e-11)) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 (let ((sc5 arg-1)) (let ((e-10 (vector-ref sc5 9))) e-10))) ext-0)))))))))))))))))))))))))) (define Syntax-Idris-toBuf_TTC__IFaceInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 ((TTC-Core-toBuf_TTC__Name arg-0 e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 e-1 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) arg-0 e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-1)))) arg-0 e-3 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__RigCount arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2181 eta-1)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2185) (lambda (arg-2186) (TTC-Core-toBuf_TTC__TotalReq arg-2185 arg-2186))) (lambda (arg-2185) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2185 eta-1)))) arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTC-Core-toBuf_TTC__TotalReq arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2184 eta-2)))) arg-2183 eta-1)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2185) (lambda (arg-2186) (Binary-Utils-toBuf_TTC__Bool arg-2185 arg-2186))) (lambda (arg-2185) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2185 eta-1)))) (vector 0 (lambda (arg-2185) (lambda (arg-2186) (TTImp-TTImp-toBuf_TTC__RawImp arg-2185 arg-2186))) (lambda (arg-2185) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2185 eta-1))))) arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2184) (lambda (arg-2185) (Binary-Utils-toBuf_TTC__Bool arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2184 eta-2)))) (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-2))))) arg-2183 eta-1))))) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTC-Core-toBuf_TTC__TotalReq arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2184 eta-2)))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__TotalReq arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-3)))) arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2184) (lambda (arg-2185) (Binary-Utils-toBuf_TTC__Bool arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2184 eta-2)))) (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-2))))) arg-2182 arg-2183))) (lambda (arg-2182) (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-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Bool arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-3)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3))))) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__RigCount arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2181 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTC-Core-toBuf_TTC__TotalReq arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2184 eta-2)))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__TotalReq arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-3)))) arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2184) (lambda (arg-2185) (Binary-Utils-toBuf_TTC__Bool arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2184 eta-2)))) (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-2))))) arg-2182 arg-2183))) (lambda (arg-2182) (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-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Bool arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-3)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3))))) arg-2182 eta-2))))) arg-2178 arg-2181))) (lambda (arg-2181) (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-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__TotalReq arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-3)))) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTC-Core-toBuf_TTC__TotalReq arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-4)))) arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Bool arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-3)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3))))) arg-2178 arg-2182))) (lambda (arg-2182) (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-2178) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-4)))) (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-4))))) arg-2182 eta-3))))) arg-2181 eta-2))))) arg-2180 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__RigCount arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2181 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTC-Core-toBuf_TTC__TotalReq arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2184 eta-2)))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__TotalReq arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-3)))) arg-2182 eta-2)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2184) (lambda (arg-2185) (Binary-Utils-toBuf_TTC__Bool arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2184 eta-2)))) (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-2))))) arg-2182 arg-2183))) (lambda (arg-2182) (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-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Bool arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-3)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3))))) arg-2182 eta-2))))) arg-2178 arg-2181))) (lambda (arg-2181) (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-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__TotalReq arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-3)))) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTC-Core-toBuf_TTC__TotalReq arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-4)))) arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Bool arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-3)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3))))) arg-2178 arg-2182))) (lambda (arg-2182) (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-2178) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-4)))) (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-4))))) arg-2182 eta-3))))) arg-2181 eta-2))))) arg-2177 arg-2179))) (lambda (arg-2181) (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-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__RigCount arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-2182 eta-3)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__TotalReq arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-3)))) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTC-Core-toBuf_TTC__TotalReq arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-4)))) arg-2182 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Bool arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-3)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3))))) arg-2178 arg-2182))) (lambda (arg-2182) (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-2178) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-4)))) (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-4))))) arg-2182 eta-3))))) arg-2177 arg-2179))) (lambda (arg-2182) (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-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTC-Core-toBuf_TTC__TotalReq arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-4)))) arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__TotalReq arg-2177 arg-2179))) (lambda (arg-2184) (lambda (eta-5) (TTC-Core-fromBuf_TTC__TotalReq arg-2184 eta-5)))) arg-2183 eta-4)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-4)))) (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-4))))) arg-2177 arg-2179))) (lambda (arg-2183) (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-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2184) (lambda (eta-5) (Binary-Utils-fromBuf_TTC__Bool arg-2184 eta-5)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2184) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-5))))) arg-2183 eta-4))))) arg-2182 eta-3))))) arg-2181 eta-2))))) arg-2180 eta-1)))) arg-0 e-4 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2181 eta-2)))) arg-2178 arg-2180 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2181 eta-2)))) arg-2180 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2181 eta-3)))) arg-2177 arg-2179 eta-2)))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2182 eta-3)))) arg-2181 eta-2))))) arg-2180 eta-1)))) arg-0 e-5 eta-0))))))))))))))))))))))))))))))) (define Syntax-Idris-toBuf_TTC__Fixity (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))))))) (define Syntax-Idris-show_Show__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-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-Prelude-C-43C-43 " -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-142 (vector-ref sc2 1))) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-142) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-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-Types-Prelude-C-43C-43 "{" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Types-Prelude-C-43C-43 "_ : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))) (else (let ((e-145 (vector-ref sc2 1))) (Strings-Types-Prelude-C-43C-43 "{" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-145) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-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-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-148 (vector-ref sc2 1))) (Strings-Types-Prelude-C-43C-43 "{auto " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-148) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) (else (let ((e-139 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Types-Prelude-C-43C-43 "{default " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-139) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Types-Prelude-C-43C-43 "_ : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))))) (else (let ((e-151 (vector-ref sc2 1))) (Strings-Types-Prelude-C-43C-43 "{default " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-139) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-151) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((sc1 e-12)) (case (vector-ref sc1 0) ((24) (Strings-Types-Prelude-C-43C-43 "\\" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Types-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-13))))))(else (Strings-Types-Prelude-C-43C-43 "\\" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-12) (Strings-Types-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-13))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((24) (Strings-Types-Prelude-C-43C-43 "let " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Types-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-19))))))))(else (Strings-Types-Prelude-C-43C-43 "let " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-17) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Types-Prelude-C-43C-43 ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-n--10615-8393-showAlt e-14 e-20 e-19 e-18 e-17 e-16 e-15 arg-0 eta-0))) e-20) (Strings-Types-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-Types-Prelude-C-43C-43 "case " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-22) (Strings-Types-Prelude-C-43C-43 " of { " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " ; " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--10615-8476-showCase arg-0 e-21 e-23 e-22 eta-0)) e-23)) " }")))))))) ((5) (let ((e-26 (vector-ref sc0 3))) (Strings-Types-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-Types-Prelude-C-43C-43 "record { " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-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-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-30) (Strings-Types-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-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-33) (Strings-Types-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-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Types-Prelude-C-43C-43 " @{" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}")))) (else (let ((e-156 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (let ((e-157 (vector-ref sc2 1))) (let ((e-158 (vector-ref sc2 2))) (Syntax-Idris-case--showPrec-8644 e-35 e-157 e-156 e-158 e-36 arg-0 (Name-Core-C-61C-61_Eq__Name e-156 e-158)))))(else (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Types-Prelude-C-43C-43 " {" (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-156) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-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) (Show-Prelude-showCon arg-0 "Inf" (Show-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 (Show-Prelude-showCon arg-0 "Lazy" (Show-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))) (Show-Prelude-showCon arg-0 "Delay" (Show-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))) (Show-Prelude-showCon arg-0 "Force" (Show-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-Types-Prelude-C-43C-43 "`(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-49) ")")))) ((16) (let ((e-51 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "`{{" (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-51) "}}")))) ((17) "`[ <> ]") ((18) (let ((e-55 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "~(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-55) ")")))) ((19) (let ((e-57 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "%runElab " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-57)))) ((14) (let ((e-59 (vector-ref sc0 2))) (TT-Core-showPrec_Show__Constant arg-0 e-59))) ((20) (let ((e-62 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "?" e-62))) ((21) "Type") ((22) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-65) (Strings-Types-Prelude-C-43C-43 "@" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-66)))))) ((23) (let ((e-68 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "." (Syntax-Idris-showPrec_Show__PTerm arg-0 e-68)))) ((24) "_") ((25) "?") ((26) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-73) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-72) (Strings-Types-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-74))))))))) ((27) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-76) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-77))))) ((28) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-79) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-80) ")"))))))) ((29) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-82) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-83) ")"))))))) ((30) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-85) (Strings-Types-Prelude-C-43C-43 " = " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-86)))))) ((31) (let ((e-88 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-88) ")")))) ((32) (let ((e-91 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "do " (Name-Core-showSep " ; " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo eta-0)) e-91))))) ((33) (let ((e-93 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "!" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-93)))) ((34) (let ((e-95 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "[|" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-95) "|]")))) ((35) (let ((e-97 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (Syntax-Idris-showPrec_Show__PTerm arg-0 arg-2)) e-97)) "]")))) ((36) (let ((e-99 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-99) (Strings-Types-Prelude-C-43C-43 ", " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-100) ")"))))))) ((37) (let ((e-102 (vector-ref sc0 2))) (let ((e-103 (vector-ref sc0 3))) (let ((e-104 (vector-ref sc0 4))) (let ((sc1 e-103)) (case (vector-ref sc1 0) ((24) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-102) (Strings-Types-Prelude-C-43C-43 " ** " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-104) ")")))))(else (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-102) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) (Strings-Types-Prelude-C-43C-43 " ** " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-104) ")"))))))))))))) ((38) "()") ((39) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-109 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 "if " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-107) (Strings-Types-Prelude-C-43C-43 " then " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-108) (Strings-Types-Prelude-C-43C-43 " else " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-109)))))))))) ((40) (let ((e-110 (vector-ref sc0 1))) (let ((e-111 (vector-ref sc0 2))) (let ((e-112 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 (Syntax-Idris-n--10615-9069-dePure e-110 e-112 e-111 arg-0 e-111)) (Strings-Types-Prelude-C-43C-43 " | " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo (Syntax-Idris-n--10615-9070-deGuard e-110 e-112 e-111 arg-0 eta-0))) e-112)) "]")))))))) ((41) (let ((e-114 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "rewrite " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-114) (Strings-Types-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-115))))))) ((42) (let ((e-117 (vector-ref sc0 2))) (let ((e-118 (vector-ref sc0 3))) (let ((e-119 (vector-ref sc0 4))) (let ((sc1 e-118)) (case (vector-ref sc1 0) ((0) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-117) (Strings-Types-Prelude-C-43C-43 " .. " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-119) "]"))))) (else (let ((e-162 (vector-ref sc1 1))) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-117) (Strings-Types-Prelude-C-43C-43 ", " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-162) (Strings-Types-Prelude-C-43C-43 " .. " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-119) "]")))))))))))))) ((43) (let ((e-121 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 3))) (let ((sc1 e-122)) (case (vector-ref sc1 0) ((0) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-121) " .. ]"))) (else (let ((e-165 (vector-ref sc1 1))) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-121) (Strings-Types-Prelude-C-43C-43 ", " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-165) " .. ]"))))))))))) ((46) (let ((e-125 (vector-ref sc0 3))) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-125))) ((44) (let ((e-127 (vector-ref sc0 2))) (let ((e-128 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-127) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String))) (lambda (n) (Strings-Types-Prelude-C-43C-43 "." (Syntax-Idris-show_Show__PTerm n)))) e-128))))) ((45) (let ((e-130 (vector-ref sc0 2))) (let ((e-131 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String))) (lambda (n) (Strings-Types-Prelude-C-43C-43 "." (Syntax-Idris-show_Show__PTerm n)))) e-130) (Strings-Types-Prelude-C-43C-43 ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String))) (lambda (x) (Strings-Types-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) x)))) e-131) ")")))))) (else (let ((e-133 (vector-ref sc0 2))) (let ((e-134 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "with " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-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-133) (Strings-Types-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-134))))))))))) +(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-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-Prelude-C-43C-43 " -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-142 (vector-ref sc2 1))) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-142) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-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-Types-Prelude-C-43C-43 "{" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Types-Prelude-C-43C-43 "_ : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))) (else (let ((e-145 (vector-ref sc2 1))) (Strings-Types-Prelude-C-43C-43 "{" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-145) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-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-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-148 (vector-ref sc2 1))) (Strings-Types-Prelude-C-43C-43 "{auto " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-148) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))))))))))) (else (let ((e-139 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Types-Prelude-C-43C-43 "{default " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-139) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Types-Prelude-C-43C-43 "_ : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))))) (else (let ((e-151 (vector-ref sc2 1))) (Strings-Types-Prelude-C-43C-43 "{default " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-139) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-3) (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-151) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Types-Prelude-C-43C-43 "} -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7))))))))))))))))))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((sc1 e-12)) (case (vector-ref sc1 0) ((24) (Strings-Types-Prelude-C-43C-43 "\\" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Types-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-13))))))(else (Strings-Types-Prelude-C-43C-43 "\\" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-9) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-11) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-12) (Strings-Types-Prelude-C-43C-43 " => " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-13))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((e-20 (vector-ref sc0 7))) (let ((sc1 e-17)) (case (vector-ref sc1 0) ((24) (Strings-Types-Prelude-C-43C-43 "let " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Types-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-19))))))))(else (Strings-Types-Prelude-C-43C-43 "let " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showCount e-15) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-16) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-17) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-18) (Strings-Types-Prelude-C-43C-43 ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-n--10430-8399-showAlt e-14 e-20 e-19 e-18 e-17 e-16 e-15 arg-0 eta-0))) e-20) (Strings-Types-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-Types-Prelude-C-43C-43 "case " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-22) (Strings-Types-Prelude-C-43C-43 " of { " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep " ; " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--10430-8482-showCase arg-0 e-21 e-23 e-22 eta-0)) e-23)) " }")))))))) ((5) (let ((e-26 (vector-ref sc0 3))) (Strings-Types-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-Types-Prelude-C-43C-43 "record { " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-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-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-30) (Strings-Types-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-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-33) (Strings-Types-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-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Types-Prelude-C-43C-43 " @{" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-38) "}")))) (else (let ((e-156 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (let ((e-157 (vector-ref sc2 1))) (let ((e-158 (vector-ref sc2 2))) (Syntax-Idris-case--showPrec-8650 e-35 e-157 e-156 e-158 e-36 arg-0 (Name-Core-C-61C-61_Eq__Name e-156 e-158)))))(else (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-36) (Strings-Types-Prelude-C-43C-43 " {" (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-156) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-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) (Show-Prelude-showCon arg-0 "Inf" (Show-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 (Show-Prelude-showCon arg-0 "Lazy" (Show-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))) (Show-Prelude-showCon arg-0 "Delay" (Show-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))) (Show-Prelude-showCon arg-0 "Force" (Show-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-Types-Prelude-C-43C-43 "`(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-49) ")")))) ((16) (let ((e-51 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "`{{" (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-51) "}}")))) ((17) "`[ <> ]") ((18) (let ((e-55 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "~(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-55) ")")))) ((19) (let ((e-57 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "%runElab " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-57)))) ((14) (let ((e-59 (vector-ref sc0 2))) (TT-Core-showPrec_Show__Constant arg-0 e-59))) ((20) (let ((e-62 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "?" e-62))) ((21) "Type") ((22) (let ((e-65 (vector-ref sc0 2))) (let ((e-66 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-65) (Strings-Types-Prelude-C-43C-43 "@" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-66)))))) ((23) (let ((e-68 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "." (Syntax-Idris-showPrec_Show__PTerm arg-0 e-68)))) ((24) "_") ((25) "?") ((26) (let ((e-72 (vector-ref sc0 2))) (let ((e-73 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-73) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-72) (Strings-Types-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-74))))))))) ((27) (let ((e-76 (vector-ref sc0 2))) (let ((e-77 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-76) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-77))))) ((28) (let ((e-79 (vector-ref sc0 2))) (let ((e-80 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-79) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-80) ")"))))))) ((29) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-82) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-83) ")"))))))) ((30) (let ((e-85 (vector-ref sc0 2))) (let ((e-86 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-85) (Strings-Types-Prelude-C-43C-43 " = " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-86)))))) ((31) (let ((e-88 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-88) ")")))) ((32) (let ((e-91 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "do " (Name-Core-showSep " ; " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo eta-0)) e-91))))) ((33) (let ((e-93 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "!" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-93)))) ((34) (let ((e-95 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "[|" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-95) "|]")))) ((35) (let ((e-97 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (Syntax-Idris-showPrec_Show__PTerm arg-0 arg-2)) e-97)) "]")))) ((36) (let ((e-99 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-99) (Strings-Types-Prelude-C-43C-43 ", " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-100) ")"))))))) ((37) (let ((e-102 (vector-ref sc0 2))) (let ((e-103 (vector-ref sc0 3))) (let ((e-104 (vector-ref sc0 4))) (let ((sc1 e-103)) (case (vector-ref sc1 0) ((24) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-102) (Strings-Types-Prelude-C-43C-43 " ** " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-104) ")")))))(else (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-102) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-103) (Strings-Types-Prelude-C-43C-43 " ** " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-104) ")"))))))))))))) ((38) "()") ((39) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-109 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 "if " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-107) (Strings-Types-Prelude-C-43C-43 " then " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-108) (Strings-Types-Prelude-C-43C-43 " else " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-109)))))))))) ((40) (let ((e-110 (vector-ref sc0 1))) (let ((e-111 (vector-ref sc0 2))) (let ((e-112 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 (Syntax-Idris-n--10430-9075-dePure e-110 e-112 e-111 arg-0 e-111)) (Strings-Types-Prelude-C-43C-43 " | " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo (Syntax-Idris-n--10430-9076-deGuard e-110 e-112 e-111 arg-0 eta-0))) e-112)) "]")))))))) ((41) (let ((e-114 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "rewrite " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-114) (Strings-Types-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-115))))))) ((42) (let ((e-117 (vector-ref sc0 2))) (let ((e-118 (vector-ref sc0 3))) (let ((e-119 (vector-ref sc0 4))) (let ((sc1 e-118)) (case (vector-ref sc1 0) ((0) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-117) (Strings-Types-Prelude-C-43C-43 " .. " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-119) "]"))))) (else (let ((e-162 (vector-ref sc1 1))) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-117) (Strings-Types-Prelude-C-43C-43 ", " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-162) (Strings-Types-Prelude-C-43C-43 " .. " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-119) "]")))))))))))))) ((43) (let ((e-121 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 3))) (let ((sc1 e-122)) (case (vector-ref sc1 0) ((0) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-121) " .. ]"))) (else (let ((e-165 (vector-ref sc1 1))) (Strings-Types-Prelude-C-43C-43 "[" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-121) (Strings-Types-Prelude-C-43C-43 ", " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-165) " .. ]"))))))))))) ((46) (let ((e-125 (vector-ref sc0 3))) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-125))) ((44) (let ((e-127 (vector-ref sc0 2))) (let ((e-128 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-127) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String))) (lambda (n) (Strings-Types-Prelude-C-43C-43 "." (Syntax-Idris-show_Show__PTerm n)))) e-128))))) ((45) (let ((e-130 (vector-ref sc0 2))) (let ((e-131 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String))) (lambda (n) (Strings-Types-Prelude-C-43C-43 "." (Syntax-Idris-show_Show__PTerm n)))) e-130) (Strings-Types-Prelude-C-43C-43 ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String))) (lambda (x) (Strings-Types-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) x)))) e-131) ")")))))) (else (let ((e-133 (vector-ref sc0 2))) (let ((e-134 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "with " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-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-133) (Strings-Types-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-134))))))))))) (define Syntax-Idris-resolved_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-5317 arg-5318 eta-0)))) (lambda (arg-5319) (lambda (arg-5320) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-5319 arg-5320 eta-0))))) arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-resolved_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-10 e-6 e-7 e-8)))))))))))))))))))))) (define Syntax-Idris-resolved_HasNames__IFaceInfo (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1))) -(define Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--12783-10229-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3)))) +(define Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--12597-10233-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3)))) (define Syntax-Idris-pretty_Pretty__REPLOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "showimplicits") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Bool 'erased e-0))))) ((1) (let ((e-1 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "shownamespace") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Bool 'erased e-1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "showtypes") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Bool 'erased e-2))))) ((3) (let ((e-3 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "eval") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Syntax-Idris-pretty_Pretty__REPLEval 'erased e-3))))) ((4) (let ((e-4 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "editor") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-4))))) (else (let ((e-5 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "cg") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5))))))))) (define Syntax-Idris-pretty_Pretty__REPLEval (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "typecheck")) ((1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "normalise")) (else (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "execute")))))) (define Syntax-Idris-full_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-24 ((Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-5317) (lambda (arg-5318) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-5317 arg-5318 eta-0)))) (lambda (arg-5319) (lambda (arg-5320) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-5319 arg-5320 eta-0))))) arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (arg-2) (Context-Core-full_HasNames__Name arg-0 arg-2)) (let ((sc1 arg-1)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (vector 0 e-0 e-1 e-5 e-3 e-4 e-10 e-6 e-7 e-8)))))))))))))))))))))) (define Syntax-Idris-full_HasNames__IFaceInfo (lambda (arg-0 arg-1 ext-0) (vector 1 arg-1))) -(define Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--12782-10187-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3)))) +(define Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--12596-10191-insertAll 'erased arg-1 arg-3 arg-2 (ANameMap-Data-empty 'erased) (ANameMap-Data-toList 'erased arg-3)))) (define Syntax-Idris-fromBuf_TTC__SyntaxInfo (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Syntax-Idris-toBuf_TTC__Fixity arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Nat arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Syntax-Idris-toBuf_TTC__Fixity arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Syntax-Idris-toBuf_TTC__Fixity arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Syntax-Idris-toBuf_TTC__Fixity arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__Nat arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Nat arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__String arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__String arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 0 (StringMap-Data-fromList 'erased e-5) (StringMap-Data-fromList 'erased e-6) (ANameMap-Data-fromList 'erased e-7) (vector 0 ) (ANameMap-Data-fromList 'erased e-8) (NameMap-Data-empty 'erased) e-9 (vector 0 ) e-10)))))))))))))))))))))))))))))))))) (define Syntax-Idris-fromBuf_TTC__IFaceInfo (lambda (arg-0 ext-0) (let ((act-24 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__RigCount arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2181 eta-0)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2185) (lambda (arg-2186) (TTC-Core-toBuf_TTC__TotalReq arg-2185 arg-2186))) (lambda (arg-2185) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-2185 eta-0)))) arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTC-Core-toBuf_TTC__TotalReq arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2184 eta-1)))) arg-2183 eta-0)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2185) (lambda (arg-2186) (Binary-Utils-toBuf_TTC__Bool arg-2185 arg-2186))) (lambda (arg-2185) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2185 eta-0)))) (vector 0 (lambda (arg-2185) (lambda (arg-2186) (TTImp-TTImp-toBuf_TTC__RawImp arg-2185 arg-2186))) (lambda (arg-2185) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2185 eta-0))))) arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2184) (lambda (arg-2185) (Binary-Utils-toBuf_TTC__Bool arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2184 eta-1)))) (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-1))))) arg-2183 eta-0))))) arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTC-Core-toBuf_TTC__TotalReq arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2184 eta-1)))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__TotalReq arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-2)))) arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2184) (lambda (arg-2185) (Binary-Utils-toBuf_TTC__Bool arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2184 eta-1)))) (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-1))))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Bool arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-2)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-2))))) arg-2182 eta-1))))) arg-2181 eta-0))))) arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__RigCount arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTC-Core-toBuf_TTC__TotalReq arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2184 eta-1)))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__TotalReq arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-2)))) arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2184) (lambda (arg-2185) (Binary-Utils-toBuf_TTC__Bool arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2184 eta-1)))) (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-1))))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Bool arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-2)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-2))))) arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__TotalReq arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-2)))) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTC-Core-toBuf_TTC__TotalReq arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-3)))) arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Bool arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-2)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-2))))) arg-2178 arg-2182))) (lambda (arg-2182) (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-2178) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3))))) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__RigCount arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2181 eta-1)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTC-Core-toBuf_TTC__TotalReq arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2184 eta-1)))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__TotalReq arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-2)))) arg-2182 eta-1)))) (vector 0 (lambda (arg-2182) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2184) (lambda (arg-2185) (Binary-Utils-toBuf_TTC__Bool arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2184 eta-1)))) (vector 0 (lambda (arg-2184) (lambda (arg-2185) (TTImp-TTImp-toBuf_TTC__RawImp arg-2184 arg-2185))) (lambda (arg-2184) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-1))))) arg-2182 arg-2183))) (lambda (arg-2182) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Bool arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-2)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-2))))) arg-2182 eta-1))))) arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__TotalReq arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-2)))) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTC-Core-toBuf_TTC__TotalReq arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-3)))) arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Bool arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-2)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-2))))) arg-2178 arg-2182))) (lambda (arg-2182) (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-2178) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3))))) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__RigCount arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2182 eta-2)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTC-Core-toBuf_TTC__TotalReq arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-2)))) arg-2178 arg-2182))) (lambda (arg-2182) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTC-Core-toBuf_TTC__TotalReq arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-3)))) arg-2182 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2183) (lambda (arg-2184) (Binary-Utils-toBuf_TTC__Bool arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-2)))) (vector 0 (lambda (arg-2183) (lambda (arg-2184) (TTImp-TTImp-toBuf_TTC__RawImp arg-2183 arg-2184))) (lambda (arg-2183) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-2))))) arg-2178 arg-2182))) (lambda (arg-2182) (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-2178) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3))))) arg-2182 eta-2))))) arg-2177 arg-2179))) (lambda (arg-2182) (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-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTC-Core-toBuf_TTC__TotalReq arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2183 eta-3)))) arg-2177 arg-2179))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__TotalReq arg-2177 arg-2179))) (lambda (arg-2184) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2184 eta-4)))) arg-2183 eta-3)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2183) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2183 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2183) (TTImp-TTImp-toBuf_TTC__RawImp arg-2178 arg-2183))) (lambda (arg-2183) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2183 eta-3))))) arg-2177 arg-2179))) (lambda (arg-2183) (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-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2184) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2184 eta-4)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__RawImp arg-2177 arg-2179))) (lambda (arg-2184) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2184 eta-4))))) arg-2183 eta-3))))) arg-2182 eta-2))))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2180) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2180))) (lambda (arg-2180) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2180 eta-0)))) (vector 0 (lambda (arg-2178) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2181 eta-1)))) arg-2178 arg-2180 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2181 eta-1)))) arg-2180 eta-0))))) arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2181) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-1)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2181 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2181) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2182 eta-2)))) arg-2181 eta-1))))) arg-2180 eta-0)))) arg-0 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))))))) (define Syntax-Idris-fromBuf_TTC__Fixity (lambda (arg-0 ext-0) (let ((act-24 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 (vector 0 ))) ((equal? sc1 1) (vector 1 (vector 1 ))) ((equal? sc1 2) (vector 1 (vector 2 ))) ((equal? sc1 3) (vector 1 (vector 3 )))(else (Binary-Utils-corrupt 'erased "Fixity" ext-0))))))))))) @@ -6613,7 +6541,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-4 (vector-ref sc0 5))) e-4)))) -(define Syntax-Idris-mapPTermM (lambda (arg-0 ext-0) (Syntax-Idris-n--13043-10424-goPTerm arg-0 ext-0))) +(define Syntax-Idris-mapPTermM (lambda (arg-0 ext-0) (Syntax-Idris-n--12857-10428-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 ) (ANameMap-Data-empty 'erased) (NameMap-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)))) @@ -6624,28 +6552,28 @@ (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 SyntaxInfo-Syntax-Idris-docstrings (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) -(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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--9907-7456-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-n--9722-7462-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-23 (vector-ref sc2 2))) (vector 1 e-23 (Syntax-Idris-definedIn e-3))))(else (Syntax-Idris-definedIn e-3)))))) ((2) (let ((e-12 (vector-ref sc1 4))) (List-Types-Prelude-C-43C-43 'erased (Syntax-Idris-definedInData e-12) (Syntax-Idris-definedIn e-3)))) ((3) (let ((e-15 (vector-ref sc1 3))) (List-Types-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-15) (Syntax-Idris-definedIn e-3)))) ((4) (let ((e-18 (vector-ref sc1 3))) (List-Types-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-18) (Syntax-Idris-definedIn e-3)))) ((11) (let ((e-21 (vector-ref sc1 3))) (List-Types-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-21) (Syntax-Idris-definedIn e-3))))(else (Syntax-Idris-definedIn e-3))))))))))) (define IFaceInfo-Syntax-Idris-defaults (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) (define Syntax-Idris-defPass (lambda (arg-0) (Basics-Prelude-C-124C-124 (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 0 )) (lambda () (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 2 )))))) (define Module-Syntax-Idris-decls (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (define SyntaxInfo-Syntax-Idris-bracketholes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6)))) -(define ANameMap-Data-case--caseC-32blockC-32inC-32addToHier-3220 (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--2664-3116-update 'erased arg-3 arg-1 arg-2 arg-3 e-2) arg-1))))))) +(define ANameMap-Data-case--caseC-32blockC-32inC-32addToHier-3220 (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--2554-3116-update 'erased arg-3 arg-1 arg-2 arg-3 e-2) arg-1))))))) (define ANameMap-Data-case--addToHier-3190 (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--caseC-32blockC-32inC-32addToHier-3220 'erased arg-2 arg-3 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 arg-2)))))))) -(define ANameMap-Data-case--addToHierC-44update-3140 (lambda (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--2664-3116-update 'erased arg-1 arg-2 arg-3 arg-6 arg-5))))))) -(define ANameMap-Data-case--caseC-32blockC-32inC-32lookupName-3084 (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--2538-2998-matches 'erased arg-1 arg-2 arg-2 eta-0)) e-2))))))) +(define ANameMap-Data-case--addToHierC-44update-3140 (lambda (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--2554-3116-update 'erased arg-1 arg-2 arg-3 arg-6 arg-5))))))) +(define ANameMap-Data-case--caseC-32blockC-32inC-32lookupName-3084 (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--2428-2998-matches 'erased arg-1 arg-2 arg-2 eta-0)) e-2))))))) (define ANameMap-Data-case--caseC-32blockC-32inC-32lookupName-3042 (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--lookupName-3029 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (ANameMap-Data-case--caseC-32blockC-32inC-32lookupName-3042 'erased arg-1 arg-2 (ANameMap-Data-lookupExact 'erased arg-2 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (ANameMap-Data-case--caseC-32blockC-32inC-32lookupName-3084 '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--2664-3116-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--addToHierC-44update-3140 '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--2538-2998-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-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__String arg-5 arg-6)))) e-0 e-6)))(else 0)))))(else 0)))))(else 0))))) -(define ANameMap-Data-n--2884-3310-insertFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2884-3310-insertFrom 'erased arg-1 arg-2 arg-3 e-3 (ANameMap-Data-addName 'erased e-6 e-7 arg-5)))))))))))) -(define ANameMap-Data-n--2862-3287-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--2862-3287-fromListC-39 'erased (ANameMap-Data-addName 'erased e-6 e-7 arg-1) e-3))))))))))) +(define ANameMap-Data-n--2554-3116-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--addToHierC-44update-3140 '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--2428-2998-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-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__String arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__String arg-5 arg-6)))) e-0 e-6)))(else 0)))))(else 0)))))(else 0))))) +(define ANameMap-Data-n--2774-3310-insertFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2774-3310-insertFrom 'erased arg-1 arg-2 arg-3 e-3 (ANameMap-Data-addName 'erased e-6 e-7 arg-5)))))))))))) +(define ANameMap-Data-n--2752-3287-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--2752-3287-fromListC-39 'erased (ANameMap-Data-addName 'erased e-6 e-7 arg-1) e-3))))))))))) (define ANameMap-Data-toList (lambda (arg-0 arg-1) (NameMap-Data-toList 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))) -(define ANameMap-Data-merge (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (ANameMap-Data-n--2884-3310-insertFrom 'erased e-2 e-1 arg-2 (NameMap-Data-toList 'erased e-1) arg-2)))))) +(define ANameMap-Data-merge (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (ANameMap-Data-n--2774-3310-insertFrom 'erased e-2 e-1 arg-2 (NameMap-Data-toList 'erased e-1) arg-2)))))) (define ANameMap-Data-lookupName (lambda (arg-0 arg-1 arg-2) (ANameMap-Data-case--lookupName-3029 '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--2862-3287-fromListC-39 'erased (ANameMap-Data-empty 'erased) ext-0))) +(define ANameMap-Data-fromList (lambda (arg-0 ext-0) (ANameMap-Data-n--2752-3287-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--addToHier-3190 'erased arg-2 arg-3 arg-1 (Name-Core-userNameRoot arg-1)))) @@ -6655,16 +6583,16 @@ (define REPLOpts-Idris-case--setCurrentElabSource-2661 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-0 e-9 e-10 e-11 e-12 e-13))))))))))))))))) (define REPLOpts-Idris-case--setSource-2565 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 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))) (vector 0 e-0 e-1 e-2 e-3 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) (define REPLOpts-Idris-case--resetProofState-2527 (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-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 0 ) (vector 0 ) e-11 e-12 e-13)))))))))))))))) -(define REPLOpts-Idris-case--setMainFile-2490 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 e-1 arg-0 (REPLOpts-Idris-n--10710-2451-litStyle arg-0 arg-1 arg-0) e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))) +(define REPLOpts-Idris-case--setMainFile-2490 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 e-1 arg-0 (REPLOpts-Idris-n--10516-2451-litStyle arg-0 arg-1 arg-0) e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))) (define REPLOpts-Idris-case--setOutput-2433 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 arg-0 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) -(define REPLOpts-Idris-n--10710-2451-litStyle (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (Unlit-Parser-isLitFile e-2))))))) -(define REPLOpts-Idris-n--10612-2362-litStyle (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (Unlit-Parser-isLitFile e-2))))))) -(define REPLOpts-Idris-n--10852-2583-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--10852-2583-findLine arg-0 arg-1 e-1 e-7)))(else (let ((sc0 arg-3)) (vector 0 ))))))))))) +(define REPLOpts-Idris-n--10516-2451-litStyle (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (Unlit-Parser-isLitFile e-2))))))) +(define REPLOpts-Idris-n--10418-2362-litStyle (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (Unlit-Parser-isLitFile e-2))))))) +(define REPLOpts-Idris-n--10658-2583-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--10658-2583-findLine arg-0 arg-1 e-1 e-7)))(else (let ((sc0 arg-3)) (vector 0 ))))))))))) (define REPLOpts-REPLOpts-Idris-source (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4)))) (define REPLOpts-REPLOpts-Idris-showTypes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define REPLOpts-Idris-setSource (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-14 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (vector 0 e-0 e-1 e-2 e-3 arg-1 e-14 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25))))))))) (define REPLOpts-Idris-setOutput (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-6 arg-1 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25))))))))) -(define REPLOpts-Idris-setMainFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (vector 0 e-0 e-1 arg-1 (REPLOpts-Idris-n--10710-2451-litStyle arg-1 arg-0 arg-1) e-4 e-14 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) (vector 1 act-25))))))))) +(define REPLOpts-Idris-setMainFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-4 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (vector 0 e-0 e-1 arg-1 (REPLOpts-Idris-n--10516-2451-litStyle arg-1 arg-0 arg-1) e-4 e-14 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) (vector 1 act-25))))))))) (define REPLOpts-Idris-setCurrentElabSource (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 arg-1 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25))))))))) (define REPLOpts-Idris-setConsoleWidth (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-13 (vector-ref sc1 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 e-8 e-9 e-10 e-11 arg-1 e-13)))))))))))))))))) (vector 1 act-25))))))))) (define REPLOpts-Idris-setColor (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-14 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 e-8 e-9 e-10 e-11 e-12 arg-1)))))))))))))))))) (vector 1 act-25))))))))) @@ -6674,7 +6602,7 @@ (define REPLOpts-REPLOpts-Idris-mainfile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) (define REPLOpts-REPLOpts-Idris-literateStyle (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))) (define REPLOpts-REPLOpts-Idris-idemode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7)))) -(define REPLOpts-Idris-getSourceLine (lambda (arg-0 arg-1 ext-0) (let ((act-24 (REPLOpts-Idris-getSource arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (REPLOpts-Idris-n--10852-2583-findLine arg-1 arg-0 (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int arg-1 1)) (Strings-Data-lines e-5)))))))))) +(define REPLOpts-Idris-getSourceLine (lambda (arg-0 arg-1 ext-0) (let ((act-24 (REPLOpts-Idris-getSource arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (REPLOpts-Idris-n--10658-2583-findLine arg-1 arg-0 (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int arg-1 1)) (Strings-Data-lines e-5)))))))))) (define REPLOpts-Idris-getSource (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-4 (vector-ref sc1 5))) e-4)))))))))) (define REPLOpts-Idris-getOutput (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7)))))))))) (define REPLOpts-Idris-getLitStyle (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3)))))))))) @@ -6687,58 +6615,52 @@ (define REPLOpts-REPLOpts-Idris-evalMode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define REPLOpts-REPLOpts-Idris-errorLine (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6)))) (define REPLOpts-REPLOpts-Idris-editor (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5)))) -(define REPLOpts-Idris-defaultOpts (lambda (arg-0 arg-1 arg-2) (vector 0 1 (vector 1 ) arg-0 (REPLOpts-Idris-n--10612-2362-litStyle arg-2 arg-1 arg-0 arg-0) "" "vim" (vector 0 ) arg-1 "" (vector 0 ) (vector 0 ) arg-2 (vector 0 ) 0))) +(define REPLOpts-Idris-defaultOpts (lambda (arg-0 arg-1 arg-2) (vector 0 1 (vector 1 ) arg-0 (REPLOpts-Idris-n--10418-2362-litStyle arg-2 arg-1 arg-0 arg-0) "" "vim" (vector 0 ) arg-1 "" (vector 0 ) (vector 0 ) arg-2 (vector 0 ) 0))) (define REPLOpts-REPLOpts-Idris-currentElabSource (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8)))) (define REPLOpts-REPLOpts-Idris-consoleWidth (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-12 (vector-ref sc0 13))) e-12)))) (define REPLOpts-REPLOpts-Idris-color (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-13 (vector-ref sc0 14))) e-13)))) -(define Common-Compiler-case--getExtraRuntimeC-44readPath-2806 (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) (vector 1 e-2)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0)))))))) -(define Common-Compiler-case--caseC-32blockC-32inC-32getExtraRuntimeC-44getArg-2760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 1 (Strings-Data-trim (Types-Prelude-substr (+ 1 0) (Strings-Types-Prelude-length arg-3) arg-3)))) (else (vector 0 )))))) -(define Common-Compiler-case--getExtraRuntimeC-44getArg-2742 (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))) (Common-Compiler-case--caseC-32blockC-32inC-32getExtraRuntimeC-44getArg-2760 arg-0 arg-1 e-2 e-3 (EqOrd-Prelude-C-61C-61_Eq__String (Strings-Data-trim e-2) "extraRuntime"))))))) (define Common-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32copyLib-2688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0)))))))) (define Common-Compiler-case--caseC-32blockC-32inC-32copyLib-2670 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((Binary-Utils-writeToFile arg-0 e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Common-Compiler-case--copyLib-2647 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (Binary-Utils-readFromFile arg-1 eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((Binary-Utils-writeToFile arg-0 e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (vector 1 (vector 0 ))) (else (let ((e-7 (vector-ref sc4 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-7) eta-0)))))))))))) (else (vector 1 (vector 0 )))))))))))))))) (define Common-Compiler-case--caseC-32blockC-32inC-32locate-2537 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-2) (else (Strings-Types-Prelude-C-43C-43 arg-2 (Strings-Types-Prelude-C-43C-43 "." (Common-Compiler-dylib_suffix)))))))) (define Common-Compiler-case--locate-2514 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Common-Compiler-case--caseC-32blockC-32inC-32locate-2537 arg-0 arg-1 e-2 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-3) (lambda (arg-4) (EqOrd-Prelude-C-61C-61_Eq__Char arg-3 arg-4))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Char arg-4 arg-5)))) #\. (Types-Prelude-unpack e-2)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (EqOrd-Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dll")) (lambda () (Strings-Types-Prelude-C-43C-43 e-2 (Strings-Types-Prelude-C-43C-43 "-" (Strings-Types-Prelude-C-43C-43 e-6 ".dll"))))) (vector 1 (vector 0 (lambda () (EqOrd-Prelude-C-61C-61_Eq__String (Common-Compiler-dylib_suffix) "dylib")) (lambda () (Strings-Types-Prelude-C-43C-43 e-2 (Strings-Types-Prelude-C-43C-43 "." (Strings-Types-Prelude-C-43C-43 e-6 ".dylib"))))) (vector 0 ))) (Strings-Types-Prelude-C-43C-43 e-2 (Strings-Types-Prelude-C-43C-43 "." (Strings-Types-Prelude-C-43C-43 (Common-Compiler-dylib_suffix) (Strings-Types-Prelude-C-43C-43 "." e-6)))))))))))))))) -(define Common-Compiler-case--parseCC-2424 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 (vector 0 (Strings-Data-trim e-2) (vector 0 ))))(else (vector 1 (vector 0 (Strings-Data-trim e-2) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Common-Compiler-n--11193-2372-getOpts arg-0 (Strings-Data-strTail e-3))))))))))))) -(define Common-Compiler-case--parseCCC-44getOpts-2387 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 e-2 (vector 0 )))(else (vector 1 e-2 (Common-Compiler-n--11193-2372-getOpts arg-0 (Strings-Data-strTail e-3))))))))))) -(define Common-Compiler-case--exists-2340 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1)))))) +(define Common-Compiler-case--parseCC-2424 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 (vector 0 (Strings-Data-trim e-2) (vector 0 ))))(else (vector 1 (vector 0 (Strings-Data-trim e-2) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Common-Compiler-n--11021-2372-getOpts arg-0 (Strings-Data-strTail e-3))))))))))))) +(define Common-Compiler-case--parseCCC-44getOpts-2387 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 "") (vector 1 e-2 (vector 0 )))(else (vector 1 e-2 (Common-Compiler-n--11021-2372-getOpts arg-0 (Strings-Data-strTail e-3))))))))))) +(define Common-Compiler-case--exists-2340 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1)))))) (define Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-2148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-2 (lambda () "Get VM Code") (lambda (eta-1) (vector 1 (VMCode-Compiler-allDefs arg-27))) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Common-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getCompileData-2015 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-toANF e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-2 e-5))))))))))))) (define Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-1946 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-2 (lambda () "Get ANF") (Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (lambda (eta-1) (let ((act-24 ((ANF-Compiler-toANF e-3) eta-1))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 0 e-2 e-5)))))))))))) arg-26) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-1820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-2 (lambda () "Lambda lift") (Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (LambdaLift-Compiler-lambdaLift arg-2 eta-1 eta-2))) arg-15) eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Common-Compiler-case--getCompileData-1648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Common-Compiler-getNamedDef arg-2 eta-1 eta-2))) arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-1820 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 1 ))) eta-0)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((lifted (vector 1 (vector 0 arg-20 (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Types-Prelude-C-43C-43 'erased e-3 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-22) (lambda (arg-23) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-22 arg-23))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6))))) (let ((act-26 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-1946 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 e-6 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 2 ))) eta-0)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-2148 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 e-6 lifted e-7 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 3 ))) eta-0)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-29 (let ((act-29 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-29 (arg-317 eta-2))) ((arg-318 act-29) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Dumping case trees to " f)) eta-1))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (Common-Compiler-dumpCases e-9 f arg-15 eta-1)))))))) (let ((sc6 arg-4)) (let ((e-13 (vector-ref sc6 9))) e-13))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-30 (let ((act-30 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-30 (arg-317 eta-2))) ((arg-318 act-30) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Dumping lambda lifted defs to " f)) eta-1))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpLifted f lifted) eta-1)))))))) (let ((sc7 arg-4)) (let ((e-13 (vector-ref sc7 10))) e-13))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-31 (let ((act-31 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-31 (arg-317 eta-2))) ((arg-318 act-31) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Dumping ANF defs to " f)) eta-1))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpANF f e-7) eta-1)))))))) (let ((sc8 arg-4)) (let ((e-13 (vector-ref sc8 11))) e-13))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-32 (let ((act-32 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-32 (arg-317 eta-2))) ((arg-318 act-32) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Dumping VM defs to " f)) eta-1))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpVMCode f e-8) eta-1)))))))) (let ((sc9 arg-4)) (let ((e-13 (vector-ref sc9 12))) e-13))) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Common-Compiler-replaceEntry arg-2 eta-1)) arg-12) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 arg-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) lifted e-7 e-8)))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Common-Compiler-case--getCompileData-1648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Common-Compiler-getNamedDef arg-2 eta-1 eta-2))) arg-15) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-1820 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 1 ))) eta-0)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((lifted (vector 1 (vector 0 arg-20 (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Types-Prelude-C-43C-43 'erased e-3 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-22) (lambda (arg-23) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-22 arg-23))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6))))) (let ((act-26 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-1946 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 e-6 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 2 ))) eta-0)))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-2148 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-2 e-3 _-0 e-5 e-6 lifted e-7 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 3 ))) eta-0)))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (unbox arg-2))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-29 (let ((act-29 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-29 (arg-274 eta-2))) ((arg-275 act-29) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Dumping case trees to " f)) eta-1))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (Common-Compiler-dumpCases e-9 f arg-15 eta-1)))))))) (let ((sc6 arg-4)) (let ((e-13 (vector-ref sc6 9))) e-13))) eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((act-30 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-30 (let ((act-30 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-30 (arg-274 eta-2))) ((arg-275 act-30) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Dumping lambda lifted defs to " f)) eta-1))) (vector 1 act-30)))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpLifted f lifted) eta-1)))))))) (let ((sc7 arg-4)) (let ((e-13 (vector-ref sc7 10))) e-13))) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((act-31 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-31 (let ((act-31 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-31 (arg-274 eta-2))) ((arg-275 act-31) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Dumping ANF defs to " f)) eta-1))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpANF f e-7) eta-1)))))))) (let ((sc8 arg-4)) (let ((e-13 (vector-ref sc8 11))) e-13))) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-32 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-32 (let ((act-32 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-32 (arg-274 eta-2))) ((arg-275 act-32) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Dumping VM defs to " f)) eta-1))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpVMCode f e-8) eta-1)))))))) (let ((sc9 arg-4)) (let ((e-13 (vector-ref sc9 12))) e-13))) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-33 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Common-Compiler-replaceEntry arg-2 eta-1)) arg-12) eta-0))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (vector 1 (vector 0 arg-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) lifted e-7 e-8)))))))))))))))))))))))))))))))))))))))))))))))))))))) (define Common-Compiler-case--getCompileDataC-44nonErased-1430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 0))))))) (define Common-Compiler-case--dumpVMCode-1384 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0)))))))) (define Common-Compiler-case--dumpANF-1311 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0)))))))) (define Common-Compiler-case--dumpLifted-1238 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0)))))))) (define Common-Compiler-case--dumpCases-1161 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (vector 1 (vector 0 )))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-5) eta-0)))))))) -(define Common-Compiler-case--caseC-32blockC-32inC-32dumpCasesC-44dumpCase-1096 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 ""))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Types-Prelude-C-43C-43 (Common-Compiler-n--9746-1048-fullShow arg-0 arg-1 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedDef e-2) "\u000a"))))))))))) +(define Common-Compiler-case--caseC-32blockC-32inC-32dumpCasesC-44dumpCase-1096 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 ""))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Strings-Types-Prelude-C-43C-43 (Common-Compiler-n--9574-1048-fullShow arg-0 arg-1 arg-2 arg-3) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedDef e-2) "\u000a"))))))))))) (define Common-Compiler-case--dumpCasesC-44dumpCase-1069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 ""))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--caseC-32blockC-32inC-32dumpCasesC-44dumpCase-1096 arg-0 arg-1 arg-2 arg-3 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19)))))))))) (define Common-Compiler-case--caseC-32blockC-32inC-32getNamedDef-933 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-warnIfHole arg-0 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (vector 1 (vector 0 arg-0 (vector 0 (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2))))))))))))))) (define Common-Compiler-case--getNamedDef-911 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--caseC-32blockC-32inC-32getNamedDef-933 arg-0 arg-1 arg-2 e-2 bind-0 (let ((sc1 e-2)) (let ((e-19 (vector-ref sc1 20))) e-19)))))))))) -(define Common-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getAllDesc-760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-4 arg-0 (vector 0 arg-0 arg-11)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((refs (Context-Core-refersToRuntime arg-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toResolvedNames 'erased arg-5 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-1 eta-2))) (NameMap-Data-keys 'erased refs)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Common-Compiler-getAllDesc arg-5 (List-Types-Prelude-C-43C-43 'erased e-6 arg-2) arg-4 arg-3) eta-0))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)))))) +(define Common-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getAllDesc-760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IOArray-Data-writeArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-4 arg-0 (vector 0 arg-0 arg-11)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((refs (Context-Core-refersToRuntime arg-10))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toResolvedNames 'erased arg-5 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-1 eta-2))) (NameMap-Data-keys 'erased refs)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Common-Compiler-getAllDesc arg-5 (List-Types-Prelude-C-43C-43 'erased e-6 arg-2) arg-4 arg-3) eta-0))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)))))) (define Common-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getAllDesc-720 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addDef arg-5 arg-1 e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((refs (Context-Core-refersToRuntime e-2))) (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getAllDesc-760 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 _-0 e-5 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc2 e-2)) (let ((e-7 (vector-ref sc2 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))) (define Common-Compiler-case--caseC-32blockC-32inC-32getAllDesc-673 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Common-Compiler-getMinimalDef e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc2 1))) (let ((bind-0 (vector 1 (vector 0 e-5 e-6)))) (let ((sc3 e-7)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-25 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (let ((refs (Context-Core-refersToRuntime e-4))) (let ((_-0 (vector 0 e-4 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getAllDesc-760 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-6 bind-0 e-4 e-3 _-0 e-8 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc5 e-4)) (let ((e-22 (vector-ref sc5 8))) e-22)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))))))))))))))) (define Common-Compiler-case--getAllDesc-651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-lookupContextEntry arg-1 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 ))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) ((Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((act-25 ((Common-Compiler-getMinimalDef e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((bind-0 (vector 1 (vector 0 e-7 e-6)))) (let ((sc5 e-8)) (let ((e-4 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-26 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((refs (Context-Core-refersToRuntime e-4))) (let ((_-1 (vector 0 e-4 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getAllDesc-760 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 _-0 e-7 e-6 bind-0 e-4 e-3 _-1 e-9 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc7 e-4)) (let ((e-23 (vector-ref sc7 8))) e-23)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3)))))) (define Common-Compiler-case--max-362 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) (define Common-Compiler-case--min-348 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0))))) -(define Common-Compiler-n--8947-397-tag (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) ((1) 0) ((2) 0) (else 0))))) -(define Common-Compiler-n--11576-2731-readPath (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-1) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0)))))))))))) -(define Common-Compiler-n--11576-2730-paths (lambda (arg-0) (List-Data-nub 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Common-Compiler-n--11576-2729-getArg arg-0 eta-0)) (List-Data-reverse 'erased arg-0))))) -(define Common-Compiler-n--10136-1412-nonErased (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 0)))))))))))))))) -(define Common-Compiler-n--11193-2372-getOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--parseCCC-44getOpts-2387 arg-0 arg-1 (Strings-Data-span (lambda (arg-2) (EqOrd-Prelude-C-47C-61_Eq__Char arg-2 #\,)) arg-1))))))) -(define Common-Compiler-n--11576-2729-getArg (lambda (arg-0 arg-1) (Common-Compiler-case--getExtraRuntimeC-44getArg-2742 arg-0 arg-1 (Strings-Data-break (lambda (arg-2) (EqOrd-Prelude-C-61C-61_Eq__Char arg-2 #\=)) arg-1)))) -(define Common-Compiler-n--10059-1338-fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2)))))) -(define Common-Compiler-n--9982-1265-fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2)))))) -(define Common-Compiler-n--9905-1192-fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2)))))) -(define Common-Compiler-n--9746-1048-fullShow (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-3)))))) -(define Common-Compiler-n--10059-1339-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (Common-Compiler-n--10059-1338-fullShow arg-0 arg-1 e-2) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__VMDef e-3) "\u000a")))))))) -(define Common-Compiler-n--9982-1266-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (Common-Compiler-n--9982-1265-fullShow arg-0 arg-1 e-2) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (ANF-Compiler-show_Show__ANFDef e-3) "\u000a")))))))) -(define Common-Compiler-n--9905-1193-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (Common-Compiler-n--9905-1192-fullShow arg-0 arg-1 e-2) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (LambdaLift-Compiler-show_Show__LiftedDef e-3) "\u000a")))))))) -(define Common-Compiler-n--9746-1049-dumpCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 "")) (else (let ((e-2 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-2))) ((Common-Compiler-case--caseC-32blockC-32inC-32dumpCasesC-44dumpCase-1096 arg-0 arg-1 arg-2 arg-3 e-2 bind-0 (let ((sc2 e-2)) (let ((e-19 (vector-ref sc2 20))) e-19))) ext-0))))))))))))) +(define Common-Compiler-n--8775-397-tag (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) ((1) 0) ((2) 0) (else 0))))) +(define Common-Compiler-n--9964-1412-nonErased (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 0)))))))))))))))) +(define Common-Compiler-n--11021-2372-getOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--parseCCC-44getOpts-2387 arg-0 arg-1 (Strings-Data-span (lambda (arg-2) (EqOrd-Prelude-C-47C-61_Eq__Char arg-2 #\,)) arg-1))))))) +(define Common-Compiler-n--9887-1338-fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2)))))) +(define Common-Compiler-n--9810-1265-fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2)))))) +(define Common-Compiler-n--9733-1192-fullShow (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-2)))))) +(define Common-Compiler-n--9574-1048-fullShow (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((4) (let ((e-1 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-1)))(else (Name-Core-show_Show__Name arg-3)))))) +(define Common-Compiler-n--9887-1339-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (Common-Compiler-n--9887-1338-fullShow arg-0 arg-1 e-2) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__VMDef e-3) "\u000a")))))))) +(define Common-Compiler-n--9810-1266-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (Common-Compiler-n--9810-1265-fullShow arg-0 arg-1 e-2) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (ANF-Compiler-show_Show__ANFDef e-3) "\u000a")))))))) +(define Common-Compiler-n--9733-1193-dumpDef (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (Common-Compiler-n--9733-1192-fullShow arg-0 arg-1 e-2) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (LambdaLift-Compiler-show_Show__LiftedDef e-3) "\u000a")))))))) +(define Common-Compiler-n--9574-1049-dumpCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-3 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (vector 1 "")) (else (let ((e-2 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-2))) ((Common-Compiler-case--caseC-32blockC-32inC-32dumpCasesC-44dumpCase-1096 arg-0 arg-1 arg-2 arg-3 e-2 bind-0 (let ((sc2 e-2)) (let ((e-19 (vector-ref sc2 20))) e-19))) ext-0))))))))))))) (define Common-Compiler-min_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--min-348 arg-1 arg-0 (Common-Compiler-C-60_Ord__UsePhase arg-0 arg-1)))) (define Common-Compiler-max_Ord__UsePhase (lambda (arg-0 arg-1) (Common-Compiler-case--max-362 arg-1 arg-0 (Common-Compiler-C-62_Ord__UsePhase arg-0 arg-1)))) -(define Common-Compiler-compare_Ord__UsePhase (lambda (arg-0 arg-1) (EqOrd-Prelude-compare_Ord__Int (Common-Compiler-n--8947-397-tag arg-1 arg-0 arg-0) (Common-Compiler-n--8947-397-tag arg-1 arg-0 arg-1)))) +(define Common-Compiler-compare_Ord__UsePhase (lambda (arg-0 arg-1) (EqOrd-Prelude-compare_Ord__Int (Common-Compiler-n--8775-397-tag arg-1 arg-0 arg-0) (Common-Compiler-n--8775-397-tag arg-1 arg-0 arg-1)))) (define Common-Compiler-__Impl_Ord_UsePhase (lambda () (vector 0 (vector 0 (lambda (arg-2) (lambda (arg-3) (Common-Compiler-C-61C-61_Eq__UsePhase arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Common-Compiler-C-47C-61_Eq__UsePhase arg-4 arg-5)))) (lambda (arg-369) (lambda (arg-370) (Common-Compiler-compare_Ord__UsePhase arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Common-Compiler-C-60_Ord__UsePhase arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Common-Compiler-C-62_Ord__UsePhase arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Common-Compiler-C-60C-61_Ord__UsePhase arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Common-Compiler-C-62C-61_Ord__UsePhase arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Common-Compiler-max_Ord__UsePhase arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Common-Compiler-min_Ord__UsePhase arg-381 arg-382)))))) (define Common-Compiler-__Impl_Eq_UsePhase (lambda () (vector 0 (lambda (arg-2) (lambda (arg-3) (Common-Compiler-C-61C-61_Eq__UsePhase arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Common-Compiler-C-47C-61_Eq__UsePhase arg-4 arg-5)))))) (define Common-Compiler-C-62_Ord__UsePhase (lambda (arg-0 arg-1) (EqOrd-Prelude-C-61C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 2))) @@ -6747,7 +6669,7 @@ (define Common-Compiler-C-60_Ord__UsePhase (lambda (arg-0 arg-1) (EqOrd-Prelude-C-61C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 0))) (define Common-Compiler-C-60C-61_Ord__UsePhase (lambda (arg-0 arg-1) (EqOrd-Prelude-C-47C-61_Eq__Ordering (Common-Compiler-compare_Ord__UsePhase arg-0 arg-1) 2))) (define Common-Compiler-C-47C-61_Eq__UsePhase (lambda (arg-0 arg-1) (Basics-Prelude-not (Common-Compiler-C-61C-61_Eq__UsePhase arg-0 arg-1)))) -(define Common-Compiler-warnIfHole (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Warning: compiling hole " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Common-Compiler-warnIfHole (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Warning: compiling hole " (Name-Core-show_Show__Name arg-0))) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Common-Compiler-replaceEntry (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addContextEntry arg-0 (vector 8 e-2) e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (vector 1 (vector 0 )))))))))))))))) (define Common-Compiler-parseCC (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--parseCC-2424 arg-0 (Strings-Data-span (lambda (arg-1) (EqOrd-Prelude-C-47C-61_Eq__Char arg-1 #\:)) arg-0))))))) (define Common-Compiler-natHackNames (lambda () (vector 1 (vector 1 "prim__add_Integer") (vector 1 (vector 1 "prim__sub_Integer") (vector 1 (vector 1 "prim__mul_Integer") (vector 1 (vector 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "natToInteger")) (vector 1 (vector 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "integerToNat")) (vector 0 )))))))) @@ -6756,56 +6678,55 @@ (define Common-Compiler-locate (lambda (arg-0 arg-1) (let ((fname (Common-Compiler-case--locate-2514 arg-1 arg-0 (Strings-Data-words arg-1)))) (lambda (eta-0) (let ((act-24 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Directory-Core-findLibraryFile arg-0 fname eta-1)) (lambda (err) (lambda (eta-1) (vector 1 fname))) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 0 fname e-5))))))))))) (define Common-Compiler-getNamedDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc2 1))) (let ((bind-0 (vector 1 e-2))) ((Common-Compiler-case--caseC-32blockC-32inC-32getNamedDef-933 arg-1 arg-0 e-5 e-2 bind-0 (let ((sc3 e-2)) (let ((e-19 (vector-ref sc3 20))) e-19))) ext-0)))))))))))))))))) (define Common-Compiler-getMinimalDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 0 e-0 (vector 0 )))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__CDef arg-2177 arg-2179))) (lambda (arg-2180) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CDef arg-2180 eta-1)))) e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2178) (lambda (arg-2180) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2181) (lambda (arg-2182) (TTC-Core-toBuf_TTC__Name arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2181) (lambda (arg-2182) (Binary-Utils-toBuf_TTC__Bool arg-2181 arg-2182))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-2))))) arg-2178 arg-2180))) (lambda (arg-2180) (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-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-3)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-3))))) arg-2180 eta-2)))) arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2178) (lambda (arg-2181) (TTC-Core-toBuf_TTC__Name arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2181 eta-2)))) (vector 0 (lambda (arg-2178) (lambda (arg-2181) (Binary-Utils-toBuf_TTC__Bool arg-2178 arg-2181))) (lambda (arg-2181) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2181 eta-2))))) arg-2177 arg-2179))) (lambda (arg-2181) (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-2177) (lambda (arg-2179) (TTC-Core-toBuf_TTC__Name arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2182 eta-3)))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (Binary-Utils-toBuf_TTC__Bool arg-2177 arg-2179))) (lambda (arg-2182) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2182 eta-3))))) arg-2181 eta-2)))) arg-2180 eta-1)))) e-5 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((refsR (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (NameMap-Data-fromList 'erased eta-1)) e-7))) (let ((act-27 (TTC-Core-fromBuf_TTC__FC e-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (TTC-Core-fromBuf_TTC__RigCount e-5 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (TTC-Core-fromBuf_TTC__Name e-5 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((def (vector 0 e-8 e-10 (vector 10 e-8 1) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) e-9 (vector 0 ) (vector 2 ) (vector 0 (vector 0 ) (vector 0 )) (vector 0 ) (vector 0 ) refsR 1 1 0 (vector 0 ) e-6 (vector 0 ) (vector 0 )))) (vector 1 (vector 0 def (vector 1 e-1)))))))))))))))))))))))))))))))))))))))))) -(define Common-Compiler-getExtraRuntime (lambda (arg-0 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--11576-2731-readPath arg-0 eta-0 eta-1))) (Common-Compiler-n--11576-2730-paths arg-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "\u000a" e-5)))))))))) -(define Common-Compiler-getCompileData (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getSession arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((ns (TT-Core-getRefs 'erased (vector 8 (Num-Prelude-negate_Neg__Int 1)) arg-2))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-2 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-0 eta-1))) (Common-Compiler-natHackNames)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-getNextEntry arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((IOArray-Data-newArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-29 (arg-317 eta-0))) ((arg-318 act-29) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-9) ext-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Context-Core-logTime 'erased arg-0 (lambda () "Get names") (Common-Compiler-getAllDesc arg-0 (List-Types-Prelude-C-43C-43 'erased e-8 (NameMap-Data-keys 'erased ns)) e-10 e-5) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((IOArray-Data-toList 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-31 (arg-317 eta-0))) ((arg-318 act-31) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-10) ext-0))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((entries (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12))) (let ((allNs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 8 (Builtin-fst 'erased 'erased eta-0))) entries))) (let ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-0 eta-1))) allNs) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--10136-1412-nonErased arg-2 arg-1 arg-0 eta-0 eta-1))) e-13) ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (Context-Core-logTime 'erased arg-0 (lambda () "Merge lambda") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-35 (Context-Core-logTime 'erased arg-0 (lambda () "Fix arity") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-36 (Context-Core-logTime 'erased arg-0 (lambda () "Forget names") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-mkForgetDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-37 (let ((act-37 (CompileExpr-Compiler-compileExp arg-0 e-7 ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) ((Inline-Compiler-fixArityExp (vector 0 ) arg-0 e-18) ext-0)))))))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) (let ((mainname (vector 2 "__mainExpression" 0))) (let ((act-38 (LambdaLift-Compiler-liftBody (vector 0 ) mainname e-18 ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-19)) (let ((e-2 (vector-ref sc15 1))) (let ((e-3 (vector-ref sc15 2))) (let ((act-39 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-getNamedDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-1820 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 1 ))) ext-0)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((lifted (vector 1 (vector 0 mainname (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Types-Prelude-C-43C-43 'erased e-3 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3) (lambda (arg-4) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3 arg-4))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-21))))) (let ((act-41 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-1946 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 2 ))) ext-0)))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-2148 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted e-22 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 3 ))) ext-0)))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-43 (let ((act-43 (unbox arg-0))) (vector 1 act-43)))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((e-24 (vector-ref sc20 1))) (let ((act-44 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-44 (let ((act-44 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-44 (arg-317 eta-1))) ((arg-318 act-44) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Dumping case trees to " f)) eta-0))) (vector 1 act-44)))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (Common-Compiler-dumpCases e-24 f e-14 eta-0)))))))) (let ((sc21 e-6)) (let ((e-28 (vector-ref sc21 9))) e-28))) ext-0))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-45 (let ((act-45 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-45 (arg-317 eta-1))) ((arg-318 act-45) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Dumping lambda lifted defs to " f)) eta-0))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpLifted f lifted) eta-0)))))))) (let ((sc22 e-6)) (let ((e-28 (vector-ref sc22 10))) e-28))) ext-0))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((act-46 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-46 (let ((act-46 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-46 (arg-317 eta-1))) ((arg-318 act-46) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Dumping ANF defs to " f)) eta-0))) (vector 1 act-46)))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpANF f e-22) eta-0)))))))) (let ((sc23 e-6)) (let ((e-28 (vector-ref sc23 11))) e-28))) ext-0))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (let ((act-47 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-47 (let ((act-47 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-47 (arg-317 eta-1))) ((arg-318 act-47) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Dumping VM defs to " f)) eta-0))) (vector 1 act-47)))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpVMCode f e-23) eta-0)))))))) (let ((sc24 e-6)) (let ((e-28 (vector-ref sc24 12))) e-28))) ext-0))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else (let ((act-48 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-replaceEntry arg-0 eta-0)) entries) ext-0))) (let ((sc25 act-48)) (case (vector-ref sc25 0) ((0) (let ((e-4 (vector-ref sc25 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-18 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-20) lifted e-22 e-23)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) -(define Common-Compiler-getAllDesc (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-2 e-4) eta-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((n (vector 8 e-4))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Context-Core-lookupContextEntry n (let ((sc4 arg-3)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((_-0 (vector 0 ))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) ((Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (let ((e-9 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((act-26 ((Common-Compiler-getMinimalDef e-8) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 e-9 e-8)))) (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((act-27 (Context-Core-addDef arg-0 n e-12 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((refs (Context-Core-refersToRuntime e-12))) (let ((_-1 (vector 0 e-12 e-11))) ((Common-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getAllDesc-760 e-4 n e-3 arg-3 arg-2 arg-0 _-0 e-9 e-8 bind-0 e-12 e-11 _-1 e-13 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc10 e-12)) (let ((e-27 (vector-ref sc10 8))) e-27)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))))))))))))))))))) (else ((Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)))))))))))))(else (Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3))))))))))) -(define Common-Compiler-exists (lambda (arg-0 ext-0) (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-25 (arg-317 eta-0))) ((arg-318 act-25) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) ext-0))) 0))) (else 1)))))) +(define Common-Compiler-getCompileData (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-getSession arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((ns (TT-Core-getRefs 'erased (vector 8 (Num-Prelude-negate_Neg__Int 1)) arg-2))) (let ((act-26 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5319 arg-5320)))) arg-2 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-0 eta-1))) (Common-Compiler-natHackNames)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (Context-Core-getNextEntry arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (let ((act-29 ((IOArray-Data-newArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-29 (arg-274 eta-0))) ((arg-275 act-29) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-9) ext-0))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Context-Core-logTime 'erased arg-0 (lambda () "Get names") (Common-Compiler-getAllDesc arg-0 (List-Types-Prelude-C-43C-43 'erased e-8 (NameMap-Data-keys 'erased ns)) e-10 e-5) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (let ((act-31 ((IOArray-Data-toList 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-31 (arg-274 eta-0))) ((arg-275 act-31) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-10) ext-0))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((entries (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-12))) (let ((allNs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 8 (Builtin-fst 'erased 'erased eta-0))) entries))) (let ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) eta-0 eta-1))) allNs) ext-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9964-1412-nonErased arg-2 arg-1 arg-0 eta-0 eta-1))) e-13) ext-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (Context-Core-logTime 'erased arg-0 (lambda () "Merge lambda") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-35 (Context-Core-logTime 'erased arg-0 (lambda () "Fix arity") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc11 act-35)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-36 (Context-Core-logTime 'erased arg-0 (lambda () "Forget names") (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-mkForgetDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc12 act-36)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-37 (let ((act-37 (CompileExpr-Compiler-compileExp arg-0 e-7 ext-0))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) ((Inline-Compiler-fixArityExp (vector 0 ) arg-0 e-18) ext-0)))))))) (let ((sc13 act-37)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-18 (vector-ref sc13 1))) (let ((mainname (vector 2 "__mainExpression" 0))) (let ((act-38 (LambdaLift-Compiler-liftBody (vector 0 ) mainname e-18 ext-0))) (let ((sc14 act-38)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-19 (vector-ref sc14 1))) (let ((sc15 e-19)) (let ((e-2 (vector-ref sc15 1))) (let ((e-3 (vector-ref sc15 2))) (let ((act-39 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-getNamedDef arg-0 eta-0 eta-1))) e-14) ext-0))) (let ((sc16 act-39)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-40 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-1820 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 1 ))) ext-0)))) (let ((sc17 act-40)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (vector 0 e-4))) (else (let ((e-21 (vector-ref sc17 1))) (let ((lifted (vector 1 (vector 0 mainname (vector 0 (vector 0 ) (vector 0 ) e-2)) (List-Types-Prelude-C-43C-43 'erased e-3 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3) (lambda (arg-4) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3 arg-4))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-21))))) (let ((act-41 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-1946 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 2 ))) ext-0)))) (let ((sc18 act-41)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (vector 0 e-4))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-42 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--caseC-32blockC-32inC-32getCompileData-2148 arg-2 arg-1 arg-0 e-5 e-6 ns e-7 e-8 e-9 e-10 e-11 e-12 entries allNs e-13 e-14 e-15 e-16 e-17 e-18 mainname e-2 e-3 _-0 e-20 e-21 lifted e-22 (Common-Compiler-C-62C-61_Ord__UsePhase arg-1 (vector 3 ))) ext-0)))) (let ((sc19 act-42)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (vector 0 e-4))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-43 (let ((act-43 (unbox arg-0))) (vector 1 act-43)))) (let ((sc20 act-43)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (vector 0 e-4))) (else (let ((e-24 (vector-ref sc20 1))) (let ((act-44 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-44 (let ((act-44 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-44 (arg-274 eta-1))) ((arg-275 act-44) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Dumping case trees to " f)) eta-0))) (vector 1 act-44)))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (Common-Compiler-dumpCases e-24 f e-14 eta-0)))))))) (let ((sc21 e-6)) (let ((e-28 (vector-ref sc21 9))) e-28))) ext-0))) (let ((sc21 act-44)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (vector 0 e-4))) (else (let ((act-45 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-45 (let ((act-45 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-45 (arg-274 eta-1))) ((arg-275 act-45) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Dumping lambda lifted defs to " f)) eta-0))) (vector 1 act-45)))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpLifted f lifted) eta-0)))))))) (let ((sc22 e-6)) (let ((e-28 (vector-ref sc22 10))) e-28))) ext-0))) (let ((sc22 act-45)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (vector 0 e-4))) (else (let ((act-46 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-46 (let ((act-46 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-46 (arg-274 eta-1))) ((arg-275 act-46) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Dumping ANF defs to " f)) eta-0))) (vector 1 act-46)))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpANF f e-22) eta-0)))))))) (let ((sc23 e-6)) (let ((e-28 (vector-ref sc23 11))) e-28))) ext-0))) (let ((sc23 act-46)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (vector 0 e-4))) (else (let ((act-47 ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 0 )))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-47 (let ((act-47 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-47 (arg-274 eta-1))) ((arg-275 act-47) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Dumping VM defs to " f)) eta-0))) (vector 1 act-47)))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else ((Common-Compiler-dumpVMCode f e-23) eta-0)))))))) (let ((sc24 e-6)) (let ((e-28 (vector-ref sc24 12))) e-28))) ext-0))) (let ((sc24 act-47)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (vector 0 e-4))) (else (let ((act-48 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-replaceEntry arg-0 eta-0)) entries) ext-0))) (let ((sc25 act-48)) (case (vector-ref sc25 0) ((0) (let ((e-4 (vector-ref sc25 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-18 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-20) lifted e-22 e-23)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Common-Compiler-getAllDesc (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((8) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IOArray-Data-readArray 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-2 e-4) eta-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (let ((n (vector 8 e-4))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (let ((act-25 ((Context-Core-lookupContextEntry n (let ((sc4 arg-3)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((_-0 (vector 0 ))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) ((Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (let ((e-9 (vector-ref sc6 1))) (let ((e-8 (vector-ref sc6 2))) (let ((act-26 ((Common-Compiler-getMinimalDef e-8) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((bind-0 (vector 1 (vector 0 e-9 e-8)))) (let ((sc8 e-10)) (let ((e-12 (vector-ref sc8 1))) (let ((e-11 (vector-ref sc8 2))) (let ((act-27 (Context-Core-addDef arg-0 n e-12 eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc9 1))) (let ((refs (Context-Core-refersToRuntime e-12))) (let ((_-1 (vector 0 e-12 e-11))) ((Common-Compiler-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32getAllDesc-760 e-4 n e-3 arg-3 arg-2 arg-0 _-0 e-9 e-8 bind-0 e-12 e-11 _-1 e-13 refs (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc10 e-12)) (let ((e-27 (vector-ref sc10 8))) e-27)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))))))))))))))))))) (else ((Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3) eta-0)))))))))))))(else (Common-Compiler-getAllDesc arg-0 e-3 arg-2 arg-3))))))))))) +(define Common-Compiler-exists (lambda (arg-0 ext-0) (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0 (vector 0 )) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-25 (arg-274 eta-0))) ((arg-275 act-25) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) ext-0))) 0))) (else 1)))))) (define Codegen-Common-Compiler-executeExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define Common-Compiler-execute (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((tmpDir (Options-Core-execBuildDir e-5))) (let ((act-25 (Directory-Core-ensureDirectoryExists tmpDir ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) ((((e-1 arg-0) tmpDir) arg-2) ext-0))))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))) (define Common-Compiler-dylib_suffix (lambda () (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 )))))) (lambda () "dll")) (vector 1 (vector 0 (lambda () (EqOrd-Prelude-C-61C-61_Eq__String (Info-System-os) "darwin")) (lambda () "dylib")) (vector 0 ))) "so"))) -(define Common-Compiler-dumpVMCode (lambda (arg-0 arg-1) (let ((cstrs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--10059-1339-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0 (Strings-Data-fastAppend cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0)))))))))))))) -(define Common-Compiler-dumpLifted (lambda (arg-0 arg-1) (let ((cstrs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9905-1193-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0 (Strings-Data-fastAppend cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0)))))))))))))) -(define Common-Compiler-dumpCases (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9746-1049-dumpCase arg-2 arg-1 arg-0 eta-0 eta-1))) arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-25 (arg-317 eta-0))) ((arg-318 act-25) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-1 (Strings-Data-fastAppend e-5)) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) ext-0))))))))))))))))) -(define Common-Compiler-dumpANF (lambda (arg-0 arg-1) (let ((cstrs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9982-1266-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0 (Strings-Data-fastAppend cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0)))))))))))))) +(define Common-Compiler-dumpVMCode (lambda (arg-0 arg-1) (let ((cstrs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9887-1339-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0 (Strings-Data-fastAppend cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0)))))))))))))) +(define Common-Compiler-dumpLifted (lambda (arg-0 arg-1) (let ((cstrs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9733-1193-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0 (Strings-Data-fastAppend cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0)))))))))))))) +(define Common-Compiler-dumpCases (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--9574-1049-dumpCase arg-2 arg-1 arg-0 eta-0 eta-1))) arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-25 (arg-274 eta-0))) ((arg-275 act-25) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-1 (Strings-Data-fastAppend e-5)) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((sc3 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-7) ext-0))))))))))))))))) +(define Common-Compiler-dumpANF (lambda (arg-0 arg-1) (let ((cstrs (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Common-Compiler-n--9810-1266-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0 (Strings-Data-fastAppend cstrs)) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((sc2 e-2)) (vector 1 (vector 0 ))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-6) eta-0)))))))))))))) (define Common-Compiler-copyLib (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Common-Compiler-case--copyLib-2647 e-2 e-3 (EqOrd-Prelude-C-61C-61_Eq__String e-2 e-3))))))) (define Codegen-Common-Compiler-compileExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) (define Common-Compiler-compile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((tmpDir (Options-Core-execBuildDir e-5))) (let ((outputDir (Options-Core-outputDirWithDefault e-5))) (let ((act-25 (Directory-Core-ensureDirectoryExists tmpDir ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 (Directory-Core-ensureDirectoryExists outputDir ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Context-Core-logTime 'erased arg-0 (lambda () "Code generation overall") (let ((sc3 arg-1)) (let ((e-0 (vector-ref sc3 1))) (((((e-0 arg-0) tmpDir) outputDir) arg-2) arg-3))) ext-0)))))))))))))))))) (define VMCode-Compiler-case--allDefs-6356 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (VMCode-Compiler-toVMDef e-3) (lambda (dC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 dC-39))))))))) -(define VMCode-Compiler-case--declareVarsC-44declareAll-6294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (VMCode-Compiler-n--6968-6279-declareAll arg-0 arg-1 arg-4 arg-3)) (else (vector 1 (vector 0 (vector 1 arg-2)) (VMCode-Compiler-n--6968-6279-declareAll arg-0 arg-1 (vector 1 arg-2 arg-4) arg-3))))))) +(define VMCode-Compiler-case--declareVarsC-44declareAll-6294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (VMCode-Compiler-n--6796-6279-declareAll arg-0 arg-1 arg-4 arg-3)) (else (vector 1 (vector 0 (vector 1 arg-2)) (VMCode-Compiler-n--6796-6279-declareAll arg-0 arg-1 (vector 1 arg-2 arg-4) arg-3))))))) (define VMCode-Compiler-case--show-5627 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "TAILCALL ") (else "CALL "))))) -(define VMCode-Compiler-n--6548-6035-toVMConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (VMCode-Compiler-toVM arg-5 arg-4 e-1))))))) -(define VMCode-Compiler-n--6548-5971-toVMConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 0 e-5) (List-Types-Prelude-C-43C-43 'erased (VMCode-Compiler-n--6548-5970-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3))))) (else (vector 0 (vector 1 e-0) (List-Types-Prelude-C-43C-43 'erased (VMCode-Compiler-n--6548-5970-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3))))))))))))) -(define VMCode-Compiler-n--6548-5970-projectArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 12 (vector 1 e-2) (vector 1 arg-0) arg-6) (VMCode-Compiler-n--6548-5970-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-6 1 63) e-3))))))))) -(define VMCode-Compiler-n--6773-6165-findVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3))))) -(define VMCode-Compiler-n--6773-6216-findConstVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3))))) -(define VMCode-Compiler-n--6968-6279-declareAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 1 ) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (VMCode-Compiler-case--declareVarsC-44declareAll-6294 arg-0 arg-1 e-2 e-3 arg-2 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) e-2 arg-2))))))))) +(define VMCode-Compiler-n--6376-6035-toVMConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (VMCode-Compiler-toVM arg-5 arg-4 e-1))))))) +(define VMCode-Compiler-n--6376-5971-toVMConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (vector 0 (vector 0 e-5) (List-Types-Prelude-C-43C-43 'erased (VMCode-Compiler-n--6376-5970-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3))))) (else (vector 0 (vector 1 e-0) (List-Types-Prelude-C-43C-43 'erased (VMCode-Compiler-n--6376-5970-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-2) (VMCode-Compiler-toVM arg-5 arg-4 e-3))))))))))))) +(define VMCode-Compiler-n--6376-5970-projectArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 (vector 12 (vector 1 e-2) (vector 1 arg-0) arg-6) (VMCode-Compiler-n--6376-5970-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-6 1 63) e-3))))))))) +(define VMCode-Compiler-n--6601-6165-findVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3))))) +(define VMCode-Compiler-n--6601-6216-findConstVarAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3))))) +(define VMCode-Compiler-n--6796-6279-declareAll (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 1 ) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (VMCode-Compiler-case--declareVarsC-44declareAll-6294 arg-0 arg-1 e-2 e-3 arg-2 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__Int arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__Int arg-4 arg-5)))) e-2 arg-2))))))))) (define VMCode-Compiler-show_Show__VMInst (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "DECLARE " (VMCode-Compiler-show_Show__Reg e-0)))) ((1) "START") ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-1) (Strings-Types-Prelude-C-43C-43 " := " (VMCode-Compiler-show_Show__Reg e-2)))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-3) (Strings-Types-Prelude-C-43C-43 " := MKCON " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x))))) e-4) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-5)) ")"))))))))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-6) (Strings-Types-Prelude-C-43C-43 " := MKCLOSURE " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat e-8) (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-9)) ")")))))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-10) (Strings-Types-Prelude-C-43C-43 " := MKCONSTANT " (TT-Core-show_Show__Constant e-11)))))) ((6) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-12) (Strings-Types-Prelude-C-43C-43 " := " (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-13) (Strings-Types-Prelude-C-43C-43 " @ " (VMCode-Compiler-show_Show__Reg e-14))))))))) ((7) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-15) (Strings-Types-Prelude-C-43C-43 " := " (Strings-Types-Prelude-C-43C-43 (let ((sc1 e-16)) (cond ((equal? sc1 0) "TAILCALL ") (else "CALL "))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-18)) ")"))))))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-20) (Strings-Types-Prelude-C-43C-43 " := " (Strings-Types-Prelude-C-43C-43 "OP " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased e-21) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) e-22))) ")")))))))))) ((9) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-23) (Strings-Types-Prelude-C-43C-43 " := " (Strings-Types-Prelude-C-43C-43 "EXTPRIM " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-24) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-25)) ")")))))))))) ((10) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "CASE " (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-26) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Int x-1)) (lambda (d) (lambda (x-1) (Show-Prelude-showPrec_Show__Int d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Int x-1)) (lambda (d-1) (lambda (x-1) (Show-Prelude-showPrec_Show__Int d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-27) (Strings-Types-Prelude-C-43C-43 " {default: " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d x)))) e-28) "}")))))))))) ((11) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "CASE " (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-29) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__Constant d x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__Constant d-0 x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-30) (Strings-Types-Prelude-C-43C-43 " {default: " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d x)))) e-31) "}")))))))))) ((12) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-32) (Strings-Types-Prelude-C-43C-43 " := PROJECT(" (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-33) (Strings-Types-Prelude-C-43C-43 ", " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-34) ")"))))))))) ((13) (let ((e-35 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-35) " := NULL"))) (else (let ((e-36 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "ERROR " (Show-Prelude-show_Show__String e-36)))))))) (define VMCode-Compiler-show_Show__VMDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x)))) e-0) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x)))) e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "Error: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x)))) e-2)))))))) (define VMCode-Compiler-show_Show__Reg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "RVAL") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "v" (Show-Prelude-show_Show__Int e-0)))) (else "DISCARD"))))) (define VMCode-Compiler-showPrec_Show__VMInst (lambda (arg-0 arg-1) (VMCode-Compiler-show_Show__VMInst arg-1))) (define VMCode-Compiler-__Impl_Show_VMInst (lambda () (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x)))))) (define VMCode-Compiler-toVMDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 0 e-0 (VMCode-Compiler-declareVars e-0 (VMCode-Compiler-toVM 0 (vector 0 ) e-1))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 (VMCode-Compiler-declareVars (vector 0 ) (VMCode-Compiler-toVM 0 (vector 0 ) e-2))))))(else (vector 0 )))))) -(define VMCode-Compiler-toVM (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (vector 0 ))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-40 (vector-ref sc1 1))) (vector 1 (vector 2 arg-1 (vector 1 e-40)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 7 arg-1 arg-0 e-3 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-4)) (vector 0 ))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 (vector 4 arg-1 e-6 e-7 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-8)) (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 1 (vector 6 arg-1 (VMCode-Compiler-toReg e-10) (VMCode-Compiler-toReg e-11)) (vector 0 ))))) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Types-Prelude-C-43C-43 'erased (VMCode-Compiler-toVM 1 (vector 1 e-13) e-14) (VMCode-Compiler-toVM arg-0 arg-1 e-15)))))) ((5) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (vector 1 (vector 3 arg-1 (vector 0 e-42) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 )))) ((0) (vector 1 (vector 3 arg-1 (vector 1 e-17) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 )))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 1 (vector 8 arg-1 e-22 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-23)) (vector 0 ))))) ((7) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 1 (vector 9 arg-1 e-25 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-26)) (vector 0 ))))) ((8) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((sc1 e-28)) (case (vector-ref sc1 0) ((0) (let ((e-44 (vector-ref sc1 1))) (vector 1 (vector 10 (vector 1 e-44) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--6548-5971-toVMConAlt e-44 e-30 e-29 e-27 arg-1 arg-0 eta-0)) e-29) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-30)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((9) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (let ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 1))) (vector 1 (vector 11 (vector 1 e-45) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--6548-6035-toVMConstAlt e-45 e-34 e-33 e-31 arg-1 arg-0 eta-0)) e-33) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-34)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((10) (let ((e-36 (vector-ref sc0 2))) (vector 1 (vector 5 arg-1 e-36) (vector 0 )))) ((11) (vector 1 (vector 13 arg-1) (vector 0 ))) ((12) (let ((e-39 (vector-ref sc0 2))) (vector 1 (vector 14 e-39) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) +(define VMCode-Compiler-toVM (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (vector 0 ))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-40 (vector-ref sc1 1))) (vector 1 (vector 2 arg-1 (vector 1 e-40)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 7 arg-1 arg-0 e-3 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-4)) (vector 0 ))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 (vector 4 arg-1 e-6 e-7 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-8)) (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 1 (vector 6 arg-1 (VMCode-Compiler-toReg e-10) (VMCode-Compiler-toReg e-11)) (vector 0 ))))) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Types-Prelude-C-43C-43 'erased (VMCode-Compiler-toVM 1 (vector 1 e-13) e-14) (VMCode-Compiler-toVM arg-0 arg-1 e-15)))))) ((5) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (vector 1 (vector 3 arg-1 (vector 0 e-42) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 )))) ((0) (vector 1 (vector 3 arg-1 (vector 1 e-17) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 )))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 1 (vector 8 arg-1 e-22 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-23)) (vector 0 ))))) ((7) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 1 (vector 9 arg-1 e-25 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-26)) (vector 0 ))))) ((8) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((sc1 e-28)) (case (vector-ref sc1 0) ((0) (let ((e-44 (vector-ref sc1 1))) (vector 1 (vector 10 (vector 1 e-44) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--6376-5971-toVMConAlt e-44 e-30 e-29 e-27 arg-1 arg-0 eta-0)) e-29) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-30)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((9) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (let ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (let ((e-45 (vector-ref sc1 1))) (vector 1 (vector 11 (vector 1 e-45) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--6376-6035-toVMConstAlt e-45 e-34 e-33 e-31 arg-1 arg-0 eta-0)) e-33) (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-34)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((10) (let ((e-36 (vector-ref sc0 2))) (vector 1 (vector 5 arg-1 e-36) (vector 0 )))) ((11) (vector 1 (vector 13 arg-1) (vector 0 ))) ((12) (let ((e-39 (vector-ref sc0 2))) (vector 1 (vector 14 e-39) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) (define VMCode-Compiler-toReg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0))) (else (vector 2 )))))) -(define VMCode-Compiler-findVars (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 1))) (vector 1 e-34 (vector 0 ))))(else (vector 0 )))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (vector 1 e-35 (vector 0 ))))(else (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-36 (vector-ref sc1 1))) (vector 1 e-36 (vector 0 ))))(else (vector 0 )))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (vector 1 e-37 (vector 0 ))))(else (vector 0 )))))) ((6) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((1) (let ((e-38 (vector-ref sc1 1))) (vector 1 e-38 (vector 0 ))))(else (vector 0 )))))) ((7) (let ((e-14 (vector-ref sc0 1))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((1) (let ((e-39 (vector-ref sc1 1))) (vector 1 e-39 (vector 0 ))))(else (vector 0 )))))) ((8) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((1) (let ((e-40 (vector-ref sc1 1))) (vector 1 e-40 (vector 0 ))))(else (vector 0 )))))) ((9) (let ((e-22 (vector-ref sc0 1))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((1) (let ((e-41 (vector-ref sc1 1))) (vector 1 e-41 (vector 0 ))))(else (vector 0 )))))) ((10) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (List-Types-Prelude-C-43C-43 'erased ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6773-6165-findVarAlt e-25 e-27 e-26 eta-0))) e-26) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Types-Prelude-map_Functor__Maybe 'erased 'erased (Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-27))))))) ((11) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (List-Types-Prelude-C-43C-43 'erased ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6773-6216-findConstVarAlt e-28 e-30 e-29 eta-0))) e-29) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Types-Prelude-map_Functor__Maybe 'erased 'erased (Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-30))))))) ((12) (let ((e-31 (vector-ref sc0 1))) (let ((sc1 e-31)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (vector 1 e-42 (vector 0 ))))(else (vector 0 ))))))(else (vector 0 )))))) -(define VMCode-Compiler-declareVars (lambda (arg-0 arg-1) (let ((vs ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) arg-1))) (VMCode-Compiler-n--6968-6279-declareAll arg-1 arg-0 arg-0 vs)))) +(define VMCode-Compiler-findVars (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-34 (vector-ref sc1 1))) (vector 1 e-34 (vector 0 ))))(else (vector 0 )))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (vector 1 e-35 (vector 0 ))))(else (vector 0 )))))) ((4) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-36 (vector-ref sc1 1))) (vector 1 e-36 (vector 0 ))))(else (vector 0 )))))) ((5) (let ((e-9 (vector-ref sc0 1))) (let ((sc1 e-9)) (case (vector-ref sc1 0) ((1) (let ((e-37 (vector-ref sc1 1))) (vector 1 e-37 (vector 0 ))))(else (vector 0 )))))) ((6) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((1) (let ((e-38 (vector-ref sc1 1))) (vector 1 e-38 (vector 0 ))))(else (vector 0 )))))) ((7) (let ((e-14 (vector-ref sc0 1))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((1) (let ((e-39 (vector-ref sc1 1))) (vector 1 e-39 (vector 0 ))))(else (vector 0 )))))) ((8) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((1) (let ((e-40 (vector-ref sc1 1))) (vector 1 e-40 (vector 0 ))))(else (vector 0 )))))) ((9) (let ((e-22 (vector-ref sc0 1))) (let ((sc1 e-22)) (case (vector-ref sc1 0) ((1) (let ((e-41 (vector-ref sc1 1))) (vector 1 e-41 (vector 0 ))))(else (vector 0 )))))) ((10) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (List-Types-Prelude-C-43C-43 'erased ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6601-6165-findVarAlt e-25 e-27 e-26 eta-0))) e-26) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Types-Prelude-map_Functor__Maybe 'erased 'erased (Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-27))))))) ((11) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (List-Types-Prelude-C-43C-43 'erased ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6601-6216-findConstVarAlt e-28 e-30 e-29 eta-0))) e-29) (Maybe-Data-fromMaybe 'erased (lambda () (vector 0 )) (Types-Prelude-map_Functor__Maybe 'erased 'erased (Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-30))))))) ((12) (let ((e-31 (vector-ref sc0 1))) (let ((sc1 e-31)) (case (vector-ref sc1 0) ((1) (let ((e-42 (vector-ref sc1 1))) (vector 1 e-42 (vector 0 ))))(else (vector 0 ))))))(else (vector 0 )))))) +(define VMCode-Compiler-declareVars (lambda (arg-0 arg-1) (let ((vs ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) arg-1))) (VMCode-Compiler-n--6796-6279-declareAll arg-1 arg-0 arg-0 vs)))) (define VMCode-Compiler-allDefs (lambda (ext-0) (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (VMCode-Compiler-toVMDef e-3) (lambda (dC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 dC-39)))))))) ext-0))) (define ANF-Compiler-case--caseC-32blockC-32inC-32toANF-1700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 (List-Types-Prelude-C-43C-43 'erased arg-4 (List-Data-reverse 'erased e-2)) e-5))))))))))))) -(define ANF-Compiler-case--toANF-1666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vs e-3)) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--7391-1570-bindArgs arg-0 arg-1 arg-2 'erased arg-3 arg-0 vs) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-4 arg-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (List-Types-Prelude-C-43C-43 'erased e-2 (List-Data-reverse 'erased e-6)) e-7)))))))))))))))))))))) +(define ANF-Compiler-case--toANF-1666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((vs e-3)) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--7219-1570-bindArgs arg-0 arg-1 arg-2 'erased arg-3 arg-0 vs) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-4 arg-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 0 (List-Types-Prelude-C-43C-43 'erased e-2 (List-Data-reverse 'erased e-6)) e-7)))))))))))))))))))))) (define ANF-Compiler-case--toANFC-44bindArgs-1610 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-8 e-2) (vector 1 arg-8 e-3))))))))) (define ANF-Compiler-case--anfConAlt-1529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf (List-Types-Prelude-C-43C-43 'erased arg-1 arg-0) arg-6 e-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-4 arg-3 e-2 e-5))))))))))))) (define ANF-Compiler-case--anfConAltC-44bindArgs-1481 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 arg-11 e-2) (vector 1 arg-11 e-3))))))))) (define ANF-Compiler-case--anf-1307 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (vector 12 arg-4 "Can't happen (AOp)")) (else (let ((e-2 (vector-ref sc0 1))) (vector 6 arg-4 arg-3 e-2))))))) (define ANF-Compiler-case--anf-1211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (vector 3 arg-3 e-1 e-4))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)")))))))(else (vector 12 arg-3 "Can't happen (AApp)")))))) -(define ANF-Compiler-n--6485-757-showArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Types-Prelude-C-43C-43 "v" (Show-Prelude-show_Show__Int arg-4)))) -(define ANF-Compiler-n--6788-1032-doBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (arg-0 (List-Data-reverse 'erased arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (vector 4 arg-2 e-8 e-10 (ANF-Compiler-n--6788-1032-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 0 e-8) arg-4) e-3))))(else (ANF-Compiler-n--6788-1032-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))(else (ANF-Compiler-n--6788-1032-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3)))))))))))))) -(define ANF-Compiler-n--7391-1570-bindArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-n--7391-1570-bindArgs arg-0 arg-1 arg-2 'erased arg-4 e-3 arg-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4))))))))))))))))))))))) -(define ANF-Compiler-n--6902-1447-bindArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-9)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-n--6902-1447-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-3 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4))))))))))))))))))))))) +(define ANF-Compiler-n--6313-757-showArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Types-Prelude-C-43C-43 "v" (Show-Prelude-show_Show__Int arg-4)))) +(define ANF-Compiler-n--6616-1032-doBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (arg-0 (List-Data-reverse 'erased arg-4))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-10 (vector-ref sc3 1))) (vector 4 arg-2 e-8 e-10 (ANF-Compiler-n--6616-1032-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 0 e-8) arg-4) e-3))))(else (ANF-Compiler-n--6616-1032-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))(else (ANF-Compiler-n--6616-1032-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3)))))))))))))) +(define ANF-Compiler-n--7219-1570-bindArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-6)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-n--7219-1570-bindArgs arg-0 arg-1 arg-2 'erased arg-4 e-3 arg-6) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4))))))))))))))))))))))) +(define ANF-Compiler-n--6730-1447-bindArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-9)))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-n--6730-1447-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-3 arg-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4))))))))))))))))))))))) (define ANF-Compiler-show_Show__AVar (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "v" (Show-Prelude-show_Show__Int e-0)))) (else "[__]"))))) (define ANF-Compiler-show_Show__ANFDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x)))) e-0) (Strings-Types-Prelude-C-43C-43 ": " (ANF-Compiler-show_Show__ANF e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "Constructor tag " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x)))) e-2) (Strings-Types-Prelude-C-43C-43 " arity " (Show-Prelude-show_Show__Nat e-3))))))) ((2) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "Foreign call " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__String d x)))) e-4) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x)))) e-5) (Strings-Types-Prelude-C-43C-43 " -> " (CompileExpr-Core-show_Show__CFType e-6)))))))))) (else (let ((e-7 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "Error: " (ANF-Compiler-show_Show__ANF e-7)))))))) (define ANF-Compiler-show_Show__ANF (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (ANF-Compiler-show_Show__AVar e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-4)) ")")))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 "<" (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Types-Prelude-C-43C-43 " underapp " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat e-7) (Strings-Types-Prelude-C-43C-43 ">(" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-8)) ")")))))))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-10) (Strings-Types-Prelude-C-43C-43 " @ (" (Strings-Types-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-11) ")")))))) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 "%let v" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-13) (Strings-Types-Prelude-C-43C-43 " = " (Strings-Types-Prelude-C-43C-43 (ANF-Compiler-show_Show__ANF e-14) (Strings-Types-Prelude-C-43C-43 " in " (ANF-Compiler-show_Show__ANF e-15)))))))))) ((5) (let ((e-17 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 "%con " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-19)) ")"))))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "%op " (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased e-22) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-23))) ")"))))))) ((7) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "%extprim " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-25) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-show_Show__AVar eta-0)) e-26)) ")"))))))) ((8) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 "%case " (Strings-Types-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-28) (Strings-Types-Prelude-C-43C-43 " of { " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "| " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (ANF-Compiler-show_Show__AConAlt arg-1)) e-29)) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (ANF-Compiler-show_Show__ANF x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__ANF d x)))) e-30)))))))))) ((9) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 "%case " (Strings-Types-Prelude-C-43C-43 (ANF-Compiler-show_Show__AVar e-32) (Strings-Types-Prelude-C-43C-43 " of { " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "| " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (ANF-Compiler-show_Show__AConstAlt arg-1)) e-33)) (Strings-Types-Prelude-C-43C-43 " " (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (ANF-Compiler-show_Show__ANF x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__ANF d x)))) e-34)))))))))) ((10) (let ((e-36 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-36))) ((11) "___") (else (let ((e-39 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "%CRASH(" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__String e-39) ")")))))))) (define ANF-Compiler-show_Show__AConstAlt (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "%constalt(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-0) (Strings-Types-Prelude-C-43C-43 ") => " (ANF-Compiler-show_Show__ANF e-1))))))))) -(define ANF-Compiler-show_Show__AConAlt (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 "%conalt " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-n--6485-757-showArg e-3 e-2 e-1 e-0 eta-0)) e-2)) (Strings-Types-Prelude-C-43C-43 ") => " (ANF-Compiler-show_Show__ANF e-3))))))))))))) +(define ANF-Compiler-show_Show__AConAlt (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 "%conalt " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (ANF-Compiler-n--6313-757-showArg e-3 e-2 e-1 e-0 eta-0)) e-2)) (Strings-Types-Prelude-C-43C-43 ") => " (ANF-Compiler-show_Show__ANF e-3))))))))))))) (define ANF-Compiler-showPrec_Show__ANF (lambda (arg-0 arg-1) (ANF-Compiler-show_Show__ANF arg-1))) (define ANF-Compiler-showPrec_Show__AConstAlt (lambda (arg-0 arg-1) (ANF-Compiler-show_Show__AConstAlt arg-1))) (define ANF-Compiler-showPrec_Show__AConAlt (lambda (arg-0 arg-1) (ANF-Compiler-show_Show__AConAlt arg-1))) @@ -6813,14 +6734,14 @@ (define ANF-Compiler-__Impl_Show_AConstAlt (lambda () (vector 0 (lambda (x) (ANF-Compiler-show_Show__AConstAlt x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__AConstAlt d x)))))) (define ANF-Compiler-__Impl_Show_AConAlt (lambda () (vector 0 (lambda (x) (ANF-Compiler-show_Show__AConAlt x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__AConAlt d x)))))) (define ANF-Compiler-toVect (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 )))(else (vector 0 )))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (ANF-Compiler-toVect 'erased e-0 e-4) (lambda (xsC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 e-3 xsC-39)))))))(else (vector 0 )))))))))) -(define ANF-Compiler-toANF (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-n--7391-1570-bindArgs e-1 e-0 e-2 'erased e-5 e-0 (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((vs e-3)) (let ((act-26 ((ANF-Compiler-n--7391-1570-bindArgs e-1 e-0 e-2 'erased e-5 e-1 vs) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((ANF-Compiler-anf (List-Types-Prelude-C-43C-43 'erased e-1 e-0) e-5 e-8 e-2) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (List-Types-Prelude-C-43C-43 'erased e-4 (List-Data-reverse 'erased e-9)) e-10)))))))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-3 e-4)))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 2 e-6 e-7 e-8))))))) (else (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-anf (vector 0 ) e-5 (vector 0 ) e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))))))))))))) +(define ANF-Compiler-toANF (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-n--7219-1570-bindArgs e-1 e-0 e-2 'erased e-5 e-0 (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-4 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((vs e-3)) (let ((act-26 ((ANF-Compiler-n--7219-1570-bindArgs e-1 e-0 e-2 'erased e-5 e-1 vs) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 ((ANF-Compiler-anf (List-Types-Prelude-C-43C-43 'erased e-1 e-0) e-5 e-8 e-2) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc6 1))) (vector 1 (vector 0 (List-Types-Prelude-C-43C-43 'erased e-4 (List-Data-reverse 'erased e-9)) e-10)))))))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-3 e-4)))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 2 e-6 e-7 e-8))))))) (else (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-anf (vector 0 ) e-5 (vector 0 ) e-9) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 3 e-6))))))))))))))))))) (define ANF-Compiler-nextVar (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (b+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))) (define ANF-Compiler-mlet (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (arg-3 e-1)))))(else (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-0 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 4 arg-1 e-5 arg-2 (arg-3 (vector 0 e-5))))))))))))))) (define ANF-Compiler-lookup (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (let ((e-3 (vector-ref sc1 1))) e-3)))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (let ((e-8 (vector-ref sc0 2))) (ANF-Compiler-lookup 'erased 'erased e-0 'erased e-8))))))))) -(define ANF-Compiler-letBind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((ANF-Compiler-bindArgs arg-0 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (ANF-Compiler-n--6788-1032-doBind arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-5))))))))) +(define ANF-Compiler-letBind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((ANF-Compiler-bindArgs arg-0 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (ANF-Compiler-n--6616-1032-doBind arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-5))))))))) (define ANF-Compiler-bindArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-bindArgs arg-0 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 e-5 (vector 0 )) e-6)))))))))) ((11) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-bindArgs arg-0 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 (vector 1 ) (vector 0 )) e-5)))))))))(else (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((ANF-Compiler-bindArgs arg-0 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 (vector 0 (vector 0 e-5) (vector 1 e-2)) e-6))))))))))))))))))))))) (define ANF-Compiler-anfConstAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))))) -(define ANF-Compiler-anfConAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--6902-1447-bindArgs arg-0 e-3 e-4 e-2 e-1 arg-2 arg-1 'erased e-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Types-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-6 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-1 e-2 e-7 e-8))))))))))))))))))))))) +(define ANF-Compiler-anfConAlt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-n--6730-1447-bindArgs arg-0 e-3 e-4 e-2 e-1 arg-2 arg-1 'erased e-3 arg-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((ANF-Compiler-anf (List-Types-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-6 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-1 e-2 e-7 e-8))))))))))))))))))))))) (define ANF-Compiler-anfArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ANF-Compiler-anf arg-0 arg-1 arg-3 eta-0)) arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (ANF-Compiler-letBind arg-1 arg-2 e-5 arg-5 ext-0)))))))) (define ANF-Compiler-anf (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-3 (vector 0 (ANF-Compiler-lookup 'erased 'erased e-2 'erased arg-2)))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-6 arg-2 e-8 (lambda (eta-1) (vector 1 e-6 e-7 eta-1)) eta-0)))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-10 arg-2 e-13 (lambda (eta-1) (vector 2 e-10 e-11 e-12 eta-1)) eta-0))))))) ((3) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-15 arg-2 (vector 1 e-16 (vector 1 e-17 (vector 0 ))) (lambda (args) (let ((sc1 args)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 3 e-15 e-1 e-4))(else (vector 12 e-15 "Can't happen (AApp)")))))))(else (vector 12 e-15 "Can't happen (AApp)")))))))(else (vector 12 e-15 "Can't happen (AApp)"))))) eta-0)))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (ANF-Compiler-nextVar arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((vsC-39 (vector 1 e-5 arg-2))) (let ((act-25 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((ANF-Compiler-anf (vector 1 e-20 arg-0) arg-1 vsC-39 e-22) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 4 e-19 e-5 e-6 e-7)))))))))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-24 arg-2 e-27 (lambda (eta-1) (vector 5 e-24 e-25 e-26 eta-1)) eta-0))))))) ((6) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) e-32)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (ANF-Compiler-letBind arg-1 e-30 e-5 (lambda (args) (ANF-Compiler-case--anf-1307 arg-0 e-29 e-32 e-31 e-30 arg-2 arg-1 e-5 args (ANF-Compiler-toVect 'erased e-29 args))) eta-0)))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (lambda (eta-0) (ANF-Compiler-anfArgs arg-0 arg-1 e-34 arg-2 e-36 (lambda (eta-1) (vector 7 e-34 e-35 eta-1)) eta-0)))))) ((8) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-39) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConAlt arg-0 arg-1 arg-2 eta-1)) e-40) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-41) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ANF-Compiler-mlet arg-1 e-38 e-5 (lambda (x) (vector 8 e-38 x e-6 e-7))) eta-0)))))))))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-44) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ANF-Compiler-anfConstAlt arg-0 arg-1 arg-2 eta-1)) e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (ANF-Compiler-anf arg-0 arg-1 arg-2 eta-1)) e-46) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) ((ANF-Compiler-mlet arg-1 e-43 e-5 (lambda (x) (vector 9 e-43 x e-6 e-7))) eta-0)))))))))))))))))))))) ((10) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-48 e-49)))))) ((11) (let ((e-51 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-51))))) (else (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-53 e-54)))))))))) (define LambdaLift-Compiler-case--caseC-32blockC-32inC-32lambdaLift-1722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (LambdaLift-Compiler-lambdaLiftDef arg-0 e-1))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) @@ -6830,12 +6751,12 @@ (define LambdaLift-Compiler-case--makeLam-1205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 (vector 1 (vector 0 arg-6 (vector 0 arg-1 arg-0 arg-5)) e-1) e-2))))))) (define LambdaLift-Compiler-case--makeLamC-44allVars-1139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-6 arg-3))) (define LambdaLift-Compiler-case--genName-1055 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 (b+ arg-2 1 63))))))) -(define LambdaLift-Compiler-n--6610-1359-traverseArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LambdaLift-Compiler-n--6610-1359-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) -(define LambdaLift-Compiler-n--6503-988-mkName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (LambdaLift-Compiler-n--6503-988-mkName arg-0 e-1 arg-2))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 e-2 arg-2))) ((4) (let ((e-4 (vector-ref sc0 2))) (LambdaLift-Compiler-n--6503-988-mkName arg-0 e-4 arg-2))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 2 (Strings-Types-Prelude-C-43C-43 "case block in " (Strings-Types-Prelude-C-43C-43 e-5 (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-6) ")")))) arg-2)))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 2 (Strings-Types-Prelude-C-43C-43 "with block in " (Strings-Types-Prelude-C-43C-43 e-7 (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-8) ")")))) arg-2))))(else (vector 2 (Name-Core-show_Show__Name arg-1) arg-2)))))) -(define LambdaLift-Compiler-n--6610-1504-liftConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))))) -(define LambdaLift-Compiler-n--6610-1456-liftConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Types-Prelude-C-43C-43 'erased e-3 arg-0) arg-5 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-5))))))))))))))) -(define LambdaLift-Compiler-n--6606-1102-allVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (vector 0 lamc-0 arg-3)) (LambdaLift-Compiler-n--6606-1101-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5)))) -(define LambdaLift-Compiler-n--6606-1101-allPrfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-2 e-3 eta-0)) (LambdaLift-Compiler-n--6606-1101-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))) +(define LambdaLift-Compiler-n--6438-1359-traverseArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LambdaLift-Compiler-n--6438-1359-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) +(define LambdaLift-Compiler-n--6331-988-mkName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 (LambdaLift-Compiler-n--6331-988-mkName arg-0 e-1 arg-2))))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 2 e-2 arg-2))) ((4) (let ((e-4 (vector-ref sc0 2))) (LambdaLift-Compiler-n--6331-988-mkName arg-0 e-4 arg-2))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (vector 2 (Strings-Types-Prelude-C-43C-43 "case block in " (Strings-Types-Prelude-C-43C-43 e-5 (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-6) ")")))) arg-2)))) ((7) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 2 (Strings-Types-Prelude-C-43C-43 "with block in " (Strings-Types-Prelude-C-43C-43 e-7 (Strings-Types-Prelude-C-43C-43 " (" (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Int e-8) ")")))) arg-2))))(else (vector 2 (Name-Core-show_Show__Name arg-1) arg-2)))))) +(define LambdaLift-Compiler-n--6438-1504-liftConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))))) +(define LambdaLift-Compiler-n--6438-1456-liftConAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Types-Prelude-C-43C-43 'erased e-3 arg-0) arg-5 e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-5))))))))))))))) +(define LambdaLift-Compiler-n--6434-1102-allVars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (vector 0 lamc-0 arg-3)) (LambdaLift-Compiler-n--6434-1101-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5)))) +(define LambdaLift-Compiler-n--6434-1101-allPrfs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-weaken_Weaken__Var e-2 e-3 eta-0)) (LambdaLift-Compiler-n--6434-1101-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))) (define LambdaLift-Compiler-show_Show__LiftedDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-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-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (List-Data-reverse 'erased e-1)) (Strings-Types-Prelude-C-43C-43 ": " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (List-Types-Prelude-C-43C-43 'erased e-1 e-0) e-2)))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "Constructor tag " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Int d x)))) e-3) (Strings-Types-Prelude-C-43C-43 " arity " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat e-4) (Types-Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (n) (Strings-Types-Prelude-C-43C-43 " (newtype by " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__Nat n) ")")))) e-5))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Strings-Types-Prelude-C-43C-43 "Foreign call " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__String d x)))) e-6) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x)))) e-7) (Strings-Types-Prelude-C-43C-43 " -> " (CompileExpr-Core-show_Show__CFType e-8)))))))))) (else (let ((e-9 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "Error: " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (vector 0 ) e-9)))))))) (define LambdaLift-Compiler-show_Show__C-40LiftedConstAltC-32C-36vsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 "%constalt(" (Strings-Types-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-1) (Strings-Types-Prelude-C-43C-43 ") => " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 e-2))))))))) (define LambdaLift-Compiler-show_Show__C-40LiftedConAltC-32C-36vsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (Strings-Types-Prelude-C-43C-43 "%conalt " (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (Strings-Types-Prelude-C-43C-43 "(" (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3)) (Strings-Types-Prelude-C-43C-43 ") => " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (List-Types-Prelude-C-43C-43 'erased e-3 arg-0) e-4)))))))))))) @@ -6848,22 +6769,22 @@ (define LambdaLift-Compiler-__Impl_Show_C-40LiftedC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (x) (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 x)) (lambda (d) (lambda (x) (LambdaLift-Compiler-showPrec_Show__C-40LiftedC-32C-36vsC-41 arg-0 d x)))))) (define LambdaLift-Compiler-unload (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LambdaLift-Compiler-unload 'erased arg-1 (vector 3 arg-1 arg-2 e-2) e-3)))))))) (define LDefs-LambdaLift-Compiler-nextName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2)))) -(define LambdaLift-Compiler-makeLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-0 arg-1 arg-2 (vector 1 e-2 arg-3) e-3))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Types-Prelude-C-43C-43 'erased arg-3 arg-1) arg-0 arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (LambdaLift-Compiler-genName arg-0 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (set-box! arg-0 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (vector 0 e-0 (vector 1 (vector 0 e-6 (vector 0 arg-1 arg-3 e-5)) e-1) e-2)))))))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-2 e-6 (List-Types-Prelude-length 'erased arg-3) (LambdaLift-Compiler-n--6606-1102-allVars arg-3 arg-1 arg-4 arg-2 arg-0 arg-1)))))))))))))))))))))))))))) -(define LambdaLift-Compiler-liftExp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-6 e-7 (vector 0 ))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-1 arg-0 e-9 (vector 1 e-10 (vector 0 )) e-11))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LambdaLift-Compiler-liftExp (vector 1 e-14 arg-0) arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-13 e-14 e-5 e-6)))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((sc1 e-20)) (case (vector-ref sc1 0) ((1) (let ((e-62 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 e-19 e-62 e-5))))))))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((LambdaLift-Compiler-unload 'erased e-19 e-5 e-6) eta-0))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-23 e-24 e-25 e-5))))))))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-n--6610-1359-traverseArgs arg-0 e-28 e-31 e-30 e-29 arg-1 'erased e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-28 e-29 e-30 e-5))))))))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-35) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-33 e-34 e-5)))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 4 e-37 e-38 (vector 1 (vector 13 e-37) (vector 0 ))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 2 e-40 (vector 2 "act" 0) (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "act" 0) arg-0 e-41)))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-44) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--6610-1456-liftConAlt arg-0 e-46 e-45 e-44 e-43 arg-1 eta-1)) e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-46) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-43 e-5 e-6 e-7))))))))))))))))))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-49) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--6610-1504-liftConstAlt arg-0 e-51 e-50 e-49 e-48 arg-1 eta-1)) e-50) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-51) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 9 e-48 e-5 e-6 e-7))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-53 e-54)))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-56))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-58 e-59)))))))))) +(define LambdaLift-Compiler-makeLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-0 arg-1 arg-2 (vector 1 e-2 arg-3) e-3))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp (List-Types-Prelude-C-43C-43 'erased arg-3 arg-1) arg-0 arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (LambdaLift-Compiler-genName arg-0 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (set-box! arg-0 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (vector 0 e-0 (vector 1 (vector 0 e-6 (vector 0 arg-1 arg-3 e-5)) e-1) e-2)))))))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-2 e-6 (List-Types-Prelude-length 'erased arg-3) (LambdaLift-Compiler-n--6434-1102-allVars arg-3 arg-1 arg-4 arg-2 arg-0 arg-1)))))))))))))))))))))))))))) +(define LambdaLift-Compiler-liftExp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 1 e-6 e-7 (vector 0 ))))))) ((2) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (LambdaLift-Compiler-makeLam arg-1 arg-0 e-9 (vector 1 e-10 (vector 0 )) e-11))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((LambdaLift-Compiler-liftExp (vector 1 e-14 arg-0) arg-1 e-17) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 e-13 e-14 e-5 e-6)))))))))))))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((sc1 e-20)) (case (vector-ref sc1 0) ((1) (let ((e-62 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 1 e-19 e-62 e-5))))))))))(else (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-20) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((LambdaLift-Compiler-unload 'erased e-19 e-5 e-6) eta-0))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 e-23 e-24 e-25 e-5))))))))))))) ((6) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-n--6438-1359-traverseArgs arg-0 e-28 e-31 e-30 e-29 arg-1 'erased e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 6 e-28 e-29 e-30 e-5))))))))))))) ((7) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-35) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 7 e-33 e-34 e-5)))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 4 e-37 e-38 (vector 1 (vector 13 e-37) (vector 0 ))))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (LambdaLift-Compiler-liftExp arg-0 arg-1 (vector 2 e-40 (vector 2 "act" 0) (CompileExpr-Core-weaken_Weaken__CExp (vector 2 "act" 0) arg-0 e-41)))))) ((10) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-44) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--6438-1456-liftConAlt arg-0 e-46 e-45 e-44 e-43 arg-1 eta-1)) e-45) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-46) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 8 e-43 e-5 e-6 e-7))))))))))))))))))))))) ((11) (let ((e-48 (vector-ref sc0 1))) (let ((e-49 (vector-ref sc0 2))) (let ((e-50 (vector-ref sc0 3))) (let ((e-51 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-49) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--6438-1504-liftConstAlt arg-0 e-51 e-50 e-49 e-48 arg-1 eta-1)) e-50) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-51) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 9 e-48 e-5 e-6 e-7))))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 10 e-53 e-54)))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 11 e-56))))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 12 e-58 e-59)))))))))) (define LambdaLift-Compiler-liftBody (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.LambdaLift.Lifts" ) (vector 0 arg-1 (vector 0 ) 0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((LambdaLift-Compiler-liftExp arg-0 e-5 arg-2) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox e-5))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 e-6 (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))))))))))))))))))))) (define LambdaLift-Compiler-lambdaLiftDef (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (LambdaLift-Compiler-liftBody e-0 arg-0 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-0 (vector 0 e-0 (vector 0 ) e-2)) e-3)))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 (vector 1 e-2 e-3 e-4)) (vector 0 )))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (vector 1 (vector 0 arg-0 (vector 2 e-5 e-6 e-7)) (vector 0 )))))))) (else (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LambdaLift-Compiler-liftBody (vector 0 ) arg-0 e-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 1 (vector 1 (vector 0 arg-0 (vector 3 e-2)) e-3))))))))))))))))) (define LambdaLift-Compiler-lambdaLift (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((LambdaLift-Compiler-case--caseC-32blockC-32inC-32lambdaLift-1722 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define LambdaLift-Compiler-genName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((i (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (b+ i 1 63)))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (LambdaLift-Compiler-n--6503-988-mkName arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) i)))))))))))))) +(define LambdaLift-Compiler-genName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((i (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-0 e-1 (b+ i 1 63)))))))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (LambdaLift-Compiler-n--6331-988-mkName arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) i)))))))))))))) (define LDefs-LambdaLift-Compiler-defs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))) (define LDefs-LambdaLift-Compiler-basename (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)))) -(define Inline-Compiler-case--compileAndInlineAllC-44nonErased-4002 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 1))))))) -(define Inline-Compiler-case--caseC-32blockC-32inC-32mergeLamDef-3940 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-mergeLam arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-case--mergeLamDef-3928 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--caseC-32blockC-32inC-32mergeLamDef-3940 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-case--caseC-32blockC-32inC-32fixArityDef-3867 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArity arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-case--fixArityDef-3855 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--caseC-32blockC-32inC-32fixArityDef-3867 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-case--caseC-32blockC-32inC-32inlineDef-3794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-inline arg-1 arg-0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-case--inlineDef-3782 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--caseC-32blockC-32inC-32inlineDef-3794 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-case--mergeLam-3748 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))))) +(define Inline-Compiler-case--compileAndInlineAllC-44nonErased-3998 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 1))))))) +(define Inline-Compiler-case--caseC-32blockC-32inC-32mergeLamDef-3936 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-mergeLam arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-case--mergeLamDef-3924 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--caseC-32blockC-32inC-32mergeLamDef-3936 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-case--caseC-32blockC-32inC-32fixArityDef-3863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArity arg-1 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-case--fixArityDef-3851 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--caseC-32blockC-32inC-32fixArityDef-3863 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-case--caseC-32blockC-32inC-32inlineDef-3790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-inline arg-1 arg-0 e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-case--inlineDef-3778 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--caseC-32blockC-32inC-32inlineDef-3790 arg-0 arg-1 arg-2 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-case--mergeLam-3744 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-2 e-3)))))))) (define Inline-Compiler-case--mergeLambdas-3595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((expNs (CompileExpr-Core-substs e-2 arg-1 e-6 e-7))) (let ((newArgs (List-Data-reverse 'erased (Inline-Compiler-getNewArgs 'erased e-2 e-6)))) (let ((expLocs (CompileExpr-Core-mkLocals arg-1 newArgs (vector 0 ) (Inline-Compiler-mkBounds newArgs) expNs))) (vector 0 (List-Types-Prelude-C-43C-43 'erased arg-1 (List-Types-Prelude-C-43C-43 'erased newArgs (vector 0 ))) expLocs)))))))))))) (define Inline-Compiler-case--caseC-32blockC-32inC-32fixArityTm-3051 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((arity (Inline-Compiler-getArity e-1))) (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 arity (vector 4 arg-2 (vector 1 arg-2 arg-1) (vector 0 )) arg-3)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1))))))))) (define Inline-Compiler-case--fixArityTm-3033 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (Inline-Compiler-case--caseC-32blockC-32inC-32fixArityTm-3051 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (let ((sc1 e-1)) (let ((e-18 (vector-ref sc1 19))) e-18)))))) (else (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1))))))))) @@ -6886,11 +6807,11 @@ (define Inline-Compiler-case--used-750 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) 1) (else 0))))) (define Inline-Compiler-case--largest-697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (Inline-Compiler-largest 'erased arg-1 arg-2 arg-3)) (else (Inline-Compiler-largest 'erased arg-1 arg-4 arg-3)))))) (define Inline-Compiler-case--takeFromStack-583 (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))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 arg-2 e-2) e-3))))))) -(define Inline-Compiler-n--9498-3218-traverseArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-7 arg-5 e-3 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-n--9498-3218-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) -(define Inline-Compiler-n--10545-3984-nonErased (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 1)))))))))))))))) -(define Inline-Compiler-n--7538-2660-matches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (EqOrd-Prelude-C-61C-61_Eq__Int e-1 e-4)))(else 1))))) ((0) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((0) (Name-Core-C-61C-61_Eq__Name arg-17 arg-19))(else 1))))(else 1))))) -(define Inline-Compiler-n--9498-3389-fixArityConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-6 e-2 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))))) -(define Inline-Compiler-n--9498-3332-fixArityAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (List-Types-Prelude-C-43C-43 'erased e-3 arg-0) arg-6 e-4 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-5))))))))))))))) +(define Inline-Compiler-n--9326-3218-traverseArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-7 arg-5 e-3 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-n--9326-3218-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 1 e-5 e-6)))))))))))))))))))) +(define Inline-Compiler-n--10369-3980-nonErased (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 8))) e-7)) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 1)))))))))))))))) +(define Inline-Compiler-n--7366-2660-matches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (EqOrd-Prelude-C-61C-61_Eq__Int e-1 e-4)))(else 1))))) ((0) (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((0) (Name-Core-C-61C-61_Eq__Name arg-17 arg-19))(else 1))))(else 1))))) +(define Inline-Compiler-n--9326-3389-fixArityConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-6 e-2 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))))))))) +(define Inline-Compiler-n--9326-3332-fixArityAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (List-Types-Prelude-C-43C-43 'erased e-3 arg-0) arg-6 e-4 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-2 e-3 e-5))))))))))))))) (define Inline-Compiler-usedConst (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-2))))) (define Inline-Compiler-usedCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (Inline-Compiler-case--usedCon-1161 'erased arg-1 arg-2 e-1 e-2 e-3 e-4 'erased (TT-Core-weakenNs_Weaken__Var arg-1 e-3 arg-2))))))))) (define Inline-Compiler-used (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-case--used-750 'erased arg-1 'erased e-3 e-2 'erased arg-2 'erased (Types-Prelude-C-61C-61_Eq__Nat arg-2 e-2))))) ((2) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Inline-Compiler-used 'erased (vector 1 e-7 arg-1) (+ 1 arg-2) 'erased e-8)))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (let ((sc1 e-12)) (cond ((equal? sc1 1) (let ((usedl (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))) (Inline-Compiler-case--used-843 'erased arg-1 arg-2 e-10 e-11 e-14 e-13 'erased usedl (EqOrd-Prelude-C-62_Ord__Int usedl 0)))) ((equal? sc1 0) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-13) (Inline-Compiler-used 'erased (vector 1 e-11 arg-1) (+ 1 arg-2) 'erased e-14) 63))(else 0))))))))) ((4) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (Types-Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-17) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-18))))) ((5) (let ((e-23 (vector-ref sc0 4))) (Types-Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-23)))) ((6) (let ((e-28 (vector-ref sc0 4))) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-28)))) ((7) (let ((e-32 (vector-ref sc0 3))) (Types-Prelude-foldr_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (b+ eta-0 eta-1 63))) 0 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0)) e-32)))) ((8) (let ((e-35 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-35))) ((9) (let ((e-38 (vector-ref sc0 2))) (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-38))) ((10) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (let ((e-43 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-41) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__Int arg-5 arg-6)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (Types-Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-43) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedCon 'erased arg-1 arg-2 'erased eta-0)) e-42)) 63))))) ((11) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (b+ (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-46) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-61C-61_Eq__Int arg-5 arg-6))) (lambda (arg-5) (lambda (arg-6) (EqOrd-Prelude-C-47C-61_Eq__Int arg-5 arg-6)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (Types-Prelude-maybe 'erased 'erased (lambda () 0) (lambda () (lambda (eta-0) (Inline-Compiler-used 'erased arg-1 arg-2 'erased eta-0))) e-48) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Inline-Compiler-usedConst 'erased arg-1 arg-2 'erased eta-0)) e-47)) 63)))))(else 0))))) @@ -6900,21 +6821,21 @@ (define Inline-Compiler-takeFromStack (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-7 (vector-ref sc1 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Inline-Compiler-takeFromStack 'erased 'erased arg-2 e-4 e-7) (lambda (_-0) (let ((sc2 _-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 (vector 1 e-3 e-2) e-5)))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3)))(else (let ((sc1 arg-3)) (vector 0 )))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3)))(else (let ((sc0 arg-3)) (vector 0 )))))))))) (define Inline-Compiler-refToLocal (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Core-refsToLocals (vector 1 arg-2 (vector 0 )) arg-0 (vector 1 arg-2 arg-1 (vector 0 )) arg-3))) (define Inline-Compiler-pickConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((12) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Inline-Compiler-case--pickConstAlt-2927 arg-2 e-2 e-1 arg-1 arg-0 e-9 e-8 e-6 arg-9 arg-6 arg-5 arg-4 arg-3 (TT-Core-C-61C-61_Eq__Constant e-2 e-8)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define Inline-Compiler-pickAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-13 (vector-ref sc2 4))) (Inline-Compiler-case--pickAlt-2697 arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-n--7538-2660-matches arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 e-2 e-3 e-10 e-11)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define Inline-Compiler-pickAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 arg-8)) (case (vector-ref sc1 0) ((0) (Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-9)) ((1) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((e-13 (vector-ref sc2 4))) (Inline-Compiler-case--pickAlt-2697 arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 (Inline-Compiler-n--7366-2660-matches arg-1 e-4 e-3 e-2 e-1 e-12 arg-0 e-13 e-11 e-10 e-8 arg-9 arg-6 arg-5 arg-4 arg-3 arg-2 e-2 e-3 e-10 e-11)))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define Inline-Compiler-mkBounds (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 e-2 (Inline-Compiler-mkBounds e-3))))))))) (define Inline-Compiler-mergeLambdas (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Inline-Compiler-case--mergeLambdas-3595 e-2 arg-0 e-3 e-1 (Inline-Compiler-getLams 'erased (vector 0 ) 0 (vector 0 ) (vector 2 e-1 e-2 e-3)))))))(else (vector 0 arg-0 arg-1)))))) -(define Inline-Compiler-mergeLamDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32mergeLamDef-3940 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) -(define Inline-Compiler-mergeLam (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Inline-Compiler-case--mergeLam-3748 e-0 e-1 arg-0 (Inline-Compiler-mergeLambdas e-0 e-1)))))(else (lambda (eta-0) (vector 1 arg-1))))))) +(define Inline-Compiler-mergeLamDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32mergeLamDef-3936 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) +(define Inline-Compiler-mergeLam (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Inline-Compiler-case--mergeLam-3744 e-0 e-1 arg-0 (Inline-Compiler-mergeLambdas e-0 e-1)))))(else (lambda (eta-0) (vector 1 arg-1))))))) (define Inline-Compiler-largest (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Inline-Compiler-case--largest-697 'erased arg-1 e-2 e-3 arg-2 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 4))) ((e-4 e-2) arg-2))))))))))) -(define Inline-Compiler-inlineDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32inlineDef-3794 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) +(define Inline-Compiler-inlineDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32inlineDef-3790 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (define Inline-Compiler-inline (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-doEval e-0 arg-0 arg-1 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5)))))))))))(else (lambda (eta-0) (vector 1 arg-2))))))) (define Inline-Compiler-getNewArgs (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-2)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 2))) (vector 1 e-12 (Inline-Compiler-getNewArgs 'erased e-3 e-9))))(else (vector 1 e-2 (Inline-Compiler-getNewArgs 'erased e-3 e-9))))))))))))))) (define Inline-Compiler-getLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (Inline-Compiler-getLams 'erased (vector 1 e-2 arg-1) (b+ arg-2 1 63) (vector 1 (vector 1 e-1 (vector 2 "ext" arg-2)) arg-3) e-3)))))(else (vector 0 arg-1 (vector 0 arg-3 arg-4))))))) (define Inline-Compiler-getArity (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (List-Types-Prelude-length 'erased e-0))) ((1) (let ((e-3 (vector-ref sc0 2))) e-3)) ((2) (let ((e-6 (vector-ref sc0 2))) (List-Types-Prelude-length 'erased e-6))) (else 0))))) (define Inline-Compiler-genName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-0 (b+ e-5 1 63)))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-1 e-5))))))))))))) -(define Inline-Compiler-fixArityTm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32fixArityTm-3051 arg-0 e-3 e-2 arg-3 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-18 (vector-ref sc4 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 e-2 e-3)))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (vector 1 e-6 arg-0) arg-1 e-7 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 2 e-5 e-6 e-8) arg-3)))))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-12 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-fixArityTm (vector 1 e-10 arg-0) arg-1 e-13 (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 3 e-9 e-10 e-11 e-5 e-6) arg-3))))))))))))))))))) ((4) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Inline-Compiler-fixArityTm arg-0 arg-1 e-16 (List-Types-Prelude-C-43C-43 'erased e-5 arg-3)) eta-0)))))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-22) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-21 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-n--9498-3218-traverseArgs arg-0 e-24 e-27 e-26 e-25 arg-1 'erased arg-0 e-27) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 6 e-24 e-25 e-26 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-31) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 7 e-29 e-30 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-34 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 8 e-33 e-5) arg-3))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-37 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 9 e-36 e-5) arg-3))))))))))) ((10) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((e-42 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-40 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--9498-3332-fixArityAlt arg-0 e-42 e-41 e-40 e-39 arg-3 arg-1 eta-1)) e-41) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-42) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 10 e-39 e-5 e-6 e-7) arg-3))))))))))))))))))))))) ((11) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (let ((e-47 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-45 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--9498-3389-fixArityConstAlt arg-0 e-47 e-46 e-45 e-44 arg-3 arg-1 eta-1)) e-46) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-47) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 11 e-44 e-5 e-6 e-7) arg-3)))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3))))))))))) +(define Inline-Compiler-fixArityTm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32fixArityTm-3051 arg-0 e-3 e-2 arg-3 arg-1 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-18 (vector-ref sc4 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-3 (vector 1 e-2 e-3)))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (vector 1 e-6 arg-0) arg-1 e-7 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 2 e-5 e-6 e-8) arg-3)))))))))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (let ((e-12 (vector-ref sc0 4))) (let ((e-13 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-12 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-fixArityTm (vector 1 e-10 arg-0) arg-1 e-13 (vector 0 )) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 3 e-9 e-10 e-11 e-5 e-6) arg-3))))))))))))))))))) ((4) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-17) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Inline-Compiler-fixArityTm arg-0 arg-1 e-16 (List-Types-Prelude-C-43C-43 'erased e-5 arg-3)) eta-0)))))))))) ((5) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-22) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 5 e-19 e-20 e-21 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((6) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-n--9326-3218-traverseArgs arg-0 e-24 e-27 e-26 e-25 arg-1 'erased arg-0 e-27) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 6 e-24 e-25 e-26 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)))))))))))))) ((7) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-31) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (vector 7 e-29 e-30 e-5)))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3))))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-34 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 8 e-33 e-5) arg-3))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-37 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 9 e-36 e-5) arg-3))))))))))) ((10) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((e-42 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-40 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--9326-3332-fixArityAlt arg-0 e-42 e-41 e-40 e-39 arg-3 arg-1 eta-1)) e-41) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-42) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 10 e-39 e-5 e-6 e-7) arg-3))))))))))))))))))))))) ((11) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (let ((e-47 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-45 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--9326-3389-fixArityConstAlt arg-0 e-47 e-46 e-45 e-44 arg-3 arg-1 eta-1)) e-46) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-47) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 (vector 11 e-44 e-5 e-6 e-7) arg-3)))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2)))(else (lambda (eta-0) (vector 1 (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3))))))))))) (define Inline-Compiler-fixArityExp (lambda (arg-0 arg-1 arg-2) (Inline-Compiler-fixArityTm arg-0 arg-1 arg-2 (vector 0 )))) -(define Inline-Compiler-fixArityDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32fixArityDef-3867 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) +(define Inline-Compiler-fixArityDef (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32fixArityDef-3863 arg-1 arg-0 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-18 (vector-ref sc3 19))) e-18))) ext-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (define Inline-Compiler-fixArity (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm e-0 arg-0 e-1 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-fixArityTm (vector 0 ) arg-0 e-2 (vector 0 )) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))(else (lambda (eta-0) (vector 1 arg-1))))))) (define Inline-Compiler-extendLoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 (vector 0 ) arg-4)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-2 "cv" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-extendLoc 'erased 'erased arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-4 (vector-ref sc3 2))) (vector 1 (vector 0 (vector 1 e-2 e-5 e-7) (vector 1 (vector 1 arg-3 e-5) e-4)))))))))))))))))))))))) (define Inline-Compiler-extend (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-4)) (let ((sc2 arg-5)) arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-9 (vector-ref sc1 2))) (let ((sc2 arg-5)) (let ((e-16 (vector-ref sc2 1))) (vector 1 e-2 (Inline-Compiler-extend 'erased 'erased arg-2 e-3 e-9 e-16))))))))))))) @@ -6922,21 +6843,21 @@ (define Inline-Compiler-evalConstAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-1 e-5))))))) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))))))) (define Inline-Compiler-evalAlt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-extendLoc 'erased 'erased arg-3 arg-4 arg-6 e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((act-25 ((Inline-Compiler-eval (List-Types-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 arg-2 arg-3 arg-5 e-6 arg-7 e-4) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (vector 0 e-1 e-2 e-3 (CompileExpr-Core-refsToLocals e-3 arg-1 e-7 e-8)))))))))))))))))))))))) (define Inline-Compiler-eval (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-90 (vector-ref sc0 1))) (let ((e-91 (vector-ref sc0 2))) (Inline-Compiler-evalLocal 'erased arg-0 arg-1 arg-2 arg-3 e-91 arg-4 arg-6 arg-5 e-90 'erased))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-65 (vector-ref sc0 2))) (let ((sc1 e-65)) (case (vector-ref sc1 0) ((1) (let ((e-68 (vector-ref sc1 2))) (let ((sc2 e-68)) (case (vector-ref sc2 0) ((1) (let ((e-70 (vector-ref sc2 1))) (let ((e-71 (vector-ref sc2 2))) (let ((sc3 e-71)) (case (vector-ref sc3 0) ((1) (let ((e-73 (vector-ref sc3 1))) (let ((e-74 (vector-ref sc3 2))) (let ((sc4 e-74)) (case (vector-ref sc4 0) ((1) (let ((e-76 (vector-ref sc4 1))) (let ((e-77 (vector-ref sc4 2))) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-79 (vector-ref sc5 1))) (let ((e-80 (vector-ref sc5 2))) (let ((sc6 e-80)) (case (vector-ref sc6 0) ((0) (let ((e-81 (vector-ref sc6 1))) (let ((e-82 (vector-ref sc6 2))) (let ((sc7 e-81)) (case (vector-ref sc7 0) ((1) (let ((e-84 (vector-ref sc7 1))) (let ((e-85 (vector-ref sc7 2))) (let ((sc8 e-84)) (cond ((equal? sc8 "PrimIO") (let ((sc9 e-85)) (case (vector-ref sc9 0) ((0) (let ((sc10 e-82)) (case (vector-ref sc10 0) ((1) (let ((e-87 (vector-ref sc10 1))) (let ((sc11 e-87)) (cond ((equal? sc11 "io_bind") (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "act" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) (vector 0 ) (vector 4 e-79 e-73 (vector 1 (vector 1 e-79 e-5) (vector 1 e-76 (vector 0 ))))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased e-77 (vector 3 e-79 e-5 1 (vector 4 e-79 e-70 (vector 1 e-76 (vector 0 ))) (Inline-Compiler-refToLocal arg-1 e-5 e-5 e-6))))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((1) (let ((e-61 (vector-ref sc11 1))) (let ((e-62 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc13 e-5)) (let ((e-0 (vector-ref sc13 1))) e-0))) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((1) (let ((e-1 (vector-ref sc14 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32eval-1627 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc15 e-1)) (let ((e-18 (vector-ref sc15 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc11 arg-6)) (case (vector-ref sc11 0) ((0) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-53 (vector-ref sc12 1))) (let ((e-54 (vector-ref sc12 2))) (let ((e-55 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc11 1))) (let ((e-51 (vector-ref sc11 2))) (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((2) (let ((e-58 (vector-ref sc12 2))) (let ((e-59 (vector-ref sc12 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc12 arg-7)) (case (vector-ref sc12 0) ((3) (let ((e-1 (vector-ref sc12 1))) (let ((e-2 (vector-ref sc12 2))) (let ((e-3 (vector-ref sc12 3))) (let ((e-4 (vector-ref sc12 4))) (let ((e-5 (vector-ref sc12 5))) (let ((sc13 e-3)) (cond ((equal? sc13 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc12 2))) (let ((e-9 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc12 1))) (let ((e-12 (vector-ref sc12 2))) (let ((e-13 (vector-ref sc12 3))) (let ((e-14 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc12 1))) (let ((e-17 (vector-ref sc12 2))) (let ((e-18 (vector-ref sc12 3))) (let ((e-19 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc12 1))) (let ((e-22 (vector-ref sc12 2))) (let ((e-23 (vector-ref sc12 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((sc14 e-5)) (case (vector-ref sc14 0) ((9) (let ((e-2 (vector-ref sc14 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc12 1))) (let ((e-32 (vector-ref sc12 2))) (let ((e-33 (vector-ref sc12 3))) (let ((e-34 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc12 1))) (let ((e-37 (vector-ref sc12 2))) (let ((e-38 (vector-ref sc12 3))) (let ((e-39 (vector-ref sc12 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc17 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((1) (let ((e-61 (vector-ref sc10 1))) (let ((e-62 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc12 e-5)) (let ((e-0 (vector-ref sc12 1))) e-0))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((1) (let ((e-1 (vector-ref sc13 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32eval-1627 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc14 e-1)) (let ((e-18 (vector-ref sc14 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc10 arg-6)) (case (vector-ref sc10 0) ((0) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-53 (vector-ref sc11 1))) (let ((e-54 (vector-ref sc11 2))) (let ((e-55 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc10 1))) (let ((e-51 (vector-ref sc10 2))) (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((2) (let ((e-58 (vector-ref sc11 2))) (let ((e-59 (vector-ref sc11 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc11 arg-7)) (case (vector-ref sc11 0) ((3) (let ((e-1 (vector-ref sc11 1))) (let ((e-2 (vector-ref sc11 2))) (let ((e-3 (vector-ref sc11 3))) (let ((e-4 (vector-ref sc11 4))) (let ((e-5 (vector-ref sc11 5))) (let ((sc12 e-3)) (cond ((equal? sc12 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc11 2))) (let ((e-9 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc11 1))) (let ((e-12 (vector-ref sc11 2))) (let ((e-13 (vector-ref sc11 3))) (let ((e-14 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc11 1))) (let ((e-17 (vector-ref sc11 2))) (let ((e-18 (vector-ref sc11 3))) (let ((e-19 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-23 (vector-ref sc11 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((sc13 e-5)) (case (vector-ref sc13 0) ((9) (let ((e-2 (vector-ref sc13 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc11 1))) (let ((e-32 (vector-ref sc11 2))) (let ((e-33 (vector-ref sc11 3))) (let ((e-34 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc11 1))) (let ((e-37 (vector-ref sc11 2))) (let ((e-38 (vector-ref sc11 3))) (let ((e-39 (vector-ref sc11 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc16 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((1) (let ((e-61 (vector-ref sc9 1))) (let ((e-62 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc11 e-5)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((1) (let ((e-1 (vector-ref sc12 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32eval-1627 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc13 e-1)) (let ((e-18 (vector-ref sc13 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc9 arg-6)) (case (vector-ref sc9 0) ((0) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-53 (vector-ref sc10 1))) (let ((e-54 (vector-ref sc10 2))) (let ((e-55 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc9 1))) (let ((e-51 (vector-ref sc9 2))) (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((2) (let ((e-58 (vector-ref sc10 2))) (let ((e-59 (vector-ref sc10 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc10 arg-7)) (case (vector-ref sc10 0) ((3) (let ((e-1 (vector-ref sc10 1))) (let ((e-2 (vector-ref sc10 2))) (let ((e-3 (vector-ref sc10 3))) (let ((e-4 (vector-ref sc10 4))) (let ((e-5 (vector-ref sc10 5))) (let ((sc11 e-3)) (cond ((equal? sc11 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc10 2))) (let ((e-9 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc10 1))) (let ((e-12 (vector-ref sc10 2))) (let ((e-13 (vector-ref sc10 3))) (let ((e-14 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc10 1))) (let ((e-17 (vector-ref sc10 2))) (let ((e-18 (vector-ref sc10 3))) (let ((e-19 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc10 1))) (let ((e-22 (vector-ref sc10 2))) (let ((e-23 (vector-ref sc10 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((sc12 e-5)) (case (vector-ref sc12 0) ((9) (let ((e-2 (vector-ref sc12 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc10 1))) (let ((e-32 (vector-ref sc10 2))) (let ((e-33 (vector-ref sc10 3))) (let ((e-34 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc10 1))) (let ((e-37 (vector-ref sc10 2))) (let ((e-38 (vector-ref sc10 3))) (let ((e-39 (vector-ref sc10 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc15 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((1) (let ((e-61 (vector-ref sc8 1))) (let ((e-62 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc10 e-5)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((1) (let ((e-1 (vector-ref sc11 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32eval-1627 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc12 e-1)) (let ((e-18 (vector-ref sc12 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc8 arg-6)) (case (vector-ref sc8 0) ((0) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-53 (vector-ref sc9 1))) (let ((e-54 (vector-ref sc9 2))) (let ((e-55 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc8 1))) (let ((e-51 (vector-ref sc8 2))) (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((2) (let ((e-58 (vector-ref sc9 2))) (let ((e-59 (vector-ref sc9 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc9 arg-7)) (case (vector-ref sc9 0) ((3) (let ((e-1 (vector-ref sc9 1))) (let ((e-2 (vector-ref sc9 2))) (let ((e-3 (vector-ref sc9 3))) (let ((e-4 (vector-ref sc9 4))) (let ((e-5 (vector-ref sc9 5))) (let ((sc10 e-3)) (cond ((equal? sc10 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc9 2))) (let ((e-9 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc9 1))) (let ((e-12 (vector-ref sc9 2))) (let ((e-13 (vector-ref sc9 3))) (let ((e-14 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc9 1))) (let ((e-17 (vector-ref sc9 2))) (let ((e-18 (vector-ref sc9 3))) (let ((e-19 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc9 1))) (let ((e-22 (vector-ref sc9 2))) (let ((e-23 (vector-ref sc9 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((sc11 e-5)) (case (vector-ref sc11 0) ((9) (let ((e-2 (vector-ref sc11 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc9 1))) (let ((e-32 (vector-ref sc9 2))) (let ((e-33 (vector-ref sc9 3))) (let ((e-34 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc9 1))) (let ((e-37 (vector-ref sc9 2))) (let ((e-38 (vector-ref sc9 3))) (let ((e-39 (vector-ref sc9 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc14 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((1) (let ((e-61 (vector-ref sc7 1))) (let ((e-62 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc9 e-5)) (let ((e-0 (vector-ref sc9 1))) e-0))) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32eval-1627 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc11 e-1)) (let ((e-18 (vector-ref sc11 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc7 arg-6)) (case (vector-ref sc7 0) ((0) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-53 (vector-ref sc8 1))) (let ((e-54 (vector-ref sc8 2))) (let ((e-55 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc7 1))) (let ((e-51 (vector-ref sc7 2))) (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((2) (let ((e-58 (vector-ref sc8 2))) (let ((e-59 (vector-ref sc8 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc8 arg-7)) (case (vector-ref sc8 0) ((3) (let ((e-1 (vector-ref sc8 1))) (let ((e-2 (vector-ref sc8 2))) (let ((e-3 (vector-ref sc8 3))) (let ((e-4 (vector-ref sc8 4))) (let ((e-5 (vector-ref sc8 5))) (let ((sc9 e-3)) (cond ((equal? sc9 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc8 2))) (let ((e-9 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc8 1))) (let ((e-12 (vector-ref sc8 2))) (let ((e-13 (vector-ref sc8 3))) (let ((e-14 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc8 1))) (let ((e-17 (vector-ref sc8 2))) (let ((e-18 (vector-ref sc8 3))) (let ((e-19 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc8 1))) (let ((e-22 (vector-ref sc8 2))) (let ((e-23 (vector-ref sc8 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((sc10 e-5)) (case (vector-ref sc10 0) ((9) (let ((e-2 (vector-ref sc10 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((e-33 (vector-ref sc8 3))) (let ((e-34 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc8 1))) (let ((e-37 (vector-ref sc8 2))) (let ((e-38 (vector-ref sc8 3))) (let ((e-39 (vector-ref sc8 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc13 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((1) (let ((e-61 (vector-ref sc6 1))) (let ((e-62 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc8 e-5)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32eval-1627 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc10 e-1)) (let ((e-18 (vector-ref sc10 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc6 arg-6)) (case (vector-ref sc6 0) ((0) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-53 (vector-ref sc7 1))) (let ((e-54 (vector-ref sc7 2))) (let ((e-55 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc6 1))) (let ((e-51 (vector-ref sc6 2))) (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((2) (let ((e-58 (vector-ref sc7 2))) (let ((e-59 (vector-ref sc7 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc7 arg-7)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((e-3 (vector-ref sc7 3))) (let ((e-4 (vector-ref sc7 4))) (let ((e-5 (vector-ref sc7 5))) (let ((sc8 e-3)) (cond ((equal? sc8 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc7 2))) (let ((e-9 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc7 1))) (let ((e-12 (vector-ref sc7 2))) (let ((e-13 (vector-ref sc7 3))) (let ((e-14 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc7 1))) (let ((e-17 (vector-ref sc7 2))) (let ((e-18 (vector-ref sc7 3))) (let ((e-19 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc7 1))) (let ((e-22 (vector-ref sc7 2))) (let ((e-23 (vector-ref sc7 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((sc9 e-5)) (case (vector-ref sc9 0) ((9) (let ((e-2 (vector-ref sc9 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc7 1))) (let ((e-32 (vector-ref sc7 2))) (let ((e-33 (vector-ref sc7 3))) (let ((e-34 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc7 1))) (let ((e-37 (vector-ref sc7 2))) (let ((e-38 (vector-ref sc7 3))) (let ((e-39 (vector-ref sc7 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc12 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-6 (vector-ref sc8 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (let ((e-19 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((1) (let ((e-61 (vector-ref sc5 1))) (let ((e-62 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((1) (let ((e-1 (vector-ref sc8 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32eval-1627 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc9 e-1)) (let ((e-18 (vector-ref sc9 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc5 arg-6)) (case (vector-ref sc5 0) ((0) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-53 (vector-ref sc6 1))) (let ((e-54 (vector-ref sc6 2))) (let ((e-55 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-6 (vector-ref sc8 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (let ((e-19 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc5 1))) (let ((e-51 (vector-ref sc5 2))) (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((2) (let ((e-58 (vector-ref sc6 2))) (let ((e-59 (vector-ref sc6 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc6 arg-7)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (let ((e-2 (vector-ref sc6 2))) (let ((e-3 (vector-ref sc6 3))) (let ((e-4 (vector-ref sc6 4))) (let ((e-5 (vector-ref sc6 5))) (let ((sc7 e-3)) (cond ((equal? sc7 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc8 act-24)) (case (vector-ref sc8 0) ((0) (let ((e-6 (vector-ref sc8 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc9 act-25)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc6 2))) (let ((e-9 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc6 1))) (let ((e-12 (vector-ref sc6 2))) (let ((e-13 (vector-ref sc6 3))) (let ((e-14 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc6 1))) (let ((e-17 (vector-ref sc6 2))) (let ((e-18 (vector-ref sc6 3))) (let ((e-19 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc6 1))) (let ((e-22 (vector-ref sc6 2))) (let ((e-23 (vector-ref sc6 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((sc8 e-5)) (case (vector-ref sc8 0) ((9) (let ((e-2 (vector-ref sc8 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc6 1))) (let ((e-32 (vector-ref sc6 2))) (let ((e-33 (vector-ref sc6 3))) (let ((e-34 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc6 1))) (let ((e-37 (vector-ref sc6 2))) (let ((e-38 (vector-ref sc6 3))) (let ((e-39 (vector-ref sc6 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc10 act-26)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc11 act-27)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc11 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (let ((e-19 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((1) (let ((e-61 (vector-ref sc4 1))) (let ((e-62 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32eval-1627 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc8 e-1)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-53 (vector-ref sc5 1))) (let ((e-54 (vector-ref sc5 2))) (let ((e-55 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (let ((e-19 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc4 1))) (let ((e-51 (vector-ref sc4 2))) (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((2) (let ((e-58 (vector-ref sc5 2))) (let ((e-59 (vector-ref sc5 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (let ((e-2 (vector-ref sc5 2))) (let ((e-3 (vector-ref sc5 3))) (let ((e-4 (vector-ref sc5 4))) (let ((e-5 (vector-ref sc5 5))) (let ((sc6 e-3)) (cond ((equal? sc6 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc7 act-24)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc8 act-25)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc5 1))) (let ((e-12 (vector-ref sc5 2))) (let ((e-13 (vector-ref sc5 3))) (let ((e-14 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc5 1))) (let ((e-17 (vector-ref sc5 2))) (let ((e-18 (vector-ref sc5 3))) (let ((e-19 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc5 1))) (let ((e-22 (vector-ref sc5 2))) (let ((e-23 (vector-ref sc5 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((sc7 e-5)) (case (vector-ref sc7 0) ((9) (let ((e-2 (vector-ref sc7 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc5 1))) (let ((e-32 (vector-ref sc5 2))) (let ((e-33 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc5 1))) (let ((e-37 (vector-ref sc5 2))) (let ((e-38 (vector-ref sc5 3))) (let ((e-39 (vector-ref sc5 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc9 act-26)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc10 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((1) (let ((e-61 (vector-ref sc3 1))) (let ((e-62 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32eval-1627 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc7 e-1)) (let ((e-18 (vector-ref sc7 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((0) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-53 (vector-ref sc4 1))) (let ((e-54 (vector-ref sc4 2))) (let ((e-55 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc3 1))) (let ((e-51 (vector-ref sc3 2))) (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((2) (let ((e-58 (vector-ref sc4 2))) (let ((e-59 (vector-ref sc4 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc4 arg-7)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((e-5 (vector-ref sc4 5))) (let ((sc5 e-3)) (cond ((equal? sc5 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc6 act-24)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc7 act-25)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc4 2))) (let ((e-9 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-13 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc4 1))) (let ((e-17 (vector-ref sc4 2))) (let ((e-18 (vector-ref sc4 3))) (let ((e-19 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc4 1))) (let ((e-22 (vector-ref sc4 2))) (let ((e-23 (vector-ref sc4 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((sc6 e-5)) (case (vector-ref sc6 0) ((9) (let ((e-2 (vector-ref sc6 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc4 1))) (let ((e-32 (vector-ref sc4 2))) (let ((e-33 (vector-ref sc4 3))) (let ((e-34 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((e-38 (vector-ref sc4 3))) (let ((e-39 (vector-ref sc4 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc8 act-26)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc9 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((1) (let ((e-61 (vector-ref sc2 1))) (let ((e-62 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32eval-1627 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc6 e-1)) (let ((e-18 (vector-ref sc6 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((0) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-53 (vector-ref sc3 1))) (let ((e-54 (vector-ref sc3 2))) (let ((e-55 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc2 1))) (let ((e-51 (vector-ref sc2 2))) (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((2) (let ((e-58 (vector-ref sc3 2))) (let ((e-59 (vector-ref sc3 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc3 arg-7)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 3))) (let ((e-4 (vector-ref sc3 4))) (let ((e-5 (vector-ref sc3 5))) (let ((sc4 e-3)) (cond ((equal? sc4 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc5 act-24)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc3 2))) (let ((e-9 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc3 1))) (let ((e-17 (vector-ref sc3 2))) (let ((e-18 (vector-ref sc3 3))) (let ((e-19 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc3 1))) (let ((e-22 (vector-ref sc3 2))) (let ((e-23 (vector-ref sc3 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (case (vector-ref sc5 0) ((9) (let ((e-2 (vector-ref sc5 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc3 1))) (let ((e-32 (vector-ref sc3 2))) (let ((e-33 (vector-ref sc3 3))) (let ((e-34 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc3 1))) (let ((e-37 (vector-ref sc3 2))) (let ((e-38 (vector-ref sc3 3))) (let ((e-39 (vector-ref sc3 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc8 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-61 (vector-ref sc1 1))) (let ((e-62 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32eval-1627 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc5 e-1)) (let ((e-18 (vector-ref sc5 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-53 (vector-ref sc2 1))) (let ((e-54 (vector-ref sc2 2))) (let ((e-55 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((2) (let ((e-58 (vector-ref sc2 2))) (let ((e-59 (vector-ref sc2 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc2 arg-7)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-5 (vector-ref sc2 5))) (let ((sc3 e-3)) (cond ((equal? sc3 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-14 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 3))) (let ((e-19 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc2 1))) (let ((e-22 (vector-ref sc2 2))) (let ((e-23 (vector-ref sc2 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((9) (let ((e-2 (vector-ref sc4 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc2 1))) (let ((e-32 (vector-ref sc2 2))) (let ((e-33 (vector-ref sc2 3))) (let ((e-34 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (let ((e-38 (vector-ref sc2 3))) (let ((e-39 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc7 act-27)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc7 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 e-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((9) (let ((e-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (let ((e-39 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-61 (vector-ref sc0 1))) (let ((e-62 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-62 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((Inline-Compiler-case--caseC-32blockC-32inC-32eval-1627 arg-0 arg-1 e-62 e-61 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 e-1 _-0 (let ((sc4 e-1)) (let ((e-18 (vector-ref sc4 19))) e-18))) eta-0)))) (else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))))))))))))))))))))(else (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-53 (vector-ref sc1 1))) (let ((e-54 (vector-ref sc1 2))) (let ((e-55 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-54 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-53 e-5) arg-5) (vector 0 ) e-55) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))))))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 e-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((9) (let ((e-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (let ((e-39 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))) ((1) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((2) (let ((e-58 (vector-ref sc1 2))) (let ((e-59 (vector-ref sc1 3))) (Inline-Compiler-eval (vector 1 e-58 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 e-50 arg-5) e-51 e-59))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 5))) (let ((sc2 e-3)) (cond ((equal? sc2 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (let ((e-13 (vector-ref sc1 3))) (let ((e-14 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 3))) (let ((e-19 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc1 1))) (let ((e-22 (vector-ref sc1 2))) (let ((e-23 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((9) (let ((e-2 (vector-ref sc3 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc1 1))) (let ((e-37 (vector-ref sc1 2))) (let ((e-38 (vector-ref sc1 3))) (let ((e-39 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc6 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47)))))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 e-3)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 ((Inline-Compiler-eval (vector 1 e-2 arg-0) arg-1 arg-2 arg-3 arg-4 (vector 1 (vector 1 e-1 e-6) arg-5) (vector 0 ) e-5) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 3 e-1 e-2 1 e-8 (Inline-Compiler-refToLocal arg-1 e-6 e-2 e-7))))))))))))))))))))) (else (let ((u (Inline-Compiler-used 'erased (vector 1 e-2 (List-Types-Prelude-C-43C-43 'erased arg-0 arg-1)) 0 'erased e-5))) (Inline-Compiler-case--eval-1920 e-2 arg-1 arg-0 e-5 e-4 e-1 arg-6 arg-5 arg-4 arg-3 arg-2 u (EqOrd-Prelude-C-60_Ord__Int u 1)))))))))))) ((4) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (List-Types-Prelude-C-43C-43 'erased e-5 arg-6) e-8) eta-0)))))))))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5)))))))))))))) ((6) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverseVect 'erased 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5)))))))))))))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) eta-1)) e-23) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))))))))))))) ((8) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((9) (let ((e-2 (vector-ref sc2 2))) ((Inline-Compiler-eval (vector 0 ) arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6 e-2) eta-0)))(else (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))))))))))))))) ((9) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5)))))))))))) ((10) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-pickAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-33 e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-34) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalAlt arg-0 arg-1 arg-2 arg-3 e-31 arg-4 arg-5 arg-6 eta-1)) e-33) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 10 e-31 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((11) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (let ((e-38 (vector-ref sc0 3))) (let ((e-39 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Inline-Compiler-pickConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-38 e-39) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-39) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-evalConstAlt arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-38) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 11 e-36 e-5 e-8 e-7))))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))))))) ((13) (let ((e-44 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44)))))) (else (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))))))))))))))))))))))) -(define Inline-Compiler-doEval (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.Inline.LVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-log arg-1 "compiler.inline.eval" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Types-Prelude-C-43C-43 ": " (CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 arg-0 arg-3))))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Inline-Compiler-eval (vector 0 ) arg-0 arg-1 e-5 (vector 0 ) (vector 0 ) (vector 0 ) arg-3) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Context-Core-log arg-1 "compiler.inline.eval" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Inlined: " (CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 arg-0 e-7)))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))))))))))))))) -(define Inline-Compiler-compileAndInlineAll (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((ns (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-21 (vector-ref sc1 22))) e-21))))) (let ((act-25 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-n--10545-3984-nonErased arg-0 eta-0 eta-1))) ns) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-compileDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) ext-0)))))))))))))))))))))))))))))))))))))) +(define Inline-Compiler-doEval (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Compiler.Inline.LVar" ) 0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) (Strings-Types-Prelude-C-43C-43 ": " (CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 arg-0 arg-3)))) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((Inline-Compiler-eval (vector 0 ) arg-0 arg-1 e-5 (vector 0 ) (vector 0 ) (vector 0 ) arg-3) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Inlined: " (CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 arg-0 e-7))) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 e-7))))))))))))))))))))) +(define Inline-Compiler-compileAndInlineAll (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((ns (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-21 (vector-ref sc1 22))) e-21))))) (let ((act-25 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-n--10369-3980-nonErased arg-0 eta-0 eta-1))) ns) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CompileExpr-Compiler-compileDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-inlineDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-mergeLamDef arg-0 eta-0 eta-1))) e-6) ext-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-fixArityDef arg-0 eta-0 eta-1))) e-6) ext-0)))))))))))))))))))))))))))))))))))))) (define Inline-Compiler-Stack (lambda (arg-0) (vector "Prelude.Types.List" (vector "Core.CompileExpr.CExp" arg-0)))) -(define Terminal-Render-Prettyprinter-PrettyPrint-Text-case--renderString-6945 (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) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (ST-Monad-Control-map_Functor__C-40STC-32C-36sC-41 'erased 'erased 'erased eta-2 eta-3 eta-4)))))) (lambda (eta-0) (vector 1 eta-0)) (lambda (eta-0) (unbox arg-3))))(else (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0)))))))(else (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0))))))) -(define Terminal-Render-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32renderStringC-44go-6841 (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) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6544-writeOutput arg-0 'erased arg-3 (SGR-ANSI-Control-escapeSGR (vector 1 (vector 0 ) e-1)) eta-1)) (lambda (_-6866) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6545-go arg-0 'erased arg-4 arg-3 arg-2)) eta-0)))) (else (lambda (eta-0) (set-box! arg-4 (vector 0 )))))))) -(define Terminal-Render-Prettyprinter-PrettyPrint-Text-case--renderStringC-44go-6816 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-0) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6542-peek arg-0 'erased arg-4 eta-0)) (lambda (_-0) (let ((sc0 _-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6544-writeOutput arg-0 'erased arg-3 (SGR-ANSI-Control-escapeSGR (vector 1 (vector 0 ) e-1)) eta-1)) (lambda (_-6866) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6545-go arg-0 'erased arg-4 arg-3 arg-2)) eta-0)))) (else (lambda (eta-0) (set-box! arg-4 (vector 0 ))))))) ext-0))) -(define Terminal-Render-Prettyprinter-PrettyPrint-Text-case--renderStringC-44go-6743 (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 ((newStyle (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 e-1))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6541-push arg-0 'erased arg-5 newStyle eta-1)) (lambda (_-6769) (lambda (eta-1) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-2) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6544-writeOutput arg-0 'erased arg-4 (SGR-ANSI-Control-escapeSGR newStyle) eta-2)) (lambda (_-6778) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6545-go arg-0 'erased arg-5 arg-4 arg-3)) eta-1))) eta-0))))) (else (lambda (eta-0) (set-box! arg-5 (vector 0 )))))))) -(define Terminal-Render-Prettyprinter-PrettyPrint-Text-case--renderStringC-44pop-6618 (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))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (set-box! arg-2 e-2)) (lambda (_-6635) (lambda (eta-1) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 1 e-1) eta-1))) eta-0))))) (else (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0))))))) -(define Terminal-Render-Prettyprinter-PrettyPrint-Text-case--renderStringC-44peek-6573 (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) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 1 e-1) eta-0)))) (else (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0))))))) -(define Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6544-writeOutput (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (ST-Monad-Control-modifySTRef 'erased 'erased arg-2 (lambda (arg-4) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-4 arg-3)) ext-0))) -(define Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6541-push (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (ST-Monad-Control-modifySTRef 'erased 'erased arg-2 (lambda (arg-4) (vector 1 arg-3 arg-4)) ext-0))) -(define Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6543-pop (lambda (arg-0 arg-1 arg-2 ext-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-0) (unbox arg-2)) (lambda (_-0) (let ((sc0 _-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (set-box! arg-2 e-2)) (lambda (_-6635) (lambda (eta-1) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 1 e-1) eta-1))) eta-0))))) (else (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0)))))) ext-0))) -(define Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6542-peek (lambda (arg-0 arg-1 arg-2 ext-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-0) (unbox arg-2)) (lambda (_-0) (let ((sc0 _-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 1 e-1) eta-0)))) (else (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0)))))) ext-0))) -(define Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6545-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6544-writeOutput arg-0 'erased arg-3 (Strings-Data-singleton e-2) eta-1)) (lambda (_-6690) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6545-go arg-0 'erased arg-2 arg-3 (e-3))) eta-0))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6544-writeOutput arg-0 'erased arg-3 e-6 eta-1)) (lambda (_-6705) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6545-go arg-0 'erased arg-2 arg-3 (e-7))) eta-0))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6544-writeOutput arg-0 'erased arg-3 (Types-Prelude-C-60C-43C-62_Semigroup__String (Strings-Data-singleton (integer->char 10)) (Doc-Prettyprinter-PrettyPrint-Text-textSpaces e-9)) eta-1)) (lambda (_-6722) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6545-go arg-0 'erased arg-2 arg-3 e-10)) eta-0))))) ((4) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6542-peek arg-0 'erased arg-2 eta-1)) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((newStyle (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased e-12 e-1))) (lambda (eta-1) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-2) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6541-push arg-0 'erased arg-2 newStyle eta-2)) (lambda (_-6769) (lambda (eta-2) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-3) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6544-writeOutput arg-0 'erased arg-3 (SGR-ANSI-Control-escapeSGR newStyle) eta-3)) (lambda (_-6778) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6545-go arg-0 'erased arg-2 arg-3 e-13)) eta-2))) eta-1))))) (else (lambda (eta-1) (set-box! arg-2 (vector 0 ))))))) eta-0))))) (else (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6543-pop arg-0 'erased arg-2 eta-1)) (lambda (_-0) (lambda (eta-1) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-2) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6542-peek arg-0 'erased arg-2 eta-2)) (lambda (_-1) (let ((sc1 _-1)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (lambda (eta-2) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-3) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6544-writeOutput arg-0 'erased arg-3 (SGR-ANSI-Control-escapeSGR (vector 1 (vector 0 ) e-1)) eta-3)) (lambda (_-6866) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6545-go arg-0 'erased arg-2 arg-3 e-15)) eta-2)))) (else (lambda (eta-2) (set-box! arg-2 (vector 0 ))))))) eta-1))) eta-0)))))))) -(define Terminal-Render-Prettyprinter-PrettyPrint-Text-renderString (lambda (arg-0) (Maybe-Data-fromMaybe 'erased (lambda () "") (ST-Monad-Control-runST 'erased (lambda (s-6891) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (ST-Monad-Control-newSTRef 'erased 'erased (vector 1 (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased) (vector 0 )) eta-1)) (lambda (styleStackRef) (lambda (eta-1) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-2) (ST-Monad-Control-newSTRef 'erased 'erased (Types-Prelude-neutral_Monoid__String) eta-2)) (lambda (outputRef) (lambda (eta-2) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2434-6545-go arg-0 'erased styleStackRef outputRef arg-0) (lambda (_-6927) (lambda (eta-3) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-4) (unbox styleStackRef)) (lambda (lcase-0) (let ((sc0 lcase-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-4) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-4))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (ST-Monad-Control-map_Functor__C-40STC-32C-36sC-41 'erased 'erased 'erased eta-6 eta-7 eta-8)))))) (lambda (eta-4) (vector 1 eta-4)) (lambda (eta-4) (unbox outputRef))))(else (lambda (eta-4) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-4)))))))(else (lambda (eta-4) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-4)))))) eta-3))) eta-2))) eta-1))) eta-0))))))) +(define Terminal-Render-Prettyprinter-PrettyPrint-Text-case--renderString-6951 (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) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (ST-Monad-Control-map_Functor__C-40STC-32C-36sC-41 'erased 'erased 'erased eta-2 eta-3 eta-4)))))) (lambda (eta-0) (vector 1 eta-0)) (lambda (eta-0) (unbox arg-3))))(else (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0)))))))(else (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0))))))) +(define Terminal-Render-Prettyprinter-PrettyPrint-Text-case--caseC-32blockC-32inC-32renderStringC-44go-6847 (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) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6550-writeOutput arg-0 'erased arg-3 (SGR-ANSI-Control-escapeSGR (vector 1 (vector 0 ) e-1)) eta-1)) (lambda (_-6872) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6551-go arg-0 'erased arg-4 arg-3 arg-2)) eta-0)))) (else (lambda (eta-0) (set-box! arg-4 (vector 0 )))))))) +(define Terminal-Render-Prettyprinter-PrettyPrint-Text-case--renderStringC-44go-6822 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-0) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6548-peek arg-0 'erased arg-4 eta-0)) (lambda (_-0) (let ((sc0 _-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6550-writeOutput arg-0 'erased arg-3 (SGR-ANSI-Control-escapeSGR (vector 1 (vector 0 ) e-1)) eta-1)) (lambda (_-6872) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6551-go arg-0 'erased arg-4 arg-3 arg-2)) eta-0)))) (else (lambda (eta-0) (set-box! arg-4 (vector 0 ))))))) ext-0))) +(define Terminal-Render-Prettyprinter-PrettyPrint-Text-case--renderStringC-44go-6749 (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 ((newStyle (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 e-1))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6547-push arg-0 'erased arg-5 newStyle eta-1)) (lambda (_-6775) (lambda (eta-1) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-2) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6550-writeOutput arg-0 'erased arg-4 (SGR-ANSI-Control-escapeSGR newStyle) eta-2)) (lambda (_-6784) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6551-go arg-0 'erased arg-5 arg-4 arg-3)) eta-1))) eta-0))))) (else (lambda (eta-0) (set-box! arg-5 (vector 0 )))))))) +(define Terminal-Render-Prettyprinter-PrettyPrint-Text-case--renderStringC-44pop-6624 (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))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (set-box! arg-2 e-2)) (lambda (_-6641) (lambda (eta-1) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 1 e-1) eta-1))) eta-0))))) (else (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0))))))) +(define Terminal-Render-Prettyprinter-PrettyPrint-Text-case--renderStringC-44peek-6579 (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) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 1 e-1) eta-0)))) (else (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0))))))) +(define Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6550-writeOutput (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (ST-Monad-Control-modifySTRef 'erased 'erased arg-2 (lambda (arg-4) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-4 arg-3)) ext-0))) +(define Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6547-push (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (ST-Monad-Control-modifySTRef 'erased 'erased arg-2 (lambda (arg-4) (vector 1 arg-3 arg-4)) ext-0))) +(define Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6549-pop (lambda (arg-0 arg-1 arg-2 ext-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-0) (unbox arg-2)) (lambda (_-0) (let ((sc0 _-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (set-box! arg-2 e-2)) (lambda (_-6641) (lambda (eta-1) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 1 e-1) eta-1))) eta-0))))) (else (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0)))))) ext-0))) +(define Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6548-peek (lambda (arg-0 arg-1 arg-2 ext-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-0) (unbox arg-2)) (lambda (_-0) (let ((sc0 _-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 1 e-1) eta-0)))) (else (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0)))))) ext-0))) +(define Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6551-go (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-0))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6550-writeOutput arg-0 'erased arg-3 (Strings-Data-singleton e-2) eta-1)) (lambda (_-6696) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6551-go arg-0 'erased arg-2 arg-3 (e-3))) eta-0))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6550-writeOutput arg-0 'erased arg-3 e-6 eta-1)) (lambda (_-6711) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6551-go arg-0 'erased arg-2 arg-3 (e-7))) eta-0))))) ((3) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6550-writeOutput arg-0 'erased arg-3 (Types-Prelude-C-60C-43C-62_Semigroup__String (Strings-Data-singleton (integer->char 10)) (Doc-Prettyprinter-PrettyPrint-Text-textSpaces e-9)) eta-1)) (lambda (_-6728) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6551-go arg-0 'erased arg-2 arg-3 e-10)) eta-0))))) ((4) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6548-peek arg-0 'erased arg-2 eta-1)) (lambda (_-0) (let ((sc1 _-0)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((newStyle (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased e-12 e-1))) (lambda (eta-1) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-2) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6547-push arg-0 'erased arg-2 newStyle eta-2)) (lambda (_-6775) (lambda (eta-2) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-3) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6550-writeOutput arg-0 'erased arg-3 (SGR-ANSI-Control-escapeSGR newStyle) eta-3)) (lambda (_-6784) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6551-go arg-0 'erased arg-2 arg-3 e-13)) eta-2))) eta-1))))) (else (lambda (eta-1) (set-box! arg-2 (vector 0 ))))))) eta-0))))) (else (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6549-pop arg-0 'erased arg-2 eta-1)) (lambda (_-0) (lambda (eta-1) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-2) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6548-peek arg-0 'erased arg-2 eta-2)) (lambda (_-1) (let ((sc1 _-1)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (lambda (eta-2) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-3) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6550-writeOutput arg-0 'erased arg-3 (SGR-ANSI-Control-escapeSGR (vector 1 (vector 0 ) e-1)) eta-3)) (lambda (_-6872) (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6551-go arg-0 'erased arg-2 arg-3 e-15)) eta-2)))) (else (lambda (eta-2) (set-box! arg-2 (vector 0 ))))))) eta-1))) eta-0)))))))) +(define Terminal-Render-Prettyprinter-PrettyPrint-Text-renderString (lambda (arg-0) (Maybe-Data-fromMaybe 'erased (lambda () "") (ST-Monad-Control-runST 'erased (lambda (s-6897) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-1) (ST-Monad-Control-newSTRef 'erased 'erased (vector 1 (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased) (vector 0 )) eta-1)) (lambda (styleStackRef) (lambda (eta-1) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-2) (ST-Monad-Control-newSTRef 'erased 'erased (Types-Prelude-neutral_Monoid__String) eta-2)) (lambda (outputRef) (lambda (eta-2) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (Terminal-Render-Prettyprinter-PrettyPrint-Text-n--2325-6551-go arg-0 'erased styleStackRef outputRef arg-0) (lambda (_-6933) (lambda (eta-3) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-4) (unbox styleStackRef)) (lambda (lcase-0) (let ((sc0 lcase-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-4) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-4))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (ST-Monad-Control-map_Functor__C-40STC-32C-36sC-41 'erased 'erased 'erased eta-6 eta-7 eta-8)))))) (lambda (eta-4) (vector 1 eta-4)) (lambda (eta-4) (unbox outputRef))))(else (lambda (eta-4) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-4)))))))(else (lambda (eta-4) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (vector 0 ) eta-4)))))) eta-3))) eta-2))) eta-1))) eta-0))))))) (define Terminal-Render-Prettyprinter-PrettyPrint-Text-color (lambda (arg-0) (Types-Prelude-pure_Applicative__List 'erased (vector 1 arg-0)))) (define Terminal-Render-Prettyprinter-PrettyPrint-Text-bold (lambda () (Types-Prelude-pure_Applicative__List 'erased (vector 3 (vector 0 ))))) (define Terminal-Render-Prettyprinter-PrettyPrint-Text-AnsiStyle (lambda () (vector "Prelude.Types.List" (vector "Control.ANSI.SGR.SGR" )))) @@ -6945,76 +6866,76 @@ (define ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 (lambda (arg-0 arg-1 ext-0 ext-1) ext-0)) (define ST-Monad-Control-map_Functor__C-40STC-32C-36sC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased arg-4 (lambda (bind-0) (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (arg-3 bind-0) eta-0))) ext-0))) (define ST-Monad-Control-join_Monad__C-40STC-32C-36sC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased arg-2 (lambda (eta-0) eta-0) ext-0))) -(define ST-Monad-Control-__Impl_Monad_C-40STC-32C-36sC-41 (lambda (arg-0) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (ST-Monad-Control-map_Functor__C-40STC-32C-36sC-41 'erased 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased arg-155 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (ST-Monad-Control-C-60C-42C-62_Applicative__C-40STC-32C-36sC-41 'erased 'erased 'erased arg-156 arg-158 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased arg-317 arg-318 eta-0)))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (ST-Monad-Control-join_Monad__C-40STC-32C-36sC-41 'erased 'erased arg-320 eta-0))))))) +(define ST-Monad-Control-__Impl_Monad_C-40STC-32C-36sC-41 (lambda (arg-0) (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (ST-Monad-Control-map_Functor__C-40STC-32C-36sC-41 'erased 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased arg-112 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (ST-Monad-Control-C-60C-42C-62_Applicative__C-40STC-32C-36sC-41 'erased 'erased 'erased arg-113 arg-115 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased arg-274 arg-275 eta-0)))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (ST-Monad-Control-join_Monad__C-40STC-32C-36sC-41 'erased 'erased arg-277 eta-0))))))) (define ST-Monad-Control-__Impl_Functor_C-40STC-32C-36sC-41 (lambda (arg-0 ext-4 ext-1 ext-2 ext-3 ext-0) (ST-Monad-Control-map_Functor__C-40STC-32C-36sC-41 'erased 'erased 'erased ext-2 ext-3 ext-0))) -(define ST-Monad-Control-__Impl_Applicative_C-40STC-32C-36sC-41 (lambda (arg-0) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (ST-Monad-Control-map_Functor__C-40STC-32C-36sC-41 'erased 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased arg-155 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (ST-Monad-Control-C-60C-42C-62_Applicative__C-40STC-32C-36sC-41 'erased 'erased 'erased arg-156 arg-158 eta-0))))))))) +(define ST-Monad-Control-__Impl_Applicative_C-40STC-32C-36sC-41 (lambda (arg-0) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (ST-Monad-Control-map_Functor__C-40STC-32C-36sC-41 'erased 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased arg-112 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (ST-Monad-Control-C-60C-42C-62_Applicative__C-40STC-32C-36sC-41 'erased 'erased 'erased arg-113 arg-115 eta-0))))))))) (define ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (arg-3 ext-0))) ((ST-Monad-Control-case--C-62C-62C-61-585 'erased 'erased 'erased arg-3 arg-4 act-24 (arg-4 act-24)) ext-0)))) (define ST-Monad-Control-C-60C-42C-62_Applicative__C-40STC-32C-36sC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased arg-3 (lambda (bind-0) (lambda (eta-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased arg-4 (lambda (bind-1) (lambda (eta-1) (ST-Monad-Control-pure_Applicative__C-40STC-32C-36sC-41 'erased 'erased (bind-0 bind-1) eta-1))) eta-0))) ext-0))) (define ST-Monad-Control-writeSTRef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (set-box! arg-2 arg-3))) (define ST-Monad-Control-runST (lambda (arg-0 arg-1) (ST-Monad-Control-case--runST-356 'erased arg-1 (arg-1 'erased)))) (define ST-Monad-Control-readSTRef (lambda (arg-0 arg-1 arg-2 ext-0) (unbox arg-2))) -(define ST-Monad-Control-newSTRef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((IORef-Data-newIORef 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-2) ext-0))) act-24))) +(define ST-Monad-Control-newSTRef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((IORef-Data-newIORef 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-2) ext-0))) act-24))) (define ST-Monad-Control-modifySTRef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (ST-Monad-Control-C-62C-62C-61_Monad__C-40STC-32C-36sC-41 'erased 'erased 'erased (lambda (eta-0) (unbox arg-2)) (lambda (val) (lambda (eta-0) (set-box! arg-2 (arg-3 val)))) ext-0))) -(define SGR-ANSI-Control-n--2006-3561-toCode (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) "0") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "38;5;" (SGR-ANSI-Control-cast_Cast__Color_String e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "48;5;" (SGR-ANSI-Control-cast_Cast__Color_String e-1)))) ((3) (let ((e-2 (vector-ref sc0 1))) (SGR-ANSI-Control-cast_Cast__Style_String e-2))) (else (let ((e-3 (vector-ref sc0 1))) (SGR-ANSI-Control-cast_Cast__Blink_String e-3))))))) +(define SGR-ANSI-Control-n--1897-3561-toCode (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) "0") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "38;5;" (SGR-ANSI-Control-cast_Cast__Color_String e-0)))) ((2) (let ((e-1 (vector-ref sc0 1))) (Strings-Types-Prelude-C-43C-43 "48;5;" (SGR-ANSI-Control-cast_Cast__Color_String e-1)))) ((3) (let ((e-2 (vector-ref sc0 1))) (SGR-ANSI-Control-cast_Cast__Style_String e-2))) (else (let ((e-3 (vector-ref sc0 1))) (SGR-ANSI-Control-cast_Cast__Blink_String e-3))))))) (define SGR-ANSI-Control-cast_Cast__Style_String (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "1") ((1) "2") ((2) "22") ((3) "3") ((4) "4") ((5) "21") ((6) "24") ((7) "9") (else "29"))))) (define SGR-ANSI-Control-cast_Cast__Color_String (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "0") ((1) "1") ((2) "2") ((3) "3") ((4) "4") ((5) "5") ((6) "6") ((7) "7") ((8) "8") ((9) "9") ((10) "10") ((11) "11") ((12) "12") ((13) "13") ((14) "14") (else "15"))))) (define SGR-ANSI-Control-cast_Cast__Blink_String (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "5") ((1) "6") (else "25"))))) -(define SGR-ANSI-Control-escapeSGR (lambda (arg-0) (Strings-Types-Prelude-C-43C-43 "\u001b[" (Strings-Types-Prelude-C-43C-43 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased ";" (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (SGR-ANSI-Control-n--2006-3561-toCode arg-0 eta-0)) arg-0))) "m")))) +(define SGR-ANSI-Control-escapeSGR (lambda (arg-0) (Strings-Types-Prelude-C-43C-43 "\u001b[" (Strings-Types-Prelude-C-43C-43 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased ";" (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (SGR-ANSI-Control-n--1897-3561-toCode arg-0 eta-0)) arg-0))) "m")))) (define Version-Idris-with--version-3457 (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--showVersion-3535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Version-Idris-n--1893-3485-showTag arg-0 arg-1 arg-2 arg-3 arg-4)) (else ""))))) +(define Version-Idris-case--showVersion-3535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Version-Idris-n--1784-3485-showTag arg-0 arg-1 arg-2 arg-3 arg-4)) (else ""))))) (define Version-Idris-case--showVersionC-44showTag-3489 (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-Types-Prelude-C-43C-43 "-" e-2))))))) -(define Version-Idris-n--1893-3485-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-Types-Prelude-C-43C-43 "-" e-2))))))) +(define Version-Idris-n--1784-3485-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-Types-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--version-3457 (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-Types-Prelude-C-43C-43 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Show-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--1893-3485-showTag e-4 e-8 e-9 e-1 arg-0)) (else ""))))))))))))))) +(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-Types-Prelude-C-43C-43 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__String arg-2 arg-3))) (Types-Prelude-neutral_Monoid__String)))) (List-Data-intersperse 'erased "." (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Show-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--1784-3485-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 SetOptions-Idris-case--preOptions-3268 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 ((Log-Options-Core-insertLogLevel arg-0) e-5) e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))))) -(define SetOptions-Idris-case--preOptions-3224 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 (vector 1 arg-0)))))))))))))))) -(define SetOptions-Idris-case--preOptions-3180 (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-11 (vector-ref sc0 12))) (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) e-11))))))))))))))) -(define SetOptions-Idris-case--preOptions-3136 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-0) e-10 e-11))))))))))))))) -(define SetOptions-Idris-case--preOptions-3092 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0) e-9 e-10 e-11))))))))))))))) -(define SetOptions-Idris-case--preOptions-3052 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 e-1 0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) -(define SetOptions-Idris-case--preOptions-3008 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) -(define SetOptions-Idris-case--preOptions-2861 (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))))) -(define SetOptions-Idris-case--preOptions-2753 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setCG arg-3 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((SetOptions-Idris-preOptions arg-3 arg-2 arg-1) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "No such code generator") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Code generators available: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (Options-Core-availableCGs (let ((sc2 arg-4)) (let ((e-4 (vector-ref sc2 5))) e-4))))))) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-26 (arg-317 eta-1))) ((arg-318 act-26) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))))))))))) -(define SetOptions-Idris-case--preOptions-2731 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) -(define SetOptions-Idris-case--preOptions-2679 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) -(define SetOptions-Idris-case--preOptions-2637 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) -(define SetOptions-Idris-case--preOptions-2595 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) -(define SetOptions-Idris-case--preOptions-2553 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) -(define SetOptions-Idris-case--preOptions-2509 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) -(define SetOptions-Idris-case--preOptions-2467 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) -(define SetOptions-Idris-preOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((12) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-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-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))) (vector 0 e-0 0 e-14 e-13 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (let ((e-13 (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-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))) (vector 0 e-0 0 e-15 e-14 e-13 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-13 (vector-ref sc3 6))) (let ((e-12 (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))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-12 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((22) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-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-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))) (vector 0 e-0 0 e-14 e-13 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((23) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-13 (vector-ref sc3 6))) (let ((e-12 (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))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-12 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-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-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))) (vector 0 e-0 0 e-14 e-13 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((13) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-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-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))) (vector 0 0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((SetOptions-Idris-case--preOptions-2753 e-7 e-3 arg-1 arg-0 e-5 (Options-Core-getCG (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) e-7)) eta-0))))))))) ((4) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-15 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-13 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-12 (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))) (vector 0 e-0 e-1 e-15 e-14 (vector 1 e-8 e-4) e-13 e-6 e-7 e-12 e-9 e-10 e-11)))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((18) (let ((e-9 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (SetOptions-Idris-addPkgDir arg-0 e-9 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((6) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setSourceDir arg-0 (vector 1 e-10) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((7) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setBuildDir arg-0 e-11 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((8) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setOutputDir arg-0 (vector 1 e-12) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((20) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((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-13) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 1))))))))))))) ((32) (lambda (eta-0) (let ((act-24 (Context-Core-setLogTimings arg-0 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((33) (lambda (eta-0) (let ((act-24 (Context-Core-setDebugElabCheck arg-0 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((30) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (Context-Core-getSession arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 3))) (let ((e-15 (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-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (vector 0 e-0 0 e-16 e-15 e-4 e-13 e-12 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((31) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 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-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))) (vector 0 e-0 e-1 0 e-13 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((26) (let ((e-15 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-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))) (let ((e-11 (vector-ref sc3 12))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 (vector 1 e-15) e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((27) (let ((e-16 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-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-8 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 e-8 (vector 1 e-16) e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((28) (let ((e-17 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-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-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 12))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 e-8 e-9 (vector 1 e-17) e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((29) (let ((e-18 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 e-8 e-9 e-10 (vector 1 e-18)))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((17) (let ((e-19 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-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))) (vector 0 e-0 e-1 e-14 e-13 e-4 ((Log-Options-Core-insertLogLevel e-19) e-12) e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((15) (let ((e-20 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setConsoleWidth arg-1 e-20 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((16) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setColor arg-1 e-21 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((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--preOptions-3274 (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-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-0 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) +(define SetOptions-Idris-case--preOptions-3230 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 (vector 1 arg-0)))))))))))))))) +(define SetOptions-Idris-case--preOptions-3186 (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-11 (vector-ref sc0 12))) (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) e-11))))))))))))))) +(define SetOptions-Idris-case--preOptions-3142 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-0) e-10 e-11))))))))))))))) +(define SetOptions-Idris-case--preOptions-3098 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0) e-9 e-10 e-11))))))))))))))) +(define SetOptions-Idris-case--preOptions-3058 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 e-1 0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) +(define SetOptions-Idris-case--preOptions-3014 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) +(define SetOptions-Idris-case--preOptions-2867 (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))))) +(define SetOptions-Idris-case--preOptions-2759 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setCG arg-3 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else ((SetOptions-Idris-preOptions arg-3 arg-2 arg-1) eta-0)))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "No such code generator") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Code generators available: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (Options-Core-availableCGs (let ((sc2 arg-4)) (let ((e-4 (vector-ref sc2 5))) e-4))))))) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-26 (arg-274 eta-1))) ((arg-275 act-26) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))))))))))) +(define SetOptions-Idris-case--preOptions-2737 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) +(define SetOptions-Idris-case--preOptions-2685 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) +(define SetOptions-Idris-case--preOptions-2643 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) +(define SetOptions-Idris-case--preOptions-2601 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) +(define SetOptions-Idris-case--preOptions-2559 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) +(define SetOptions-Idris-case--preOptions-2515 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) +(define SetOptions-Idris-case--preOptions-2473 (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))) (let ((e-11 (vector-ref sc0 12))) (vector 0 e-0 0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))))) +(define SetOptions-Idris-preOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((12) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-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-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))) (vector 0 e-0 0 e-14 e-13 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (let ((e-13 (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-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))) (vector 0 e-0 0 e-15 e-14 e-13 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (vector 0 e-5))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-13 (vector-ref sc3 6))) (let ((e-12 (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))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-12 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((22) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-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-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))) (vector 0 e-0 0 e-14 e-13 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((23) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-13 (vector-ref sc3 6))) (let ((e-12 (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))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-12 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-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-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))) (vector 0 e-0 0 e-14 e-13 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((13) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((5) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-1 (vector-ref sc3 2))) (let ((e-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-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))) (vector 0 0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) ((SetOptions-Idris-case--preOptions-2759 e-7 e-3 arg-1 arg-0 e-5 (Options-Core-getCG (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) e-7)) eta-0))))))))) ((4) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-15 (vector-ref sc3 3))) (let ((e-14 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-13 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-12 (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))) (vector 0 e-0 e-1 e-15 e-14 (vector 1 e-8 e-4) e-13 e-6 e-7 e-12 e-9 e-10 e-11)))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((18) (let ((e-9 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (SetOptions-Idris-addPkgDir arg-0 e-9 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((6) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setSourceDir arg-0 (vector 1 e-10) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((7) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setBuildDir arg-0 e-11 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((8) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setOutputDir arg-0 (vector 1 e-12) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((20) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((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-13) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 1))))))))))))) ((32) (lambda (eta-0) (let ((act-24 (Context-Core-setLogTimings arg-0 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((33) (lambda (eta-0) (let ((act-24 (Context-Core-setDebugElabCheck arg-0 0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((30) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 (let ((act-25 (Context-Core-getSession arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-16 (vector-ref sc4 3))) (let ((e-15 (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-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (vector 0 e-0 0 e-16 e-15 e-4 e-13 e-12 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((31) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-13 (vector-ref sc3 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-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))) (vector 0 e-0 e-1 0 e-13 e-4 e-12 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((26) (let ((e-15 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-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))) (let ((e-11 (vector-ref sc3 12))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 (vector 1 e-15) e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((27) (let ((e-16 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-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-8 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 e-8 (vector 1 e-16) e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((28) (let ((e-17 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-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-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 12))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 e-8 e-9 (vector 1 e-17) e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((29) (let ((e-18 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 e-8 e-9 e-10 (vector 1 e-18)))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((17) (let ((e-19 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-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))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-19 e-6 e-7 e-8 e-9 e-10 e-11))))))))))))) eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((15) (let ((e-20 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setConsoleWidth arg-1 e-20 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((16) (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setColor arg-1 e-21 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else ((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 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((10) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 1)))))))(else (let ((sc2 arg-6)) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")) e-3 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 1)))))))))))) ((2) (let ((e-4 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 e-4)) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 1)))))))))))) ((0) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 1))))))) ((30) (let ((e-5 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 1))))))))(else (SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2)))))))))))))(else (let ((sc1 arg-6)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")) e-3 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 1)))))))))))) ((2) (let ((e-4 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 e-4)) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 1)))))))))))) ((0) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 1))))))) ((30) (let ((e-5 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 1))))))))(else (SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2)))))))))))(else (let ((sc0 arg-6)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")) e-3 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 1)))))))))))) ((2) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 e-4)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-25 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 1)))))))))))) ((0) (lambda (eta-0) (let ((act-24 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 1))))))) ((30) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 1))))))))(else (SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2))))))))))))))) (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) ((23) 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) ((22) 0)(else (SetOptions-Idris-ideMode e-3))))))))))) -(define SetOptions-Idris-dirOption (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Path-Utils-C-60C-47C-62 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Types-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))) eta-0))) (vector 1 act-24)))))) +(define SetOptions-Idris-dirOption (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Path-Utils-C-60C-47C-62 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Types-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))) eta-0))) (vector 1 act-24)))))) (define SetOptions-Idris-addPkgDir (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-addExtraDir arg-0 (Path-Utils-C-60C-47C-62 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-4 (vector-ref sc1 5))) e-4)) (Path-Utils-C-60C-47C-62 (Strings-Types-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))) arg-1)) ext-0)))))))) -(define REPL-Idris-case--displayResult-11017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "Set color on") (else "Set color off"))))) -(define REPL-Idris-case--displayResult-10874 (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))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-2) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "is") (TT-Core-pretty_Pretty__Totality 'erased e-3)))))))) -(define REPL-Idris-case--handleMissing-10630 (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) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "function") (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-1))))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "functions:") (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased eta-0))) arg-0)))))))))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "functions:") (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased eta-0))) arg-0)))))))) -(define REPL-Idris-case--handleMissingC-39-10551 (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-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))) -(define REPL-Idris-case--repl-10463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (REPLCommon-Idris-iputStrLn arg-0 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "Bye for now!") eta-0))))))) (else (lambda (eta-0) (let ((act-24 ((REPL-Idris-interpret arg-4 arg-3 arg-2 arg-1 arg-0 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-handleResult arg-4 arg-3 arg-2 arg-1 arg-0 e-5) eta-0)))))))))))) -(define REPL-Idris-case--interpret-10282 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (Support-Parser-pretty_Pretty__C-40ParseErrorC-32C-36tokC-41 'erased 'erased (vector 0 (lambda (ann) (lambda (arg-3265) (Source-Lexer-Parser-pretty_Pretty__Token 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Source-Lexer-Parser-prettyPrec_Pretty__Token 'erased arg-3266 arg-3267))))) e-2)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setCurrentElabSource arg-1 arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (REPL-Idris-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 eta-0)))))))))))))))) -(define REPL-Idris-case--parseRepl-10249 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Parser-runParser 'erased 1 (vector 0 ) arg-0 (vector 9 1 1 (REPL-Idris-parseEmptyCmd) (lambda () (REPL-Idris-parseCmd))))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))))))) -(define REPL-Idris-case--parseReplC-44fnameCmd-10187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--31741-10161-getLoad arg-0 (Strings-Types-Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--31741-10162-fnameCmd arg-0 arg-3 arg-4)))))) -(define REPL-Idris-case--process-9987 (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))))) -(define REPL-Idris-case--process-9943 (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--process-9859 (lambda (arg-0 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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-7) (lambda (args) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-7 args)))))))))))) -(define REPL-Idris-case--process-9807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Holes-IDEMode-Idris-holeData (vector 0 ) arg-4 arg-2 arg-5 (vector 0 ) e-2 e-7 (let ((sc2 e-6)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0)))))))))) -(define REPL-Idris-case--process-9564 (lambda (arg-0 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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 18 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Totality arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Totality arg-5319 arg-5320)))) e-6 eta-1)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 fn e-6))))))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) -(define REPL-Idris-case--caseC-32blockC-32inC-32process-9448 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPL-Idris-displayPatTerm arg-5 arg-3 arg-6 eta-1 eta-2))) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-9 e-5)))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-5 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-9 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 2 arg-9)))))))) -(define REPL-Idris-case--process-9390 (lambda (arg-0 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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 17 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 arg-7)) ((REPL-Idris-case--caseC-32blockC-32inC-32process-9448 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))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) -(define REPL-Idris-case--process-9263 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Types-Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-5 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 16 e-8))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Types-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) (Types-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) (Types-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) -(define REPL-Idris-case--process-9164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 12 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((line (Types-Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (i) (Strings-Types-Prelude-C-43C-43 " +" (Show-Prelude-show_Show__Int (b+ i 1 63))))) (let ((sc1 arg-5)) (let ((e-6 (vector-ref sc1 7))) e-6))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5)) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 e-2 line)))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0))))))))))))) -(define REPL-Idris-case--process-9087 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 e-1 (vector 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))))))))))))))))) -(define REPL-Idris-case--process-9008 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 12 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))) -(define REPL-Idris-case--process-8948 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-5 arg-3 arg-6 eta-1)) arg-7) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-5)))))))))))))) -(define REPL-Idris-case--process-8858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-normaliseScope (vector 0 ) e-5 (vector 0 ) e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 6 e-6 e-8)))))))))))))))))))))))))))) -(define REPL-Idris-case--process-8768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-6 arg-4 arg-7 eta-1)) arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-5)))))))))))))) -(define REPL-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-8605 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((((arg-16 arg-14) (vector 0 )) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-18 (vector 1 e-6))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 4 arg-18 (vector 0 ))))))))) -(define REPL-Idris-case--caseC-32blockC-32inC-32process-8526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((norm (REPL-Idris-n--29856-8398-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (let ((act-26 ((((norm e-5) (vector 0 )) e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 ((Normalise-Core-logTermNF (vector 0 ) arg-5 "" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-7) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-8605 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--process-8433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-0))))))))(else (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-3 arg-5 arg-2 arg-4 (vector 1 ) (vector 0 ) arg-0 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolveName arg-5 (vector 1 "[input]")) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "::")) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "Nil")) eta-1)))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-5 arg-2 arg-4 e-6 (REPL-Idris-n--29856-8397-emode arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1))) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 0 )) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (let ((act-28 (unbox arg-5))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((norm (REPL-Idris-n--29856-8398-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (let ((act-30 ((((norm e-9) (vector 0 )) e-2) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-11 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 ((Normalise-Core-logTermNF (vector 0 ) arg-5 "" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-11) eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-8605 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--displayResult-11015 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "Set color on") (else "Set color off"))))) +(define REPL-Idris-case--displayResult-10872 (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))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-2) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "is") (TT-Core-pretty_Pretty__Totality 'erased e-3)))))))) +(define REPL-Idris-case--handleMissing-10628 (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) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "function") (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-1))))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "functions:") (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased eta-0))) arg-0)))))))))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "functions:") (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased eta-0))) arg-0)))))))) +(define REPL-Idris-case--handleMissingC-39-10549 (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-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))) +(define REPL-Idris-case--repl-10461 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "") eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (REPLCommon-Idris-iputStrLn arg-0 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "Bye for now!") eta-0))))))) (else (lambda (eta-0) (let ((act-24 ((REPL-Idris-interpret arg-4 arg-3 arg-2 arg-1 arg-0 arg-8) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-handleResult arg-4 arg-3 arg-2 arg-1 arg-0 e-5) eta-0)))))))))))) +(define REPL-Idris-case--interpret-10280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (Support-Parser-pretty_Pretty__C-40ParseErrorC-32C-36tokC-41 'erased 'erased (vector 0 (lambda (ann) (lambda (arg-3271) (Source-Lexer-Parser-pretty_Pretty__Token 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Source-Lexer-Parser-prettyPrec_Pretty__Token 'erased arg-3272 arg-3273))))) e-2)))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setCurrentElabSource arg-1 arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (REPL-Idris-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 eta-0)))))))))))))))) +(define REPL-Idris-case--parseRepl-10247 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Parser-runParser 'erased 1 (vector 0 ) arg-0 (vector 9 1 1 (REPL-Idris-parseEmptyCmd) (lambda () (REPL-Idris-parseCmd))))) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 e-2)))))))) +(define REPL-Idris-case--parseReplC-44fnameCmd-10185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--31553-10159-getLoad arg-0 (Strings-Types-Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--31553-10160-fnameCmd arg-0 arg-3 arg-4)))))) +(define REPL-Idris-case--process-9985 (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 arg-0 e-4) e-5 e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))))) +(define REPL-Idris-case--process-9941 (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--process-9857 (lambda (arg-0 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))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-7) (lambda (args) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-7 args)))))))))))) +(define REPL-Idris-case--process-9805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (Holes-IDEMode-Idris-holeData (vector 0 ) arg-4 arg-2 arg-5 (vector 0 ) e-2 e-7 (let ((sc2 e-6)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0)))))))))) +(define REPL-Idris-case--process-9562 (lambda (arg-0 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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 18 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Termination-Core-checkTotal arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Totality arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Totality arg-5319 arg-5320)))) e-6 eta-1)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 fn e-6))))))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) +(define REPL-Idris-case--caseC-32blockC-32inC-32process-9446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (REPL-Idris-displayPatTerm arg-5 arg-3 arg-6 eta-1 eta-2))) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 arg-9 e-5)))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-5 eta-1)) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 arg-9 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 2 arg-9)))))))) +(define REPL-Idris-case--process-9388 (lambda (arg-0 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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 17 e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-24 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 arg-7)) ((REPL-Idris-case--caseC-32blockC-32inC-32process-9446 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))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) +(define REPL-Idris-case--process-9261 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Unify-Core-search (vector 0 ) arg-5 arg-4 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Types-Prelude-fromInteger_Num__Nat 1000) e-6 e-11 (vector 0 ) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-5 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (vector 1 (vector 16 e-8))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Types-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) (Types-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) (Types-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-7)) eta-0))))))) +(define REPL-Idris-case--process-9162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 12 )))) (else (let ((e-2 (vector-ref sc0 1))) (let ((line (Types-Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (i) (Strings-Types-Prelude-C-43C-43 " +" (Show-Prelude-show_Show__Int (b+ i 1 63))))) (let ((sc1 arg-5)) (let ((e-6 (vector-ref sc1 7))) e-6))))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((System-system 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5)) (Strings-Types-Prelude-C-43C-43 " " (Strings-Types-Prelude-C-43C-43 e-2 line)))) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0))))))))))))) +(define REPL-Idris-case--process-9085 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 e-1 (vector 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))))))))))))))))) +(define REPL-Idris-case--process-9006 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 12 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))) +(define REPL-Idris-case--process-8946 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-5 arg-3 arg-6 eta-1)) arg-7) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-5)))))))))))))) +(define REPL-Idris-case--process-8856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-normaliseScope (vector 0 ) e-5 (vector 0 ) e-7) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-8 eta-0)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 6 e-6 e-8)))))))))))))))))))))))))))) +(define REPL-Idris-case--process-8766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-6 arg-4 arg-7 eta-1)) arg-8) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-5)))))))))))))) +(define REPL-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-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 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Normalise-Core-getTerm 'erased arg-12) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((((arg-16 arg-14) (vector 0 )) e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-6 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 4 arg-18 (vector 1 e-6))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 4 arg-18 (vector 0 ))))))))) +(define REPL-Idris-case--caseC-32blockC-32inC-32process-8526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-5))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((norm (REPL-Idris-n--29670-8398-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1))))) (let ((act-26 ((((norm e-5) (vector 0 )) e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-7 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-8603 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--process-8433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (let ((act-24 (REPL-Idris-execExp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 2 arg-0))))))))(else (lambda (eta-0) (let ((act-24 (Desugar-Idris-desugar arg-3 arg-5 arg-2 arg-4 (vector 1 ) (vector 0 ) arg-0 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolveName arg-5 (vector 1 "[input]")) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-26 (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "::")) eta-1))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "Nil")) eta-1)))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 0 )))) eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 ((Elab-TTImp-elabTerm (vector 0 ) arg-5 arg-2 arg-4 e-6 (REPL-Idris-n--29670-8397-emode arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc3 arg-6)) (let ((e-1 (vector-ref sc3 2))) e-1))) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 0 )) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-28 (let ((act-28 (unbox arg-5))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-29 (let ((act-29 (unbox arg-1))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc6 1))) (let ((norm (REPL-Idris-n--29670-8398-nfun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) (let ((sc7 e-10)) (let ((e-1 (vector-ref sc7 2))) e-1))))) (let ((act-30 ((((norm e-9) (vector 0 )) e-2) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-11 eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-11 eta-0))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-8603 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--caseC-32blockC-32inC-32loadMainFile-8302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 7 arg-0))))(else (lambda (eta-0) (vector 1 (vector 11 arg-0 arg-9)))))))) (define REPL-Idris-case--loadMainFile-8249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-logTime 'erased arg-5 (lambda () "+ Build deps") (lambda (eta-1) (ModTree-Idris-buildDeps arg-5 arg-3 arg-2 arg-4 arg-1 arg-0 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((REPLCommon-Idris-updateErrorLine arg-1 e-5) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((act-26 (REPLOpts-Idris-setSource arg-1 e-2 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-27 (REPLOpts-Idris-resetProofState arg-1 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((sc5 e-5)) (case (vector-ref sc5 0) ((0) (vector 1 (vector 7 arg-0)))(else (vector 1 (vector 11 arg-0 e-5))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setSource arg-1 "" eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 10 arg-0 e-5))))))))))))) (define REPL-Idris-case--compileExp-8159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (LinearCheck-Core-linearCheck (vector 0 ) arg-6 arg-5 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (REPL-Idris-findCG arg-2 arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-compile arg-6 e-6 e-5 arg-0 eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 14 )))) (lambda () (lambda (eta-1) (lambda (eta-2) (vector 1 (vector 15 eta-1))))) e-6) eta-0)))))))))))))))) @@ -7073,13 +6994,13 @@ (define REPL-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32nextProofSearch-3617 (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-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 (vector 0 arg-4 arg-7)) e-10 e-11 e-12 e-13))))))))))))))))) (define REPL-Idris-case--caseC-32blockC-32inC-32nextProofSearch-3561 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-0 (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) (let ((e-16 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-15 (vector-ref sc2 6))) (let ((e-14 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (vector 0 e-0 e-16 e-2 e-3 e-4 e-15 e-14 e-7 e-8 (vector 1 (vector 0 arg-4 e-6)) e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-4 e-5))))))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 (set-box! arg-0 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 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))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 0 ) e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))) (define REPL-Idris-case--nextProofSearch-3534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (ExprSearch-Interactive-TTImp-nextResult 'erased arg-2 arg-1 e-6 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((sc4 e-2)) (let ((e-9 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc5 arg-3)) (let ((e-0 (vector-ref sc5 1))) (let ((e-20 (vector-ref sc5 2))) (let ((e-19 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-18 (vector-ref sc5 6))) (let ((e-17 (vector-ref sc5 7))) (let ((e-16 (vector-ref sc5 8))) (let ((e-15 (vector-ref sc5 9))) (let ((e-10 (vector-ref sc5 11))) (let ((e-11 (vector-ref sc5 12))) (let ((e-12 (vector-ref sc5 13))) (let ((e-13 (vector-ref sc5 14))) (vector 0 e-0 e-20 e-19 e-3 e-4 e-18 e-17 e-16 e-15 (vector 1 (vector 0 e-5 e-8)) e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25)))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (vector 1 (vector 1 (vector 0 e-5 e-9)))))))))))) (else (let ((act-25 (let ((act-25 (set-box! arg-0 (let ((sc4 arg-3)) (let ((e-0 (vector-ref sc4 1))) (let ((e-17 (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-16 (vector-ref sc4 6))) (let ((e-15 (vector-ref sc4 7))) (let ((e-14 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (vector 0 e-0 e-17 e-2 e-3 e-4 e-16 e-15 e-14 e-8 (vector 0 ) e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25)))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define REPL-Idris-case--addMadeLemmaC-44insertInBlank-3394 (lambda (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-Types-Prelude-C-43C-43 "\u000a" (Unlit-Parser-relit arg-8 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 arg-3 "\u000a"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--23996-3363-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7))))))) -(define REPL-Idris-case--proofSearchC-44replaceStr-3303 (lambda (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-Types-Prelude-C-43C-43 arg-5 (Types-Prelude-pack (List-Data-drop 'erased (Strings-Types-Prelude-length arg-6) (Types-Prelude-unpack arg-4))))) (else (Types-Prelude-strCons (string-ref arg-4 0) (REPL-Idris-n--23915-3292-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--addMadeLemmaC-44insertInBlank-3394 (lambda (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-Types-Prelude-C-43C-43 "\u000a" (Unlit-Parser-relit arg-8 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 arg-3 "\u000a"))))) arg-7)) (else (vector 1 arg-6 (REPL-Idris-n--23810-3363-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7))))))) +(define REPL-Idris-case--proofSearchC-44replaceStr-3303 (lambda (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-Types-Prelude-C-43C-43 arg-5 (Types-Prelude-pack (List-Data-drop 'erased (Strings-Types-Prelude-length arg-6) (Types-Prelude-unpack arg-4))))) (else (Types-Prelude-strCons (string-ref arg-4 0) (REPL-Idris-n--23729-3292-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--addClause-3226 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (REPL-Idris-rtrim arg-2) (vector 1 arg-0 arg-1))) (else (vector 1 arg-0 (REPL-Idris-addClause arg-2 0 arg-1))))))) -(define REPL-Idris-case--caseC-32blockC-32inC-32updateFile-3136 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 arg-3 "~") e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-3 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2)))) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)))))))))))))) (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--updateFile-3112 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 e-1 "~") e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-26 (let ((act-26 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-26 (arg-317 eta-1))) ((arg-318 act-26) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-1 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2)))) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased))))))))) -(define REPL-Idris-case--caseC-32blockC-32inC-32findCG-2921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "No such code generator: " arg-3)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))))))) -(define REPL-Idris-case--findCG-2859 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Chez-Scheme-Compiler-codegenChez)))) ((1) (lambda (eta-0) (vector 1 (Racket-Scheme-Compiler-codegenRacket)))) ((2) (lambda (eta-0) (vector 1 (Gambit-Scheme-Compiler-codegenGambit)))) ((3) (lambda (eta-0) (vector 1 (Node-ES-Compiler-codegenNode)))) ((4) (lambda (eta-0) (vector 1 (Javascript-ES-Compiler-codegenJavascript)))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getCodegen arg-1 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (let ((act-25 (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "No such code generator: " e-0)) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-26 (arg-317 eta-1))) ((arg-318 act-26) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26))))))))))))))))))))) +(define REPL-Idris-case--caseC-32blockC-32inC-32updateFile-3136 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 arg-3 "~") e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-3 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2)))) eta-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (vector 1 (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)))))))))))))) (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--updateFile-3112 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 e-1 "~") e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((act-26 (let ((act-26 ((File-System-writeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-26 (arg-274 eta-1))) ((arg-275 act-26) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-1 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2)))) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 e-1 e-6) eta-0))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased))))))))) +(define REPL-Idris-case--caseC-32blockC-32inC-32findCG-2921 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-1)))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "No such code generator: " arg-3)) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25)))))))))))) +(define REPL-Idris-case--findCG-2859 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Chez-Scheme-Compiler-codegenChez)))) ((1) (lambda (eta-0) (vector 1 (Racket-Scheme-Compiler-codegenRacket)))) ((2) (lambda (eta-0) (vector 1 (Gambit-Scheme-Compiler-codegenGambit)))) ((3) (lambda (eta-0) (vector 1 (Node-ES-Compiler-codegenNode)))) ((4) (lambda (eta-0) (vector 1 (Javascript-ES-Compiler-codegenJavascript)))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getCodegen arg-1 e-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (vector 1 e-1))) (else (let ((act-25 (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "No such code generator: " e-0)) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-26 ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-26 (arg-274 eta-1))) ((arg-275 act-26) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26))))))))))))))))))))) (define REPL-Idris-case--setOpt-2783 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-2 e-1 eta-0)))) (else (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-1 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "No such code generator available") eta-0))))))) (define REPL-Idris-case--setOpt-2764 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-0 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) (define REPL-Idris-case--setOpt-2725 (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))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) @@ -7087,90 +7008,90 @@ (define REPL-Idris-case--setOpt-2647 (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--setOpt-2626 (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--displayPats-2529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-displayType arg-5 arg-4 arg-3 (vector 0 arg-0 (vector 0 arg-1 arg-2))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayClause arg-5 arg-4 arg-3 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 e-5 e-6))))))))))))))))(else (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased arg-0) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not a pattern matching definition"))))))))) -(define REPL-Idris-case--showInfo-2181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2))) eta-0))) (vector 1 act-24))))))))) -(define REPL-Idris-n--23915-3292-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--proofSearchC-44replaceStr-3303 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--31952-10405-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--29856-8398-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--31972-11133-makeSpace (lambda (arg-0) (Types-Prelude-pack (Types-Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ ))))) -(define REPL-Idris-n--23996-3363-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-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--addMadeLemmaC-44insertInBlank-3394 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (EqOrd-Prelude-C-61C-61_Eq__String (Strings-Data-trim e-2) ""))))))))) -(define REPL-Idris-n--31741-10161-getLoad (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (arg-2 (Strings-Data-trim (Types-Prelude-substr arg-1 (Strings-Types-Prelude-length arg-3) arg-3)))))) -(define REPL-Idris-n--31741-10162-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--parseReplC-44fnameCmd-10187 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2)))))))))))) -(define REPL-Idris-n--29509-8074-execDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-4 arg-3 arg-1 (vector 0 ) arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl (vector 0 ) arg-4 arg-1 arg-3 (vector 0 ) (vector 0 ) (vector 0 ) eta-0)) e-5) ext-0)))))))) -(define REPL-Idris-n--29856-8397-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--31972-11134-col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Types-Prelude-C-43C-43 arg-2 (Strings-Types-Prelude-C-43C-43 (REPL-Idris-n--31972-11133-makeSpace (Types-Prelude-minus arg-0 (Strings-Types-Prelude-length arg-2))) (Strings-Types-Prelude-C-43C-43 arg-3 (Strings-Types-Prelude-C-43C-43 (REPL-Idris-n--31972-11133-makeSpace (Types-Prelude-minus arg-1 (Strings-Types-Prelude-length arg-3))) arg-4)))))) -(define REPL-Idris-n--31972-11135-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-Types-Prelude-C-43C-43 " " (REPL-Idris-n--31972-11134-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--24127-3480-addW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (List-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-5) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Unlit-Parser-relit arg-3 eta-0)) arg-2) e-3)))) (else (vector 0 )))))(else (let ((e-0 (- arg-4 1))) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (REPL-Idris-n--24127-3480-addW arg-0 arg-1 arg-2 arg-3 e-0 (vector 1 e-6 arg-5) e-7)))) (else (List-Data-reverse 'erased arg-5)))))))))) -(define REPL-Idris-n--23996-3364-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-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (REPL-Idris-n--23996-3363-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--23996-3364-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-case--showInfo-2181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2))) eta-0))) (vector 1 act-24))))))))) +(define REPL-Idris-n--23729-3292-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--proofSearchC-44replaceStr-3303 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--31764-10403-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--29670-8398-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--31784-11131-makeSpace (lambda (arg-0) (Types-Prelude-pack (Types-Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ ))))) +(define REPL-Idris-n--23810-3363-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-4) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-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--addMadeLemmaC-44insertInBlank-3394 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (EqOrd-Prelude-C-61C-61_Eq__String (Strings-Data-trim e-2) ""))))))))) +(define REPL-Idris-n--31553-10159-getLoad (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (arg-2 (Strings-Data-trim (Types-Prelude-substr arg-1 (Strings-Types-Prelude-length arg-3) arg-3)))))) +(define REPL-Idris-n--31553-10160-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--parseReplC-44fnameCmd-10185 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2)))))))))))) +(define REPL-Idris-n--29323-8074-execDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-4 arg-3 arg-1 (vector 0 ) arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-processDecl (vector 0 ) arg-4 arg-1 arg-3 (vector 0 ) (vector 0 ) (vector 0 ) eta-0)) e-5) ext-0)))))))) +(define REPL-Idris-n--29670-8397-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--31784-11132-col (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Types-Prelude-C-43C-43 arg-2 (Strings-Types-Prelude-C-43C-43 (REPL-Idris-n--31784-11131-makeSpace (Types-Prelude-minus arg-0 (Strings-Types-Prelude-length arg-2))) (Strings-Types-Prelude-C-43C-43 arg-3 (Strings-Types-Prelude-C-43C-43 (REPL-Idris-n--31784-11131-makeSpace (Types-Prelude-minus arg-1 (Strings-Types-Prelude-length arg-3))) arg-4)))))) +(define REPL-Idris-n--31784-11133-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-Types-Prelude-C-43C-43 " " (REPL-Idris-n--31784-11132-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--23941-3480-addW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (List-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-5) (List-Types-Prelude-C-43C-43 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Unlit-Parser-relit arg-3 eta-0)) arg-2) e-3)))) (else (vector 0 )))))(else (let ((e-0 (- arg-4 1))) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (REPL-Idris-n--23941-3480-addW arg-0 arg-1 arg-2 arg-3 e-0 (vector 1 e-6 arg-5) e-7)))) (else (List-Data-reverse 'erased arg-5)))))))))) +(define REPL-Idris-n--23810-3364-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-Types-Prelude-C-43C-43 'erased (List-Data-reverse 'erased (REPL-Idris-n--23810-3363-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--23810-3364-addApp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0 (vector 1 e-2 arg-8) e-3)))) (else (List-Data-reverse 'erased arg-8)))))))))) (define REPL-Idris-updateFile (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--updateFile-3112 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0)))))))) -(define REPL-Idris-showInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Def arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Def arg-5319 arg-5320)))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Types-Prelude-C-43C-43 " ==> " (Context-Core-show_Show__Def e-5)))) eta-0))) (vector 1 act-25))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21)))) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-26 (arg-317 eta-1))) ((arg-318 act-26) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Erasable args: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25))))) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-27 (arg-317 eta-1))) ((arg-318 act-27) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Detaggable arg types: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4))))) eta-0))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-28 (arg-317 eta-1))) ((arg-318 act-28) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Specialise args: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26))))) eta-0))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-29 (arg-317 eta-1))) ((arg-318 act-29) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Inferrable args: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26))))) eta-0))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 ((REPL-Idris-case--showInfo-2181 e-2 e-6 e-7 arg-0 e-5 e-8 e-9 e-10 e-11 e-12 (let ((sc8 e-7)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersTo e-7))) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-32 (arg-317 eta-1))) ((arg-318 act-32) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Refers to: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14))) eta-0))) (vector 1 act-32))))))))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (let ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersToRuntime e-7))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-33 (arg-317 eta-1))) ((arg-318 act-33) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Refers to (runtime): " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15))) eta-0))) (vector 1 act-33))))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-33 (arg-317 eta-1))) ((arg-318 act-33) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Flags: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25))))) eta-0))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-5317 arg-5318 eta-3)))) (lambda (arg-5319) (lambda (arg-5320) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-5319 arg-5320 eta-3))))) eta-1 eta-2))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((sc13 (Basics-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (s) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc14 s)) (let ((e-0 (vector-ref sc14 1))) e-0))) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Show-Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc14 s)) (let ((e-1 (vector-ref sc14 2))) e-1)))))) e-17))) (lambda () (lambda (eta-1) (let ((act-35 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-155) (lambda (eta-2) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-2) (let ((act-17 (arg-156 eta-2))) (let ((act-16 (arg-158 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-2) (let ((act-35 (arg-317 eta-2))) ((arg-318 act-35) eta-2))))))) (lambda (a) (lambda (arg-320) (lambda (eta-2) (let ((act-51 (arg-320 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo))) eta-1))) (vector 1 act-35)))))) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define REPL-Idris-showInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Def arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Def arg-5319 arg-5320)))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Types-Prelude-C-43C-43 " ==> " (Context-Core-show_Show__Def e-5)))) eta-0))) (vector 1 act-25))))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21)))) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-26 (arg-274 eta-1))) ((arg-275 act-26) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Erasable args: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25))))) eta-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (let ((act-27 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-27 (arg-274 eta-1))) ((arg-275 act-27) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Detaggable arg types: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4))))) eta-0))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-28 (arg-274 eta-1))) ((arg-275 act-28) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Specialise args: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26))))) eta-0))) (vector 1 act-28)))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-29 (let ((act-29 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-29 (arg-274 eta-1))) ((arg-275 act-29) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Inferrable args: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__Nat d x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26))))) eta-0))) (vector 1 act-29)))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (vector 0 e-4))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-30 ((REPL-Idris-case--showInfo-2181 e-2 e-6 e-7 arg-0 e-5 e-8 e-9 e-10 e-11 e-12 (let ((sc8 e-7)) (let ((e-18 (vector-ref sc8 19))) e-18))) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (vector 0 e-4))) (else (let ((act-31 (let ((act-31 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersTo e-7))) eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-32 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-32 (arg-274 eta-1))) ((arg-275 act-32) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Refers to: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14))) eta-0))) (vector 1 act-32))))))))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((act-32 (let ((act-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) (NameMap-Data-keys 'erased (Context-Core-refersToRuntime e-7))) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-33 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-33 (arg-274 eta-1))) ((arg-275 act-33) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Refers to (runtime): " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15))) eta-0))) (vector 1 act-33))))))))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (vector 0 e-4))) (else (let ((act-33 (let ((act-33 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-33 (arg-274 eta-1))) ((arg-275 act-33) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Flags: " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25))))) eta-0))) (vector 1 act-33)))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (let ((act-34 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-5317 arg-5318 eta-3)))) (lambda (arg-5319) (lambda (arg-5320) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-5319 arg-5320 eta-3))))) eta-1 eta-2))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20))) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((sc13 (Basics-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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (s) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc14 s)) (let ((e-0 (vector-ref sc14 1))) e-0))) (Strings-Types-Prelude-C-43C-43 ": " (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d) (lambda (x-1) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Show-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) (Show-Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d-0) (lambda (x-1) (Show-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) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Show-Prelude-show_Show__Nat x-1)) (lambda (d-1) (lambda (x-1) (Show-Prelude-showPrec_Show__Nat d-1 x-1)))) (vector 0 (lambda (x-1) (Context-Core-show_Show__SizeChange x-1)) (lambda (d-1) (lambda (x-1) (Context-Core-showPrec_Show__SizeChange d-1 x-1))))) d-0 x-0)))) d x)))) (let ((sc14 s)) (let ((e-1 (vector-ref sc14 2))) e-1)))))) e-17))) (lambda () (lambda (eta-1) (let ((act-35 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-2) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-2)))))) (lambda (a) (lambda (arg-112) (lambda (eta-2) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-2) (let ((act-17 (arg-113 eta-2))) (let ((act-16 (arg-115 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-2) (let ((act-35 (arg-274 eta-2))) ((arg-275 act-35) eta-2))))))) (lambda (a) (lambda (arg-277) (lambda (eta-2) (let ((act-51 (arg-277 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo))) eta-1))) (vector 1 act-35)))))) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define REPL-Idris-setOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2)))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (vector 0 e-0 e-3 e-1)))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-15 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-14 (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))) (vector 0 e-2 e-1 e-15 e-3 e-4 e-14 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25)))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-14 (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))) (vector 0 e-0 e-3 e-2 e-15 e-4 e-14 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25)))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-15 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (vector 0 e-0 e-1 e-2 e-3 e-15 e-4 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((REPL-Idris-case--setOpt-2783 e-5 arg-1 arg-0 e-6 (Options-Core-getCG (let ((sc2 e-6)) (let ((e-4 (vector-ref sc2 5))) e-4)) e-5)) eta-0))))))))))))) (define REPL-Idris-rtrim (lambda (arg-0) (Types-Prelude-reverse (Strings-Data-ltrim (Types-Prelude-reverse arg-0))))) (define REPL-Idris-replCmd (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 "") (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (let ((act-24 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 e-5) eta-0)))))))))))) -(define REPL-Idris-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 ((IO-Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-26 (arg-317 eta-0))) ((arg-318 act-26) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (Strings-Types-Prelude-C-43C-43 (REPL-Idris-n--31952-10405-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-Types-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) "> "))) ext-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 ((IO-Prelude-getLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-27 (arg-317 eta-0))) ((arg-318 act-27) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357)))) ext-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 ((File-System-fEOF 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-28 (arg-317 eta-0))) ((arg-318 act-28) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) (File-System-stdin)) ext-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (let ((act-29 (let ((act-29 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-29 (arg-317 eta-0))) ((arg-318 act-29) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) "") ext-0))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (REPLCommon-Idris-iputStrLn arg-4 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "Bye for now!") ext-0)))))) (else (let ((act-29 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 e-8) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) ((REPL-Idris-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0))))))))))))))))))))))))))))))))))) -(define REPL-Idris-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-n--23915-3292-replaceStr e-3 e-4 arg-1 arg-0 (Strings-Types-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-repl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-4))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 ((IO-Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-26 (arg-274 eta-0))) ((arg-275 act-26) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (Strings-Types-Prelude-C-43C-43 (REPL-Idris-n--31764-10403-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-Types-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) "> "))) ext-0))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 ((IO-Prelude-getLine 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-27 (arg-274 eta-0))) ((arg-275 act-27) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832)))) ext-0))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 ((File-System-fEOF 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-28 (arg-274 eta-0))) ((arg-275 act-28) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) (File-System-stdin)) ext-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (let ((act-29 (let ((act-29 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-29 (arg-274 eta-0))) ((arg-275 act-29) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) "") ext-0))) (vector 1 act-29)))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (REPLCommon-Idris-iputStrLn arg-4 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "Bye for now!") ext-0)))))) (else (let ((act-29 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 e-8) ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) ((REPL-Idris-handleResult arg-0 arg-1 arg-2 arg-3 arg-4 e-10) ext-0))))))))))))))))))))))))))))))))))) +(define REPL-Idris-proofSearch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-n--23729-3292-replaceStr e-3 e-4 arg-1 arg-0 (Strings-Types-Prelude-C-43C-43 "?" (Name-Core-show_Show__Name arg-0)) arg-1 e-3) e-4))))(else (let ((sc1 arg-3)) (vector 0 ))))))(else (let ((e-1 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-proofSearch arg-0 arg-1 e-1 e-7)))))(else (let ((sc0 arg-3)) (vector 0 ))))))))))) (define REPL-Idris-processEdit (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-7)))))))))))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Metadata-Core-findTypeAt arg-3 (lambda (p) (lambda (n) (FC-Core-within (vector 0 (Num-Prelude-C-45_Neg__Int e-0 1) (Num-Prelude-C-45_Neg__Int e-1 1)) p))) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-3 (vector-ref sc5 1))) (let ((sc6 e-3)) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((sc7 e-9)) (let ((e-11 (vector-ref sc7 2))) (let ((sc8 e-7)) (case (vector-ref sc8 0) ((0) (let ((act-28 (REPL-Idris-displayTerm arg-0 arg-2 e-5 e-11 eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (vector 0 e-4))) (else (let ((e-13 (vector-ref sc9 1))) (vector 1 (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Name-Core-nameRoot e-10)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) e-13))))))))))(else (vector 1 (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased))))))))))))) (else (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0)) e-2) eta-0))(else (vector 1 (vector 0 e-7))))))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((find (REPL-Idris-case--processEdit-4365 e-6 e-5 e-4 e-3 arg-4 arg-3 arg-2 arg-1 arg-0 (EqOrd-Prelude-C-62_Ord__Int e-5 0)))) (lambda (eta-0) (let ((act-24 (CaseSplit-Interactive-TTImp-getSplits arg-0 arg-3 arg-1 (lambda (eta-1) (lambda (eta-2) (REPL-Idris-anyAt 'erased find eta-1 eta-2))) e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((act-25 (CaseSplit-IDEMode-Idris-updateCase arg-0 arg-2 arg-4 e-1 (Num-Prelude-C-45_Neg__Int e-4 1) (Num-Prelude-C-45_Neg__Int e-5 1) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-3)) (cond ((equal? sc4 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-caseSplit (Strings-Data-unlines e-8) (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int e-4 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (arg-6) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased arg-6)) e-8)))))))))))))) (else (let ((e-8 (vector-ref sc2 1))) (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (CaseSplit-Interactive-TTImp-show_Show__SplitError e-8)))))))))))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (CaseSplit-IDEMode-Idris-getClause arg-0 arg-3 arg-4 e-8 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-addClause e-1 (Types-Prelude-cast_Cast__Int_Integer e-8) eta-1)) eta-0)) (else (vector 1 (vector 0 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-1)))))))) (else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-9) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "not defined here"))))))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((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-9 (vector-ref sc3 7))) e-9))))) (let ((act-26 (Context-Core-lookupDefName e-12 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-15 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((7) (let ((e-17 (vector-ref sc7 1))) (let ((sc8 e-2)) (case (vector-ref sc8 0) ((0) (let ((searchtm (lambda (eta-1) (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-3 arg-1 (REPLOpts-Idris-replFC) e-12 (vector 0 ) eta-1)))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc9 act-27)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-18 (vector-ref sc9 1))) (let ((act-28 (let ((act-28 (set-box! arg-4 (let ((sc10 e-18)) (let ((e-0 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (let ((e-28 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-27 (vector-ref sc10 6))) (let ((e-26 (vector-ref sc10 7))) (let ((e-25 (vector-ref sc10 8))) (let ((e-24 (vector-ref sc10 9))) (let ((e-22 (vector-ref sc10 11))) (let ((e-21 (vector-ref sc10 12))) (let ((e-20 (vector-ref sc10 13))) (let ((e-19 (vector-ref sc10 14))) (vector 0 e-0 e-29 e-28 e-3 e-4 e-27 e-26 e-25 e-24 (vector 1 (vector 0 e-12 searchtm)) e-22 e-21 e-20 e-19)))))))))))))))))) (vector 1 act-28)))) (let ((sc10 act-28)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-29 (let ((act-29 (unbox arg-0))) (vector 1 act-29)))) (let ((sc11 act-29)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-30 (REPL-Idris-nextProofSearch arg-0 arg-1 arg-4 eta-0))) (let ((sc12 act-30)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-21 (vector-ref sc12 1))) (let ((sc13 e-21)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((sc14 e-3)) (let ((e-22 (vector-ref sc14 2))) (let ((tmC-39 (REPL-Idris-dropLams e-17 e-22))) (let ((act-31 (Resugar-Idris-pterm arg-0 arg-2 tmC-39 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (vector 0 e-4))) (else (let ((e-24 (vector-ref sc15 1))) (let ((itmC-39 (let ((sc16 brack)) (cond ((equal? sc16 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-24)) (else e-24))))) (let ((sc16 e-10)) (cond ((equal? sc16 0) (REPL-Idris-updateFile arg-4 (lambda (eta-1) (REPL-Idris-proofSearch e-12 (Syntax-Idris-show_Show__PTerm itmC-39) (Types-Prelude-cast_Cast__Int_Integer (Num-Prelude-C-45_Neg__Int e-11 1)) eta-1)) eta-0)) (else (vector 1 (vector 0 (Pretty-Idris-prettyTerm itmC-39))))))))))))))))) (else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "No search results"))))))))))))))))))))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Not a searchable hole")))))))))) ((1) (let ((e-20 (vector-ref sc7 1))) (let ((e-19 (vector-ref sc7 2))) (let ((e-16 (vector-ref sc7 3))) (let ((e-17 (vector-ref sc7 4))) (let ((e-18 (vector-ref sc7 5))) (let ((sc8 e-19)) (case (vector-ref sc8 0) ((0) (let ((sc9 e-16)) (case (vector-ref sc9 0) ((1) (let ((e-22 (vector-ref sc9 1))) (let ((e-23 (vector-ref sc9 2))) (let ((sc10 e-2)) (case (vector-ref sc10 0) ((0) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-15 (vector 1 e-20 (vector 0 ) (vector 1 e-22 e-23) e-17 e-18))) (vector 0 )))) ((REPL-Idris-case--caseC-32blockC-32inC-32processEdit-5253 e-13 e-12 e-11 e-10 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-17 e-18 e-22 e-9 e-15 e-23 e-20 bind-0 (let ((sc11 e-20)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0)))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Not a searchable hole")))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Not a searchable hole")))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Not a searchable hole"))))))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Not a searchable hole")))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Not a searchable hole")))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Not a searchable hole"))))))))))) ((0) (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Unknown name") (Name-Core-pretty_Pretty__Name 'erased e-12)))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Not a searchable hole")))))))))))))))))))))))))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (REPL-Idris-nextProofSearch arg-0 arg-1 arg-4 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((act-27 (Context-Core-lookupDefName e-9 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-3 (vector-ref sc7 1))) (let ((e-2 (vector-ref sc7 2))) (let ((sc8 e-3)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 2))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 2))) (let ((sc10 e-13)) (case (vector-ref sc10 0) ((7) (let ((e-16 (vector-ref sc10 1))) (let ((sc11 e-2)) (case (vector-ref sc11 0) ((0) (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-9 (let ((sc12 e-6)) (let ((e-19 (vector-ref sc12 7))) e-19))))) (let ((tmC-39 (REPL-Idris-dropLams e-16 e-8))) (let ((act-28 (Resugar-Idris-pterm arg-0 arg-2 tmC-39 eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (vector 0 e-4))) (else (let ((e-17 (vector-ref sc12 1))) (let ((itmC-39 (let ((sc13 brack)) (cond ((equal? sc13 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-17)) (else e-17))))) (vector 1 (vector 0 (Pretty-Idris-prettyTerm itmC-39))))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Not a searchable hole"))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Not a searchable hole"))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Not a searchable hole"))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Not a searchable hole")))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Not a searchable hole")))))))))))))))))) (else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "No more results"))))))))))))))))))))))))) ((5) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Metadata-Core-findTyDeclAt arg-3 (lambda (p) (lambda (n) (FC-Core-onLine (Num-Prelude-C-45_Neg__Int e-15 1) p))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((sc4 e-1)) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (let ((e-9 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((sc6 e-10)) (let ((e-13 (vector-ref sc6 1))) (let ((e-18 (vector-ref sc6 2))) (let ((act-26 (Context-Core-lookupDefExact e-9 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 1 (vector 0 e-8 (vector 0 e-9 (vector 0 e-13 e-18)))))) (let ((sc8 e-11)) (case (vector-ref sc8 0) ((1) (let ((e-2 (vector-ref sc8 1))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (let ((searchdef (lambda (eta-1) (GenerateDef-Interactive-TTImp-makeDefSort arg-0 arg-3 arg-1 (lambda (p) (lambda (n) (FC-Core-onLine (Num-Prelude-C-45_Neg__Int e-15 1) p))) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))) (lambda (eta-2) (lambda (eta-3) (GenerateDef-Interactive-TTImp-mostUsed eta-2 eta-3))) e-9 eta-1)))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-28 (let ((act-28 (set-box! arg-4 (let ((sc11 e-12)) (let ((e-0 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (let ((e-28 (vector-ref sc11 3))) (let ((e-3 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-27 (vector-ref sc11 6))) (let ((e-26 (vector-ref sc11 7))) (let ((e-25 (vector-ref sc11 8))) (let ((e-24 (vector-ref sc11 9))) (let ((e-23 (vector-ref sc11 10))) (let ((e-21 (vector-ref sc11 12))) (let ((e-20 (vector-ref sc11 13))) (let ((e-19 (vector-ref sc11 14))) (vector 0 e-0 e-29 e-28 e-3 e-4 e-27 e-26 e-25 e-24 e-23 (vector 1 (vector 0 e-15 searchdef)) e-21 e-20 e-19)))))))))))))))))) (vector 1 act-28)))) (let ((sc11 act-28)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((e-19 (vector-ref sc11 1))) (let ((act-29 (REPL-Idris-nextGenDef arg-0 arg-1 arg-4 e-17 eta-0))) (let ((sc12 act-29)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-20 (vector-ref sc12 1))) (let ((bind-0 (vector 1 (vector 0 )))) (let ((sc13 e-20)) (case (vector-ref sc13 0) ((1) (let ((e-3 (vector-ref sc13 1))) (let ((sc14 e-3)) (let ((e-22 (vector-ref sc14 1))) (let ((e-21 (vector-ref sc14 2))) (let ((sc15 e-21)) (let ((e-24 (vector-ref sc15 1))) (let ((e-23 (vector-ref sc15 2))) (let ((l (Types-Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos e-24))))) (let ((act-30 (REPLOpts-Idris-getSourceLine arg-4 e-15 eta-0))) (let ((sc16 act-30)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (vector 0 e-4))) (else (let ((e-25 (vector-ref sc16 1))) (let ((_-1 (vector 1 (vector 0 e-22 (vector 0 e-24 e-23))))) (let ((sc17 e-25)) (case (vector-ref sc17 0) ((1) (let ((e-4 (vector-ref sc17 1))) (let ((_-2 (vector 1 e-4))) ((REPL-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-6197 e-17 e-16 e-15 e-14 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-18 e-13 e-8 e-9 _-0 bind-0 searchdef e-12 e-19 e-22 e-24 e-23 _-1 l e-4 _-2 (Unlit-Parser-isLitLine e-4)) eta-0)))) (else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Source line not found"))))))))))))))))))))))) (else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "No search results"))))))))))))))))))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Already defined")))))))))) (else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Can't find declaration for") (Name-Core-pretty_Pretty__Name 'erased e-16)))))))))))))))))))))))) (else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Can't find declaration for") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-16) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "on line") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Int 'erased e-15))))))))))))))))))))))))) ((6) (lambda (eta-0) (let ((act-24 (REPL-Idris-nextGenDef arg-0 arg-1 arg-4 0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((sc3 e-1)) (let ((e-7 (vector-ref sc3 1))) (let ((e-6 (vector-ref sc3 2))) (let ((sc4 e-6)) (let ((e-9 (vector-ref sc4 1))) (let ((e-10 (vector-ref sc4 2))) (let ((l (Types-Prelude-cast_Cast__Int_Integer (Builtin-snd 'erased 'erased (FC-Core-startPos e-9))))) (let ((act-25 (REPLOpts-Idris-getSourceLine arg-4 e-7 eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc5 1))) (let ((_-0 (vector 1 (vector 0 e-7 (vector 0 e-9 e-10))))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((1) (let ((e-2 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-2))) ((REPL-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-6749 arg-4 arg-3 arg-2 arg-1 arg-0 e-7 e-9 e-10 _-0 l e-2 _-1 (Unlit-Parser-isLitLine e-2)) eta-0)))) (else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Source line not found"))))))))))))))))))))))) (else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "No more results"))))))))))))))) ((7) (let ((e-18 (vector-ref sc0 1))) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((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-9 (vector-ref sc3 7))) e-9))))) (let ((act-26 (REPL-Idris-lookupDefTyName e-20 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (let ((e-8 (vector-ref sc5 2))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (let ((e-10 (vector-ref sc6 2))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-13)) (case (vector-ref sc8 0) ((7) (let ((e-15 (vector-ref sc8 1))) (let ((e-16 (vector-ref sc8 2))) (let ((sc9 e-2)) (case (vector-ref sc9 0) ((0) (let ((act-27 (MakeLemma-Interactive-TTImp-makeLemma arg-3 arg-0 (REPLOpts-Idris-replFC) e-20 e-15 e-14 eta-0))) (let ((sc10 act-27)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-12 (vector-ref sc10 1))) (let ((bind-0 (vector 1 (vector 0 e-9 (vector 0 e-11 (vector 0 (vector 7 e-15 e-16) e-14))) (vector 0 )))) (let ((sc11 e-12)) (let ((e-4 (vector-ref sc11 1))) (let ((e-3 (vector-ref sc11 2))) (let ((act-28 (Resugar-Idris-pterm arg-0 arg-2 e-4 eta-0))) (let ((sc12 act-28)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-29 (Resugar-Idris-pterm arg-0 arg-2 e-3 eta-0))) (let ((sc13 act-29)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (vector 0 e-21))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-30 (let ((act-30 (unbox arg-4))) (vector 1 act-30)))) (let ((sc14 act-30)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (vector 0 e-22))) (else (let ((e-22 (vector-ref sc14 1))) (let ((pappstr (Syntax-Idris-show_Show__PTerm (let ((sc15 brack)) (cond ((equal? sc15 0) (Resugar-Idris-addBracket (REPLOpts-Idris-replFC) e-21)) (else e-21)))))) (let ((act-31 (REPLOpts-Idris-getSourceLine arg-4 e-19 eta-0))) (let ((sc15 act-31)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (vector 0 e-23))) (else (let ((e-23 (vector-ref sc15 1))) (let ((_-0 (vector 0 e-4 e-3))) (let ((sc16 e-23)) (case (vector-ref sc16 0) ((1) (let ((e-24 (vector-ref sc16 1))) (let ((_-1 (vector 1 e-24))) ((REPL-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32processEdit-7151 e-20 e-19 e-18 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-16 e-9 e-11 e-15 e-14 bind-0 e-4 e-3 _-0 e-17 e-21 e-22 pappstr e-24 _-1 (Unlit-Parser-isLitLine e-24)) eta-0)))) (else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Source line not found"))))))))))))))))))))))))))))))))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Can't make lifted definition")))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Can't make lifted definition")))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Can't make lifted definition")))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Can't make lifted definition")))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Can't make lifted definition")))))))))))(else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Can't make lifted definition"))))))))))))))))))))))))))))) ((8) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getLitStyle arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-23 (let ((sc3 e-6)) (let ((e-9 (vector-ref sc3 7))) e-9))))) (let ((act-26 (REPLOpts-Idris-getSourceLine arg-4 e-22 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((REPL-Idris-case--caseC-32blockC-32inC-32processEdit-7490 e-23 e-22 e-21 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-1 _-0 (Unlit-Parser-unlit e-5 e-1)) eta-0)))) (else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Source line not available"))))))))))))))))))))))))))))) (else (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getLitStyle arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (REPLOpts-Idris-getSourceLine arg-4 e-25 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((REPL-Idris-case--caseC-32blockC-32inC-32processEdit-7750 e-26 e-25 e-24 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (Unlit-Parser-unlit e-5 e-1)) eta-0)))) (else (vector 1 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Source line not available"))))))))))))))))))))))))))) (define REPL-Idris-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Context-Core-branch arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (let ((act-26 (unbox arg-2))) (vector 1 act-26)))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (unbox arg-4))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-28 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Context-Core-commit arg-0 eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 e-9))))))))))) (lambda (err) (lambda (eta-0) (let ((act-28 (let ((act-28 (set-box! arg-0 e-5))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (set-box! arg-1 e-6))) (vector 1 act-29)))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (set-box! arg-2 e-7))) (vector 1 act-30)))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (set-box! arg-4 e-8))) (vector 1 act-31)))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-32 (Error-Idris-display arg-0 arg-2 arg-4 err eta-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (vector 1 e-13))))))))))))))))))))))))) ext-0))))))))))))))))))))))) -(define REPL-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execDecls arg-0 arg-1 arg-2 arg-3 e-0 eta-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--process-8433 e-1 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-15 (vector-ref sc2 2))) e-15))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-23 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-22 e-23) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-7)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-9 eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-normaliseScope (vector 0 ) e-8 (vector 0 ) e-10) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-11 eta-0)))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 6 e-9 e-11)))))))))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-3) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-7)))))))))))))))))))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--process-9008 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((5) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-15 (vector-ref sc2 5))) (let ((e-14 (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))) (vector 0 e-0 e-1 (vector 1 e-4) e-3 e-15 e-14 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (REPL-Idris-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-4 eta-0))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (ProcessIdr-Idris-addImport arg-0 arg-1 arg-2 (vector 0 (FC-Core-emptyFC) 1 e-5 e-5) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 8 (Name-Core-showSep "." (List-Data-reverse 'erased e-5))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 9 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) err)))) eta-0)))) ((16) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setWorkingDir arg-0 e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getWorkingDir eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 13 e-7)))))))))))))) ((17) (lambda (eta-0) (let ((act-24 (Context-Core-getWorkingDir eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-5))))))))) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--process-9164 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-8 eta-0))))) ((9) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 arg-4 e-9 eta-0)))) ((10) (lambda (eta-0) (vector 1 (vector 3 )))) ((11) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-10 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Types-Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-9 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-13 eta-0)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (vector 16 e-13)))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Types-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) (Types-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-10) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((18) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-11 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-11) eta-0))(else (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 17 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 e-6)) ((REPL-Idris-case--caseC-32blockC-32inC-32process-9448 e-11 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 bind-0 fn e-7 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((19) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-12 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-12) eta-0))(else (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 18 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Totality arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Totality arg-5319 arg-5320)))) e-8 eta-1)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 fn e-8))))))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((20) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (DocString-Idris-getDocsFor arg-0 arg-2 (REPLOpts-Idris-replFC) e-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) e-5)))))))))))) ((21) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (DocString-Idris-getContents arg-0 arg-2 e-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) e-5)))))))))))) ((12) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Context-Core-lookupCtxtName e-15 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (REPL-Idris-showInfo arg-0 eta-1)) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))) ((13) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-setOpt arg-0 arg-4 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) ((14) (lambda (eta-0) (let ((act-24 (REPL-Idris-getOptions arg-0 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-5))))))))) ((22) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-addLogLevel arg-0 e-17 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 21 e-17))))))))) ((23) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setConsoleWidth arg-4 e-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 22 e-18))))))))) ((24) (let ((e-19 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setColor arg-4 e-19 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 23 e-19))))))))) ((25) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ctxt (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-getUserHoles arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (n) (Context-Core-lookupCtxtName n ctxt)) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((globs ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-6) (lambda (arg-7) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-6 arg-7))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7))) (let ((holesWithArgs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-8 (vector-ref sc5 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-8) (lambda (args) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-8 args))))))))))) globs))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (n_gdef_args) (REPL-Idris-case--process-9807 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 ctxt e-6 e-7 globs holesWithArgs n_gdef_args n_gdef_args)) holesWithArgs) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 19 e-8))))))))))))))))))))))))))) ((26) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 1 e-2)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 27 e-7))))))))))))))))))))))) ((15) (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setSession arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-12 (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 e-21 e-4) e-12 e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) ((28) (lambda (eta-0) (vector 1 (vector 26 )))) ((29) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 24 (Version-Idris-version))))))))) +(define REPL-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execDecls arg-0 arg-1 arg-2 arg-3 e-0 eta-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--process-8433 e-1 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-15 (vector-ref sc2 2))) e-15))) eta-0))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-23 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 e-22 e-23) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayType arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-7)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-4 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((act-27 (let ((act-27 (unbox arg-0))) (vector 1 act-27)))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (let ((act-28 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-4 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-9 eta-0)))))))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-30 (let ((act-30 ((Normalise-Core-normaliseScope (vector 0 ) e-8 (vector 0 ) e-10) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-11 eta-0)))))))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc8 1))) (vector 1 (vector 6 e-9 e-11)))))))))))))))))))))))))))))))))))))))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-3) eta-0))(else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-displayPats arg-0 arg-2 e-5 eta-1)) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-7)))))))))))))))))))))))) ((4) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--process-9006 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((5) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (set-box! arg-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-15 (vector-ref sc2 5))) (let ((e-14 (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))) (vector 0 e-0 e-1 (vector 1 e-4) e-3 e-15 e-14 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (REPL-Idris-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-4 eta-0))))))))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (ProcessIdr-Idris-addImport arg-0 arg-1 arg-2 (vector 0 (FC-Core-emptyFC) 1 e-5 e-5) eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 8 (Name-Core-showSep "." (List-Data-reverse 'erased e-5))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 9 (Name-Core-showSep "." (List-Data-reverse 'erased e-5)) err)))) eta-0)))) ((16) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setWorkingDir arg-0 e-6 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getWorkingDir eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 13 e-7)))))))))))))) ((17) (lambda (eta-0) (let ((act-24 (Context-Core-getWorkingDir eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 13 e-5))))))))) ((7) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-4))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--process-9162 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-8 eta-0))))) ((9) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 arg-4 e-9 eta-0)))) ((10) (lambda (eta-0) (vector 1 (vector 3 )))) ((11) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-lookupTyName e-10 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-1)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (let ((e-7 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 2))) (let ((sc6 e-2)) (case (vector-ref sc6 0) ((0) (let ((act-26 (Unify-Core-search (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Types-Prelude-fromInteger_Num__Nat 1000) e-8 e-11 (vector 0 ) eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-27 (let ((act-27 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-9 eta-0))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-2 (vector 0 ) e-13 eta-0)))))))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc8 1))) (vector 1 (vector 16 e-13)))))))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Types-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) (Types-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) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-10) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 (REPLOpts-Idris-replFC) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((18) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-11 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-11) eta-0))(else (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 17 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 e-6)) ((REPL-Idris-case--caseC-32blockC-32inC-32process-9446 e-11 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 bind-0 fn e-7 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-1))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((19) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtName e-12 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-12) eta-0))(else (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc3 eta-1)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 18 e-7))))))) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-26 (Termination-Core-checkTotal arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Totality arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Totality arg-5319 arg-5320)))) e-8 eta-1)))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 fn e-8))))))))))))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((20) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (DocString-Idris-getDocsFor arg-0 arg-2 (REPLOpts-Idris-replFC) e-13 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) e-5)))))))))))) ((21) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (DocString-Idris-getContents arg-0 arg-2 e-14 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 5 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) e-5)))))))))))) ((12) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((Context-Core-lookupCtxtName e-15 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (REPL-Idris-showInfo arg-0 eta-1)) e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))))) ((13) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((REPL-Idris-setOpt arg-0 arg-4 e-16) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) ((14) (lambda (eta-0) (let ((act-24 (REPL-Idris-getOptions arg-0 arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 20 e-5))))))))) ((22) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-setLogLevel arg-0 e-17 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 21 e-17))))))))) ((23) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setConsoleWidth arg-4 e-18 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 22 e-18))))))))) ((24) (let ((e-19 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setColor arg-4 e-19 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 23 e-19))))))))) ((25) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ctxt (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((act-25 (Context-Core-getUserHoles arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (n) (Context-Core-lookupCtxtName n ctxt)) e-6) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((globs ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-6) (lambda (arg-7) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-6 arg-7))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7))) (let ((holesWithArgs (List-Data-mapMaybe 'erased 'erased (lambda (lamc-0) (let ((sc4 lamc-0)) (let ((e-2 (vector-ref sc4 1))) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (let ((e-8 (vector-ref sc5 2))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Holes-IDEMode-Idris-isHole e-8) (lambda (args) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 e-2 (vector 0 e-8 args))))))))))) globs))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (n_gdef_args) (REPL-Idris-case--process-9805 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 ctxt e-6 e-7 globs holesWithArgs n_gdef_args n_gdef_args)) holesWithArgs) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 19 e-8))))))))))))))))))))))))))) ((26) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 1 e-2)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 e-20) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (vector 1 (vector 27 e-7))))))))))))))))))))))) ((15) (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Context-Core-getSession arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setSession arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-12 (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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 e-21 e-4) e-12 e-6 e-7 e-8 e-9 e-10 e-11)))))))))))))) eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))) ((28) (lambda (eta-0) (vector 1 (vector 26 )))) ((29) (lambda (eta-0) (vector 1 (vector 0 )))) (else (lambda (eta-0) (vector 1 (vector 24 (Version-Idris-version))))))))) (define REPL-Idris-printClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 e-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Resugar-Idris-pterm arg-0 arg-1 e-2 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Unlit-Parser-relit arg-2 (Strings-Types-Prelude-C-43C-43 (Types-Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Types-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-6)))))))))))))))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-7 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 (Resugar-Idris-pterm arg-0 arg-1 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Idris-printClause arg-0 arg-1 arg-2 (Types-Prelude-C-43_Num__Nat arg-3 (+ 1 (+ 1 0))) eta-1)) e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc3 1))) (vector 1 (Strings-Types-Prelude-C-43C-43 (Unlit-Parser-relit arg-2 (Strings-Types-Prelude-C-43C-43 (Types-Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) (Strings-Types-Prelude-C-43C-43 " with (" (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-9) ")\u000a"))))) (Name-Core-showSep "\u000a" e-10))))))))))))))))))))))) (else (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-pterm arg-0 arg-1 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Unlit-Parser-relit arg-2 (Strings-Types-Prelude-C-43C-43 (Types-Prelude-pack (List-Data-replicate 'erased arg-3 #\ )) (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) " impossible")))))))))))))))) -(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--parseRepl-10249 arg-0 (REPL-Idris-n--31741-10162-fnameCmd arg-0 (vector 1 (vector 0 ":load " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":l " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":cd " (lambda (eta-0) (vector 16 eta-0))) (vector 0 )))) arg-0)))) +(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--parseRepl-10247 arg-0 (REPL-Idris-n--31553-10160-fnameCmd arg-0 (vector 1 (vector 0 ":load " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":l " (lambda (eta-0) (vector 5 eta-0))) (vector 1 (vector 0 ":cd " (lambda (eta-0) (vector 16 eta-0))) (vector 0 )))) arg-0)))) (define REPL-Idris-parseEmptyCmd (lambda () (vector 8 1 1 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-eoi)) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 f (vector 0 (vector 0 ))))))) -(define REPL-Idris-parseCmd (lambda () (vector 8 1 1 (Parser-Idris-command) (lambda (c) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-10151) (vector 0 (vector 1 c)))))))) +(define REPL-Idris-parseCmd (lambda () (vector 8 1 1 (Parser-Idris-command) (lambda (c) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-10149) (vector 0 (vector 1 c)))))))) (define REPL-Idris-nextProofSearch (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--nextProofSearch-3534 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-9 (vector-ref sc1 10))) e-9))) ext-0)))))))) (define REPL-Idris-nextGenDef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-2))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--nextGenDef-3726 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-10 (vector-ref sc1 11))) e-10))) ext-0)))))))) (define REPL-Idris-lookupDefTyName (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupNameBy 'erased (lambda (g) (vector 0 (let ((sc0 g)) (let ((e-17 (vector-ref sc0 18))) e-17)) (let ((sc0 g)) (let ((e-2 (vector-ref sc0 3))) e-2)))) ext-2 ext-1 ext-0))) -(define REPL-Idris-loadMainFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (REPLCommon-Idris-resetContext arg-0 arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-25 (arg-317 eta-0))) ((arg-318 act-25) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-5) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTime 'erased arg-0 (lambda () "+ Build deps") (lambda (eta-0) (ModTree-Idris-buildDeps arg-0 arg-2 arg-3 arg-1 arg-4 arg-5 eta-0)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((REPLCommon-Idris-updateErrorLine arg-4 e-7) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 (REPLOpts-Idris-setSource arg-4 e-2 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-29 (REPLOpts-Idris-resetProofState arg-4 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((sc7 e-7)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 7 arg-5)))(else (vector 1 (vector 11 arg-5 e-7)))))))))))))))))))))))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 (REPLOpts-Idris-setSource arg-4 "" ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 10 arg-5 e-7))))))))))))))))))))) -(define REPL-Idris-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-case--interpret-10282 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5)))) +(define REPL-Idris-loadMainFile (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (REPLCommon-Idris-resetContext arg-0 arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-25 (arg-274 eta-0))) ((arg-275 act-25) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-5) ext-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTime 'erased arg-0 (lambda () "+ Build deps") (lambda (eta-0) (ModTree-Idris-buildDeps arg-0 arg-2 arg-3 arg-1 arg-4 arg-5 eta-0)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((REPLCommon-Idris-updateErrorLine arg-4 e-7) ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 (REPLOpts-Idris-setSource arg-4 e-2 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-29 (REPLOpts-Idris-resetProofState arg-4 ext-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((sc7 e-7)) (case (vector-ref sc7 0) ((0) (vector 1 (vector 7 arg-5)))(else (vector 1 (vector 11 arg-5 e-7)))))))))))))))))))))))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 (REPLOpts-Idris-setSource arg-4 "" ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 (vector 10 arg-5 e-7))))))))))))))))))))) +(define REPL-Idris-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-case--interpret-10280 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5)))) (define REPL-Idris-handleResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((26) (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-4 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Bye for now!") eta-0)))(else (lambda (eta-0) (let ((act-24 ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (REPL-Idris-repl arg-0 arg-1 arg-2 arg-3 arg-4 eta-0))))))))))) (define REPL-Idris-handleMissingC-39 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Types-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Types-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-Types-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-3)))))))))(else (Strings-Types-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Types-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-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-4) ": All cases covered"))))))) (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))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Name-Core-pretty_Pretty__Name 'erased e-0) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Name-Core-pretty_Pretty__Name 'erased e-2) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Calls non covering") (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) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "function") (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-1))))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "functions:") (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased eta-0))) e-3)))))))))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "functions:") (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased eta-0))) e-3))))))))))) (else (let ((e-4 (vector-ref sc0 1))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Name-Core-pretty_Pretty__Name 'erased e-4) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "All cases covered")))))))) (define REPL-Idris-getOptions (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Context-Core-getPPrint arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (unbox arg-1))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 1 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) (vector 1 (vector 2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 3 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (vector 1 (vector 4 (let ((sc2 e-6)) (let ((e-15 (vector-ref sc2 6))) e-15))) (vector 0 ))))))))))))))))))) (define REPL-Idris-findCG (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--findCG-2859 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0)))))))) (define REPL-Idris-execExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-6 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-5 (vector 0 )) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (REPL-Idris-findCG arg-4 arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (Common-Compiler-execute arg-0 e-9 e-8 ext-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (vector 1 (vector 2 arg-5)))))))))))))))))))))))))))))) -(define REPL-Idris-execDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (REPL-Idris-n--29509-8074-execDecl arg-4 arg-3 arg-2 arg-1 arg-0 eta-0 eta-1))) arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 25 )))))))) +(define REPL-Idris-execDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (REPL-Idris-n--29323-8074-execDecl arg-4 arg-3 arg-2 arg-1 arg-0 eta-0 eta-1))) arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 25 )))))))) (define REPL-Idris-dropLamsTm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 arg-0 (vector 0 arg-2 arg-3)))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (REPL-Idris-dropLamsTm (vector 1 e-3 arg-0) e-0 (vector 1 e-4 arg-2) e-5)))))(else (vector 0 arg-0 (vector 0 arg-2 arg-3))))))))))) (define REPL-Idris-dropLams (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) arg-1)(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-6 (vector-ref sc0 6))) (REPL-Idris-dropLams e-0 e-6)))(else arg-1))))))))) (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))) (Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-1 (vector 0 ) e-5 eta-0)))))))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 (Context-Core-aliasName arg-0 (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-8) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-prettyTerm e-5)))))))))))))))) (lambda () (lambda (num) (lambda (eta-0) (Holes-IDEMode-Idris-prettyHole (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) e-2 num (let ((sc2 e-7)) (let ((e-24 (vector-ref sc2 3))) e-24)) eta-0)))) (Holes-IDEMode-Idris-isHole e-7))))))))) (define REPL-Idris-displayTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-resugar (vector 0 ) arg-0 arg-1 (vector 0 ) e-5 ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Pretty-Idris-prettyTerm e-5))))))))) -(define REPL-Idris-displayResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-0 eta-0)))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Pretty-Idris-prettyTerm e-1) eta-0))) ((1) (let ((e-28 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-prettyTerm e-1) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-code (Pretty-Idris-prettyTerm e-28)))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 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 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-prettyTerm e-4) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-code (Pretty-Idris-prettyTerm e-5)))) eta-0))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Loaded file") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-6)) eta-0)))) ((8) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Imported module") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-7)) eta-0)))) ((9) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-2 arg-4 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Error loading module") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-8) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) e-5)) eta-0)))))))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Error loading file") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-10) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (File-System-show_Show__FileError e-11)))) eta-0))))) ((11) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Error(s) building file") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-12)) eta-0)))) ((12) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "No file can be reloaded") eta-0))) ((13) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Current working directory is") (Symbols-Prettyprinter-PrettyPrint-Text-squotes 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-14))) eta-0)))) ((14) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Compilation failed") eta-0))) ((15) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "File") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-15) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "written"))) eta-0)))) ((16) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Pretty-Idris-prettyTerm e-16) eta-0)))) ((17) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (REPL-Idris-handleMissing eta-1)) e-17)) eta-0)))) ((18) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-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))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-2) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "is") (TT-Core-pretty_Pretty__Totality 'erased e-3))))))) e-18)) eta-0)))) ((19) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "No holes") eta-0))) ((1) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((sc2 e-32)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "1 hole") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Name-Core-pretty_Pretty__Name 'erased (let ((sc3 e-31)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0)))(else (let ((holes (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased ", ") eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Name-Core-pretty_Pretty__Name 'erased (let ((sc2 eta-0)) (let ((e-0 (vector-ref sc2 1))) e-0)))) e-19)))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (List-Types-Prelude-length 'erased e-19)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "holes") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) holes)) eta-0)))))))))(else (let ((holes (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased ", ") eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Name-Core-pretty_Pretty__Name 'erased (let ((sc1 eta-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) e-19)))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (List-Types-Prelude-length 'erased e-19)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "holes") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) holes)) eta-0)))))))) ((21) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Set loglevel to") (Log-Options-Core-pretty_Pretty__LogLevel 'erased e-20)) eta-0)))) ((22) (let ((e-21 (vector-ref sc0 1))) (let ((sc1 e-21)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Set consolewidth to") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased e-35)) eta-0)))) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Set consolewidth to auto") eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((23) (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased (let ((sc1 e-22)) (cond ((equal? sc1 0) "Set color on") (else "Set color off")))) eta-0)))) ((24) (let ((e-23 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Version-Idris-showVersion 0 e-23)) eta-0)))) ((3) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (REPL-Idris-displayHelp)) eta-0))) ((27) (let ((e-24 (vector-ref sc0 1))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((0) (let ((e-37 (vector-ref sc1 1))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 e-37 eta-0))))))) ((1) (let ((e-38 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-38 eta-0)))) ((2) (let ((e-39 (vector-ref sc1 1))) (let ((e-40 (vector-ref sc1 2))) (let ((e-41 (vector-ref sc1 3))) (let ((e-42 (vector-ref sc1 4))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Strings-Types-Prelude-C-43C-43 (Unlit-Parser-relit e-39 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-40) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-41) "\u000a")))) e-42)) eta-0))))))) ((3) (let ((e-43 (vector-ref sc1 1))) (let ((e-44 (vector-ref sc1 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Unlit-Parser-relit e-43 eta-1)) e-44))) eta-0))))) ((4) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Unlit-Parser-relit e-45 eta-1)) e-46))) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((20) (let ((e-25 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Syntax-Idris-pretty_Pretty__REPLOpt 'erased eta-1)) e-25)) eta-0))))(else (lambda (eta-0) (vector 1 (vector 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 (Pretty-Idris-prettyTerm e-1) eta-0))) ((1) (let ((e-28 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-prettyTerm e-1) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-code (Pretty-Idris-prettyTerm e-28)))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 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 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-prettyTerm e-4) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-code (Pretty-Idris-prettyTerm e-5)))) eta-0))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Loaded file") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-6)) eta-0)))) ((8) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Imported module") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-7)) eta-0)))) ((9) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-2 arg-4 e-9) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Error loading module") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-8) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) e-5)) eta-0)))))))))) ((10) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Error loading file") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-10) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (File-System-show_Show__FileError e-11)))) eta-0))))) ((11) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Error(s) building file") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-12)) eta-0)))) ((12) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "No file can be reloaded") eta-0))) ((13) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Current working directory is") (Symbols-Prettyprinter-PrettyPrint-Text-squotes 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-14))) eta-0)))) ((14) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Compilation failed") eta-0))) ((15) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "File") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-15) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "written"))) eta-0)))) ((16) (let ((e-16 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Pretty-Idris-prettyTerm e-16) eta-0)))) ((17) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (REPL-Idris-handleMissing eta-1)) e-17)) eta-0)))) ((18) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-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))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-2) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "is") (TT-Core-pretty_Pretty__Totality 'erased e-3))))))) e-18)) eta-0)))) ((19) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "No holes") eta-0))) ((1) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((sc2 e-32)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "1 hole") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Name-Core-pretty_Pretty__Name 'erased (let ((sc3 e-31)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-0)))(else (let ((holes (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased ", ") eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Name-Core-pretty_Pretty__Name 'erased (let ((sc2 eta-0)) (let ((e-0 (vector-ref sc2 1))) e-0)))) e-19)))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (List-Types-Prelude-length 'erased e-19)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "holes") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) holes)) eta-0)))))))))(else (let ((holes (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased ", ") eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Name-Core-pretty_Pretty__Name 'erased (let ((sc1 eta-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) e-19)))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (List-Types-Prelude-length 'erased e-19)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "holes") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) holes)) eta-0)))))))) ((21) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Set loglevel to") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased e-20)) eta-0)))) ((22) (let ((e-21 (vector-ref sc0 1))) (let ((sc1 e-21)) (case (vector-ref sc1 0) ((1) (let ((e-35 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Set consolewidth to") (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased e-35)) eta-0)))) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Set consolewidth to auto") eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((23) (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased (let ((sc1 e-22)) (cond ((equal? sc1 0) "Set color on") (else "Set color off")))) eta-0)))) ((24) (let ((e-23 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Version-Idris-showVersion 0 e-23)) eta-0)))) ((3) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (REPL-Idris-displayHelp)) eta-0))) ((27) (let ((e-24 (vector-ref sc0 1))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((0) (let ((e-37 (vector-ref sc1 1))) (let ((sc2 e-37)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 0 ))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 e-37 eta-0))))))) ((1) (let ((e-38 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-38 eta-0)))) ((2) (let ((e-39 (vector-ref sc1 1))) (let ((e-40 (vector-ref sc1 2))) (let ((e-41 (vector-ref sc1 3))) (let ((e-42 (vector-ref sc1 4))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Strings-Types-Prelude-C-43C-43 (Unlit-Parser-relit e-39 (Strings-Types-Prelude-C-43C-43 (Name-Core-show_Show__Name e-40) (Strings-Types-Prelude-C-43C-43 " : " (Strings-Types-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-41) "\u000a")))) e-42)) eta-0))))))) ((3) (let ((e-43 (vector-ref sc1 1))) (let ((e-44 (vector-ref sc1 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Unlit-Parser-relit e-43 eta-1)) e-44))) eta-0))))) ((4) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Unlit-Parser-relit e-45 eta-1)) e-46))) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) ((20) (let ((e-25 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Syntax-Idris-pretty_Pretty__REPLOpt 'erased eta-1)) e-25)) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define REPL-Idris-displayPats (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--displayPats-2529 e-2 e-6 e-7 arg-2 arg-1 arg-0 (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))))))))))) (define REPL-Idris-displayPatTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) arg-3 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (Resugar-Idris-resugarNoPatvars (vector 0 ) arg-0 arg-1 (vector 0 ) e-5 ext-0)))))))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Syntax-Idris-show_Show__PTerm e-5))))))))) -(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--31972-11135-cmdInfo eta-0)) (Parser-Idris-help))))) +(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\u000a" (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--31784-11133-cmdInfo eta-0)) (Parser-Idris-help))))) (define REPL-Idris-displayErrors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "File error in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-0) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (File-System-show_Show__FileError e-1)))) eta-0)))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define REPL-Idris-displayClause (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 e-10 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (Resugar-Idris-resugar e-2 arg-0 arg-1 e-6 e-5 eta-0)))))))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 e-11 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-resugar e-2 arg-0 arg-1 e-6 e-8 eta-0)))))))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-prettyTerm e-5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Pretty-Idris-prettyTerm e-8)))))))))))))))))))))))))) (define REPL-Idris-compileExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) arg-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 arg-3 arg-1 e-5 (vector 2 ) (vector 0 ) (vector 0 ) (vector 0 ) e-6 (vector 0 )) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-27 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 ext-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-28 (let ((act-28 (REPL-Idris-findCG arg-4 arg-0 ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) (Common-Compiler-compile arg-0 e-9 e-8 arg-6 ext-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((e-9 (vector-ref sc5 1))) ((Types-Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (vector 1 (vector 14 )))) (lambda () (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 15 eta-0))))) e-9) ext-0)))))))))))))))))))))))))))))) (define REPL-Idris-caseSplit (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 2))) (vector 1 (REPL-Idris-rtrim arg-0) e-4)))(else (let ((sc1 arg-2)) (vector 1 arg-0 (vector 0 )))))))(else (let ((e-1 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-caseSplit arg-0 e-1 e-7)))))(else (let ((sc0 arg-2)) (vector 1 arg-0 (vector 0 )))))))))))) (define REPL-Idris-anyAt (lambda (arg-0 arg-1 arg-2 arg-3) (arg-1 arg-2))) -(define REPL-Idris-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-n--23996-3364-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5)))) -(define REPL-Idris-addMadeCase (lambda (arg-0 arg-1 arg-2 arg-3) (REPL-Idris-n--24127-3480-addW arg-3 arg-2 arg-1 arg-0 arg-2 (vector 0 ) arg-3))) +(define REPL-Idris-addMadeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-n--23810-3364-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5)))) +(define REPL-Idris-addMadeCase (lambda (arg-0 arg-1 arg-2 arg-3) (REPL-Idris-n--23941-3480-addW arg-3 arg-2 arg-1 arg-0 arg-2 (vector 0 ) arg-3))) (define REPL-Idris-addClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (vector 1 (REPL-Idris-rtrim arg-0) (vector 0 ))) (else (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (REPL-Idris-case--addClause-3226 e-3 e-4 arg-0 ((Interfaces-Prelude-all 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (Types-Prelude-isSpace eta-0))) (Types-Prelude-unpack e-3)))))))))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-6 (REPL-Idris-addClause arg-0 e-0 e-7))))) (else (vector 1 arg-0 (vector 0 ))))))))))) (define Stream-Data-repeat (lambda (arg-0 arg-1) (vector 0 arg-1 (lambda () (Stream-Data-repeat 'erased arg-1))))) -(define MakeLemma-Interactive-TTImp-case--makeLemma-4196 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-3 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-3 arg-2 e-2))))))))) -(define MakeLemma-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgs-3958 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (case (vector-ref sc0 0) ((0) (vector 1 arg-15))(else (vector 0 )))))) -(define MakeLemma-Interactive-TTImp-case--caseC-32blockC-32inC-32getArgs-3909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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) (MakeLemma-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgs-3958 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 (TT-Core-shrinkTerm 'erased 'erased arg-7 (vector 1 (vector 0 ))))) (else (vector 1 arg-15)))))) -(define MakeLemma-Interactive-TTImp-case--caseC-32blockC-32inC-32getArgs-3791 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 0 )))))) -(define MakeLemma-Interactive-TTImp-case--getArgs-3745 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((mn (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--caseC-32blockC-32inC-32getArgs-3909 arg-0 arg-1 arg-2 arg-3 arg-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 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-9 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-2 e-3))) (MakeLemma-Interactive-TTImp-case--caseC-32blockC-32inC-32getArgs-3791 arg-0 arg-1 arg-2 arg-3 arg-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 mn (Basics-Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used arg-9) (lambda () (Basics-Prelude-C-38C-38 (Basics-Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 arg-7)) (lambda () (Basics-Prelude-not (MakeLemma-Interactive-TTImp-hiddenName arg-6)))))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-6 (vector 0 mn (vector 0 pC-39 (vector 0 arg-9 arg-13)))) e-2) e-3)))))))))) +(define MakeLemma-Interactive-TTImp-case--makeLemma-4164 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-3 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-3 arg-2 e-2))))))))) +(define MakeLemma-Interactive-TTImp-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgs-3938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--caseC-32blockC-32inC-32getArgs-3893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--caseC-32blockC-32inC-32caseC-32blockC-32inC-32getArgs-3938 arg-0 arg-1 arg-2 arg-3 arg-4 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--caseC-32blockC-32inC-32getArgs-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) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 0 )))))) +(define MakeLemma-Interactive-TTImp-case--getArgs-3741 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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--caseC-32blockC-32inC-32getArgs-3893 arg-0 arg-1 arg-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--caseC-32blockC-32inC-32getArgs-3783 arg-0 arg-1 arg-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 (Basics-Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used arg-6) (lambda () (Basics-Prelude-C-38C-38 (Basics-Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 arg-8)) (lambda () (Basics-Prelude-not (MakeLemma-Interactive-TTImp-hiddenName arg-7)))))))))) (lambda (eta-0) (vector 1 (vector 0 (vector 1 (vector 0 arg-7 (vector 0 mn (vector 0 pC-39 (vector 0 arg-6 arg-11)))) e-2) e-3)))))))))) (define MakeLemma-Interactive-TTImp-case--bindable-3481 (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) ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (lambda (eta-0) (MakeLemma-Interactive-TTImp-bindable 'erased arg-2 eta-0))) e-3)) ((2) ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-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))) ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-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))) ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-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))) ((Interfaces-Prelude-any 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-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) (Types-Prelude-C-61C-61_Eq__Nat arg-2 e-25))(else 1)))))(else 1))))))(else 1))))) -(define MakeLemma-Interactive-TTImp-n--8124-4144-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-n--7895-4112-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) (Basics-Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-2) (lambda (arg-3) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) 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--8124-4144-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--7895-4112-getArg arg-2 arg-1 arg-0 eta-0)) arg-2)))) (define MakeLemma-Interactive-TTImp-makeLemma (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-24 ((MakeLemma-Interactive-TTImp-getArgs (vector 0 ) arg-1 (vector 0 ) arg-4 arg-5) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-2 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-2 arg-3 e-2))))))))))))) (define MakeLemma-Interactive-TTImp-hiddenName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 "_") 0)(else 1)))))(else 1))))) -(define MakeLemma-Interactive-TTImp-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-5 arg-2 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) e-6))))))))))))))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 e-10 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-11) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-26 (Utils-TTImp-uniqueName e-6 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) (Name-Core-nameRoot e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((xC-39 (vector 1 e-12))) (let ((act-27 ((MakeLemma-Interactive-TTImp-getArgs (vector 1 xC-39 arg-0) arg-1 (vector 1 e-4 arg-2) e-0 (TT-Core-renameTop 'erased 'erased xC-39 e-5)) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (let ((b (vector 2 e-7 e-8 e-9 e-10))) (let ((sc6 e-13)) (let ((e-15 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((mn (let ((_-0 (vector 0 e-15 e-14))) (MakeLemma-Interactive-TTImp-case--caseC-32blockC-32inC-32getArgs-3909 arg-1 e-2 e-7 arg-0 e-9 e-0 e-3 e-5 e-10 e-8 b arg-2 e-6 e-11 e-12 xC-39 e-15 e-14 _-0 (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega e-8 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))) (let ((pC-39 (let ((_-0 (vector 0 e-15 e-14))) (MakeLemma-Interactive-TTImp-case--caseC-32blockC-32inC-32getArgs-3791 arg-1 e-2 e-7 arg-0 e-9 e-0 e-3 e-5 e-10 e-8 b arg-2 e-6 e-11 e-12 xC-39 e-15 e-14 _-0 mn (Basics-Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used e-8) (lambda () (Basics-Prelude-C-38C-38 (Basics-Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 e-5)) (lambda () (Basics-Prelude-not (MakeLemma-Interactive-TTImp-hiddenName e-3)))))))))) (vector 1 (vector 0 (vector 1 (vector 0 e-3 (vector 0 mn (vector 0 pC-39 (vector 0 e-8 e-11)))) e-15) e-14)))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-7) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) e-7)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-5 arg-2 arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-6) eta-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) e-6)))))))))))))))))))))) -(define MakeLemma-Interactive-TTImp-bindableArg (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 4))) (Basics-Prelude-C-124C-124 (MakeLemma-Interactive-TTImp-bindable 'erased arg-1 e-9) (lambda () (MakeLemma-Interactive-TTImp-bindableArg 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-1) e-4)))))(else 1))))))(else 1))))) +(define MakeLemma-Interactive-TTImp-getArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-5 arg-2 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-6) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) e-6))))))))))))))(else (let ((e-0 (- arg-3 1))) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((e-9 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 e-9 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-10) eta-0)))))))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-26 (Utils-TTImp-uniqueName e-6 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-nameRoot eta-1)) arg-0) (Name-Core-nameRoot e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (vector 0 e-11))) (else (let ((e-11 (vector-ref sc4 1))) (let ((xC-39 (vector 1 e-11))) (let ((act-27 ((MakeLemma-Interactive-TTImp-getArgs (vector 1 xC-39 arg-0) arg-1 (vector 1 (vector 2 e-7 e-8 e-9) arg-2) e-0 (TT-Core-renameTop 'erased 'erased xC-39 e-5)) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (let ((sc6 e-12)) (let ((e-14 (vector-ref sc6 1))) (let ((e-13 (vector-ref sc6 2))) (let ((mn (let ((_-0 (vector 0 e-14 e-13))) (MakeLemma-Interactive-TTImp-case--caseC-32blockC-32inC-32getArgs-3893 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--caseC-32blockC-32inC-32getArgs-3783 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 (Basics-Prelude-C-38C-38 (MakeLemma-Interactive-TTImp-used e-7) (lambda () (Basics-Prelude-C-38C-38 (Basics-Prelude-not (MakeLemma-Interactive-TTImp-bindableArg 'erased 0 e-5)) (lambda () (Basics-Prelude-not (MakeLemma-Interactive-TTImp-hiddenName e-3)))))))))) (vector 1 (vector 0 (vector 1 (vector 0 e-3 (vector 0 mn (vector 0 pC-39 (vector 0 e-7 e-10)))) e-14) e-13)))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-6 arg-2 arg-4 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-7) eta-0)))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (vector 0 (vector 0 ) e-7)))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normalise arg-0 e-5 arg-2 arg-4 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-6) eta-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 0 (vector 0 ) e-6)))))))))))))))))))))) +(define MakeLemma-Interactive-TTImp-bindableArg (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 3))) (Basics-Prelude-C-124C-124 (MakeLemma-Interactive-TTImp-bindable 'erased arg-1 e-8) (lambda () (MakeLemma-Interactive-TTImp-bindableArg 'erased (Types-Prelude-C-43_Num__Nat (Types-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--bindable-3481 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2)))) (define REPLCommon-Idris-case--resetContext-4238 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-clearNames (let ((sc1 arg-4)) (let ((e-47 (vector-ref sc1 5))) e-47))) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) (define REPLCommon-Idris-case--updateErrorLine-4137 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (REPLCommon-Idris-getFCLine eta-0)) (Core-Core-getErrorLoc arg-1)) e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) (define REPLCommon-Idris-case--updateErrorLine-4097 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 ) e-7 e-8 e-9 e-10 e-11 e-12 e-13))))))))))))))))) (define REPLCommon-Idris-case--emitWarnings-4048 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 (vector 0 )))))))))))))))))))))))))))))) -(define REPLCommon-Idris-case--caseC-32blockC-32inC-32emitWarning-3876 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 (Pretty-Idris-renderWithoutColor arg-2 arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) 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-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1)) (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1))) (REPLCommon-Idris-n--12822-3794-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-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1)) (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1))) (REPLCommon-Idris-n--12822-3794-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-5) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 )))))) eta-0))))))))))))) -(define REPLCommon-Idris-case--emitWarning-3823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (Error-Idris-displayWarning arg-3 arg-1 arg-2 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Pretty-Idris-render arg-2 e-5 eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-5) eta-0))) (vector 1 act-25))))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-pwarning arg-3 arg-1 arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((REPLCommon-Idris-case--caseC-32blockC-32inC-32emitWarning-3876 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getWarningLoc arg-0)) eta-0))))))))))))))) -(define REPLCommon-Idris-case--caseC-32blockC-32inC-32emitError-3678 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 (Pretty-Idris-renderWithoutColor arg-2 arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) 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-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1)) (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1))) (REPLCommon-Idris-n--12606-3596-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-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1)) (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1))) (REPLCommon-Idris-n--12606-3596-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-5) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 )))))) eta-0))))))))))))) -(define REPLCommon-Idris-case--emitError-3625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (Error-Idris-display arg-3 arg-1 arg-2 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Pretty-Idris-render arg-2 e-5 eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-5) eta-0))) (vector 1 act-25))))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-1 arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((REPLCommon-Idris-case--caseC-32blockC-32inC-32emitError-3678 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--printWithStatus-3541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Pretty-Idris-render arg-2 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-5) eta-0))) (vector 1 act-25)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define REPLCommon-Idris-case--iputStrLn-3463 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (Pretty-Idris-render arg-1 arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-5) eta-0))) (vector 1 act-25)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Pretty-Idris-renderWithoutColor arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) e-3 (vector 0 (vector 1 (vector 4 "write-string") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-5) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 )))))) eta-0)))))))))))))) -(define REPLCommon-Idris-n--12822-3794-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63))))))) -(define REPLCommon-Idris-n--12606-3596-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63))))))) +(define REPLCommon-Idris-case--caseC-32blockC-32inC-32emitWarning-3876 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 (Pretty-Idris-renderWithoutColor arg-2 arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) 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-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1)) (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1))) (REPLCommon-Idris-n--12644-3794-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-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1)) (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1))) (REPLCommon-Idris-n--12644-3794-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-5) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 )))))) eta-0))))))))))))) +(define REPLCommon-Idris-case--emitWarning-3823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (Error-Idris-displayWarning arg-3 arg-1 arg-2 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Pretty-Idris-render arg-2 e-5 eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-5) eta-0))) (vector 1 act-25))))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-pwarning arg-3 arg-1 arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((REPLCommon-Idris-case--caseC-32blockC-32inC-32emitWarning-3876 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-1 e-5 (Core-Core-getWarningLoc arg-0)) eta-0))))))))))))))) +(define REPLCommon-Idris-case--caseC-32blockC-32inC-32emitError-3678 (lambda (arg-0 arg-1 arg-2 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))) (lambda (eta-0) (let ((act-24 (Pretty-Idris-renderWithoutColor arg-2 arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) 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-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1)) (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1))) (REPLCommon-Idris-n--12428-3596-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-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1)) (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__Int eta-1))) (REPLCommon-Idris-n--12428-3596-addOne arg-0 arg-1 arg-2 arg-3 (FC-Core-endPos e-2))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-5) (vector 1 (vector 0 (vector 0 )) (vector 0 ))))))) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer arg-7) (vector 0 )))))) eta-0))))))))))))) +(define REPLCommon-Idris-case--emitError-3625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (let ((act-24 (Error-Idris-display arg-3 arg-1 arg-2 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (Pretty-Idris-render arg-2 e-5 eta-0)))))))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-5) eta-0))) (vector 1 act-25))))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-1 arg-2 arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((REPLCommon-Idris-case--caseC-32blockC-32inC-32emitError-3678 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--printWithStatus-3541 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-24 (Pretty-Idris-render arg-2 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-5) eta-0))) (vector 1 act-25)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define REPLCommon-Idris-case--iputStrLn-3463 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 1) (lambda (eta-0) (let ((act-24 (Pretty-Idris-render arg-1 arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((IO-Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-5) eta-0))) (vector 1 act-25)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (else (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Pretty-Idris-renderWithoutColor arg-1 arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Commands-IDEMode-Idris-send 'erased (lambda (eta-1) (Commands-IDEMode-Idris-toSExp_SExpable__SExp eta-1)) e-3 (vector 0 (vector 1 (vector 4 "write-string") (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__String e-5) (vector 1 (Commands-IDEMode-Idris-toSExp_SExpable__Integer e-1) (vector 0 )))))) eta-0)))))))))))))) +(define REPLCommon-Idris-n--12644-3794-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63))))))) +(define REPLCommon-Idris-n--12428-3596-addOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (b+ e-2 1 63) (b+ e-3 1 63))))))) (define REPLCommon-Idris-updateErrorLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-14 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-14 (vector 0 ) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (set-box! arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-16 (vector-ref sc2 3))) (let ((e-15 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-14 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (vector 0 e-0 e-1 e-16 e-15 e-4 e-14 (Types-Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (REPLCommon-Idris-getFCLine eta-1)) (Core-Core-getErrorLoc e-2)) e-7 e-8 e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25)))))))))))))) (define REPLCommon-Idris-resetContext (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (Context-Core-initDefs ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (set-box! arg-0 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-27 (vector-ref sc2 6))) (let ((e-26 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (let ((e-11 (vector-ref sc2 12))) (let ((e-12 (vector-ref sc2 13))) (let ((e-13 (vector-ref sc2 14))) (let ((e-14 (vector-ref sc2 15))) (let ((e-15 (vector-ref sc2 16))) (let ((e-16 (vector-ref sc2 17))) (let ((e-17 (vector-ref sc2 18))) (let ((e-18 (vector-ref sc2 19))) (let ((e-19 (vector-ref sc2 20))) (let ((e-20 (vector-ref sc2 21))) (let ((e-21 (vector-ref sc2 22))) (let ((e-22 (vector-ref sc2 23))) (let ((e-23 (vector-ref sc2 24))) (let ((e-24 (vector-ref sc2 25))) (let ((e-25 (vector-ref sc2 26))) (vector 0 e-0 e-1 e-2 e-3 (Options-Core-clearNames (let ((sc3 e-5)) (let ((e-49 (vector-ref sc3 5))) e-49))) e-27 e-26 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-26))))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((InitPrimitives-Core-addPrimitives arg-0) ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (set-box! arg-1 (UnifyState-Core-initUState)))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (set-box! arg-2 (Syntax-Idris-initSyntax)))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-29 (set-box! arg-3 (Metadata-Core-initMetadata)))) (vector 1 act-29))))))))))))))))))))))))) (define REPLCommon-Idris-printWithStatus (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPLCommon-Idris-case--printWithStatus-3541 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))) ext-0)))))))) @@ -7183,10 +7104,10 @@ (define REPLCommon-Idris-emitError (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((REPLCommon-Idris-case--emitError-3625 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))) ext-0)))))))) (define Commands-IDEMode-Idris-case--toSExp-3294 (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--getIDECommand-2425 (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--getIDECommand-2300 (lambda (arg-0 arg-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--2345-2289-getMode arg-0 arg-1 arg-2 arg-3 arg-3)))))(else (vector 0 )))))) +(define Commands-IDEMode-Idris-case--getIDECommand-2300 (lambda (arg-0 arg-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--2235-2289-getMode arg-0 arg-1 arg-2 arg-3 arg-3)))))(else (vector 0 )))))) (define Commands-IDEMode-Idris-case--getIDECommand-2247 (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--2345-2289-getMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (EqOrd-Prelude-C-61C-61_Eq__String arg-4 "all"))) -(define Commands-IDEMode-Idris-n--3410-3081-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-n--2235-2289-getMode (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (EqOrd-Prelude-C-61C-61_Eq__String arg-4 "all"))) +(define Commands-IDEMode-Idris-n--3300-3081-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 (Types-Prelude-cast_Cast__Nat_Integer ext-0)))) @@ -7205,66 +7126,63 @@ (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-3175) (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-3175)) (lambda (arg-3175) (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-3176) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-3176)) (lambda (arg-3176) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-3176))) arg-3175))) (vector 0 (vector 4 "protocol-version") (vector 0 arg-0 arg-1))))) (define Commands-IDEMode-Idris-toSExp (lambda (arg-0 arg-1 ext-0) (arg-1 ext-0))) -(define Commands-IDEMode-Idris-sendStr (lambda (arg-0 arg-1 ext-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (vector 0 )) (File-System-fPutStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0 arg-1) ext-0))) -(define Commands-IDEMode-Idris-send (lambda (arg-0 arg-1 arg-2 arg-3) (let ((r (Strings-Types-Prelude-C-43C-43 (Commands-IDEMode-Idris-show_Show__SExp (arg-1 arg-3)) "\u000a"))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Commands-IDEMode-Idris-sendStr arg-2 (Hex-Utils-leftPad #\0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (Hex-Utils-asHex (Types-Prelude-cast_Cast__Nat_Int (Strings-Types-Prelude-length r)))) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (Commands-IDEMode-Idris-sendStr arg-2 r eta-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((File-System-fflush 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-26 (arg-317 eta-1))) ((arg-318 act-26) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-2) eta-0))) (vector 1 act-26)))))))))))))) +(define Commands-IDEMode-Idris-sendStr (lambda (arg-0 arg-1 ext-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (vector 0 )) (File-System-fPutStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0 arg-1) ext-0))) +(define Commands-IDEMode-Idris-send (lambda (arg-0 arg-1 arg-2 arg-3) (let ((r (Strings-Types-Prelude-C-43C-43 (Commands-IDEMode-Idris-show_Show__SExp (arg-1 arg-3)) "\u000a"))) (lambda (eta-0) (let ((act-24 (let ((act-24 (Commands-IDEMode-Idris-sendStr arg-2 (Hex-Utils-leftPad #\0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))) (Hex-Utils-asHex (Types-Prelude-cast_Cast__Nat_Int (Strings-Types-Prelude-length r)))) eta-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (let ((act-25 (Commands-IDEMode-Idris-sendStr arg-2 r eta-0))) (vector 1 act-25)))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-26 ((File-System-fflush 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-26 (arg-274 eta-1))) ((arg-275 act-26) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-2) eta-0))) (vector 1 act-26)))))))))))))) (define Commands-IDEMode-Idris-readHints (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-readHints e-3) (lambda (restC-39) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 1 e-4 restC-39))))))(else (vector 0 )))))))(else (vector 0 )))))) (define Commands-IDEMode-Idris-getMsg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((3) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Types-Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-getIDECommand e-2) (lambda (cmd) (Types-Prelude-pure_Applicative__Maybe 'erased (vector 0 cmd e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))) (define Commands-IDEMode-Idris-getIDECommand (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 "interpret") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 e-9)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "load-file") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 1 e-14 (vector 0 )))) ((1) (let ((e-17 (vector-ref sc6 1))) (let ((e-18 (vector-ref sc6 2))) (let ((sc7 e-17)) (case (vector-ref sc7 0) ((3) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 1 e-14 (vector 1 e-19))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "type-of") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((sc5 e-22)) (case (vector-ref sc5 0) ((1) (let ((e-24 (vector-ref sc5 1))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 2 e-24 (vector 0 )))) ((1) (let ((e-27 (vector-ref sc6 1))) (let ((e-28 (vector-ref sc6 2))) (let ((sc7 e-27)) (case (vector-ref sc7 0) ((3) (let ((e-29 (vector-ref sc7 1))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((1) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((3) (let ((e-33 (vector-ref sc9 1))) (let ((sc10 e-32)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 2 e-24 (vector 1 (vector 0 e-29 e-33)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "case-split") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-36)) (case (vector-ref sc5 0) ((3) (let ((e-38 (vector-ref sc5 1))) (let ((sc6 e-37)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((3) (let ((e-42 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((1) (let ((e-45 (vector-ref sc8 1))) (let ((e-46 (vector-ref sc8 2))) (let ((sc9 e-45)) (case (vector-ref sc9 0) ((1) (let ((e-47 (vector-ref sc9 1))) (let ((sc10 e-46)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 3 e-38 e-42 e-47)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 3 e-38 0 e-43)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-clause") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((3) (let ((e-53 (vector-ref sc5 1))) (let ((sc6 e-52)) (case (vector-ref sc6 0) ((1) (let ((e-55 (vector-ref sc6 1))) (let ((e-56 (vector-ref sc6 2))) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-57 (vector-ref sc7 1))) (let ((sc8 e-56)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 4 e-53 e-57)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-missing") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-60 (vector-ref sc4 1))) (let ((e-61 (vector-ref sc4 2))) (let ((sc5 e-60)) (case (vector-ref sc5 0) ((3) (let ((e-62 (vector-ref sc5 1))) (let ((sc6 e-61)) (case (vector-ref sc6 0) ((1) (let ((e-64 (vector-ref sc6 1))) (let ((e-65 (vector-ref sc6 2))) (let ((sc7 e-64)) (case (vector-ref sc7 0) ((1) (let ((e-66 (vector-ref sc7 1))) (let ((sc8 e-65)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 5 e-62 e-66)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "proof-search") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-69 (vector-ref sc4 1))) (let ((e-70 (vector-ref sc4 2))) (let ((sc5 e-69)) (case (vector-ref sc5 0) ((3) (let ((e-71 (vector-ref sc5 1))) (let ((sc6 e-70)) (case (vector-ref sc6 0) ((1) (let ((e-73 (vector-ref sc6 1))) (let ((e-74 (vector-ref sc6 2))) (let ((sc7 e-73)) (case (vector-ref sc7 0) ((1) (let ((e-75 (vector-ref sc7 1))) (let ((sc8 e-74)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 6 e-71 e-75 (vector 0 ) 1))) ((1) (let ((e-78 (vector-ref sc8 1))) (let ((e-79 (vector-ref sc8 2))) (let ((sc9 e-78)) (case (vector-ref sc9 0) ((0) (let ((e-80 (vector-ref sc9 1))) (let ((sc10 e-79)) (case (vector-ref sc10 0) ((0) (Commands-IDEMode-Idris-case--getIDECommand-2247 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--getIDECommand-2300 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 8 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 10 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 11 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 12 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))) (Types-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 13 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 15 e-130)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "directive") (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) ((1) (let ((e-135 (vector-ref sc5 1))) (let ((sc6 e-134)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 14 e-135)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "metavariables") (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) ((3) (let ((e-140 (vector-ref sc5 1))) (let ((sc6 e-139)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 16 e-140)))(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-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 17 e-145)))(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-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 18 e-150)))(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-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 19 e-155)))(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-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 20 e-160)))(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-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 21 e-165)))(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-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 22 e-170)))(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-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 23 e-175)))(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-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 24 e-180)))(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-183 (vector-ref sc4 1))) (let ((e-184 (vector-ref sc4 2))) (let ((sc5 e-183)) (case (vector-ref sc5 0) ((1) (let ((e-185 (vector-ref sc5 1))) (let ((sc6 e-184)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 25 e-185)))(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 27 )))(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 "proof-search-next") (vector 1 (vector 7 ))) ((equal? sc1 "generate-def-next") (vector 1 (vector 9 ))) ((equal? sc1 "version") (vector 1 (vector 26 )))(else (vector 0 ))))))(else (vector 0 )))))) -(define Commands-IDEMode-Idris-escape (lambda (ext-0) (Types-Prelude-pack ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Commands-IDEMode-Idris-n--3410-3081-escapeChar eta-0))) (Types-Prelude-unpack ext-0))))) -(define Error-Idris-case--perror-4653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-2 arg-6 arg-5 e-6 e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-4 arg-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't find an implementation for") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-5) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-8))))))))))))))))))))) -(define Error-Idris-case--perror-4101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Error-Idris-perror arg-3 arg-2 arg-1 e-1)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--13781-3985-pAlterror arg-0 arg-1 arg-2 arg-3 eta-1)) arg-0) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Sorry, I can't find any elaboration which works. All errors") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-5)))))))))))))) -(define Error-Idris-case--perror-3802 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 0)))))) -(define Error-Idris-case--perror-3524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-4 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased arg-2)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not accessible in this context."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-4 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Trying to use") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Error-Idris-n--13781-3467-prettyRig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-1) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Resugar-Idris-sugarName arg-2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Error-Idris-n--13781-3468-prettyRel arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-0) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "context.")))))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))))) -(define Error-Idris-case--perror-3294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Name-Core-pretty_Pretty__Name 'erased e-1)))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\s) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (arg-8) (Name-Core-pretty_Pretty__Name 'erased arg-8)) arg-0)))))))))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\s) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (arg-8) (Name-Core-pretty_Pretty__Name 'erased arg-8)) arg-0)))))))) -(define Error-Idris-case--perror-2638 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow arg-0 arg-7 arg-6 arg-3 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc2 arg-5 e-2 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Pattern variable") (vector 1 (Pretty-Idris-code (Error-Idris-n--13781-2430-prettyVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2)) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "unifies with") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-5) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 0 ))))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: Use the same name for both pattern variables, since they unify."))))))))))))))))))) -(define Error-Idris-case--caseC-32blockC-32inC-32perrorC-44order-2558 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 0 arg-15 arg-12)) (else (vector 0 arg-12 arg-15)))))) -(define Error-Idris-case--perrorC-44order-2467 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 0 arg-15 arg-12)) (else (Error-Idris-case--caseC-32blockC-32inC-32perrorC-44order-2558 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-61C-61_Eq__Int arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-47C-61_Eq__Int arg-17 arg-18)))) (vector 0 (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-61C-61_Eq__Int arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-47C-61_Eq__Int arg-17 arg-18)))) arg-14 arg-11) (lambda () (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-61C-61_Eq__Int arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-47C-61_Eq__Int arg-17 arg-18)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-61C-61_Eq__Int arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-47C-61_Eq__Int arg-17 arg-18)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-13 arg-10))))))))) -(define Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (vector 0 )) (else (Error-Idris-n--12254-867-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0)) (Error-Idris-n--12254-865-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) arg-13 arg-18)))))))) -(define Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-2)) (cond ((equal? sc1 0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (cond ((equal? sc3 0) (let ((sc4 e-11)) (cond ((equal? sc4 0) (let ((line (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-18 arg-7))))) (let ((emph (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-8)) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-14 arg-8) #\^)))) (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int (Types-Prelude-minus arg-9 arg-14)))) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-11 arg-9) #\^))))))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (vector 1 arg-17 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line (vector 1 emph (vector 0 )))))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 0 )))))))))))) ((equal? sc4 1) (let ((line1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-18 arg-7))))) (let ((emph1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-8)) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-14 arg-8) #\^))))))) (let ((line2 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-18 arg-10))))) (let ((emph2 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-9)) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-11 arg-9) #\^))))))) (let ((numbered (Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1663 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 line1 emph1 line2 emph2 (Types-Prelude-C-61C-61_Eq__Nat (Types-Prelude-minus arg-10 arg-13) (Types-Prelude-fromInteger_Num__Nat 1))))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (List-Types-Prelude-C-43C-43 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (vector 1 arg-17 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line1 (vector 1 emph1 (vector 0 )))))) (vector 0 ))))) (List-Types-Prelude-C-43C-43 'erased numbered (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-10 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line2 (vector 1 emph2 (vector 0 )))))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 0 ))))))))))))))(else (let ((sc4 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--12254-867-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--12254-865-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased))))))))) ((equal? sc3 1) (let ((line (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-18 arg-7))))) (let ((emph (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-8)) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-14 arg-8) #\^))))))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (List-Types-Prelude-C-43C-43 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (vector 1 arg-17 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line (vector 1 emph (vector 0 )))))) (vector 0 ))))) (List-Types-Prelude-C-43C-43 'erased (Error-Idris-n--12254-867-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--12254-865-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) (Types-Prelude-max_Ord__Nat arg-13 arg-12) arg-18))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 0 ))))))))))(else (let ((sc3 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--12254-867-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--12254-865-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)))))))))))(else (let ((sc2 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--12254-867-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--12254-865-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased))))))))) ((equal? sc1 1) (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)) (cond ((equal? sc3 0) (let ((sc4 e-15)) (cond ((equal? sc4 0) (let ((line (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-18 arg-7))))) (let ((emph (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-8)) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-14 arg-8) #\^))))))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (List-Types-Prelude-C-43C-43 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (vector 1 arg-17 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line (vector 1 emph (vector 0 )))))) (vector 0 ))))) (List-Types-Prelude-C-43C-43 'erased (Error-Idris-n--12254-867-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--12254-865-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) (Types-Prelude-max_Ord__Nat arg-13 arg-12) arg-18))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 0 )))))))))) ((equal? sc4 1) (let ((top (Error-Idris-n--12254-867-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0)) (Error-Idris-n--12254-865-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) arg-13 arg-18))))) (let ((line (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-18 arg-7))))) (let ((emph (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-9)) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-11 arg-9) #\^))))))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (List-Types-Prelude-C-43C-43 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (vector 1 arg-17 (vector 0 )))) (List-Types-Prelude-C-43C-43 'erased top (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-10 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line (vector 1 emph (vector 0 )))))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 0 ))))))))))))(else (let ((sc4 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--12254-867-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--12254-865-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)))))))))(else (let ((sc3 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--12254-867-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--12254-865-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)))))))))))(else (let ((sc2 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--12254-867-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--12254-865-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)))))))))(else (let ((sc1 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--12254-867-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--12254-865-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased))))))))))))) -(define Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-6 (vector 0 arg-2 arg-1 arg-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-6 (vector 0 arg-5 arg-4 arg-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased e-5 (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))) (else (let ((nsize (Strings-Types-Prelude-length (Show-Prelude-show_Show__Nat (Types-Prelude-C-43_Num__Nat arg-13 (Types-Prelude-fromInteger_Num__Nat 1)))))) (let ((head (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (FC-Core-pretty_Pretty__FC 'erased (vector 0 arg-2 arg-1 arg-3))))) (let ((firstRow (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int (Types-Prelude-C-43_Num__Nat nsize (+ 1 (+ 1 0))))) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased))))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Data-lines e-5))))))) (lambda (eta-1) (REPLOpts-Idris-getCurrentElabSource arg-6 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1331 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 arg-10 arg-9 arg-14 arg-13 arg-12 arg-11 nsize head firstRow e-5 (vector 0 (Types-Prelude-C-61C-61_Eq__Nat arg-8 arg-12) (vector 0 (Types-Prelude-C-61C-61_Eq__Nat arg-9 arg-13) (Types-Prelude-C-61C-61_Eq__Nat arg-8 arg-9)))) eta-0))))))))))))))) -(define Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1167 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 arg-10 arg-9 arg-12 arg-11 e-2 e-3 (Types-Prelude-C-62_Ord__Nat e-2 (Types-Prelude-C-43_Num__Nat arg-11 (Types-Prelude-fromInteger_Num__Nat 5))))))))) -(define Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1071 (lambda (arg-0 arg-1 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))) (Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1119 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 arg-10 arg-9 e-2 e-3 (Error-Idris-n--12254-864-bimap arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased (lambda (eta-0) (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer eta-0))) arg-3))))))) -(define Error-Idris-case--caseC-32blockC-32inC-32ploc2-1029 (lambda (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))) (Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1071 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 e-2 e-3 (Error-Idris-n--12254-864-bimap arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased (lambda (eta-0) (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer eta-0))) arg-0))))))) -(define Error-Idris-case--ploc2-993 (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))) (Error-Idris-case--caseC-32blockC-32inC-32ploc2-1029 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 (Error-Idris-n--12254-864-bimap arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased (lambda (eta-0) (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer eta-0))) arg-4))))))) -(define Error-Idris-case--ploc2C-44addLineNumbers-922 (lambda (arg-0 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 (l) (vector 0 (+ 1 e-2) (List-Data-snoc 'erased e-3 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Error-Idris-n--12254-866-pad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 (Show-Prelude-show_Show__Nat (Types-Prelude-C-43_Num__Nat e-2 (+ 1 0))))) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)))) l))))))))) -(define Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc-672 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((firstRow (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int (Types-Prelude-C-43_Num__Nat arg-9 (+ 1 (+ 1 0))))) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased))))) (let ((line (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-11 arg-6))))) (let ((emph (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-5)) (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 1 ) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-8 arg-5) #\^))))))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-10 (vector 1 firstRow (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-6 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line (vector 1 emph (vector 0 )))))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-10 (Error-Idris-n--11825-466-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-6 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--11825-464-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 (Types-Prelude-min_Ord__Nat arg-7 (Types-Prelude-C-43_Num__Nat arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) arg-11)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased))))))))) -(define Error-Idris-case--caseC-32blockC-32inC-32ploc-620 (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 ((nsize (Strings-Types-Prelude-length (Show-Prelude-show_Show__Nat (Types-Prelude-C-43_Num__Nat e-2 (Types-Prelude-fromInteger_Num__Nat 1)))))) (let ((head (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (FC-Core-pretty_Pretty__FC 'erased arg-3)))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Data-lines e-5))))))) (lambda (eta-1) (REPLOpts-Idris-getCurrentElabSource arg-4 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc-672 arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-5 e-2 e-3 nsize head e-5 (Types-Prelude-C-61C-61_Eq__Nat arg-5 e-2)) eta-0)))))))))))))) -(define Error-Idris-case--ploc-588 (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))) (Error-Idris-case--caseC-32blockC-32inC-32ploc-620 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (Error-Idris-n--11825-463-bimap arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased (lambda (eta-0) (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer eta-0))) arg-0))))))) -(define Error-Idris-case--plocC-44addLineNumbers-521 (lambda (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 (l) (vector 0 (+ 1 e-2) (List-Data-snoc 'erased e-3 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Error-Idris-n--11825-465-pad arg-0 arg-1 arg-2 arg-3 arg-4 arg-7 (Show-Prelude-show_Show__Nat (Types-Prelude-C-43_Num__Nat e-2 (+ 1 0))))) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)))) l))))))))) -(define Error-Idris-case--caseC-32blockC-32inC-32pShowMN-302 (lambda (arg-0 arg-1 arg-2 arg-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) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased arg-2 (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "implicitly bound at") (FC-Core-pretty_Pretty__FC 'erased (Env-Core-getBinderLoc 'erased 'erased arg-1 arg-6 'erased arg-3))))))(else arg-2))))) -(define Error-Idris-case--pShowMN-283 (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))) (let ((t (vector 0 e-2 e-3 e-4))) (Error-Idris-case--caseC-32blockC-32inC-32pShowMN-302 'erased arg-1 arg-2 arg-3 'erased e-3 e-4 'erased e-2 t (Name-Core-dropAllNS (TT-Core-nameAt 'erased arg-1 e-4 'erased))))))))(else arg-2))))) -(define Error-Idris-n--13781-4449-tshow (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow arg-7 arg-6 arg-5 arg-8 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-2) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-code e-5))))))))))))))) -(define Error-Idris-n--13781-2430-prettyVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-n--13781-2430-prettyVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0)))(else (Name-Core-pretty_Pretty__Name 'erased arg-8)))))) -(define Error-Idris-n--13781-3467-prettyRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-8 arg-9))))) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "irrelevant") (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "linear") (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "unrestricted")) ext-0))) -(define Error-Idris-n--13781-3468-prettyRel (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-8 arg-9))))) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "irrelevant") (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "relevant") (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "non-linear")) ext-0))) -(define Error-Idris-n--13781-4766-prettyHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-1 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-n--13781-4766-prettyHoles arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-meta (Name-Core-pretty_Pretty__Name 'erased e-7)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "introduced at:") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased e-5 e-8))))))))))))))))))))))))) -(define Error-Idris-n--12254-866-pad (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Strings-Types-Prelude-C-43C-43 (Extra-String-Data-replicate (Types-Prelude-minus arg-7 (Strings-Types-Prelude-length arg-8)) #\0) arg-8))) -(define Error-Idris-n--11825-465-pad (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Strings-Types-Prelude-C-43C-43 (Extra-String-Data-replicate (Types-Prelude-minus arg-5 (Strings-Types-Prelude-length arg-6)) #\0) arg-6))) -(define Error-Idris-n--13781-3985-pAlterror (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-aliasName arg-3 e-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Error-Idris-perror arg-3 arg-2 arg-1 e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "If") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-7)) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) e-8))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-2 arg-1 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Possible error") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-indent 'erased 4 e-5))))))))))))))))) -(define Error-Idris-n--13781-2431-order (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (vector 0 (vector 1 ) arg-9))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (vector 0 arg-8 (vector 1 )))(else (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((fc2 (vector 0 e-3 e-4 e-5))) (let ((fc1 (vector 0 e-0 e-1 e-2))) (Error-Idris-case--perrorC-44order-2467 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0 e-3 e-5 e-4 fc2 e-2 e-1 fc1 (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-61C-61_Eq__Int arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-47C-61_Eq__Int arg-10 arg-11)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-61C-61_Eq__Int arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-47C-61_Eq__Int arg-10 arg-11)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) e-1 e-4)))))))))))))))))))) -(define Error-Idris-n--12254-865-extractRange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (List-Data-take 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-minus arg-8 arg-7) (+ 1 0)) (List-Data-drop 'erased arg-7 arg-9)))) -(define Error-Idris-n--11825-464-extractRange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Data-take 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-minus arg-6 arg-5) (+ 1 0)) (List-Data-drop 'erased arg-5 arg-7)))) -(define Error-Idris-n--13781-4584-dropEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (Error-Idris-n--13781-4584-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-7) (vector 1 e-3 arg-8) e-4)) ((1) (Error-Idris-n--13781-4584-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-7) (vector 1 e-3 arg-8) e-4))(else (vector 0 arg-7 (vector 0 arg-8 arg-9)))))))))(else (vector 0 arg-7 (vector 0 arg-8 arg-9))))))) -(define Error-Idris-n--12254-864-bimap (lambda (arg-0 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) (arg-9 e-3))))))) -(define Error-Idris-n--11825-463-bimap (lambda (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 (arg-7 e-2) (arg-7 e-3))))))) -(define Error-Idris-n--13781-3986-allUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((7) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 7 e-8 e-9)))(else (Error-Idris-n--13781-3986-allUndefined arg-0 arg-1 arg-2 arg-3 e-3)))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) -(define Error-Idris-n--12254-867-addLineNumbers (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Builtin-snd 'erased 'erased (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (l) (vector 0 (+ 1 e-2) (List-Data-snoc 'erased e-3 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Error-Idris-n--12254-866-pad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Show-Prelude-show_Show__Nat (Types-Prelude-C-43_Num__Nat e-2 (+ 1 0))))) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)))) l)))))))) (vector 0 arg-8 (vector 0 )) arg-9)))) -(define Error-Idris-n--11825-466-addLineNumbers (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Builtin-snd 'erased 'erased (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (lamc-0) (let ((fc (vector 0 arg-2 arg-1 arg-0))) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (l) (vector 0 (+ 1 e-2) (List-Data-snoc 'erased e-3 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Error-Idris-n--11825-465-pad arg-0 arg-1 arg-2 fc arg-4 arg-5 (Show-Prelude-show_Show__Nat (Types-Prelude-C-43_Num__Nat e-2 (+ 1 0))))) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)))) l))))))))) (vector 0 arg-6 (vector 0 )) arg-7)))) +(define Commands-IDEMode-Idris-escape (lambda (ext-0) (Types-Prelude-pack ((Interfaces-Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2 arg-3))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Commands-IDEMode-Idris-n--3300-3081-escapeChar eta-0))) (Types-Prelude-unpack ext-0))))) +(define Error-Idris-case--perror-4540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-2 arg-6 arg-5 e-6 e-7 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-4 arg-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't find an implementation for") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-5) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-8))))))))))))))))))))) +(define Error-Idris-case--perror-3992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Error-Idris-perror arg-3 arg-2 arg-1 e-1)))(else (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--13479-3876-pAlterror arg-0 arg-1 arg-2 arg-3 eta-1)) arg-0) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Sorry, I can't find any elaboration which works. All errors") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-5)))))))))))))) +(define Error-Idris-case--perror-3693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 0)))))) +(define Error-Idris-case--perror-3415 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-4 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased arg-2)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not accessible in this context."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-4 arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Trying to use") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Error-Idris-n--13479-3358-prettyRig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-1) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Resugar-Idris-sugarName arg-2))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Error-Idris-n--13479-3359-prettyRel arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased arg-0) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "context.")))))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))))) +(define Error-Idris-case--perror-3185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Name-Core-pretty_Pretty__Name 'erased e-1)))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\s) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (arg-8) (Name-Core-pretty_Pretty__Name 'erased arg-8)) arg-0)))))))))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\s) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (arg-8) (Name-Core-pretty_Pretty__Name 'erased arg-8)) arg-0)))))))) +(define Error-Idris-case--perror-2529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow arg-0 arg-7 arg-6 arg-3 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc2 arg-5 e-2 e-3) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Pattern variable") (vector 1 (Pretty-Idris-code (Error-Idris-n--13479-2321-prettyVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2)) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "unifies with") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-5) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 0 ))))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: Use the same name for both pattern variables, since they unify."))))))))))))))))))) +(define Error-Idris-case--caseC-32blockC-32inC-32perrorC-44order-2449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (vector 0 arg-15 arg-12)) (else (vector 0 arg-12 arg-15)))))) +(define Error-Idris-case--perrorC-44order-2358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 0 arg-15 arg-12)) (else (Error-Idris-case--caseC-32blockC-32inC-32perrorC-44order-2449 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 (Basics-Prelude-C-38C-38 (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-61C-61_Eq__Int arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-47C-61_Eq__Int arg-17 arg-18)))) (vector 0 (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-61C-61_Eq__Int arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-47C-61_Eq__Int arg-17 arg-18)))) arg-14 arg-11) (lambda () (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-61C-61_Eq__Int arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-47C-61_Eq__Int arg-17 arg-18)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-61C-61_Eq__Int arg-17 arg-18))) (lambda (arg-17) (lambda (arg-18) (EqOrd-Prelude-C-47C-61_Eq__Int arg-17 arg-18)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-13 arg-10))))))))) +(define Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (vector 0 )) (else (Error-Idris-n--11952-758-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0)) (Error-Idris-n--11952-756-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) arg-13 arg-18)))))))) +(define Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-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) (let ((sc0 arg-19)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (cond ((equal? sc3 0) (let ((sc4 e-11)) (cond ((equal? sc4 0) (let ((line (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-18 arg-7))))) (let ((emph (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-8)) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-14 arg-8) #\^)))) (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int (Types-Prelude-minus arg-9 arg-14)))) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-11 arg-9) #\^))))))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (vector 1 arg-17 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line (vector 1 emph (vector 0 )))))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 0 )))))))))))) ((equal? sc4 1) (let ((line1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-18 arg-7))))) (let ((emph1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-8)) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-14 arg-8) #\^))))))) (let ((line2 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-18 arg-10))))) (let ((emph2 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-9)) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-11 arg-9) #\^))))))) (let ((numbered (Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1554 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 line1 emph1 line2 emph2 (Types-Prelude-C-61C-61_Eq__Nat (Types-Prelude-minus arg-10 arg-13) (Types-Prelude-fromInteger_Num__Nat 1))))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (List-Types-Prelude-C-43C-43 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (vector 1 arg-17 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line1 (vector 1 emph1 (vector 0 )))))) (vector 0 ))))) (List-Types-Prelude-C-43C-43 'erased numbered (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-10 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line2 (vector 1 emph2 (vector 0 )))))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 0 ))))))))))))))(else (let ((sc4 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--11952-758-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--11952-756-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased))))))))) ((equal? sc3 1) (let ((line (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-18 arg-7))))) (let ((emph (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-8)) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-14 arg-8) #\^))))))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (List-Types-Prelude-C-43C-43 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (vector 1 arg-17 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line (vector 1 emph (vector 0 )))))) (vector 0 ))))) (List-Types-Prelude-C-43C-43 'erased (Error-Idris-n--11952-758-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--11952-756-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) (Types-Prelude-max_Ord__Nat arg-13 arg-12) arg-18))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 0 ))))))))))(else (let ((sc3 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--11952-758-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--11952-756-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)))))))))))(else (let ((sc2 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--11952-758-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--11952-756-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased))))))))) ((equal? sc1 1) (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)) (cond ((equal? sc3 0) (let ((sc4 e-15)) (cond ((equal? sc4 0) (let ((line (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-18 arg-7))))) (let ((emph (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-8)) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-14 arg-8) #\^))))))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (List-Types-Prelude-C-43C-43 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (vector 1 arg-17 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line (vector 1 emph (vector 0 )))))) (vector 0 ))))) (List-Types-Prelude-C-43C-43 'erased (Error-Idris-n--11952-758-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--11952-756-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) (Types-Prelude-max_Ord__Nat arg-13 arg-12) arg-18))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 0 )))))))))) ((equal? sc4 1) (let ((top (Error-Idris-n--11952-758-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0)) (Error-Idris-n--11952-756-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Types-Prelude-C-43_Num__Nat arg-7 (+ 1 0)) arg-13 arg-18))))) (let ((line (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-18 arg-7))))) (let ((emph (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-9)) (Pretty-Idris-error (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-11 arg-9) #\^))))))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (List-Types-Prelude-C-43C-43 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (vector 1 arg-17 (vector 0 )))) (List-Types-Prelude-C-43C-43 'erased top (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-fileCtxt (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-10 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line (vector 1 emph (vector 0 )))))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 0 ))))))))))))(else (let ((sc4 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--11952-758-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--11952-756-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)))))))))(else (let ((sc3 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--11952-758-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--11952-756-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)))))))))))(else (let ((sc2 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--11952-758-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--11952-756-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)))))))))(else (let ((sc1 e-3)) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-16 (Error-Idris-n--11952-758-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-15 arg-7 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--11952-756-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-12 arg-18)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased))))))))))))) +(define Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1058 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-6 (vector 0 arg-2 arg-1 arg-0)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-6 (vector 0 arg-5 arg-4 arg-3)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased e-5 (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))) (else (let ((nsize (Strings-Types-Prelude-length (Show-Prelude-show_Show__Nat (Types-Prelude-C-43_Num__Nat arg-13 (Types-Prelude-fromInteger_Num__Nat 1)))))) (let ((head (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (FC-Core-pretty_Pretty__FC 'erased (vector 0 arg-2 arg-1 arg-3))))) (let ((firstRow (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int (Types-Prelude-C-43_Num__Nat nsize (+ 1 (+ 1 0))))) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased))))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Data-lines e-5))))))) (lambda (eta-1) (REPLOpts-Idris-getCurrentElabSource arg-6 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1222 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 arg-10 arg-9 arg-14 arg-13 arg-12 arg-11 nsize head firstRow e-5 (vector 0 (Types-Prelude-C-61C-61_Eq__Nat arg-8 arg-12) (vector 0 (Types-Prelude-C-61C-61_Eq__Nat arg-9 arg-13) (Types-Prelude-C-61C-61_Eq__Nat arg-8 arg-9)))) eta-0))))))))))))))) +(define Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1010 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1058 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 arg-10 arg-9 arg-12 arg-11 e-2 e-3 (Types-Prelude-C-62_Ord__Nat e-2 (Types-Prelude-C-43_Num__Nat arg-11 (Types-Prelude-fromInteger_Num__Nat 5))))))))) +(define Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-962 (lambda (arg-0 arg-1 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))) (Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-1010 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 arg-10 arg-9 e-2 e-3 (Error-Idris-n--11952-755-bimap arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased (lambda (eta-0) (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer eta-0))) arg-3))))))) +(define Error-Idris-case--caseC-32blockC-32inC-32ploc2-920 (lambda (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))) (Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc2-962 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-8 arg-7 e-2 e-3 (Error-Idris-n--11952-755-bimap arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased (lambda (eta-0) (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer eta-0))) arg-0))))))) +(define Error-Idris-case--ploc2-884 (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))) (Error-Idris-case--caseC-32blockC-32inC-32ploc2-920 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 (Error-Idris-n--11952-755-bimap arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased (lambda (eta-0) (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer eta-0))) arg-4))))))) +(define Error-Idris-case--ploc2C-44addLineNumbers-813 (lambda (arg-0 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 (l) (vector 0 (+ 1 e-2) (List-Data-snoc 'erased e-3 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Error-Idris-n--11952-757-pad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 (Show-Prelude-show_Show__Nat (Types-Prelude-C-43_Num__Nat e-2 (+ 1 0))))) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)))) l))))))))) +(define Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc-563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((firstRow (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int (Types-Prelude-C-43_Num__Nat arg-9 (+ 1 (+ 1 0))))) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased))))) (let ((line (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Types-Prelude-maybe 'erased 'erased (lambda () (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)) (lambda () (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0))) (Extra-List-Data-elemAt 'erased arg-11 arg-6))))) (let ((emph (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-spaces 'erased (Types-Prelude-cast_Cast__Nat_Int arg-5)) (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 1 ) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Extra-String-Data-replicate (Types-Prelude-minus arg-8 arg-5) #\^))))))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-10 (vector 1 firstRow (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased (Types-Prelude-C-43_Num__Nat arg-6 (+ 1 0))))) (Doc-Prettyprinter-PrettyPrint-Text-align 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 line (vector 1 emph (vector 0 )))))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 0 ))))))))))))) (else (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased) (vector 1 arg-10 (Error-Idris-n--11523-357-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-6 (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) (Error-Idris-n--11523-355-extractRange arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 (Types-Prelude-min_Ord__Nat arg-7 (Types-Prelude-C-43_Num__Nat arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) arg-11)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased))))))))) +(define Error-Idris-case--caseC-32blockC-32inC-32ploc-511 (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 ((nsize (Strings-Types-Prelude-length (Show-Prelude-show_Show__Nat (Types-Prelude-C-43_Num__Nat e-2 (Types-Prelude-fromInteger_Num__Nat 1)))))) (let ((head (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (FC-Core-pretty_Pretty__FC 'erased arg-3)))) (lambda (eta-0) (let ((act-24 (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Strings-Data-lines e-5))))))) (lambda (eta-1) (REPLOpts-Idris-getCurrentElabSource arg-4 eta-1)) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) ((Error-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32ploc-563 arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-5 e-2 e-3 nsize head e-5 (Types-Prelude-C-61C-61_Eq__Nat arg-5 e-2)) eta-0)))))))))))))) +(define Error-Idris-case--ploc-479 (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))) (Error-Idris-case--caseC-32blockC-32inC-32ploc-511 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (Error-Idris-n--11523-354-bimap arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased (lambda (eta-0) (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer eta-0))) arg-0))))))) +(define Error-Idris-case--plocC-44addLineNumbers-412 (lambda (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 (l) (vector 0 (+ 1 e-2) (List-Data-snoc 'erased e-3 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Error-Idris-n--11523-356-pad arg-0 arg-1 arg-2 arg-3 arg-4 arg-7 (Show-Prelude-show_Show__Nat (Types-Prelude-C-43_Num__Nat e-2 (+ 1 0))))) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)))) l))))))))) +(define Error-Idris-n--13479-4340-tshow (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow arg-7 arg-6 arg-5 arg-8 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Name-Core-pretty_Pretty__Name 'erased e-2) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased) (Pretty-Idris-code e-5))))))))))))))) +(define Error-Idris-n--13479-2321-prettyVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-n--13479-2321-prettyVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0)))(else (Name-Core-pretty_Pretty__Name 'erased arg-8)))))) +(define Error-Idris-n--13479-3358-prettyRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-8 arg-9))))) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "irrelevant") (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "linear") (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "unrestricted")) ext-0))) +(define Error-Idris-n--13479-3359-prettyRel (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-8 arg-9))))) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "irrelevant") (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "relevant") (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "non-linear")) ext-0))) +(define Error-Idris-n--13479-4653-prettyHoles (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-1 e-6) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-n--13479-4653-prettyHoles arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-meta (Name-Core-pretty_Pretty__Name 'erased e-7)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "introduced at:") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased e-5 e-8))))))))))))))))))))))))) +(define Error-Idris-n--11952-757-pad (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Strings-Types-Prelude-C-43C-43 (Extra-String-Data-replicate (Types-Prelude-minus arg-7 (Strings-Types-Prelude-length arg-8)) #\0) arg-8))) +(define Error-Idris-n--11523-356-pad (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Strings-Types-Prelude-C-43C-43 (Extra-String-Data-replicate (Types-Prelude-minus arg-5 (Strings-Types-Prelude-length arg-6)) #\0) arg-6))) +(define Error-Idris-n--13479-3876-pAlterror (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-3 e-5) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-25 (Context-Core-aliasName arg-3 e-6 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-26 ((Error-Idris-perror arg-3 arg-2 arg-1 e-3) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "If") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-7)) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) e-8))))))))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-3 arg-2 arg-1 e-3) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Possible error") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-indent 'erased 4 e-5))))))))))))))))) +(define Error-Idris-n--13479-2322-order (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (vector 0 (vector 1 ) arg-9))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (vector 0 arg-8 (vector 1 )))(else (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-9)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((fc2 (vector 0 e-3 e-4 e-5))) (let ((fc1 (vector 0 e-0 e-1 e-2))) (Error-Idris-case--perrorC-44order-2358 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-0 e-3 e-5 e-4 fc2 e-2 e-1 fc1 (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-61C-61_Eq__Int arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-47C-61_Eq__Int arg-10 arg-11)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-61C-61_Eq__Int arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-47C-61_Eq__Int arg-10 arg-11)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) e-1 e-4)))))))))))))))))))) +(define Error-Idris-n--11952-756-extractRange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (List-Data-take 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-minus arg-8 arg-7) (+ 1 0)) (List-Data-drop 'erased arg-7 arg-9)))) +(define Error-Idris-n--11523-355-extractRange (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Data-take 'erased (Types-Prelude-C-43_Num__Nat (Types-Prelude-minus arg-6 arg-5) (+ 1 0)) (List-Data-drop 'erased arg-5 arg-7)))) +(define Error-Idris-n--13479-4475-dropEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (Error-Idris-n--13479-4475-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-7) (vector 1 e-3 arg-8) e-4)) ((1) (Error-Idris-n--13479-4475-dropEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 1 e-2 arg-7) (vector 1 e-3 arg-8) e-4))(else (vector 0 arg-7 (vector 0 arg-8 arg-9)))))))))(else (vector 0 arg-7 (vector 0 arg-8 arg-9))))))) +(define Error-Idris-n--11952-755-bimap (lambda (arg-0 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) (arg-9 e-3))))))) +(define Error-Idris-n--11523-354-bimap (lambda (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 (arg-7 e-2) (arg-7 e-3))))))) +(define Error-Idris-n--13479-3877-allUndefined (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((7) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 7 e-8 e-9)))(else (Error-Idris-n--13479-3877-allUndefined arg-0 arg-1 arg-2 arg-3 e-3)))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) +(define Error-Idris-n--11952-758-addLineNumbers (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (Builtin-snd 'erased 'erased (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (l) (vector 0 (+ 1 e-2) (List-Data-snoc 'erased e-3 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Error-Idris-n--11952-757-pad arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Show-Prelude-show_Show__Nat (Types-Prelude-C-43_Num__Nat e-2 (+ 1 0))))) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)))) l)))))))) (vector 0 arg-8 (vector 0 )) arg-9)))) +(define Error-Idris-n--11523-357-addLineNumbers (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Builtin-snd 'erased 'erased (Types-Prelude-foldl_Foldable__List 'erased 'erased (lambda (lamc-0) (let ((fc (vector 0 arg-2 arg-1 arg-0))) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (l) (vector 0 (+ 1 e-2) (List-Data-snoc 'erased e-3 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Error-Idris-n--11523-356-pad arg-0 arg-1 arg-2 fc arg-4 arg-5 (Show-Prelude-show_Show__Nat (Types-Prelude-C-43_Num__Nat e-2 (+ 1 0))))) (Symbols-Prettyprinter-PrettyPrint-Text-pipe 'erased)))) l))))))))) (vector 0 arg-6 (vector 0 )) arg-7)))) (define Error-Idris-pwarning (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-0 arg-0 arg-1 e-2 e-3 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-1) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Unreachable clause:") (Pretty-Idris-code e-5))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))))) -(define Error-Idris-pshowNoNorm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-3 arg-4 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Error-Idris-pShowMN 'erased arg-0 arg-4 arg-3 (Pretty-Idris-prettyTerm e-6)))))))))))))) -(define Error-Idris-pshow (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-3 arg-4 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-3 e-6 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (vector 1 (Error-Idris-pShowMN 'erased arg-0 e-6 arg-3 (Pretty-Idris-prettyTerm e-7)))))))))))))))))))) -(define Error-Idris-ploc2 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (Error-Idris-ploc arg-0 arg-1))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (Error-Idris-ploc arg-0 arg-2)) (else (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (Error-Idris-case--ploc2-993 e-2 e-1 e-0 e-5 e-4 e-3 arg-0 (Error-Idris-n--12254-864-bimap e-2 e-1 e-0 e-5 e-4 e-3 arg-0 'erased 'erased (lambda (eta-0) (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer eta-0))) e-1))))))))))))))))) -(define Error-Idris-ploc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)))) (else (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((fc (vector 0 e-0 e-1 e-2))) (Error-Idris-case--ploc-588 e-2 e-1 e-0 fc arg-0 (Error-Idris-n--11825-463-bimap e-2 e-1 e-0 fc arg-0 'erased 'erased (lambda (eta-0) (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer eta-0))) e-1))))))))))) -(define Error-Idris-perror (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-perror arg-0 arg-1 arg-2 e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-1 arg-0 arg-1 e-3 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-1 arg-0 arg-1 e-3 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Mismatch between") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (vector 1 (Pretty-Idris-code e-6) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "and"))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-7) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 0 ))))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-8)))))))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-6 arg-0 arg-1 e-8 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-6 arg-0 arg-1 e-8 e-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't solve constraint between") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (vector 1 (Pretty-Idris-code e-5) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "and"))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-11) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 0 ))))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-12)))))))))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((e-15 (vector-ref sc0 5))) (Error-Idris-case--perror-2638 e-11 e-15 e-14 e-13 e-12 arg-2 arg-1 arg-0 (Error-Idris-n--13781-2431-order e-11 e-15 e-14 e-13 e-12 arg-2 arg-1 arg-0 e-12 (TT-Core-getLoc 'erased e-15))))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-16 arg-0 arg-1 e-18 e-20 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Cycle detected in solution of metavariable") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-meta (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Pretty-Idris-code e-6))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-7)))))))))))))))))))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-21 arg-0 arg-1 e-23 e-24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-21 arg-0 arg-1 e-23 e-25 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-perror arg-0 arg-1 arg-2 e-26) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "When unifying") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "and") (Pretty-Idris-code e-6))))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-7)))))))))))))))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-197 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-27 arg-0 arg-1 e-29 e-197 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-28) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not a valid impossible case."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))) (else (let ((e-200 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-1 arg-2 e-200) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Impossible pattern gives an error") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Undefined name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-32)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-line 'erased) e-5)))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((sc1 e-35)) (case (vector-ref sc1 0) ((1) (let ((e-202 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-33) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-34)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is inaccessible since") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Error-Idris-joinNs e-202)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not explicitly imported.")))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: add an explicit")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "export")))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "or") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "public") (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "export"))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "modifier. By default, all names are") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "private")))) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "in namespace blocks.")))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-33) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-34)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is private.")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: add an explicit")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "export")))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "or") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "public") (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "export"))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "modifier. By default, all names are") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "private")))) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "in namespace blocks."))))))))))))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-36) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Return type of") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-37)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "must be") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Type")))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-40 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Return type of") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-39)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "must be in") (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-5)))))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-line 'erased) e-6)))))))))))))))))) ((11) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Internal error") (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Coverage of") (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-42))))))))) ((1) (let ((e-204 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-41) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow (vector 0 ) arg-0 arg-1 (vector 0 ) eta-1 eta-2))) e-204) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not covering."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Missing cases")) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-indent 'erased 4 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-7))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased))))))))))))))))))))) (else (let ((e-205 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-41) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not covering."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Calls non covering function")) (let ((sc4 e-205)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Name-Core-pretty_Pretty__Name 'erased e-1)))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\s) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (arg-4) (Name-Core-pretty_Pretty__Name 'erased arg-4)) e-205)))))))))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\s) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (arg-4) (Name-Core-pretty_Pretty__Name 'erased arg-4)) e-205))))))))))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-44) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not total,") (TT-Core-pretty_Pretty__PartialReason 'erased e-46)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))))) ((13) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-47) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "There are") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased e-48) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "uses of linear name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Resugar-Idris-sugarName e-49))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-line 'erased) e-5) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: linearly bounded variables must be used exactly once.")))))))))))))) ((14) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((e-53 (vector-ref sc0 4))) (Error-Idris-case--perror-3524 e-53 e-52 e-51 e-50 arg-2 arg-1 arg-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) e-52))))))) ((15) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-56 (vector-ref sc0 3))) (let ((e-57 (vector-ref sc0 4))) (let ((e-58 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-54 arg-0 arg-1 e-56 e-57 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-54 arg-0 arg-1 e-56 e-58 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-55) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "borrows argument") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-6) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "so must be fully applied."))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-7)))))))))))))))))))))))) ((16) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((e-61 (vector-ref sc0 3))) (let ((e-62 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-59 arg-0 arg-1 e-61 e-62 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-60) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "borrows, so must return a concrete type."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))) ((17) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-63) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Ambiguous name") (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40ListC-32C-36aC-41 'erased 'erased (vector 0 (lambda (ann) (lambda (arg-3265) (Name-Core-pretty_Pretty__Name 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Name-Core-prettyPrec_Pretty__Name 'erased arg-3266 arg-3267))))) e-64)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((18) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (vector 0 e-0 e-1 0)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow e-65 arg-0 arg-1 e-67 eta-1 eta-2))) e-68) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Error-Idris-ploc arg-2 e-66) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((res (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Ambiguous elaboration. Possible results") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-indent 'erased 4 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-7)) (vector 0 )))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-8))) (let ((act-28 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 res))))))))))))))))))))))))))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-71 (vector-ref sc0 3))) (let ((e-72 (vector-ref sc0 4))) (let ((e-73 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshowNoNorm e-69 arg-0 arg-1 e-71 e-72 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-70) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshowNoNorm e-69 arg-0 arg-1 e-71 eta-1 eta-2))) e-73) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Multiple solutions found in search of") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-indent 'erased 4 e-5) (vector 1 e-6 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Possible correct results") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-indent 'erased 4 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-7)) (vector 0 )))))))))))))))))))))))))))))) ((20) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (let ((e-76 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 e-75) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) e-76) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-74) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Maximum ambiguity depth exceeded in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-5)) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased " --> ") eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (arg-4) (Name-Core-pretty_Pretty__Name 'erased arg-4)) e-6))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-line 'erased) e-7) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: the default ambiguity depth limit is 3, the")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "%ambiguity_depth")))) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "pragma can be used to extend this limit, but beware compilation times can be severely impacted."))))))))))))))))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (Error-Idris-case--perror-4101 e-77 arg-2 arg-1 arg-0 (Error-Idris-n--13781-3986-allUndefined e-77 arg-2 arg-1 arg-0 e-77)))) ((22) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-79) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't infer type for this record update.")) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5)))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (let ((sc1 e-83)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-81) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-82)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not part of a record type."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))) (else (let ((e-208 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 e-208) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-81) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Record type") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-5)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "has no field") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-82)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 e-85) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-84) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-5)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not a record type."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))) ((25) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Field update") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "->") eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) e-87)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "not compatible with other updates at") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))))) ((26) (let ((e-88 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 3))) (let ((e-91 (vector-ref sc0 4))) (let ((e-92 (vector-ref sc0 5))) (let ((sc1 e-91)) (case (vector-ref sc1 0) ((1) (let ((e-210 (vector-ref sc1 1))) (let ((e-211 (vector-ref sc1 2))) (let ((sc2 e-210)) (case (vector-ref sc2 0) ((1) (let ((e-213 (vector-ref sc2 1))) (let ((sc3 e-211)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-213)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not a valid implicit argument in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased e-5 (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40MaybeC-32C-36aC-41 'erased 'erased (vector 0 (lambda (ann) (lambda (arg-3265) (Name-Core-pretty_Pretty__Name 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Name-Core-prettyPrec_Pretty__Name 'erased arg-3266 arg-3267))))) eta-1))) e-91)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "are not valid implicit arguments in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased e-5 (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40MaybeC-32C-36aC-41 'erased 'erased (vector 0 (lambda (ann) (lambda (arg-3265) (Name-Core-pretty_Pretty__Name 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Name-Core-prettyPrec_Pretty__Name 'erased arg-3266 arg-3267))))) eta-1))) e-91)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "are not valid implicit arguments in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased e-5 (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40MaybeC-32C-36aC-41 'erased 'erased (vector 0 (lambda (ann) (lambda (arg-3265) (Name-Core-pretty_Pretty__Name 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Name-Core-prettyPrec_Pretty__Name 'erased arg-3266 arg-3267))))) eta-1))) e-91)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "are not valid implicit arguments in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased e-5 (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))))))) ((27) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (let ((e-95 (vector-ref sc0 3))) (let ((e-96 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--13781-4449-tshow e-93 e-96 e-95 e-94 arg-2 arg-1 arg-0 e-93 e-95 eta-1)) e-96) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-94) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Need to bind implicits") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-1 eta-2))) e-5) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))) ((28) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (let ((e-100 (vector-ref sc0 4))) (let ((e-101 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-97 arg-0 arg-1 e-99 e-101 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-98) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't bind name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Name-Core-nameRoot e-100))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "with type") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-5) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: try an explicit bind.")))))))))))))))))))) ((29) (let ((e-102 (vector-ref sc0 1))) (let ((e-103 (vector-ref sc0 2))) (let ((e-104 (vector-ref sc0 3))) (let ((e-105 (vector-ref sc0 4))) (Error-Idris-case--perror-4653 e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 (Error-Idris-n--13781-4584-dropEnv e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 e-102 e-104 e-105))))))) ((30) (let ((e-106 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-110 (vector-ref sc0 5))) (let ((e-111 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-106 arg-0 arg-1 e-110 e-111 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-107) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't find an implementation for") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "since I can't infer a value for argument")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-108)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-n--13781-4766-prettyHoles e-112 arg-2 arg-1 arg-0 e-112) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Unsolved holes") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5)))))))))) ((32) (let ((e-113 (vector-ref sc0 1))) (let ((e-114 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 3))) (let ((e-116 (vector-ref sc0 4))) (let ((e-117 (vector-ref sc0 5))) (let ((e-118 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-113 arg-0 arg-1 e-115 e-118 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-114) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't infer type for argument") (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-116)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Got")))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "with hole") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-meta (Name-Core-pretty_Pretty__Name 'erased e-117)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))))))))))) ((33) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((e-122 (vector-ref sc0 4))) (let ((e-123 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-119 arg-0 arg-1 e-121 e-123 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-120) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Named hole") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-meta (Name-Core-pretty_Pretty__Name 'erased e-122)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "has been solved by unification.")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Result")))) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))))) ((34) (let ((e-124 (vector-ref sc0 1))) (let ((e-125 (vector-ref sc0 2))) (let ((e-126 (vector-ref sc0 3))) (let ((e-127 (vector-ref sc0 4))) (let ((e-128 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-126 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-128 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-124) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (TT-Core-pretty_Pretty__Visibility 'erased e-125)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Resugar-Idris-sugarName e-5))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "cannot refer to") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (TT-Core-pretty_Pretty__Visibility 'erased e-127)) (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Resugar-Idris-sugarName e-6)))))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-7)))))))))))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-129) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Non linear pattern") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Resugar-Idris-sugarName e-130))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-131) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Pattern not allowed here") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-132)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-133) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "No type declaration for") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-134)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((38) (let ((e-135 (vector-ref sc0 1))) (let ((e-136 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-135) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-136)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is already defined."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((39) (let ((e-137 (vector-ref sc0 1))) (let ((e-138 (vector-ref sc0 2))) (let ((e-139 (vector-ref sc0 3))) (let ((e-140 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-137 arg-0 arg-1 e-139 e-140 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-138) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not a function type."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))) ((40) (let ((e-141 (vector-ref sc0 1))) (let ((e-142 (vector-ref sc0 2))) (let ((e-143 (vector-ref sc0 3))) (let ((e-144 (vector-ref sc0 4))) (let ((e-145 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-141 arg-0 arg-1 e-143 e-144 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-141 arg-0 arg-1 e-143 e-145 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-142) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Rewriting by") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "did not change type") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-6) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-7)))))))))))))))))))))))) ((41) (let ((e-146 (vector-ref sc0 1))) (let ((e-147 (vector-ref sc0 2))) (let ((e-148 (vector-ref sc0 3))) (let ((e-149 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-146 arg-0 arg-1 e-148 e-149 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-147) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not a rewrite rule type."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))) ((42) (let ((e-150 (vector-ref sc0 1))) (let ((e-151 (vector-ref sc0 2))) (let ((e-152 (vector-ref sc0 3))) (let ((sc1 e-152)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Patterns for") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "have differing numbers of arguments.")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))) ((1) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Patterns for") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "require matching on different types.")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))) ((4) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't infer type to match in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))) ((3) (let ((e-215 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-215 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "Constructor") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-5)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not fully applied.")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))) (else (let ((e-216 (vector-ref sc1 1))) (let ((sc2 e-216)) (let ((e-219 (vector-ref sc2 1))) (let ((e-220 (vector-ref sc2 2))) (let ((sc3 e-220)) (let ((e-223 (vector-ref sc3 1))) (let ((e-224 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-219 arg-0 arg-1 e-223 e-224 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Attempt to match on erased argument") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-6)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-7)))))))))))))))))))))))))))))))) ((44) (let ((e-153 (vector-ref sc0 1))) (let ((e-154 (vector-ref sc0 2))) (let ((e-155 (vector-ref sc0 3))) (let ((e-156 (vector-ref sc0 4))) (let ((e-157 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-153 arg-0 arg-1 e-155 e-157 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-154) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't match on") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Core-Core-pretty_Pretty__DotReason 'erased e-156)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))))))) ((43) (let ((e-159 (vector-ref sc0 1))) (let ((e-160 (vector-ref sc0 2))) (let ((e-161 (vector-ref sc0 3))) (let ((e-162 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-159 arg-0 arg-1 e-161 e-162 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-160) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't match on") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "as it has a polymorphic type.")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))) ((45) (let ((e-163 (vector-ref sc0 1))) (let ((e-164 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-163) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't infer type for unbound implicit name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-164)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: try making it a bound implicit.")))))))))))) ((46) (let ((e-165 (vector-ref sc0 1))) (let ((e-166 (vector-ref sc0 2))) (let ((e-167 (vector-ref sc0 3))) (let ((e-168 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-165 arg-0 arg-1 e-167 e-168 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-166) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Bad elaborator script") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-5) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))) ((47) (let ((e-169 (vector-ref sc0 1))) (let ((e-170 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-169) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-170) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((48) (let ((e-171 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Error in TTC file") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Core-Core-show_Show__TTCErrorMsg e-171)))) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "the most likely case is that the ./build directory in your current project contains files from a previous build of idris2 or the idris2 executable is from a different build than the installed .ttc files"))))))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "File error in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-172) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (File-System-show_Show__FileError e-173)))))))) ((50) (let ((e-175 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Support-Parser-pretty_Pretty__C-40ParseErrorC-32C-36tokC-41 'erased 'erased (Builtin-snd 'erased 'erased e-175) e-177)))))) ((51) (let ((e-178 (vector-ref sc0 1))) (let ((e-179 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-178) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Module") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Error-Idris-joinNs e-179)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "not found")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((52) (let ((e-180 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Module imports form a cycle") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased " -> ") eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Error-Idris-joinNs eta-1)) e-180))))))) ((53) (lambda (eta-0) (vector 1 (Pretty-Idris-errorDesc (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Internal error when resolving implicit laziness"))))) ((54) (let ((e-181 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "INTERNAL ERROR") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-181)))))) ((55) (let ((e-182 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "Error") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-182)))))) ((56) (let ((e-184 (vector-ref sc0 2))) (let ((e-185 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-184) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-185) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "While processing type of") (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 1 e-6 (vector 0 ))))))))))))))))))) ((57) (let ((e-187 (vector-ref sc0 2))) (let ((e-188 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-187) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-188) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "While processing constructor") (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 1 e-6 (vector 0 ))))))))))))))))))) ((58) (let ((e-190 (vector-ref sc0 2))) (let ((e-191 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-190) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-191) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "While processing left hand side of") (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 1 e-6 (vector 0 ))))))))))))))))))) (else (let ((e-193 (vector-ref sc0 2))) (let ((e-194 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-193) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-194) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "While processing right hand side of") (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 1 e-6 (vector 0 ))))))))))))))))))))))) -(define Error-Idris-pShowMN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((t (vector 0 e-2 e-3 e-4))) (Error-Idris-case--caseC-32blockC-32inC-32pShowMN-302 'erased arg-1 arg-4 arg-3 'erased e-3 e-4 'erased e-2 t (Name-Core-dropAllNS (TT-Core-nameAt 'erased arg-1 e-4 'erased))))))))(else arg-4))))) +(define Error-Idris-pshowNoNorm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((act-25 (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-3 arg-4 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Pretty-Idris-prettyTerm e-6))))))))))))) +(define Error-Idris-pshow (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (Normalise-Core-normaliseHoles arg-0 e-5 arg-3 arg-4 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-3 e-6 ext-0)))))))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (Pretty-Idris-prettyTerm e-6)))))))))))))) +(define Error-Idris-ploc2 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (Error-Idris-ploc arg-0 arg-1))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (Error-Idris-ploc arg-0 arg-2)) (else (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-2)) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (Error-Idris-case--ploc2-884 e-2 e-1 e-0 e-5 e-4 e-3 arg-0 (Error-Idris-n--11952-755-bimap e-2 e-1 e-0 e-5 e-4 e-3 arg-0 'erased 'erased (lambda (eta-0) (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer eta-0))) e-1))))))))))))))))) +(define Error-Idris-ploc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-emptyDoc 'erased)))) (else (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((fc (vector 0 e-0 e-1 e-2))) (Error-Idris-case--ploc-479 e-2 e-1 e-0 fc arg-0 (Error-Idris-n--11523-354-bimap e-2 e-1 e-0 fc arg-0 'erased 'erased (lambda (eta-0) (Types-Prelude-fromInteger_Num__Nat (Types-Prelude-cast_Cast__Int_Integer eta-0))) e-1))))))))))) +(define Error-Idris-perror (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-perror arg-0 arg-1 arg-2 e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-1 arg-0 arg-1 e-3 e-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-1 arg-0 arg-1 e-3 e-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (vector 0 e-7))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-2) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Mismatch between") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (vector 1 (Pretty-Idris-code e-6) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "and"))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-7) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 0 ))))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-8)))))))))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-6 arg-0 arg-1 e-8 e-9 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-6 arg-0 arg-1 e-8 e-10 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-7) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't solve constraint between") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (vector 1 (Pretty-Idris-code e-5) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "and"))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-11) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 0 ))))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-12)))))))))))))))))))))))) ((3) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (let ((e-14 (vector-ref sc0 4))) (let ((e-15 (vector-ref sc0 5))) (Error-Idris-case--perror-2529 e-11 e-15 e-14 e-13 e-12 arg-2 arg-1 arg-0 (Error-Idris-n--13479-2322-order e-11 e-15 e-14 e-13 e-12 arg-2 arg-1 arg-0 e-12 (TT-Core-getLoc 'erased e-15))))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-19) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-16 arg-0 arg-1 e-18 e-20 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-17) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Cycle detected in solution of metavariable") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-meta (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Symbols-Prettyprinter-PrettyPrint-Text-equals 'erased) (Pretty-Idris-code e-6))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-7)))))))))))))))))))))))) ((5) (let ((e-21 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (let ((e-25 (vector-ref sc0 5))) (let ((e-26 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-21 arg-0 arg-1 e-23 e-24 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-21 arg-0 arg-1 e-23 e-25 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-perror arg-0 arg-1 arg-2 e-26) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "When unifying") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "and") (Pretty-Idris-code e-6))))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-7)))))))))))))))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-197 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-27 arg-0 arg-1 e-29 e-197 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-28) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not a valid impossible case."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))) (else (let ((e-200 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-1 arg-2 e-200) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Impossible pattern gives an error") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))))))))) ((7) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-31) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Undefined name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-32)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-line 'erased) e-5)))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((sc1 e-35)) (case (vector-ref sc1 0) ((1) (let ((e-202 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-33) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-34)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is inaccessible since") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Error-Idris-joinNs e-202)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not explicitly imported.")))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: add an explicit")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "export")))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "or") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "public") (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "export"))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "modifier. By default, all names are") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "private")))) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "in namespace blocks.")))))))))))))))) (else (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-33) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-34)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is private.")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: add an explicit")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "export")))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "or") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "public") (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "export"))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "modifier. By default, all names are") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "private")))) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "in namespace blocks."))))))))))))))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-36) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Return type of") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-37)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "must be") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Type")))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-40 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-38) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Return type of") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-39)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "must be in") (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-5)))))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-line 'erased) e-6)))))))))))))))))) ((11) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Internal error") (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Coverage of") (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-42))))))))) ((1) (let ((e-204 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-41) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow (vector 0 ) arg-0 arg-1 (vector 0 ) eta-1 eta-2))) e-204) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc4 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not covering."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Missing cases")) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-indent 'erased 4 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-7))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased))))))))))))))))))))) (else (let ((e-205 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-42) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-41) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not covering."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Calls non covering function")) (let ((sc4 e-205)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 e-2)) (case (vector-ref sc5 0) ((0) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased) (Name-Core-pretty_Pretty__Name 'erased e-1)))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\s) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (arg-4) (Name-Core-pretty_Pretty__Name 'erased arg-4)) e-205)))))))))(else (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Char 'erased #\s) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (arg-4) (Name-Core-pretty_Pretty__Name 'erased arg-4)) e-205))))))))))))))))))))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-45) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-44) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not total,") (TT-Core-pretty_Pretty__PartialReason 'erased e-46)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))))) ((13) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-47) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "There are") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__Nat 'erased e-48) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "uses of linear name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Resugar-Idris-sugarName e-49))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-line 'erased) e-5) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: linearly bounded variables must be used exactly once.")))))))))))))) ((14) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((e-53 (vector-ref sc0 4))) (Error-Idris-case--perror-3415 e-53 e-52 e-51 e-50 arg-2 arg-1 arg-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) e-52))))))) ((15) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-56 (vector-ref sc0 3))) (let ((e-57 (vector-ref sc0 4))) (let ((e-58 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-54 arg-0 arg-1 e-56 e-57 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-54 arg-0 arg-1 e-56 e-58 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-55) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "borrows argument") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-6) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "so must be fully applied."))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-7)))))))))))))))))))))))) ((16) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((e-61 (vector-ref sc0 3))) (let ((e-62 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-59 arg-0 arg-1 e-61 e-62 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-60) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "borrows, so must return a concrete type."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))) ((17) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-63) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Ambiguous name") (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40ListC-32C-36aC-41 'erased 'erased (vector 0 (lambda (ann) (lambda (arg-3271) (Name-Core-pretty_Pretty__Name 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Name-Core-prettyPrec_Pretty__Name 'erased arg-3272 arg-3273))))) e-64)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((18) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-setPPrint arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (vector 0 e-0 e-1 0)))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow e-65 arg-0 arg-1 e-67 eta-1 eta-2))) e-68) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Error-Idris-ploc arg-2 e-66) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((res (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Ambiguous elaboration. Possible results") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-indent 'erased 4 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-7)) (vector 0 )))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-8))) (let ((act-28 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (vector 1 res))))))))))))))))))))))))))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-71 (vector-ref sc0 3))) (let ((e-72 (vector-ref sc0 4))) (let ((e-73 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshowNoNorm e-69 arg-0 arg-1 e-71 e-72 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-70) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshowNoNorm e-69 arg-0 arg-1 e-71 eta-1 eta-2))) e-73) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (vector 1 (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Multiple solutions found in search of") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-indent 'erased 4 e-5) (vector 1 e-6 (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Possible correct results") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-indent 'erased 4 (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased e-7)) (vector 0 )))))))))))))))))))))))))))))) ((20) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (let ((e-76 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 e-75) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) e-76) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-74) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Maximum ambiguity depth exceeded in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-5)) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased " --> ") eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (arg-4) (Name-Core-pretty_Pretty__Name 'erased arg-4)) e-6))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-line 'erased) e-7) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: the default ambiguity depth limit is 3, the")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "%ambiguity_depth")))) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "pragma can be used to extend this limit, but beware compilation times can be severely impacted."))))))))))))))))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (Error-Idris-case--perror-3992 e-77 arg-2 arg-1 arg-0 (Error-Idris-n--13479-3877-allUndefined e-77 arg-2 arg-1 arg-0 e-77)))) ((22) (let ((e-79 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-79) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't infer type for this record update.")) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5)))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (let ((sc1 e-83)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-81) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-82)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not part of a record type."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))) (else (let ((e-208 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 e-208) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-81) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Record type") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-5)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "has no field") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-82)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))))))))) ((24) (let ((e-84 (vector-ref sc0 1))) (let ((e-85 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Context-Core-getFullName arg-0 e-85) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-84) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-5)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not a record type."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))) ((25) (let ((e-86 (vector-ref sc0 1))) (let ((e-87 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Field update") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "->") eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-1)) e-87)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "not compatible with other updates at") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))))) ((26) (let ((e-88 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 3))) (let ((e-91 (vector-ref sc0 4))) (let ((e-92 (vector-ref sc0 5))) (let ((sc1 e-91)) (case (vector-ref sc1 0) ((1) (let ((e-210 (vector-ref sc1 1))) (let ((e-211 (vector-ref sc1 2))) (let ((sc2 e-210)) (case (vector-ref sc2 0) ((1) (let ((e-213 (vector-ref sc2 1))) (let ((sc3 e-211)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-213)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not a valid implicit argument in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased e-5 (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40MaybeC-32C-36aC-41 'erased 'erased (vector 0 (lambda (ann) (lambda (arg-3271) (Name-Core-pretty_Pretty__Name 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Name-Core-prettyPrec_Pretty__Name 'erased arg-3272 arg-3273))))) eta-1))) e-91)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "are not valid implicit arguments in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased e-5 (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40MaybeC-32C-36aC-41 'erased 'erased (vector 0 (lambda (ann) (lambda (arg-3271) (Name-Core-pretty_Pretty__Name 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Name-Core-prettyPrec_Pretty__Name 'erased arg-3272 arg-3273))))) eta-1))) e-91)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "are not valid implicit arguments in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased e-5 (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))))(else (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-88 arg-0 arg-1 e-90 e-92 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-89) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__C-40MaybeC-32C-36aC-41 'erased 'erased (vector 0 (lambda (ann) (lambda (arg-3271) (Name-Core-pretty_Pretty__Name 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Name-Core-prettyPrec_Pretty__Name 'erased arg-3272 arg-3273))))) eta-1))) e-91)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "are not valid implicit arguments in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased e-5 (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))))))) ((27) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (let ((e-95 (vector-ref sc0 3))) (let ((e-96 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--13479-4340-tshow e-93 e-96 e-95 e-94 arg-2 arg-1 arg-0 e-93 e-95 eta-1)) e-96) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-94) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Need to bind implicits") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-comma 'erased) (Symbols-Prettyprinter-PrettyPrint-Text-space 'erased)) eta-1 eta-2))) e-5) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))) ((28) (let ((e-97 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 3))) (let ((e-100 (vector-ref sc0 4))) (let ((e-101 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-97 arg-0 arg-1 e-99 e-101 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-98) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't bind name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Name-Core-nameRoot e-100))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "with type") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-5) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: try an explicit bind.")))))))))))))))))))) ((29) (let ((e-102 (vector-ref sc0 1))) (let ((e-103 (vector-ref sc0 2))) (let ((e-104 (vector-ref sc0 3))) (let ((e-105 (vector-ref sc0 4))) (Error-Idris-case--perror-4540 e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 (Error-Idris-n--13479-4475-dropEnv e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 e-102 e-104 e-105))))))) ((30) (let ((e-106 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 2))) (let ((e-108 (vector-ref sc0 3))) (let ((e-110 (vector-ref sc0 5))) (let ((e-111 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-106 arg-0 arg-1 e-110 e-111 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-107) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't find an implementation for") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "since I can't infer a value for argument")) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-108)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))))))) ((31) (let ((e-112 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Error-Idris-n--13479-4653-prettyHoles e-112 arg-2 arg-1 arg-0 e-112) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Unsolved holes") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5)))))))))) ((32) (let ((e-113 (vector-ref sc0 1))) (let ((e-114 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 3))) (let ((e-116 (vector-ref sc0 4))) (let ((e-117 (vector-ref sc0 5))) (let ((e-118 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-113 arg-0 arg-1 e-115 e-118 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-114) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't infer type for argument") (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-116)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Got")))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "with hole") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-meta (Name-Core-pretty_Pretty__Name 'erased e-117)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))))))))))) ((33) (let ((e-119 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 3))) (let ((e-122 (vector-ref sc0 4))) (let ((e-123 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-119 arg-0 arg-1 e-121 e-123 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-120) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Named hole") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-meta (Name-Core-pretty_Pretty__Name 'erased e-122)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "has been solved by unification.")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-vsep 'erased (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-unsafeTextWithoutNewLines 'erased eta-1)) (Strings-Data-lines "Result")))) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))))) ((34) (let ((e-124 (vector-ref sc0 1))) (let ((e-125 (vector-ref sc0 2))) (let ((e-126 (vector-ref sc0 3))) (let ((e-127 (vector-ref sc0 4))) (let ((e-128 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-126 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-128 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-124) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (TT-Core-pretty_Pretty__Visibility 'erased e-125)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Resugar-Idris-sugarName e-5))) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "cannot refer to") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-keyword (TT-Core-pretty_Pretty__Visibility 'erased e-127)) (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Resugar-Idris-sugarName e-6)))))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-7)))))))))))))))))))))))) ((35) (let ((e-129 (vector-ref sc0 1))) (let ((e-130 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-129) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Non linear pattern") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Resugar-Idris-sugarName e-130))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((36) (let ((e-131 (vector-ref sc0 1))) (let ((e-132 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-131) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Pattern not allowed here") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-132)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((37) (let ((e-133 (vector-ref sc0 1))) (let ((e-134 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-133) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "No type declaration for") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-134)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((38) (let ((e-135 (vector-ref sc0 1))) (let ((e-136 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-135) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-136)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is already defined."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((39) (let ((e-137 (vector-ref sc0 1))) (let ((e-138 (vector-ref sc0 2))) (let ((e-139 (vector-ref sc0 3))) (let ((e-140 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-137 arg-0 arg-1 e-139 e-140 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-138) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not a function type."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))) ((40) (let ((e-141 (vector-ref sc0 1))) (let ((e-142 (vector-ref sc0 2))) (let ((e-143 (vector-ref sc0 3))) (let ((e-144 (vector-ref sc0 4))) (let ((e-145 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-141 arg-0 arg-1 e-143 e-144 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Error-Idris-pshow e-141 arg-0 arg-1 e-143 e-145 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-142) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Rewriting by") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "did not change type") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-6) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-7)))))))))))))))))))))))) ((41) (let ((e-146 (vector-ref sc0 1))) (let ((e-147 (vector-ref sc0 2))) (let ((e-148 (vector-ref sc0 3))) (let ((e-149 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-146 arg-0 arg-1 e-148 e-149 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-147) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not a rewrite rule type."))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))) ((42) (let ((e-150 (vector-ref sc0 1))) (let ((e-151 (vector-ref sc0 2))) (let ((e-152 (vector-ref sc0 3))) (let ((sc1 e-152)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Patterns for") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "have differing numbers of arguments.")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))) ((1) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Patterns for") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "require matching on different types.")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))) ((4) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't infer type to match in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))) ((3) (let ((e-215 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-24 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (Context-Core-full_HasNames__Name arg-5317 arg-5318))) (lambda (arg-5319) (lambda (arg-5320) (Context-Core-resolved_HasNames__Name arg-5319 arg-5320)))) e-215 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "Constructor") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code (Name-Core-pretty_Pretty__Name 'erased e-5)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "is not fully applied.")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))) (else (let ((e-216 (vector-ref sc1 1))) (let ((sc2 e-216)) (let ((e-219 (vector-ref sc2 1))) (let ((e-220 (vector-ref sc2 2))) (let ((sc3 e-220)) (let ((e-223 (vector-ref sc3 1))) (let ((e-224 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-219 arg-0 arg-1 e-223 e-224 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Context-Core-prettyName arg-0 e-151) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 ((Error-Idris-ploc arg-2 e-150) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Attempt to match on erased argument") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-6)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-7)))))))))))))))))))))))))))))))) ((44) (let ((e-153 (vector-ref sc0 1))) (let ((e-154 (vector-ref sc0 2))) (let ((e-155 (vector-ref sc0 3))) (let ((e-156 (vector-ref sc0 4))) (let ((e-157 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-153 arg-0 arg-1 e-155 e-157 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-154) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't match on") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Core-Core-pretty_Pretty__DotReason 'erased e-156)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased))))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6))))))))))))))))))) ((43) (let ((e-159 (vector-ref sc0 1))) (let ((e-160 (vector-ref sc0 2))) (let ((e-161 (vector-ref sc0 3))) (let ((e-162 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-159 arg-0 arg-1 e-161 e-162 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-160) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't match on") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-code e-5) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "as it has a polymorphic type.")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))) ((45) (let ((e-163 (vector-ref sc0 1))) (let ((e-164 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-163) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Can't infer type for unbound implicit name") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-164)) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Suggestion: try making it a bound implicit.")))))))))))) ((46) (let ((e-165 (vector-ref sc0 1))) (let ((e-166 (vector-ref sc0 2))) (let ((e-167 (vector-ref sc0 3))) (let ((e-168 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 (Error-Idris-pshow e-165 arg-0 arg-1 e-167 e-168 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-ploc arg-2 e-166) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Bad elaborator script") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-code e-5) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-6)))))))))))))))))) ((47) (let ((e-169 (vector-ref sc0 1))) (let ((e-170 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-169) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-170) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((48) (let ((e-171 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Error in TTC file") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (Core-Core-show_Show__TTCErrorMsg e-171)))) (Symbols-Prettyprinter-PrettyPrint-Text-parens 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "the most likely case is that the ./build directory in your current project contains files from a previous build of idris2 or the idris2 executable is from a different build than the installed .ttc files"))))))) ((49) (let ((e-172 (vector-ref sc0 1))) (let ((e-173 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "File error in") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-172) (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased)))) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased (File-System-show_Show__FileError e-173)))))))) ((50) (let ((e-175 (vector-ref sc0 1))) (let ((e-177 (vector-ref sc0 3))) (lambda (eta-0) (vector 1 (Support-Parser-pretty_Pretty__C-40ParseErrorC-32C-36tokC-41 'erased 'erased (Builtin-snd 'erased 'erased e-175) e-177)))))) ((51) (let ((e-178 (vector-ref sc0 1))) (let ((e-179 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Error-Idris-ploc arg-2 e-178) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-fromString_FromString__C-40DocC-32C-36annC-41 'erased "Module") (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 3 ) (Error-Idris-joinNs e-179)) (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "not found")))) (Doc-Prettyprinter-PrettyPrint-Text-line 'erased)) e-5))))))))))) ((52) (let ((e-180 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Module imports form a cycle") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-1) (lambda (eta-2) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased " -> ") eta-1 eta-2))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (Types-Prelude-map_Functor__List 'erased 'erased eta-3 eta-4))))) (lambda (eta-1) (Error-Idris-joinNs eta-1)) e-180))))))) ((53) (lambda (eta-0) (vector 1 (Pretty-Idris-errorDesc (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "Internal error when resolving implicit laziness"))))) ((54) (let ((e-181 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "INTERNAL ERROR") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-181)))))) ((55) (let ((e-182 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "Error") (Symbols-Prettyprinter-PrettyPrint-Text-colon 'erased))) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-182)))))) ((56) (let ((e-184 (vector-ref sc0 2))) (let ((e-185 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-184) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-185) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "While processing type of") (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 1 e-6 (vector 0 ))))))))))))))))))) ((57) (let ((e-187 (vector-ref sc0 2))) (let ((e-188 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-187) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-188) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "While processing constructor") (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 1 e-6 (vector 0 ))))))))))))))))))) ((58) (let ((e-190 (vector-ref sc0 2))) (let ((e-191 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-190) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-191) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "While processing left hand side of") (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 1 e-6 (vector 0 ))))))))))))))))))) (else (let ((e-193 (vector-ref sc0 2))) (let ((e-194 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Context-Core-prettyName arg-0 e-193) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Error-Idris-perror arg-0 arg-1 arg-2 e-194) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-hsep 'erased (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-62_Semigroup__C-40DocC-32C-36annC-41 'erased (Pretty-Idris-errorDesc (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Util-Prettyprinter-PrettyPrint-Text-reflow 'erased "While processing right hand side of") (Pretty-Idris-code (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased e-5)))) (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased)) (vector 1 e-6 (vector 0 ))))))))))))))))))))))) (define Error-Idris-joinNs (lambda (arg-0) (Doc-Prettyprinter-PrettyPrint-Text-concatWith 'erased (lambda (eta-0) (lambda (eta-1) (Doc-Prettyprinter-PrettyPrint-Text-surround 'erased (Symbols-Prettyprinter-PrettyPrint-Text-dot 'erased) eta-0 eta-1))) (Interfaces-Prelude-C-60C-36C-62 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Types-Prelude-map_Functor__List 'erased 'erased eta-2 eta-3))))) (lambda (eta-0) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased eta-0)) (List-Data-reverse 'erased arg-0))))) (define Error-Idris-displayWarning (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Error-Idris-pwarning arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 0 ) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "Warning:")) e-5))))))))) (define Error-Idris-display (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Error-Idris-perror arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Doc-Prettyprinter-PrettyPrint-Text-C-60C-43C-43C-62 'erased (Doc-Prettyprinter-PrettyPrint-Text-annotate 'erased (vector 1 ) (Doc-Prettyprinter-PrettyPrint-Text-pretty_Pretty__String 'erased "Error:")) e-5))))))))) (define Extra-List-Data-elemAt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-2 1))) (Extra-List-Data-elemAt 'erased e-3 e-4)))))))))))) -(define Resugar-Idris-case--cleanPTerm-5481 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--12398-5399-cleanNode arg-0 arg-1 eta-0)) arg-0)))))) -(define Resugar-Idris-case--cleanPTermC-44cleanName-5403 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-0))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-4))))) ((0) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((5) (let ((e-9 (vector-ref sc1 2))) (Resugar-Idris-n--12398-5398-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0))))))) +(define Resugar-Idris-case--cleanPTerm-5481 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-0))) (else (Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--12209-5399-cleanNode arg-0 arg-1 eta-0)) arg-0)))))) +(define Resugar-Idris-case--cleanPTermC-44cleanName-5403 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-0))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-4))))) ((0) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((5) (let ((e-9 (vector-ref sc1 2))) (Resugar-Idris-n--12209-5398-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0))))))) (define Resugar-Idris-case--toPDecl-5298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (vector 1 (vector 1 (vector 8 arg-3 "" arg-2 e-2 e-6 e-10 e-11))))))))))))))) -(define Resugar-Idris-case--toPRecord-5114 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) e-11) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Resugar-Idris-n--10582-5042-mapPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5)))))))))))))))))))))))))) +(define Resugar-Idris-case--toPRecord-5114 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) e-11) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Resugar-Idris-n--10393-5042-mapPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc4 1))) (vector 1 (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5)))))))))))))))))))))))))) (define Resugar-Idris-case--caseC-32blockC-32inC-32toPTermApp-4853 (lambda (arg-0 arg-1 arg-2 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-Types-Prelude-length 'erased (let ((sc1 arg-7)) (let ((e-8 (vector-ref sc1 9))) e-8))) arg-0)))))) (define Resugar-Idris-case--toPTermApp-4799 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Resugar-Idris-mkApp arg-5 arg-4 e-5 arg-0) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) arg-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Resugar-Idris-showFullEnv arg-5 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((argsC-39 (let ((sc3 e-6)) (cond ((equal? sc3 0) arg-0) (else (List-Data-drop 'erased (List-Types-Prelude-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--mkApp-4706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (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)))))) @@ -7274,7 +7192,7 @@ (define Resugar-Idris-case--toPTerm-4058 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (Resugar-Idris-toPTerm arg-8 arg-7 (Resugar-Idris-tyPrec) arg-1)) (else (lambda (eta-0) (vector 1 (vector 24 arg-5)))))))) (define Resugar-Idris-case--toPTerm-3988 (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--caseC-32blockC-32inC-32toPTerm-3903 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-tyPrec) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-tyPrec) arg-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-6 arg-5 (Resugar-Idris-tyPrec) (vector 1 arg-4 arg-3 (vector 0 ) arg-2 e-5 e-6) eta-0))))))))))))) (else (Resugar-Idris-toPTerm arg-7 arg-6 arg-5 arg-0)))))) -(define Resugar-Idris-case--toPTerm-3853 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-tyPrec) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-tyPrec) arg-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-6 arg-5 (Resugar-Idris-tyPrec) (vector 1 arg-4 arg-3 (vector 0 ) arg-2 e-5 e-6) eta-0))))))))))))) (else (let ((imp 1)) (Resugar-Idris-case--caseC-32blockC-32inC-32toPTerm-3903 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 imp (Resugar-Idris-n--10558-3816-needsBind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2)))))))) +(define Resugar-Idris-case--toPTerm-3853 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-tyPrec) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-tyPrec) arg-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-6 arg-5 (Resugar-Idris-tyPrec) (vector 1 arg-4 arg-3 (vector 0 ) arg-2 e-5 e-6) eta-0))))))))))))) (else (let ((imp 1)) (Resugar-Idris-case--caseC-32blockC-32inC-32toPTerm-3903 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 imp (Resugar-Idris-n--10369-3816-needsBind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2)))))))) (define Resugar-Idris-case--toPTerm-3784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (vector 0 arg-1 arg-0)))) (else (Resugar-Idris-toPRef arg-1 arg-0)))))) (define Resugar-Idris-case--toPRef-3712 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-4))))))) ((5) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-1 e-7)))(else (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-1 arg-0))))))))) (define Resugar-Idris-case--sugarAppM-3651 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 "Nil") (Types-Prelude-pure_Applicative__Maybe 'erased (vector 35 arg-1 (vector 0 )))) ((equal? sc0 "Unit") (Types-Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1))) ((equal? sc0 "MkUnit") (Types-Prelude-pure_Applicative__Maybe 'erased (vector 38 arg-1)))(else (vector 0 )))))) @@ -7285,20 +7203,20 @@ (define Resugar-Idris-case--bracket-3121 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 (Resugar-Idris-addBracket (FC-Core-emptyFC) arg-4)))) (else (lambda (eta-0) (vector 1 arg-4))))))) (define Resugar-Idris-case--addBracket-3097 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 31 arg-1 arg-0)) (else arg-0))))) (define Resugar-Idris-case--mkOp-2995 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-6))) (else (lambda (eta-0) (vector 1 (vector 26 arg-5 arg-2 (Resugar-Idris-unbracketApp arg-3) (Resugar-Idris-unbracketApp arg-4))))))))) -(define Resugar-Idris-n--10558-3816-needsBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((ns (Utils-TTImp-findBindableNames 1 (vector 0 ) (vector 0 ) arg-0))) (let ((allNs (Utils-TTImp-findAllNames (vector 0 ) arg-0))) (Basics-Prelude-C-38C-38 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Name-Core-C-61C-61_Eq__Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Name-Core-C-47C-61_Eq__Name arg-9 arg-10)))) (vector 1 e-2) allNs) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) e-2 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) ns)))))))))(else 1)))))(else 1))))) -(define Resugar-Idris-n--9815-3047-needed (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((31) 1) ((0) 1) ((36) 1) ((37) 1) ((38) 1) ((40) 1) ((35) 1) ((14) 1)(else 0))))) -(define Resugar-Idris-n--10558-4207-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--toPTermC-44mkIf-4245 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 (Basics-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--10582-5042-mapPiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) -(define Resugar-Idris-n--12398-5399-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (Resugar-Idris-n--12398-5398-cleanName arg-0 arg-1 e-1) eta-0))))) ((26) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 26 e-2 e-6 e-4 e-5))))))) (Resugar-Idris-n--12398-5398-cleanName arg-0 arg-1 e-3) eta-0))))))) ((27) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 27 e-6 e-5 e-8))))))) (Resugar-Idris-n--12398-5398-cleanName arg-0 arg-1 e-7) eta-0)))))) ((28) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-9 e-5 e-11))))))) (Resugar-Idris-n--12398-5398-cleanName arg-0 arg-1 e-10) eta-0)))))) ((29) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 29 e-12 e-13 e-5))))))) (Resugar-Idris-n--12398-5398-cleanName arg-0 arg-1 e-14) eta-0))))))(else (lambda (eta-0) (vector 1 arg-2))))))) -(define Resugar-Idris-n--12398-5398-cleanName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-0))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-4))))) ((0) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((5) (let ((e-9 (vector-ref sc1 2))) (Resugar-Idris-n--12398-5398-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0))))))) +(define Resugar-Idris-n--10369-3816-needsBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((ns (Utils-TTImp-findBindableNames 1 (vector 0 ) (vector 0 ) arg-0))) (let ((allNs (Utils-TTImp-findAllNames (vector 0 ) arg-0))) (Basics-Prelude-C-38C-38 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (Name-Core-C-61C-61_Eq__Name arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Name-Core-C-47C-61_Eq__Name arg-9 arg-10)))) (vector 1 e-2) allNs) (lambda () (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) e-2 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) ns)))))))))(else 1)))))(else 1))))) +(define Resugar-Idris-n--9626-3047-needed (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((31) 1) ((0) 1) ((36) 1) ((37) 1) ((38) 1) ((40) 1) ((35) 1) ((14) 1)(else 0))))) +(define Resugar-Idris-n--10369-4207-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--toPTermC-44mkIf-4245 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 (Basics-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--10393-5042-mapPiInfo (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (vector 1 (vector 1 )))) ((0) (lambda (eta-0) (vector 1 (vector 0 )))) ((2) (lambda (eta-0) (vector 1 (vector 2 )))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5)))))))))))))) +(define Resugar-Idris-n--12209-5399-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) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))) (Resugar-Idris-n--12209-5398-cleanName arg-0 arg-1 e-1) eta-0))))) ((26) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 26 e-2 e-6 e-4 e-5))))))) (Resugar-Idris-n--12209-5398-cleanName arg-0 arg-1 e-3) eta-0))))))) ((27) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 27 e-6 e-5 e-8))))))) (Resugar-Idris-n--12209-5398-cleanName arg-0 arg-1 e-7) eta-0)))))) ((28) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 28 e-9 e-5 e-11))))))) (Resugar-Idris-n--12209-5398-cleanName arg-0 arg-1 e-10) eta-0)))))) ((29) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 29 e-12 e-13 e-5))))))) (Resugar-Idris-n--12209-5398-cleanName arg-0 arg-1 e-14) eta-0))))))(else (lambda (eta-0) (vector 1 arg-2))))))) +(define Resugar-Idris-n--12209-5398-cleanName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-0))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-2)))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-4))))) ((0) (let ((e-7 (vector-ref sc0 2))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((5) (let ((e-9 (vector-ref sc1 2))) (Resugar-Idris-n--12209-5398-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc0 eta-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (vector 1 e-5))))))) (Context-Core-prettyName arg-1 arg-2) eta-0))))))) (define Resugar-Idris-unbracketApp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((31) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) e-1)(else arg-0)))))(else arg-0))))) (define Resugar-Idris-unbracket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((31) (let ((e-1 (vector-ref sc0 2))) e-1))(else arg-0))))) (define Resugar-Idris-tyPrec (lambda () (+ 1 0))) (define Resugar-Idris-toPTypeDecl (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-1 "" e-5)))))))))))))) (define Resugar-Idris-toPTermApp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) ((Resugar-Idris-toPTermApp arg-0 arg-1 e-1 (vector 1 (vector 0 e-0 (vector 0 (vector 0 ) e-5)) arg-3)) eta-0))))))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc1 1))) ((Resugar-Idris-toPTermApp arg-0 arg-1 e-4 (vector 1 (vector 0 e-3 (vector 0 (vector 1 e-5) e-7)) arg-3)) eta-0)))))))))))) ((0) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Context-Core-lookupCtxtExact e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((fn (vector 0 e-7 e-8))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) fn) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) ((Resugar-Idris-mkApp arg-0 arg-1 e-9 arg-3) eta-0))))))) (else (let ((e-2 (vector-ref sc3 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) fn) eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-27 (Resugar-Idris-showFullEnv arg-0 eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-10 (vector-ref sc5 1))) (let ((argsC-39 (let ((sc6 e-10)) (cond ((equal? sc6 0) arg-3) (else (List-Data-drop 'erased (List-Types-Prelude-length 'erased (let ((sc7 e-2)) (let ((e-23 (vector-ref sc7 9))) e-23))) arg-3)))))) ((Resugar-Idris-mkApp arg-0 arg-1 e-9 argsC-39) eta-0)))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) arg-2) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Resugar-Idris-mkApp arg-0 arg-1 e-5 arg-3) eta-0)))))))))))) -(define Resugar-Idris-toPTerm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Resugar-Idris-case--toPTerm-3784 e-1 e-0 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 (vector 0 ) e-5 e-9 e-10) eta-0)))))))))))) (else (let ((imp 1)) ((Resugar-Idris-case--caseC-32blockC-32inC-32toPTerm-3903 e-7 e-6 e-5 e-3 e-2 arg-2 arg-1 arg-0 imp (Resugar-Idris-n--10558-3816-needsBind e-7 e-6 e-5 e-3 e-2 arg-2 arg-1 arg-0 e-5)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) eta-1)) e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 e-10 e-5 e-8 e-9) eta-0))))))))))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((n (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (vector 1 "_")) (else (let ((e-2 (vector-ref sc1 1))) e-2)))))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-12) eta-0)) (else (vector 1 (vector 24 e-8))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-13) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) eta-1)) e-10) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc4 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 2 e-8 e-9 e-14 (vector 0 e-8 n) e-6 e-7) eta-0)))))))))))))))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-17) eta-0)) (else (vector 1 (vector 24 e-14))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-18) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-19) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 3 e-14 e-15 (vector 0 e-14 e-16) e-6 e-7 e-8 (vector 0 )) eta-0))))))))))))))))))))))))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((1) (let ((e-99 (vector-ref sc1 1))) (let ((e-100 (vector-ref sc1 2))) (let ((sc2 e-99)) (case (vector-ref sc2 0) ((0) (let ((e-102 (vector-ref sc2 2))) (let ((e-103 (vector-ref sc2 3))) (let ((sc3 e-100)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-21) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-102) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-103) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 3 e-20 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 24 e-20) e-5 e-7 (vector 0 )) eta-0))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-21) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) e-23) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (Resugar-Idris-n--10558-4207-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))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-21) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) e-23) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (Resugar-Idris-n--10558-4207-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))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (Resugar-Idris-n--10558-4207-mkIf e-23 e-22 e-21 e-20 arg-2 arg-1 arg-0 (vector 4 e-20 e-5 e-6)) eta-0)))))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) e-25) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 5 e-24 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) e-6) eta-0)))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-31))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFieldUpdate arg-0 arg-1 eta-1)) e-33) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 7 e-32 (vector 6 e-32 e-5) e-6) eta-0)))))))))))))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-36 (vector 1 (vector 0 e-35 (vector 0 (vector 0 ) e-5)) (vector 0 ))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) e-6 eta-0)))))))))))))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-40) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-39) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) (vector 8 e-38 e-6 e-5) eta-0)))))))))))))))) ((9) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((e-44 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-44) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-42 (vector 1 (vector 0 e-41 (vector 0 (vector 1 e-43) e-5)) (vector 0 ))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) e-6 eta-0)) (else ((Resugar-Idris-mkOp arg-1 e-6) eta-0))))))))))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 13 e-45 e-46)))))) ((12) (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 24 e-47))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-51) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-52) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 41 e-50 e-5 e-6))))))))))))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-54))) ((27) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 14 e-55 e-56)))))) ((29) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 20 e-57 1 e-58)))))) ((28) (let ((e-59 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 21 e-59))))) ((16) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-60 (vector 1 e-61))))))) ((15) (let ((e-64 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-64))) ((17) (let ((e-65 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-68) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 22 e-65 e-67 e-5)))))))))))) ((18) (let ((e-69 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-71) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 23 e-69 e-5))))))))))) ((19) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-72 e-73 e-5)))))))))))) ((20) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-76) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-75 e-5))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-78) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-77 e-5))))))))))) ((22) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-80) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-79 e-5))))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 16 e-81 e-82)))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) e-84) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 17 e-83 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5)))))))))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 18 e-85 e-5))))))))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-88) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-87 e-5))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 e-93)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 24 e-92)))) (else (lambda (eta-0) (vector 1 (vector 25 e-92))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 47 e-94 e-95 e-5))))))) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-96) eta-0)))))))))) +(define Resugar-Idris-toPTerm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) ((Resugar-Idris-case--toPTerm-3784 e-1 e-0 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-6) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc5 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 (vector 0 ) e-5 e-9 e-10) eta-0)))))))))))) (else (let ((imp 1)) ((Resugar-Idris-case--caseC-32blockC-32inC-32toPTerm-3903 e-7 e-6 e-5 e-3 e-2 arg-2 arg-1 arg-0 imp (Resugar-Idris-n--10369-3816-needsBind e-7 e-6 e-5 e-3 e-2 arg-2 arg-1 arg-0 e-5)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (vector 0 e-8))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-26 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) eta-1)) e-4) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (vector 0 e-10))) (else (let ((e-10 (vector-ref sc3 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 e-10 e-5 e-8 e-9) eta-0))))))))))))))))))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((n (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (vector 1 "_")) (else (let ((e-2 (vector-ref sc1 1))) e-2)))))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-12) eta-0)) (else (vector 1 (vector 24 e-8))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-13) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) eta-1)) e-10) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc4 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 2 e-8 e-9 e-14 (vector 0 e-8 n) e-6 e-7) eta-0)))))))))))))))))))))))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-17) eta-0)) (else (vector 1 (vector 24 e-14))))))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-18) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-19) eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 3 e-14 e-15 (vector 0 e-14 e-16) e-6 e-7 e-8 (vector 0 )) eta-0))))))))))))))))))))))))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (let ((sc1 e-23)) (case (vector-ref sc1 0) ((1) (let ((e-99 (vector-ref sc1 1))) (let ((e-100 (vector-ref sc1 2))) (let ((sc2 e-99)) (case (vector-ref sc2 0) ((0) (let ((e-102 (vector-ref sc2 2))) (let ((e-103 (vector-ref sc2 3))) (let ((sc3 e-100)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-21) eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-102) eta-0))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-26 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-103) eta-0))) (let ((sc6 act-26)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc6 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 3 e-20 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 24 e-20) e-5 e-7 (vector 0 )) eta-0))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-21) eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) e-23) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc4 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (Resugar-Idris-n--10369-4207-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))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-21) eta-0))) (let ((sc2 act-24)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) e-23) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc3 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (Resugar-Idris-n--10369-4207-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))))))))))))))))))(else (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-21) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) e-23) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (Resugar-Idris-n--10369-4207-mkIf e-23 e-22 e-21 e-20 arg-2 arg-1 arg-0 (vector 4 e-20 e-5 e-6)) eta-0)))))))))))))))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) e-25) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-26) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 5 e-24 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) e-6) eta-0)))))))))))))))) ((6) (let ((e-31 (vector-ref sc0 5))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-31))) ((7) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFieldUpdate arg-0 arg-1 eta-1)) e-33) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-34) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (vector 7 e-32 (vector 6 e-32 e-5) e-6) eta-0)))))))))))))))) ((8) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-37) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-36 (vector 1 (vector 0 e-35 (vector 0 (vector 0 ) e-5)) (vector 0 ))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) e-6 eta-0)))))))))))))))) ((10) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-40) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-39) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-appPrec) (vector 8 e-38 e-6 e-5) eta-0)))))))))))))))) ((9) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((e-44 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-44) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTermApp arg-0 arg-1 e-42 (vector 1 (vector 0 e-41 (vector 0 (vector 1 e-43) e-5)) (vector 0 ))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) e-6 eta-0)) (else ((Resugar-Idris-mkOp arg-1 e-6) eta-0))))))))))))))))))))))))) ((11) (let ((e-45 (vector-ref sc0 1))) (let ((e-46 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 13 e-45 e-46)))))) ((12) (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 24 e-47))))) ((13) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-51) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-52) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 41 e-50 e-5 e-6))))))))))))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-54))) ((27) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 14 e-55 e-56)))))) ((29) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 20 e-57 1 e-58)))))) ((28) (let ((e-59 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 21 e-59))))) ((16) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 0 e-60 (vector 1 e-61))))))) ((15) (let ((e-64 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-64))) ((17) (let ((e-65 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-68) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 22 e-65 e-67 e-5)))))))))))) ((18) (let ((e-69 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-71) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 23 e-69 e-5))))))))))) ((19) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (let ((e-74 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-74) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 10 e-72 e-73 e-5)))))))))))) ((20) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-76) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 11 e-75 e-5))))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-78) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 12 e-77 e-5))))))))))) ((22) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-80) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 15 e-79 e-5))))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 (vector 16 e-81 e-82)))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) e-84) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 17 e-83 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5)))))))))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-86) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 18 e-85 e-5))))))))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-88) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 19 e-87 e-5))))))))))) ((30) (let ((e-91 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-91))) ((31) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((sc1 e-93)) (cond ((equal? sc1 0) (lambda (eta-0) (vector 1 (vector 24 e-92)))) (else (lambda (eta-0) (vector 1 (vector 25 e-92))))))))) (else (let ((e-94 (vector-ref sc0 1))) (let ((e-95 (vector-ref sc0 2))) (let ((e-96 (vector-ref sc0 3))) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (let ((sc1 eta-1)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 47 e-94 e-95 e-5))))))) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-96) eta-0)))))))))) (define Resugar-Idris-toPRef (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-0))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 e-2)))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-4))))))) ((5) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-0 e-7)))(else (lambda (eta-0) (vector 1 (Resugar-Idris-sugarApp (vector 0 arg-0 arg-1))))))))) -(define Resugar-Idris-toPRecord (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-6 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-11) eta-1))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((Resugar-Idris-n--10582-5042-mapPiInfo e-4 e-3 e-2 e-1 e-0 arg-1 arg-0 e-10) eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (vector 1 (vector 0 e-6 (vector 0 e-8 (vector 0 e-12 e-9))))))))))))))))))))))))) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPField arg-0 arg-1 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 (vector 0 e-5 (vector 0 (vector 1 e-3) e-6))))))))))))))))))))))) +(define Resugar-Idris-toPRecord (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-6 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-5)) (let ((e-8 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (let ((sc3 e-7)) (let ((e-10 (vector-ref sc3 1))) (let ((e-11 (vector-ref sc3 2))) (lambda (eta-1) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-11) eta-1))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (vector 0 e-9))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-25 ((Resugar-Idris-n--10393-5042-mapPiInfo e-4 e-3 e-2 e-1 e-0 arg-1 arg-0 e-10) eta-1))) (let ((sc5 act-25)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc5 1))) (vector 1 (vector 0 e-6 (vector 0 e-8 (vector 0 e-12 e-9))))))))))))))))))))))))) e-2) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPField arg-0 arg-1 eta-1)) e-4) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-1 (vector 0 e-5 (vector 0 (vector 1 e-3) e-6))))))))))))))))))))))) (define Resugar-Idris-toPFnOpt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((5) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) eta-1)) e-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-5))))))))))(else (lambda (eta-0) (vector 1 (vector 0 arg-2)))))))) (define Resugar-Idris-toPFieldUpdate (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 0 e-0 e-5))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-3) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (vector 1 e-2 e-5))))))))))))))) (define Resugar-Idris-toPField (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-24 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-4) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (vector 0 e-5))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((PiInfo-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) eta-1)) e-2) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (vector 0 e-6))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 e-0 "" e-1 e-6 e-3 e-5))))))))))))))))))))) @@ -7319,24 +7237,24 @@ (define Resugar-Idris-mkApp (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((0) (let ((ap (Resugar-Idris-sugarApp (vector 7 e-6 arg-2 e-11)))) (Resugar-Idris-mkApp arg-0 arg-1 ap e-3))) (else (let ((e-14 (vector-ref sc3 1))) (lambda (eta-0) (let ((act-24 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc4 act-24)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (cond ((equal? sc5 0) (let ((ap (vector 9 e-6 arg-2 e-14 e-11))) ((Resugar-Idris-mkApp arg-0 arg-1 ap e-3) eta-0))) (else ((Resugar-Idris-mkApp arg-0 arg-1 arg-2 e-3) eta-0))))))))))))))))))))))))))) (define Resugar-Idris-fullNamespace (lambda (arg-0 ext-0) (let ((act-24 (Context-Core-getPPrint arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))))) (define Resugar-Idris-extractNat (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (let ((sc3 e-12)) (cond ((equal? sc3 "Types") (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-15)) (cond ((equal? sc5 "Prelude") (let ((sc6 e-16)) (case (vector-ref sc6 0) ((0) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((1) (let ((e-18 (vector-ref sc7 1))) (let ((sc8 e-18)) (cond ((equal? sc8 "Z") (Types-Prelude-pure_Applicative__Maybe 'erased arg-0))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 ))))) ((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-20 (vector-ref sc5 1))) (let ((sc6 e-20)) (cond ((equal? sc6 "Z") (Types-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-22 (vector-ref sc1 2))) (let ((sc2 e-22)) (case (vector-ref sc2 0) ((0) (let ((e-23 (vector-ref sc2 1))) (let ((e-24 (vector-ref sc2 2))) (let ((sc3 e-23)) (case (vector-ref sc3 0) ((1) (let ((e-26 (vector-ref sc3 1))) (let ((e-27 (vector-ref sc3 2))) (let ((sc4 e-26)) (cond ((equal? sc4 "Types") (let ((sc5 e-27)) (case (vector-ref sc5 0) ((1) (let ((e-29 (vector-ref sc5 1))) (let ((e-30 (vector-ref sc5 2))) (let ((sc6 e-29)) (cond ((equal? sc6 "Prelude") (let ((sc7 e-30)) (case (vector-ref sc7 0) ((0) (let ((sc8 e-24)) (case (vector-ref sc8 0) ((1) (let ((e-32 (vector-ref sc8 1))) (let ((sc9 e-32)) (cond ((equal? sc9 "S") (Resugar-Idris-extractNat (Types-Prelude-C-43_Num__Nat (Types-Prelude-fromInteger_Num__Nat 1) arg-0) e-4))(else (vector 0 ))))))(else (vector 0 )))))(else (vector 0 )))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc4 "Prelude") (let ((sc5 e-27)) (case (vector-ref sc5 0) ((0) (let ((sc6 e-24)) (case (vector-ref sc6 0) ((1) (let ((e-34 (vector-ref sc6 1))) (let ((sc7 e-34)) (cond ((equal? sc7 "S") (Resugar-Idris-extractNat (Types-Prelude-C-43_Num__Nat (Types-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-35 (vector-ref sc1 1))) (Types-Prelude-pure_Applicative__Maybe 'erased (Types-Prelude-C-43_Num__Nat arg-0 e-35))))(else (vector 0 )))))) ((31) (let ((e-8 (vector-ref sc0 2))) (Resugar-Idris-extractNat arg-0 e-8)))(else (vector 0 )))))) -(define Resugar-Idris-cleanPTerm (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Resugar-Idris-fullNamespace arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 arg-1)) (else ((Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--12398-5399-cleanNode arg-1 arg-0 eta-0)) arg-1) ext-0))))))))))) +(define Resugar-Idris-cleanPTerm (lambda (arg-0 arg-1 ext-0) (let ((act-24 (Resugar-Idris-fullNamespace arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (vector 1 arg-1)) (else ((Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--12209-5399-cleanNode arg-1 arg-0 eta-0)) arg-1) ext-0))))))))))) (define Resugar-Idris-bracket (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Resugar-Idris-mkOp arg-0 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Resugar-Idris-case--bracket-3121 arg-3 arg-2 arg-1 arg-0 e-5 (Types-Prelude-C-62_Ord__Nat arg-1 arg-2)) ext-0)))))))) (define Resugar-Idris-argPrec (lambda () (Types-Prelude-fromInteger_Num__Nat 1000))) (define Resugar-Idris-appPrec (lambda () (Types-Prelude-fromInteger_Num__Nat 999))) -(define Resugar-Idris-addBracket (lambda (arg-0 arg-1) (Resugar-Idris-case--addBracket-3097 arg-1 arg-0 (Resugar-Idris-n--9815-3047-needed arg-1 arg-0 arg-1)))) -(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-4114 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getDirs arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Directory-Core-pathToNS (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-0) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Directory-Core-makeBuildDirectory arg-6 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (lambda (eta-1) (Syntax-Idris-full_HasNames__SyntaxInfo arg-5317 arg-5318 eta-1)))) (lambda (arg-5319) (lambda (arg-5320) (lambda (eta-1) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-5319 arg-5320 eta-1))))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2180 eta-1))))) arg-6 arg-4 e-9 arg-9 eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Directory-Core-getTTCFileName arg-6 arg-0 "ttm" eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Metadata-Core-writeToTTM arg-6 arg-5 e-10 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-10))))))) -(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32process-4088 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-4114 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (List-Data-isNil 'erased e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) -(define ProcessIdr-Idris-case--process-4031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Directory-Core-getTTCFileName arg-6 arg-0 "ttc" eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTime 'erased arg-6 (lambda () (Strings-Types-Prelude-C-43C-43 "+ Elaborating " arg-0)) (lambda (eta-2) (ProcessIdr-Idris-processMod arg-6 arg-4 arg-3 arg-5 arg-2 arg-0 e-5 arg-1 e-2 eta-2)) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-1))) ((ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-4114 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 _-0 e-5 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-1)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 err (vector 0 ))))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 49 arg-0 e-5) (vector 0 )))))))))) -(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processMod-3850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33) (let ((sc0 arg-33)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) -(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processMod-3722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (let ((e-0 (vector-ref sc0 1))) (lambda () (lambda (eta-0) (let ((act-24 (Context-Core-getDirs arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Directory-Core-pathToNS (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 1))) e-11)) (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 2))) e-10)) e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-21 e-6))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (let ((sc4 arg-23)) (let ((e-9 (vector-ref sc4 1))) e-9)) (Strings-Types-Prelude-C-43C-43 "Module name " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased arg-21)) (Strings-Types-Prelude-C-43C-43 " does not match file name " e-0)))) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))) -(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32processMod-3540 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-initHash arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29)))) (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__Int arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__Int arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29)))) (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__Int arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__Int arg-28 arg-29)))) arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29)))) (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__Int arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__Int arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29)))) (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__Int arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__Int arg-28 arg-29)))) arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Bool arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Bool arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Bool arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Bool arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Bool arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-387) (lambda (arg-388) (EqOrd-Prelude-min_Ord__String arg-387 arg-388)))) arg-385 arg-386)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__Int arg-385 arg-386)))) arg-383 arg-384)))) arg-381 arg-382)))) arg-13)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (UnifyState-Core-resetNextVar arg-7 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((sc4 (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processMod-3722 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 e-2 _-0 e-5 e-6 e-7 (let ((sc5 e-2)) (let ((e-0 (vector-ref sc5 1))) e-0))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 (Context-Core-logTime 'erased arg-8 (lambda () "++ Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-12) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-29 (Context-Core-setNS arg-8 arg-21 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-30 (Context-Core-logTime 'erased arg-8 (lambda () "++ Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc7 e-2)) (let ((e-4 (vector-ref sc7 5))) e-4)) eta-1)) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-logTime 'erased arg-8 (lambda () "++ Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (let ((act-32 (unbox arg-8))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (let ((act-33 (set-box! arg-8 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-1 (vector-ref sc10 2))) (let ((e-35 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-34 (vector-ref sc10 6))) (let ((e-33 (vector-ref sc10 7))) (let ((e-32 (vector-ref sc10 8))) (let ((e-31 (vector-ref sc10 9))) (let ((e-30 (vector-ref sc10 10))) (let ((e-29 (vector-ref sc10 11))) (let ((e-28 (vector-ref sc10 12))) (let ((e-27 (vector-ref sc10 13))) (let ((e-26 (vector-ref sc10 14))) (let ((e-14 (vector-ref sc10 15))) (let ((e-15 (vector-ref sc10 16))) (let ((e-17 (vector-ref sc10 18))) (let ((e-18 (vector-ref sc10 19))) (let ((e-19 (vector-ref sc10 20))) (let ((e-20 (vector-ref sc10 21))) (let ((e-21 (vector-ref sc10 22))) (let ((e-22 (vector-ref sc10 23))) (let ((e-23 (vector-ref sc10 24))) (let ((e-24 (vector-ref sc10 25))) (let ((e-25 (vector-ref sc10 26))) (vector 0 e-0 e-1 e-35 e-3 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (vector 1 (vector 1 e-11)))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 50 (vector 0 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (vector 0 (lambda (ann) (lambda (arg-3265) (Source-Lexer-Parser-pretty_Pretty__Token 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Source-Lexer-Parser-prettyPrec_Pretty__Token 'erased arg-3266 arg-3267)))))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-5) e-5) (vector 0 ))))))))))) -(define ProcessIdr-Idris-case--processMod-3393 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-setNS arg-8 arg-21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-iputStrLn arg-4 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTime 'erased arg-8 (lambda () (Strings-Types-Prelude-C-43C-43 "++ Parsing " arg-3)) (lambda (eta-1) (vector 1 (Source-Parser-runParser 'erased 1 (Unlit-Parser-isLitFile arg-3) arg-0 (vector 8 1 1 (Parser-Idris-prog arg-3) (lambda (p) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-3524) (vector 0 p)))))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-initHash arg-8 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28)))) (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__Int arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__Int arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28)))) (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__Int arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__Int arg-27 arg-28)))) arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28)))) (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__Int arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__Int arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28)))) (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__Int arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__Int arg-27 arg-28)))) arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Bool arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Bool arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Bool arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Bool arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Bool arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-387) (lambda (arg-388) (EqOrd-Prelude-min_Ord__String arg-387 arg-388)))) arg-385 arg-386)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__Int arg-385 arg-386)))) arg-383 arg-384)))) arg-381 arg-382)))) arg-13)) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (UnifyState-Core-resetNextVar arg-7 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((sc7 (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc7 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processMod-3722 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 e-2 _-0 e-7 e-8 e-9 (let ((sc8 e-2)) (let ((e-0 (vector-ref sc8 1))) e-0))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-30 (Context-Core-logTime 'erased arg-8 (lambda () "++ Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-12) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-31 (Context-Core-setNS arg-8 arg-21 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-32 (Context-Core-logTime 'erased arg-8 (lambda () "++ Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc10 e-2)) (let ((e-4 (vector-ref sc10 5))) e-4)) eta-1)) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-33 (Context-Core-logTime 'erased arg-8 (lambda () "++ Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-34 (let ((act-34 (unbox arg-8))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-35 (let ((act-35 (set-box! arg-8 (let ((sc13 e-15)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-37 (vector-ref sc13 3))) (let ((e-3 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-36 (vector-ref sc13 6))) (let ((e-35 (vector-ref sc13 7))) (let ((e-34 (vector-ref sc13 8))) (let ((e-33 (vector-ref sc13 9))) (let ((e-32 (vector-ref sc13 10))) (let ((e-31 (vector-ref sc13 11))) (let ((e-30 (vector-ref sc13 12))) (let ((e-29 (vector-ref sc13 13))) (let ((e-28 (vector-ref sc13 14))) (let ((e-27 (vector-ref sc13 15))) (let ((e-26 (vector-ref sc13 16))) (let ((e-17 (vector-ref sc13 18))) (let ((e-18 (vector-ref sc13 19))) (let ((e-19 (vector-ref sc13 20))) (let ((e-20 (vector-ref sc13 21))) (let ((e-21 (vector-ref sc13 22))) (let ((e-22 (vector-ref sc13 23))) (let ((e-23 (vector-ref sc13 24))) (let ((e-24 (vector-ref sc13 25))) (let ((e-25 (vector-ref sc13 26))) (vector 0 e-0 e-1 e-37 e-3 e-4 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-35)))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (vector 1 (vector 1 e-13))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 1 (vector 50 (vector 0 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (vector 0 (lambda (ann) (lambda (arg-3265) (Source-Lexer-Parser-pretty_Pretty__Token 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Source-Lexer-Parser-prettyPrec_Pretty__Token 'erased arg-3266 arg-3267)))))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-7) e-7) (vector 0 )))))))))))))))))))))))) +(define Resugar-Idris-addBracket (lambda (arg-0 arg-1) (Resugar-Idris-case--addBracket-3097 arg-1 arg-0 (Resugar-Idris-n--9626-3047-needed arg-1 arg-0 arg-1)))) +(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-4108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (let ((act-24 (unbox arg-6))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((act-25 (Context-Core-getDirs arg-6 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 ((Directory-Core-pathToNS (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) arg-0) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (Directory-Core-makeBuildDirectory arg-6 e-7 eta-0))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (let ((act-28 (unbox arg-3))) (vector 1 act-28)))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-5317) (lambda (arg-5318) (lambda (eta-1) (Syntax-Idris-full_HasNames__SyntaxInfo arg-5317 arg-5318 eta-1)))) (lambda (arg-5319) (lambda (arg-5320) (lambda (eta-1) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-5319 arg-5320 eta-1))))) (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2180 eta-1))))) arg-6 arg-4 e-9 arg-9 eta-0)))))))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-29 (Directory-Core-getTTCFileName arg-6 arg-0 "ttm" eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-30 (Metadata-Core-writeToTTM arg-6 arg-5 e-10 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 arg-10))))))) +(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32process-4082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-4108 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-1 _-0 (List-Data-isNil 'erased e-1))))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessIdr-Idris-case--process-4025 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-24 (Directory-Core-getTTCFileName arg-6 arg-0 "ttc" eta-1))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTime 'erased arg-6 (lambda () (Strings-Types-Prelude-C-43C-43 "+ Elaborating " arg-0)) (lambda (eta-2) (ProcessIdr-Idris-processMod arg-6 arg-4 arg-3 arg-5 arg-2 arg-0 e-5 arg-1 e-2 eta-2)) eta-1))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-2))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-1 (vector 1 e-1))) ((ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-4108 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 _-0 e-5 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-1)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-1) (vector 1 (vector 1 err (vector 0 ))))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 49 arg-0 e-5) (vector 0 )))))))))) +(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processMod-3844 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33) (let ((sc0 arg-33)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))) +(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processMod-3716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (let ((e-0 (vector-ref sc0 1))) (lambda () (lambda (eta-0) (let ((act-24 (Context-Core-getDirs arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Directory-Core-pathToNS (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 1))) e-11)) (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 2))) e-10)) e-0) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-21 e-6))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (let ((sc4 arg-23)) (let ((e-9 (vector-ref sc4 1))) e-9)) (Strings-Types-Prelude-C-43C-43 "Module name " (Strings-Types-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased arg-21)) (Strings-Types-Prelude-C-43C-43 " does not match file name " e-0)))) eta-0)) (else (vector 1 (vector 0 ))))))))))))))))))))) +(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32processMod-3534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (Context-Core-initHash arg-8 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29)))) (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__Int arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__Int arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29)))) (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__Int arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__Int arg-28 arg-29)))) arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29)))) (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__Int arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__Int arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-61C-61_Eq__String arg-30 arg-31))) (lambda (arg-30) (lambda (arg-31) (EqOrd-Prelude-C-47C-61_Eq__String arg-30 arg-31)))) arg-28 arg-29)))) (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__Int arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__Int arg-28 arg-29)))) arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Bool arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Bool arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Bool arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Bool arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Bool arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-61C-61_Eq__String arg-28 arg-29))) (lambda (arg-28) (lambda (arg-29) (EqOrd-Prelude-C-47C-61_Eq__String arg-28 arg-29)))) arg-26 arg-27)))) (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__Int arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__Int arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-61C-61_Eq__String arg-26 arg-27))) (lambda (arg-26) (lambda (arg-27) (EqOrd-Prelude-C-47C-61_Eq__String arg-26 arg-27)))) arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-387) (lambda (arg-388) (EqOrd-Prelude-min_Ord__String arg-387 arg-388)))) arg-385 arg-386)))) (vector 0 (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__Int arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__Int arg-24 arg-25)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__Int arg-385 arg-386)))) arg-383 arg-384)))) arg-381 arg-382)))) arg-13)) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (UnifyState-Core-resetNextVar arg-7 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (let ((sc4 (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-61C-61_Eq__String arg-24 arg-25))) (lambda (arg-24) (lambda (arg-25) (EqOrd-Prelude-C-47C-61_Eq__String arg-24 arg-25)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processMod-3716 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 e-2 _-0 e-5 e-6 e-7 (let ((sc5 e-2)) (let ((e-0 (vector-ref sc5 1))) e-0))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc4 act-27)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((act-28 (Context-Core-logTime 'erased arg-8 (lambda () "++ Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-12) eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((act-29 (Context-Core-setNS arg-8 arg-21 eta-0))) (let ((sc6 act-29)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((act-30 (Context-Core-logTime 'erased arg-8 (lambda () "++ Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc7 e-2)) (let ((e-4 (vector-ref sc7 5))) e-4)) eta-1)) eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-31 (Context-Core-logTime 'erased arg-8 (lambda () "++ Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-32 (let ((act-32 (unbox arg-8))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-33 (let ((act-33 (set-box! arg-8 (let ((sc10 e-13)) (let ((e-0 (vector-ref sc10 1))) (let ((e-1 (vector-ref sc10 2))) (let ((e-35 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-34 (vector-ref sc10 6))) (let ((e-33 (vector-ref sc10 7))) (let ((e-32 (vector-ref sc10 8))) (let ((e-31 (vector-ref sc10 9))) (let ((e-30 (vector-ref sc10 10))) (let ((e-29 (vector-ref sc10 11))) (let ((e-28 (vector-ref sc10 12))) (let ((e-27 (vector-ref sc10 13))) (let ((e-26 (vector-ref sc10 14))) (let ((e-14 (vector-ref sc10 15))) (let ((e-15 (vector-ref sc10 16))) (let ((e-17 (vector-ref sc10 18))) (let ((e-18 (vector-ref sc10 19))) (let ((e-19 (vector-ref sc10 20))) (let ((e-20 (vector-ref sc10 21))) (let ((e-21 (vector-ref sc10 22))) (let ((e-22 (vector-ref sc10 23))) (let ((e-23 (vector-ref sc10 24))) (let ((e-24 (vector-ref sc10 25))) (let ((e-25 (vector-ref sc10 26))) (vector 0 e-0 e-1 e-35 e-3 e-4 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-14 e-15 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-33)))) (let ((sc10 act-33)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (vector 1 (vector 1 e-11)))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 (vector 1 (vector 50 (vector 0 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (vector 0 (lambda (ann) (lambda (arg-3271) (Source-Lexer-Parser-pretty_Pretty__Token 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Source-Lexer-Parser-prettyPrec_Pretty__Token 'erased arg-3272 arg-3273)))))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-5) e-5) (vector 0 ))))))))))) +(define ProcessIdr-Idris-case--processMod-3387 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-24 (Context-Core-setNS arg-8 arg-21 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))) (else (lambda (eta-0) (let ((act-24 (REPLCommon-Idris-iputStrLn arg-4 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (Context-Core-logTime 'erased arg-8 (lambda () (Strings-Types-Prelude-C-43C-43 "++ Parsing " arg-3)) (lambda (eta-1) (vector 1 (Source-Parser-runParser 'erased 1 (Unlit-Parser-isLitFile arg-3) arg-0 (vector 8 1 1 (Parser-Idris-prog arg-3) (lambda (p) (vector 8 1 1 (Source-Rule-Parser-eoi) (lambda (_-3518) (vector 0 p)))))))) eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (let ((act-26 (Context-Core-initHash arg-8 eta-0))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessIdr-Idris-addPublicHash arg-8 eta-1)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28)))) (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__Int arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__Int arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28)))) (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__Int arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__Int arg-27 arg-28)))) arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28)))) (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__Int arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__Int arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-61C-61_Eq__String arg-29 arg-30))) (lambda (arg-29) (lambda (arg-30) (EqOrd-Prelude-C-47C-61_Eq__String arg-29 arg-30)))) arg-27 arg-28)))) (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__Int arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__Int arg-27 arg-28)))) arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Bool arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Bool arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Bool arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-compare_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Bool arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Bool arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-60C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Bool arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Bool arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Bool arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Bool arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Bool arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Bool arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Bool arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-61C-61_Eq__String arg-27 arg-28))) (lambda (arg-27) (lambda (arg-28) (EqOrd-Prelude-C-47C-61_Eq__String arg-27 arg-28)))) arg-25 arg-26)))) (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__Int arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__Int arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-C-62C-61_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__Int arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-61C-61_Eq__String arg-25 arg-26))) (lambda (arg-25) (lambda (arg-26) (EqOrd-Prelude-C-47C-61_Eq__String arg-25 arg-26)))) arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-max_Ord__String arg-385 arg-386))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-387) (lambda (arg-388) (EqOrd-Prelude-min_Ord__String arg-387 arg-388)))) arg-385 arg-386)))) (vector 0 (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__Int arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__Int arg-23 arg-24)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__Int arg-385 arg-386)))) arg-383 arg-384)))) arg-381 arg-382)))) arg-13)) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (vector 0 e-3))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-28 (UnifyState-Core-resetNextVar arg-7 eta-0))) (let ((sc6 act-28)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (vector 0 e-3))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-29 (let ((sc7 (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-61C-61_Eq__String arg-23 arg-24))) (lambda (arg-23) (lambda (arg-24) (EqOrd-Prelude-C-47C-61_Eq__String arg-23 arg-24)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc7 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32processMod-3716 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 e-2 _-0 e-7 e-8 e-9 (let ((sc8 e-2)) (let ((e-0 (vector-ref sc8 1))) e-0))))) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc7 act-29)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-30 (Context-Core-logTime 'erased arg-8 (lambda () "++ Reading imports") (Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readImport arg-8 arg-7 arg-6 1 eta-1 eta-2))) arg-12) eta-0))) (let ((sc8 act-30)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-31 (Context-Core-setNS arg-8 arg-21 eta-0))) (let ((sc9 act-31)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((act-32 (Context-Core-logTime 'erased arg-8 (lambda () "++ Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc10 e-2)) (let ((e-4 (vector-ref sc10 5))) e-4)) eta-1)) eta-0))) (let ((sc10 act-32)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-33 (Context-Core-logTime 'erased arg-8 (lambda () "++ Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (let ((act-34 (let ((act-34 (unbox arg-8))) (vector 1 act-34)))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (vector 0 e-3))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-35 (let ((act-35 (set-box! arg-8 (let ((sc13 e-15)) (let ((e-0 (vector-ref sc13 1))) (let ((e-1 (vector-ref sc13 2))) (let ((e-37 (vector-ref sc13 3))) (let ((e-3 (vector-ref sc13 4))) (let ((e-4 (vector-ref sc13 5))) (let ((e-36 (vector-ref sc13 6))) (let ((e-35 (vector-ref sc13 7))) (let ((e-34 (vector-ref sc13 8))) (let ((e-33 (vector-ref sc13 9))) (let ((e-32 (vector-ref sc13 10))) (let ((e-31 (vector-ref sc13 11))) (let ((e-30 (vector-ref sc13 12))) (let ((e-29 (vector-ref sc13 13))) (let ((e-28 (vector-ref sc13 14))) (let ((e-27 (vector-ref sc13 15))) (let ((e-26 (vector-ref sc13 16))) (let ((e-17 (vector-ref sc13 18))) (let ((e-18 (vector-ref sc13 19))) (let ((e-19 (vector-ref sc13 20))) (let ((e-20 (vector-ref sc13 21))) (let ((e-21 (vector-ref sc13 22))) (let ((e-22 (vector-ref sc13 23))) (let ((e-23 (vector-ref sc13 24))) (let ((e-24 (vector-ref sc13 25))) (let ((e-25 (vector-ref sc13 26))) (vector 0 e-0 e-1 e-37 e-3 e-4 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-13) e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))) (vector 1 act-35)))) (let ((sc13 act-35)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (vector 0 e-3))) (else (vector 1 (vector 1 e-13))))))))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (vector 1 (vector 1 (vector 50 (vector 0 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (vector 0 (lambda (ann) (lambda (arg-3271) (Source-Lexer-Parser-pretty_Pretty__Token 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Source-Lexer-Parser-prettyPrec_Pretty__Token 'erased arg-3272 arg-3273)))))) (ProcessIdr-Idris-getParseErrorLoc arg-3 e-7) e-7) (vector 0 )))))))))))))))))))))))) (define ProcessIdr-Idris-case--processMod-3156 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (let ((sc1 arg-10)) (let ((e-2 (vector-ref sc1 3))) e-2))) (else (ProcessIdr-Idris-addPrelude (let ((sc1 arg-10)) (let ((e-2 (vector-ref sc1 3))) e-2)))))))) -(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32readHeader-3017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (vector 0 (lambda (ann) (lambda (arg-3265) (Source-Lexer-Parser-pretty_Pretty__Token 'erased arg-3265))) (lambda (ann) (lambda (arg-3266) (lambda (arg-3267) (Source-Lexer-Parser-prettyPrec_Pretty__Token 'erased arg-3266 arg-3267)))))) (ProcessIdr-Idris-getParseErrorLoc arg-0 e-2) e-2) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5)))))))) -(define ProcessIdr-Idris-case--readHeader-3002 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--caseC-32blockC-32inC-32readHeader-3017 arg-0 arg-1 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-0) (lambda (eta-0) (ProcessIdr-Idris-n--17256-2965-isColon arg-0 arg-1 eta-0)) e-2 (Parser-Idris-progHdr arg-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0)))))))) +(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32readHeader-3017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 50 (vector 0 (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) (vector 0 (lambda (ann) (lambda (arg-3271) (Source-Lexer-Parser-pretty_Pretty__Token 'erased arg-3271))) (lambda (ann) (lambda (arg-3272) (lambda (arg-3273) (Source-Lexer-Parser-prettyPrec_Pretty__Token 'erased arg-3272 arg-3273)))))) (ProcessIdr-Idris-getParseErrorLoc arg-0 e-2) e-2) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 e-5)))))))) +(define ProcessIdr-Idris-case--readHeader-3002 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--caseC-32blockC-32inC-32readHeader-3017 arg-0 arg-1 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-0) (lambda (eta-0) (ProcessIdr-Idris-n--17083-2965-isColon arg-0 arg-1 eta-0)) e-2 (Parser-Idris-progHdr arg-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0)))))))) (define ProcessIdr-Idris-case--readHeaderC-44isColon-2970 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (cond ((equal? sc1 ":") 0)(else 1)))))(else 1))))) -(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32modTime-2854 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (Types-Prelude-cast_Cast__Int_Integer e-2))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) -(define ProcessIdr-Idris-case--modTime-2835 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-24 (arg-317 eta-1))) ((arg-318 act-24) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (Types-Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-155) (lambda (eta-1) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-1) (let ((act-17 (arg-156 eta-1))) (let ((act-16 (arg-158 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-1) (let ((act-25 (arg-317 eta-1))) ((arg-318 act-25) eta-1))))))) (lambda (a) (lambda (arg-320) (lambda (eta-1) (let ((act-51 (arg-320 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))))))) (else (lambda (eta-0) (vector 1 0))))))) +(define ProcessIdr-Idris-case--caseC-32blockC-32inC-32modTime-2854 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (vector 1 (Types-Prelude-cast_Cast__Int_Integer e-2))))))))) (else (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-1) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 0))))))))))) +(define ProcessIdr-Idris-case--modTime-2835 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (let ((act-24 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-24 (arg-274 eta-1))) ((arg-275 act-24) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) eta-0))) (vector 1 act-24)))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 1))) (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (vector 1 (Types-Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-25 (let ((act-25 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-1) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-1)))))) (lambda (a) (lambda (arg-112) (lambda (eta-1) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-1) (let ((act-17 (arg-113 eta-1))) (let ((act-16 (arg-115 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-1) (let ((act-25 (arg-274 eta-1))) ((arg-275 act-25) eta-1))))))) (lambda (a) (lambda (arg-277) (lambda (eta-1) (let ((act-51 (arg-277 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) eta-0))) (vector 1 act-25)))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (vector 1 0)))))))))))))))) (else (lambda (eta-0) (vector 1 0))))))) (define ProcessIdr-Idris-case--addPrelude-2812 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (ProcessIdr-Idris-prelude) arg-0)) (else arg-0))))) (define ProcessIdr-Idris-case--caseC-32blockC-32inC-32readAsMain-2747 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (let ((sc1 arg-11)) (let ((e-13 (vector-ref sc1 7))) e-13)) e-7 e-8 e-9))))))))))))) (define ProcessIdr-Idris-case--readAsMain-2596 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-getNS arg-3 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-25 (Context-Core-getNestedNS arg-3 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Desugar-Idris-extendSyn arg-1 e-5 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((act-27 (let ((act-27 (unbox arg-2))) (vector 1 act-27)))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-1) (let ((act-28 (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 m as eta-1))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (Context-Core-addImported arg-3 (vector 0 m (vector 0 0 as)) eta-1))))))))) e-10) eta-0))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-29 (let ((act-29 (Context-Core-getSession arg-3 eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 (Basics-Prelude-not (let ((sc10 e-14)) (let ((e-0 (vector-ref sc10 1))) e-0))))) (cond ((equal? sc9 0) (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 0 (FC-Core-emptyFC) 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) eta-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (unbox arg-2))) (vector 1 act-30)))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-31 (let ((act-31 (set-box! arg-2 (let ((sc10 e-15)) (let ((e-0 (vector-ref sc10 1))) (let ((e-21 (vector-ref sc10 2))) (let ((e-2 (vector-ref sc10 3))) (let ((e-3 (vector-ref sc10 4))) (let ((e-4 (vector-ref sc10 5))) (let ((e-20 (vector-ref sc10 6))) (let ((e-18 (vector-ref sc10 8))) (let ((e-17 (vector-ref sc10 9))) (let ((e-16 (vector-ref sc10 10))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-20 (let ((sc11 e-12)) (let ((e-25 (vector-ref sc11 7))) e-25)) e-18 e-17 e-16)))))))))))))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((act-32 (Context-Core-setNS arg-3 e-7 eta-0))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (Context-Core-setNestedNS arg-3 e-8 eta-0))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") eta-0))))))) @@ -7346,202 +7264,208 @@ (define ProcessIdr-Idris-case--readModule-2206 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-24 (Directory-Core-nsToPath arg-7 arg-3 arg-1 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (let ((act-25 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2177 arg-2179 eta-1)))) (lambda (arg-2180) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2180 eta-1)))) arg-7 arg-6 1 arg-3 arg-2 e-2 arg-1 arg-0 eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (let ((e-8 (vector-ref sc5 1))) (let ((e-7 (vector-ref sc5 2))) (let ((sc6 e-7)) (let ((e-10 (vector-ref sc6 2))) (let ((act-26 (Desugar-Idris-extendSyn arg-5 e-8 eta-0))) (let ((sc7 act-26)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (vector 0 e-3))) (else (let ((act-27 (let ((act-27 (unbox arg-7))) (vector 1 act-27)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-28 (Context-Core-getNS arg-7 eta-0))) (let ((sc9 act-28)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (vector 0 e-3))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-29 (let ((sc10 arg-2)) (cond ((equal? sc10 0) (Context-Core-setVisible arg-7 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc10 act-29)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (vector 0 e-3))) (else (let ((act-30 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((reexp (Builtin-fst 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (let ((sc11 (Basics-Prelude-C-124C-124 reexp (lambda () arg-4)))) (cond ((equal? sc11 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-7 arg-6 arg-5 arg-4 arg-3 reexp m as eta-1))) (else (lambda (eta-1) (vector 1 (vector 0 )))))))))) e-10) eta-0))) (let ((sc11 act-30)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (vector 0 e-3))) (else (Context-Core-setNS arg-7 e-13 eta-0))))))))))))))))))))))))))))) (else (let ((sc5 arg-2)) (cond ((equal? sc5 0) (Context-Core-setVisible arg-7 arg-1 eta-0)) (else (vector 1 (vector 0 ))))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))))))) (else (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-7 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))))) (define ProcessIdr-Idris-case--caseC-32blockC-32inC-32processDecls-2119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 1 arg-6 (vector 0 )))(else arg-8))))) (define ProcessIdr-Idris-case--processDecls-2069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-24 (ProcessDecls-TTImp-getTotalityErrors arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5) e-5))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--caseC-32blockC-32inC-32processDecls-2119 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5))))))))))) -(define ProcessIdr-Idris-n--17256-2965-isColon (lambda (arg-0 arg-1 arg-2) (ProcessIdr-Idris-case--readHeaderC-44isColon-2970 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1))))) +(define ProcessIdr-Idris-n--17083-2965-isColon (lambda (arg-0 arg-1 arg-2) (ProcessIdr-Idris-case--readHeaderC-44isColon-2970 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1))))) (define ProcessIdr-Idris-readPrelude (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (ProcessIdr-Idris-readImport arg-0 arg-1 arg-2 arg-3 (ProcessIdr-Idris-prelude) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-setNS arg-0 (vector 1 "Main" (vector 0 )) ext-0))))))) (define ProcessIdr-Idris-readModule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((ProcessIdr-Idris-case--readModule-2206 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Types-Prelude-elem 'erased (vector 0 (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__String arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__String arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__String arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__String arg-12 arg-13)))) arg-10 arg-11)))) (vector 0 (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-12 arg-13)))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-12 arg-13)))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9))) (lambda (arg-8) (lambda (arg-9) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__String arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__String arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__String arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__String arg-12 arg-13)))) arg-10 arg-11)))) (vector 0 (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-12 arg-13)))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13)))) arg-10 arg-11))) (lambda (arg-10) (lambda (arg-11) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-61C-61_Eq__Bool arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (EqOrd-Prelude-C-47C-61_Eq__Bool arg-12 arg-13)))) (vector 0 (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13))) (lambda (arg-12) (lambda (arg-13) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-61C-61_Eq__String arg-14 arg-15))) (lambda (arg-14) (lambda (arg-15) (EqOrd-Prelude-C-47C-61_Eq__String arg-14 arg-15)))) arg-12 arg-13)))) arg-10 arg-11)))) arg-8 arg-9)))) (vector 0 arg-6 (vector 0 arg-5 arg-7)) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0)))))))) (define ProcessIdr-Idris-readImport (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 arg-3 (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) e-0)) 0 (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-4)) (let ((e-3 (vector-ref sc0 4))) e-3)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (Context-Core-addImported arg-0 (vector 0 (let ((sc1 arg-4)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 0 (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 arg-4)) (let ((e-3 (vector-ref sc1 4))) e-3)))) ext-0))))))) -(define ProcessIdr-Idris-readHeader (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-1) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-2))) ((ProcessIdr-Idris-case--caseC-32blockC-32inC-32readHeader-3017 arg-1 arg-0 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-1) (lambda (eta-0) (ProcessIdr-Idris-n--17256-2965-isColon arg-1 arg-0 eta-0)) e-2 (Parser-Idris-progHdr arg-1))) ext-0)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0)))))))))))) +(define ProcessIdr-Idris-readHeader (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-1) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-2))) ((ProcessIdr-Idris-case--caseC-32blockC-32inC-32readHeader-3017 arg-1 arg-0 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-1) (lambda (eta-0) (ProcessIdr-Idris-n--17083-2965-isColon arg-1 arg-0 eta-0)) e-2 (Parser-Idris-progHdr arg-1))) ext-0)))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-1 e-6) ext-0)))))))))))) (define ProcessIdr-Idris-readHash (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (Directory-Core-nsToPath arg-0 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 3))) e-2)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (Binary-Core-readIFaceHash e-2 ext-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 (vector 0 (let ((sc3 arg-2)) (let ((e-1 (vector-ref sc3 2))) e-1)) (vector 0 (let ((sc3 arg-2)) (let ((e-3 (vector-ref sc3 4))) e-3)) e-6)))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 ext-0)))))))))))) (define ProcessIdr-Idris-readAsMain (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2177) (lambda (arg-2179) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2177 arg-2179 eta-0)))) (lambda (arg-2180) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2180 eta-0)))) arg-0 arg-1 0 (FC-Core-toplevelFC) 0 arg-3 (vector 0 ) (vector 0 ) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-6)) (let ((e-10 (vector-ref sc3 2))) (let ((act-25 (Context-Core-getNS arg-0 ext-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-26 (Context-Core-getNestedNS arg-0 ext-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-27 (Desugar-Idris-extendSyn arg-2 e-7 ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-29 ((Core-Core-traverse_ 'erased 'erased (lambda (mimp) (let ((m (Builtin-fst 'erased 'erased mimp))) (let ((as (Builtin-snd 'erased 'erased (Builtin-snd 'erased 'erased mimp)))) (lambda (eta-0) (let ((act-29 (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 m as eta-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (Context-Core-addImported arg-0 (vector 0 m (vector 0 0 as)) eta-0))))))))) e-10) ext-0))) (let ((sc8 act-29)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((act-30 (let ((act-30 (Context-Core-getSession arg-0 ext-0))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc9 1))) (let ((sc10 (Basics-Prelude-not (let ((sc11 e-15)) (let ((e-0 (vector-ref sc11 1))) e-0))))) (cond ((equal? sc10 0) (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (FC-Core-emptyFC) 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) ext-0)) (else (vector 1 (vector 0 )))))))))))) (let ((sc9 act-30)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-1))) (vector 1 act-31)))) (let ((sc10 act-31)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-32 (let ((act-32 (set-box! arg-1 (let ((sc11 e-16)) (let ((e-0 (vector-ref sc11 1))) (let ((e-22 (vector-ref sc11 2))) (let ((e-2 (vector-ref sc11 3))) (let ((e-3 (vector-ref sc11 4))) (let ((e-4 (vector-ref sc11 5))) (let ((e-21 (vector-ref sc11 6))) (let ((e-19 (vector-ref sc11 8))) (let ((e-18 (vector-ref sc11 9))) (let ((e-17 (vector-ref sc11 10))) (vector 0 e-0 e-22 e-2 e-3 e-4 e-21 (let ((sc12 e-13)) (let ((e-26 (vector-ref sc12 7))) e-26)) e-19 e-18 e-17)))))))))))))) (vector 1 act-32)))) (let ((sc11 act-32)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (vector 0 e-2))) (else (let ((act-33 (Context-Core-setNS arg-0 e-8 ext-0))) (let ((sc12 act-33)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else (Context-Core-setNestedNS arg-0 e-11 ext-0)))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Already loaded") ext-0))))))))))) -(define ProcessIdr-Idris-processMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setCurrentElabSource arg-4 arg-8 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ProcessIdr-Idris-readHeader arg-0 arg-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((imps (ProcessIdr-Idris-case--processMod-3156 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Basics-Prelude-C-124C-124 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) (lambda () (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) (vector 1 "Prelude" (vector 0 )))))))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readHash arg-0 arg-1 eta-1 eta-2))) imps) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 ((Context-Core-log arg-0 "" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Current hash " (Show-Prelude-show_Show__Int (let ((sc5 e-9)) (let ((e-15 (vector-ref sc5 16))) e-15)))))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 ((Context-Core-log arg-0 "" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__String d x)))) (let ((sc6 e-6)) (let ((e-1 (vector-ref sc6 2))) e-1))) (Strings-Types-Prelude-C-43C-43 " hashes:\u000a" (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Show-Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Show-Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-8))))))) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Binary-Core-readImportHashes arg-6 eta-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 ((Context-Core-log arg-0 "" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Old hashes from " (Strings-Types-Prelude-C-43C-43 arg-6 (Strings-Types-Prelude-C-43C-43 ":\u000a" (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Show-Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Show-Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) e-12))))))) eta-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (ProcessIdr-Idris-modTime arg-5 eta-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (ProcessIdr-Idris-modTime arg-6 eta-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((ns (let ((sc11 e-6)) (let ((e-1 (vector-ref sc11 2))) e-1)))) ((ProcessIdr-Idris-case--processMod-3393 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 imps e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 ns (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-8)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) e-12)) (lambda () (EqOrd-Prelude-C-60C-61_Ord__Integer e-14 e-15)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 (vector 1 err (vector 0 )))))) ext-0))) +(define ProcessIdr-Idris-processMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-setCurrentElabSource arg-4 arg-8 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ProcessIdr-Idris-readHeader arg-0 arg-5 eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((imps (ProcessIdr-Idris-case--processMod-3156 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Basics-Prelude-C-124C-124 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) (lambda () (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) (vector 1 "Prelude" (vector 0 )))))))) (let ((act-27 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readHash arg-0 arg-1 eta-1 eta-2))) imps) eta-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-28 (let ((act-28 (unbox arg-0))) (vector 1 act-28)))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Current hash " (Show-Prelude-show_Show__Int (let ((sc5 e-9)) (let ((e-15 (vector-ref sc5 16))) e-15))))) eta-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__String d x)))) (let ((sc6 e-6)) (let ((e-1 (vector-ref sc6 2))) e-1))) (Strings-Types-Prelude-C-43C-43 " hashes:\u000a" (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Show-Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Show-Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-8)))))) eta-0))) (let ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-31 (Binary-Core-readImportHashes arg-6 eta-0))) (let ((sc7 act-31)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-32 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Types-Prelude-C-43C-43 "Old hashes from " (Strings-Types-Prelude-C-43C-43 arg-6 (Strings-Types-Prelude-C-43C-43 ":\u000a" (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Show-Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Show-Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Show-Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Show-Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Show-Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Show-Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Show-Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Show-Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Show-Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Show-Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) e-12)))))) eta-0))) (let ((sc8 act-32)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-33 (ProcessIdr-Idris-modTime arg-5 eta-0))) (let ((sc9 act-33)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-34 (ProcessIdr-Idris-modTime arg-6 eta-0))) (let ((sc10 act-34)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (vector 0 e-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((ns (let ((sc11 e-6)) (let ((e-1 (vector-ref sc11 2))) e-1)))) ((ProcessIdr-Idris-case--processMod-3387 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 imps e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 ns (Basics-Prelude-C-38C-38 (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-8)) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-61C-61_Eq__String arg-13 arg-14))) (lambda (arg-13) (lambda (arg-14) (EqOrd-Prelude-C-47C-61_Eq__String arg-13 arg-14)))) arg-11 arg-12)))) (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__Int arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__Int arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-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-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__Int arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-compare_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__Int arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__Int arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__Int arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-60C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__Int arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-C-62C-61_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__String arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__String arg-381 arg-382)))) arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-381 arg-382)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-max_Ord__Int arg-381 arg-382))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__Int arg-381 arg-382)))) arg-379 arg-380))) (lambda (arg-381) (lambda (arg-382) (EqOrd-Prelude-min_Ord__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-61C-61_Eq__String arg-11 arg-12))) (lambda (arg-11) (lambda (arg-12) (EqOrd-Prelude-C-47C-61_Eq__String arg-11 arg-12)))) arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (Types-Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-compare_Ord__String arg-371 arg-372))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (Types-Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-60_Ord__String arg-373 arg-374))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (Types-Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-62_Ord__String arg-375 arg-376))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (Types-Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-60C-61_Ord__String arg-377 arg-378))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (Types-Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-C-62C-61_Ord__String arg-379 arg-380))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (Types-Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-max_Ord__String arg-383 arg-384))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__String arg-383 arg-384)))) arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (Types-Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__String arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__String arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__String arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__String arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__String arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__String arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__String arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__String arg-379 arg-380))) (lambda (arg-385) (lambda (arg-386) (EqOrd-Prelude-min_Ord__String arg-385 arg-386)))) arg-383 arg-384)))) (vector 0 (vector 0 (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-61C-61_Eq__Int arg-9 arg-10))) (lambda (arg-9) (lambda (arg-10) (EqOrd-Prelude-C-47C-61_Eq__Int arg-9 arg-10)))) (lambda (arg-369) (lambda (arg-370) (EqOrd-Prelude-compare_Ord__Int arg-369 arg-370))) (lambda (arg-371) (lambda (arg-372) (EqOrd-Prelude-C-60_Ord__Int arg-371 arg-372))) (lambda (arg-373) (lambda (arg-374) (EqOrd-Prelude-C-62_Ord__Int arg-373 arg-374))) (lambda (arg-375) (lambda (arg-376) (EqOrd-Prelude-C-60C-61_Ord__Int arg-375 arg-376))) (lambda (arg-377) (lambda (arg-378) (EqOrd-Prelude-C-62C-61_Ord__Int arg-377 arg-378))) (lambda (arg-379) (lambda (arg-380) (EqOrd-Prelude-max_Ord__Int arg-379 arg-380))) (lambda (arg-383) (lambda (arg-384) (EqOrd-Prelude-min_Ord__Int arg-383 arg-384)))) arg-381 arg-382)))) e-12)) (lambda () (EqOrd-Prelude-C-60C-61_Ord__Integer e-14 e-15)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 (vector 1 err (vector 0 )))))) ext-0))) (define ProcessIdr-Idris-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessIdr-Idris-processDecl arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-4) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (UnifyState-Core-checkDelayedHoles arg-1 arg-0 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((act-26 (ProcessDecls-TTImp-getTotalityErrors arg-0 ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (vector 1 (List-Types-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5) e-7)))))))) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--caseC-32blockC-32inC-32processDecls-2119 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-2 _-0 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5)))))))))))))))))))) (define ProcessIdr-Idris-processDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-24 ((Desugar-Idris-desugarDecl arg-2 arg-0 arg-1 arg-3 (vector 0 ) arg-4) eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl (vector 0 ) arg-0 arg-3 arg-1 (vector 0 ) (vector 0 ) (vector 0 ) eta-1)) e-5) eta-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (vector 1 (vector 0 )))))))))))) (lambda (err) (lambda (eta-0) (let ((act-24 (Unify-Core-giveUpConstraints arg-0 arg-1 eta-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (vector 1 (vector 1 err)))))))) ext-0))) -(define ProcessIdr-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-6) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-25 (Directory-Core-getTTCFileName arg-0 arg-6 "ttc" eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTime 'erased arg-0 (lambda () (Strings-Types-Prelude-C-43C-43 "+ Elaborating " arg-6)) (lambda (eta-1) (ProcessIdr-Idris-processMod arg-0 arg-2 arg-3 arg-1 arg-4 arg-6 e-6 arg-5 e-2 eta-1)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-1 (vector 1 e-1))) ((ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-4114 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-2 _-0 e-6 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 err (vector 0 ))))) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 49 arg-6 e-6) (vector 0 )))))))))))))) +(define ProcessIdr-Idris-process (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-24 (let ((act-24 ((File-System-readFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-6) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-25 (Directory-Core-getTTCFileName arg-0 arg-6 "ttc" eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-26 (Context-Core-logTime 'erased arg-0 (lambda () (Strings-Types-Prelude-C-43C-43 "+ Elaborating " arg-6)) (lambda (eta-1) (ProcessIdr-Idris-processMod arg-0 arg-2 arg-3 arg-1 arg-4 arg-6 e-6 arg-5 e-2 eta-1)) eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (vector 0 e-3))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-1 (vector 1 e-1))) ((ProcessIdr-Idris-case--caseC-32blockC-32inC-32caseC-32blockC-32inC-32process-4108 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-2 _-0 e-6 e-1 _-1 (List-Data-isNil 'erased e-1)) eta-0)))) (else (vector 1 (vector 0 ))))))))))))))))) (lambda (err) (lambda (eta-0) (vector 1 (vector 1 err (vector 0 ))))) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 (vector 1 (vector 49 arg-6 e-6) (vector 0 )))))))))))))) (define ProcessIdr-Idris-prelude (lambda () (vector 0 (vector 0 "(implicit)" (vector 0 0 0) (vector 0 0 0)) 1 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 ))))) -(define ProcessIdr-Idris-modTime (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-24 (arg-317 eta-0))) ((arg-318 act-24) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) arg-0 (vector 0 )) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-25 (arg-317 eta-0))) ((arg-318 act-25) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-26 (arg-317 eta-0))) ((arg-318 act-26) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) ext-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (Types-Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-26 (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-155) (lambda (eta-0) arg-155))) (lambda (b) (lambda (a) (lambda (arg-156) (lambda (arg-158) (lambda (eta-0) (let ((act-17 (arg-156 eta-0))) (let ((act-16 (arg-158 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-317) (lambda (arg-318) (lambda (eta-0) (let ((act-26 (arg-317 eta-0))) ((arg-318 act-26) eta-0))))))) (lambda (a) (lambda (arg-320) (lambda (eta-0) (let ((act-51 (arg-320 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-6357) arg-6357))) e-2) ext-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))) (else (vector 1 0))))))))))) +(define ProcessIdr-Idris-modTime (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((File-System-openFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-24 (arg-274 eta-0))) ((arg-275 act-24) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) arg-0 (vector 0 )) ext-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 ((File-System-fileModifiedTime 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-25 (arg-274 eta-0))) ((arg-275 act-25) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) ext-0))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (vector 0 e-3))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((act-26 (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-26 (arg-274 eta-0))) ((arg-275 act-26) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) ext-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (vector 1 (Types-Prelude-cast_Cast__Int_Integer e-3)))))))) (else (let ((act-26 (let ((act-26 ((File-System-closeFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-45) (lambda (eta-0) (IO-Prelude-map_Functor__IO 'erased 'erased func arg-45 eta-0)))))) (lambda (a) (lambda (arg-112) (lambda (eta-0) arg-112))) (lambda (b) (lambda (a) (lambda (arg-113) (lambda (arg-115) (lambda (eta-0) (let ((act-17 (arg-113 eta-0))) (let ((act-16 (arg-115 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-274) (lambda (arg-275) (lambda (eta-0) (let ((act-26 (arg-274 eta-0))) ((arg-275 act-26) eta-0))))))) (lambda (a) (lambda (arg-277) (lambda (eta-0) (let ((act-51 (arg-277 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-5832) arg-5832))) e-2) ext-0))) (vector 1 act-26)))) (let ((sc4 act-26)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (vector 0 e-3))) (else (vector 1 0))))))))))))))) (else (vector 1 0))))))))))) (define ProcessIdr-Idris-getParseErrorLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-9 (vector-ref sc1 1))) (vector 0 arg-0 e-9 e-9)))(else (REPLOpts-Idris-replFC)))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (case (vector-ref sc2 0) ((0) (let ((e-16 (vector-ref sc2 1))) (vector 0 arg-0 (vector 0 e-12 e-16) (vector 0 e-12 e-16))))(else (REPLOpts-Idris-replFC)))))))(else (REPLOpts-Idris-replFC)))))) ((3) (let ((e-7 (vector-ref sc0 1))) (let ((sc1 e-7)) (case (vector-ref sc1 0) ((0) (let ((e-18 (vector-ref sc1 1))) (vector 0 arg-0 (vector 0 e-18 0) (vector 0 e-18 0))))(else (REPLOpts-Idris-replFC))))))(else (REPLOpts-Idris-replFC)))))) -(define ProcessIdr-Idris-addPublicHash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1908) (Hash-Core-hash_Hashable__String arg-1908)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__String arg-1908 arg-1909)))) arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__String arg-1907)) (lambda (arg-1910) (lambda (arg-1911) (Hash-Core-hashWithSalt_Hashable__String arg-1910 arg-1911)))) arg-1908 arg-1909)))) e-6 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-1907) (Hash-Core-hash_Hashable__Int arg-1907)) (lambda (arg-1908) (lambda (arg-1909) (Hash-Core-hashWithSalt_Hashable__Int arg-1908 arg-1909)))) e-7 eta-0)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) +(define ProcessIdr-Idris-addPublicHash (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((e-7 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1914) (Hash-Core-hash_Hashable__String arg-1914)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__String arg-1914 arg-1915)))) arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__String arg-1913)) (lambda (arg-1916) (lambda (arg-1917) (Hash-Core-hashWithSalt_Hashable__String arg-1916 arg-1917)))) arg-1914 arg-1915)))) e-6 eta-0))) (let ((sc3 act-24)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-1913) (Hash-Core-hash_Hashable__Int arg-1913)) (lambda (arg-1914) (lambda (arg-1915) (Hash-Core-hashWithSalt_Hashable__Int arg-1914 arg-1915)))) e-7 eta-0)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))) (define ProcessIdr-Idris-addPrelude (lambda (arg-0) (ProcessIdr-Idris-case--addPrelude-2812 arg-0 (Basics-Prelude-not (Types-Prelude-elem 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (Types-Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-61C-61_Eq__String arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (EqOrd-Prelude-C-47C-61_Eq__String arg-4 arg-5)))) arg-2 arg-3))) (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2) (lambda (arg-3) (EqOrd-Prelude-C-61C-61_Eq__String arg-2 arg-3))) (lambda (arg-6) (lambda (arg-7) (EqOrd-Prelude-C-47C-61_Eq__String arg-6 arg-7)))) arg-4 arg-5)))) (vector 1 "Prelude" (vector 0 )) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) arg-0)))))) (define ProcessIdr-Idris-addImport (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (ProcessIdr-Idris-readImport arg-0 arg-1 arg-2 0 arg-3 ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (Context-Core-setNS arg-0 e-5 ext-0)))))))))))) -(define Parser-Idris-case--nonEmptyCommand-16271 (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--help-16226 (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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (Strings-Types-Prelude-C-43C-43 ":" arg-1)) e-2) (vector 0 e-6 e-10)))))))))))) -(define Parser-Idris-case--setOption-14380 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda () (Parser-Idris-setVarOption))) (else (lambda () (vector 4 0 "Unrecognised option"))))))) -(define Parser-Idris-case--progHdr-14111 (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))) (vector 0 (vector 0 (Parser-Idris-boundToFC 'erased arg-0 arg-1) (List1-Data-toList 'erased e-6) e-7 e-2 (vector 0 ))))))))))) -(define Parser-Idris-case--prog-13981 (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 (vector 0 (Parser-Idris-boundToFC 'erased arg-0 arg-1) (List1-Data-toList 'erased e-6) e-7 e-2 (Parser-Idris-collectDefs ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) arg-2)))))))))))) -(define Parser-Idris-case--import_-13851 (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 (vector 0 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-2 (List1-Data-toList 'erased e-6) (List1-Data-toList 'erased e-7))))))))))) -(define Parser-Idris-case--collectDefs-13696 (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-Types-Prelude-C-43C-43 'erased arg-0 e-2)) (Parser-Idris-collectDefs e-3))))))) -(define Parser-Idris-case--caseC-32blockC-32inC-32collectDefsC-44spanMap-13649 (lambda (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-Types-Prelude-C-43C-43 'erased arg-8 e-2) e-3)))))) -(define Parser-Idris-case--collectDefsC-44spanMap-13588 (lambda (arg-0 arg-1 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--caseC-32blockC-32inC-32collectDefsC-44spanMap-13649 arg-0 arg-1 arg-2 'erased 'erased arg-6 arg-7 arg-5 e-2 (Parser-Idris-n--10125-13554-spanMap arg-0 arg-1 arg-2 'erased 'erased arg-7 arg-6)))))))) -(define Parser-Idris-case--topDecl-13463 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((11) (let ((e-0 (vector-ref sc0 1))) (vector 1 e-0)))(else (vector 0 )))))) -(define Parser-Idris-case--fixDecl-13102 (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 (Types-Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 10 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-2 (Types-Prelude-fromInteger_Num__Nat e-6) eta-0)) e-7)))))))))) -(define Parser-Idris-case--claim-12962 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((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 0 (vector 0 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-14 e-6 e-10 e-15))))))))))))))) -(define Parser-Idris-case--recordParam-12632 (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 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 1))) e-1)) (vector 0 e-2 (vector 0 (vector 1 ) e-7))))))))))) -(define Parser-Idris-case--recordParam-12588 (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))) (vector 0 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 1))) e-1)) (vector 0 e-2 (vector 0 arg-4 e-7))))))))))) -(define Parser-Idris-case--fieldDeclC-44fieldBody-12176 (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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) -(define Parser-Idris-case--usingDecls-10870 (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 0 (vector 4 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-2 (Parser-Idris-collectDefs ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-3))))))))) -(define Parser-Idris-case--paramDecls-10680 (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 0 (vector 3 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-2 (Parser-Idris-collectDefs ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-3))))))))) -(define Parser-Idris-case--transformDecl-10437 (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 (vector 12 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-2 e-6 e-7)))))))))) -(define Parser-Idris-case--namespaceDecl-10316 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 0 (vector 11 (Parser-Idris-boundToFC 'erased arg-1 arg-2) (List1-Data-toList 'erased e-6) ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7)))))))))) -(define Parser-Idris-case--stripBracesC-44drop-9321 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Parser-Idris-n--17460-9306-drop arg-0 arg-3 arg-2)) (else (vector 1 arg-1 arg-2)))))) -(define Parser-Idris-case--dataDecl-9286 (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 (vector 2 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-2 e-6 e-7)))))))))) -(define Parser-Idris-case--dataDeclBody-9194 (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 9 0 0 (Parser-Idris-simpleData 'erased arg-1 arg-2 e-3 arg-0) (lambda () (Parser-Idris-gadtData 'erased arg-1 e-2 arg-2 e-3 arg-0)))))))) -(define Parser-Idris-case--dataBody-9056 (lambda (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 (vector 0 (Parser-Idris-boundToFC 'erased arg-6 (Bounded-Text-mergeBounds 'erased 'erased arg-4 arg-7)) arg-3 arg-1 e-2 e-3))))))) -(define Parser-Idris-case--simpleData-8798 (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 (vector 0 (Parser-Idris-boundToFC 'erased arg-4 (Bounded-Text-mergeBounds 'erased 'erased arg-3 arg-5)) arg-2 (Parser-Idris-mkTyConType e-6 e-2) (vector 0 ) e-7)))))))))) -(define Parser-Idris-case--simpleCon-8676 (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 (let ((cfc (Parser-Idris-boundToFC 'erased arg-2 arg-3))) (vector 0 cfc e-6 e-2 (Parser-Idris-mkDataConType cfc arg-1 e-7)))))))))))) -(define Parser-Idris-case--mkDataConType-8542 (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-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 21 arg-1) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3))) (else (vector 1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (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--clause-8476 (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))) (Parser-Idris-ifThenElse 'erased (Types-Prelude-C-47C-61_Eq__Nat arg-2 (List-Types-Prelude-length 'erased e-7)) (lambda () (vector 4 0 "Wrong number of 'with' arguments")) (lambda () (Parser-Idris-parseRHS 'erased arg-2 arg-1 arg-3 e-2 arg-0 (Parser-Idris-n--16191-8356-applyArgs arg-0 arg-1 arg-2 e-6 e-7)))))))))))) -(define Parser-Idris-case--parseRHS-8314 (lambda (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 (vector 1 (Parser-Idris-boundToFC 'erased arg-5 (Bounded-Text-mergeBounds 'erased 'erased arg-4 arg-7)) arg-1 e-6 (let ((sc2 e-2)) (let ((e-1 (vector-ref sc2 1))) e-1)) e-7)))))))))) -(define Parser-Idris-case--parseRHS-8279 (lambda (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 (vector 0 (Parser-Idris-boundToFC 'erased arg-5 (Bounded-Text-mergeBounds 'erased 'erased arg-4 arg-7)) arg-1 e-2 e-3))))))) -(define Parser-Idris-case--tyDecl-8005 (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 (vector 0 (Parser-Idris-boundToFC 'erased arg-1 arg-3) e-6 (Strings-Types-Prelude-C-43C-43 arg-2 e-2) e-7)))))))))) -(define Parser-Idris-case--doAct-7567 (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))) (vector 0 (vector 1 (vector 2 (Parser-Idris-boundToFC 'erased arg-1 (Bounded-Text-mergeBounds 'erased 'erased arg-2 arg-3)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) e-1)) e-2 e-3) (vector 0 )))))))) -(define Parser-Idris-case--doAct-7512 (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 (vector 1 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-2 e-3) (vector 0 )))))))) -(define Parser-Idris-case--validPatternVar-7189 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 (vector 0 ))) (else (vector 4 1 "Not a pattern variable")))))) -(define Parser-Idris-case--doBlock-7124 (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 ((sc1 e-1)) (cond ((equal? sc1 "do") (vector 8 1 1 (vector 10 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-doAct arg-1 eta-0)))) (lambda (actions) (vector 0 (vector 32 (Parser-Idris-boundToFC 'erased arg-1 (Bounded-Text-mergeBounds 'erased 'erased arg-2 actions)) (vector 1 (List-Data-reverse 'erased e-2)) ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (let ((sc2 actions)) (let ((e-8 (vector-ref sc2 1))) e-8))))))))(else (vector 4 1 "Not a namespaced 'do'")))))))(else (vector 4 1 "Not a namespaced 'do'")))))) -(define Parser-Idris-case--rewrite_-7047 (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 0 (vector 41 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-2 e-3))))))) -(define Parser-Idris-case--if_-6740 (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 (vector 39 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-2 e-6 e-7)))))))))) -(define Parser-Idris-case--lambdaCase-6513 (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 0 (let ((fc (Parser-Idris-boundToFC 'erased arg-1 arg-2))) (let ((fcCase (Parser-Idris-boundToFC 'erased arg-1 e-2))) (let ((n (vector 2 "lcase" 0))) (vector 2 fcCase (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 fcCase n) (vector 25 fcCase) (vector 4 fc (vector 0 fcCase n) e-3))))))))))) -(define Parser-Idris-case--case_-6417 (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 0 (vector 4 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-2 e-3))))))) -(define Parser-Idris-case--let_-6326 (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 0 (Parser-Idris-buildLets arg-1 e-2 e-3))))))) -(define Parser-Idris-case--let_-6299 (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 0 (vector 5 (Parser-Idris-boundToFC 'erased arg-1 arg-2) (Parser-Idris-collectDefs ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-4) (lambda (arg-5) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-4 arg-5))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-2)) e-3))))))) -(define Parser-Idris-case--buildDoLets-6056 (lambda (arg-0 arg-1 arg-2 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--letBinder-5892 (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 8 1 0 (Parser-Text-option 'erased 'erased (Basics-Prelude-C-124C-124 0 (lambda () 0)) (vector 24 (Parser-Idris-boundToFC 'erased arg-1 arg-2)) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-5919) (Parser-Idris-typeExpr (Parser-Idris-pnoeq (Parser-Idris-pdef)) arg-1 arg-0))))) (lambda (ty) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-5936) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pnowith) arg-1 arg-0) (lambda () (lambda (val) (vector 8 1 1 (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-patAlt arg-1 eta-0))) (lambda (alts) (vector 8 1 1 (Parser-Idris-getMult e-2) (lambda (rig) (vector 0 (vector 0 rig (vector 0 e-3 (vector 0 ty (vector 0 val alts)))))))))))))))))))))) -(define Parser-Idris-case--letBinder-5838 (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))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (vector 0 (vector 0 (Bounded-Text-start 'erased arg-2) (vector 0 (Bounded-Text-end 'erased arg-2) (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 (vector 0 e-14 e-15))))))))))))))))))))) -(define Parser-Idris-case--pibindList-5240 (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 (vector 0 (Bounded-Text-map_Functor__WithBounds 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) e-6) e-7)))))))))) -(define Parser-Idris-case--simplerExpr-4873 (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 0 (vector 22 (Parser-Idris-boundToFC 'erased arg-1 arg-2) (vector 1 e-2) e-3))))))) -(define Parser-Idris-case--simplerExpr-4848 (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 0 (vector 46 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-2 e-3))))))) -(define Parser-Idris-case--caseC-32blockC-32inC-32simpleExpr-4272 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-3)(else (vector 44 (Parser-Idris-boundToFC 'erased arg-1 arg-2) arg-3 arg-4)))))) -(define Parser-Idris-case--simpleExpr-4255 (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 0 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) e-2)(else (vector 44 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-2 e-3)))))))))) -(define Parser-Idris-case--listExpr-4019 (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))) (vector 0 (vector 40 (Parser-Idris-boundToFC 'erased arg-3 (Bounded-Text-mergeBounds 'erased 'erased arg-2 arg-4)) e-2 ((Interfaces-Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Types-Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-6) (lambda (arg-7) (Types-Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-6 arg-7))) (Types-Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-3)))))))) -(define Parser-Idris-case--bracketedExpr-3731 (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))) (vector 0 (vector 28 (Parser-Idris-boundToFC 'erased arg-3 (Bounded-Text-mergeBounds 'erased 'erased arg-2 arg-4)) e-2 e-3))))))) -(define Parser-Idris-case--bracketedExpr-3594 (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))) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-3617) (vector 0 (vector 45 (Parser-Idris-boundToFC 'erased arg-3 arg-4) e-2 e-3)))))))))) -(define Parser-Idris-case--dpairType-3287 (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))) (vector 9 (Basics-Prelude-C-124C-124 0 (lambda () 0)) 1 (vector 7 0 (Source-Rule-Parser-symbol "**") (lambda () (lambda (_-3313) (let ((sc1 (Basics-Prelude-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc1 1) (vector 8 1 1 (vector 10 (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 9 0 0 (Parser-Idris-nestedDpair 'erased arg-3 arg-4 arg-1) (lambda () (Parser-Idris-expr (Parser-Idris-pdef) arg-3 arg-1)))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-symbol ")"))))) (lambda () (lambda (rest) (vector 0 (vector 37 (Parser-Idris-boundToFC 'erased arg-3 (Bounded-Text-mergeBounds 'erased 'erased arg-2 rest)) (vector 0 (Parser-Idris-boundToFC 'erased arg-3 arg-4) (vector 1 e-2)) e-3 (let ((sc2 rest)) (let ((e-1 (vector-ref sc2 1))) e-1)))))))) (else (vector 7 1 (vector 10 (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-0)) (vector 9 0 0 (Parser-Idris-nestedDpair 'erased arg-3 arg-4 arg-1) (lambda () (Parser-Idris-expr (Parser-Idris-pdef) arg-3 arg-1)))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-symbol ")"))))) (lambda () (lambda (rest) (vector 0 (vector 37 (Parser-Idris-boundToFC 'erased arg-3 (Bounded-Text-mergeBounds 'erased 'erased arg-2 rest)) (vector 0 (Parser-Idris-boundToFC 'erased arg-3 arg-4) (vector 1 e-2)) e-3 (let ((sc2 rest)) (let ((e-1 (vector-ref sc2 1))) e-1))))))))))))) (lambda () (vector 0 e-3)))))))) -(define Parser-Idris-case--opExpr-3159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 (Basics-Prelude-C-124C-124 0 (lambda () 0)))) (cond ((equal? sc1 1) (vector 8 1 1 (vector 10 (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (vector 8 1 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-continue arg-0)) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-symbol "="))))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Parser-Idris-opExpr arg-2 arg-1 arg-0))))) (lambda () (lambda (r) (vector 0 (vector 26 (Parser-Idris-boundToFC 'erased arg-1 (Bounded-Text-mergeBounds 'erased 'erased arg-3 r)) (vector 1 "=") (let ((sc2 arg-3)) (let ((e-1 (vector-ref sc2 1))) e-1)) (let ((sc2 r)) (let ((e-1 (vector-ref sc2 1))) e-1)))))))) (else (vector 7 1 (vector 10 (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (vector 8 1 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-continue arg-0)) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-symbol "="))))) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Parser-Idris-opExpr arg-2 arg-1 arg-0))))) (lambda () (lambda (r) (vector 0 (vector 26 (Parser-Idris-boundToFC 'erased arg-1 (Bounded-Text-mergeBounds 'erased 'erased arg-3 r)) (vector 1 "=") (let ((sc2 arg-3)) (let ((e-1 (vector-ref sc2 1))) e-1)) (let ((sc2 r)) (let ((e-1 (vector-ref sc2 1))) e-1))))))))))) (else (vector 4 1 "= not allowed")))))) -(define Parser-Idris-case--opExpr-3136 (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))) (vector 0 (vector 26 (Parser-Idris-boundToFC 'erased arg-1 (Bounded-Text-mergeBounds 'erased 'erased arg-3 arg-4)) e-2 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 1))) e-1)) e-3))))))) -(define Parser-Idris-case--with_-3044 (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 0 (vector 47 (Parser-Idris-boundToFC 'erased arg-1 arg-2) e-2 e-3))))))) -(define Parser-Idris-case--argExpr-2686 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((20) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (vector 0 (vector 0 (vector 20 e-0 0 e-2))))))(else (vector 0 (vector 0 arg-4))))))) -(define Parser-Idris-case--caseC-32blockC-32inC-32argExpr-2664 (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--argExpr-2616 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda () (vector 8 1 0 (Source-Rule-Parser-continue arg-0) (lambda (_-2630) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-2640) (vector 7 1 (Parser-Idris-expr (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (vector 0 e-0 1))) arg-1 arg-0) (lambda () (lambda (arg) (vector 0 (vector 2 arg)))))))))))) (else (lambda () (vector 4 1 "| not allowed here"))))))) -(define Parser-Idris-case--appExpr-2542 (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 (Parser-Idris-n--10482-2373-applyExpImp arg-0 arg-1 arg-2 (Bounded-Text-start 'erased arg-3) (Bounded-Text-end 'erased arg-3) e-2 e-3))))))) -(define Parser-Idris-case--appExpr-2523 (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 27 (Parser-Idris-boundToFC 'erased arg-1 arg-3) e-2 e-3))))))) -(define Parser-Idris-case--pnoeq-1929 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1))))) -(define Parser-Idris-n--10125-13554-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--collectDefsC-44spanMap-13588 arg-0 arg-1 arg-2 'erased 'erased e-2 e-3 arg-5 (arg-5 e-2))))))))) -(define Parser-Idris-n--10485-2874-singleName (lambda (arg-0 arg-1) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (vector 1 n (vector 0 )))))))) -(define Parser-Idris-n--10527-6847-recFieldCompat (lambda (arg-0 arg-1) (vector 9 0 (Basics-Prelude-C-124C-124 0 (lambda () 0)) (Source-Rule-Parser-dotIdent) (lambda () (vector 8 0 0 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "->")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 f (Source-Rule-Parser-name)))))))) -(define Parser-Idris-n--16191-8357-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-8377) (vector 7 1 (vector 10 (Parser-Idris-expr (Parser-Idris-plhs) arg-1 arg-0)) (lambda () (lambda (tm) (vector 0 (vector 0 (Parser-Idris-boundToFC 'erased arg-1 tm) (let ((sc0 tm)) (let ((e-1 (vector-ref sc0 1))) e-1)))))))))))) -(define Parser-Idris-n--23611-15786-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15795) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-15803) (vector 8 1 0 (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-namespacedIdent)) (lambda (topic) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 0 (arg-1 (Log-Options-Core-mkLogLevelC-39 topic (Types-Prelude-fromInteger_Num__Nat lvl))))))))))))))))) -(define Parser-Idris-n--23545-15713-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15722) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-15730) (vector 7 0 (Source-Rule-Parser-unqualifiedName) (lambda () (lambda (n) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 ((arg-1 tm) n)))))))))))))))) -(define Parser-Idris-n--23498-15659-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15668) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-15676) (vector 7 1 (Source-Rule-Parser-onOffLit) (lambda () (lambda (i) (vector 0 (arg-1 i))))))))))))) -(define Parser-Idris-n--23426-15579-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15588) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-15596) (vector 9 0 (Basics-Prelude-C-124C-124 0 (lambda () 1)) (vector 7 1 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-15617) (vector 0 (arg-1 (vector 0 )))))) (lambda () (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (i) (vector 0 (arg-1 (vector 1 (Types-Prelude-fromInteger_Num__Nat i))))))))))))))))) -(define Parser-Idris-n--23327-15469-parse (lambda (arg-0 arg-1 arg-2 arg-3) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15478) (vector 7 0 (Parser-Idris-runParseCmd arg-3) (lambda () (lambda (_-15486) (vector 7 1 (Parser-Idris-setOption arg-1) (lambda () (lambda (opt) (vector 0 (arg-2 opt))))))))))))) -(define Parser-Idris-n--23276-15411-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15420) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-15428) (vector 7 1 (Parser-Idris-topDecl "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm))))))))))))) -(define Parser-Idris-n--23225-15354-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15363) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-15371) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm))))))))))))) -(define Parser-Idris-n--23176-15299-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15308) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-15316) (vector 7 1 (Source-Rule-Parser-moduleIdent) (lambda () (lambda (n) (vector 0 (arg-1 (List1-Data-toList 'erased n)))))))))))))) -(define Parser-Idris-n--23129-15246-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15255) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-15263) (vector 7 1 (Source-Rule-Parser-strLit) (lambda () (lambda (s) (vector 0 (arg-1 s))))))))))))) -(define Parser-Idris-n--23080-15191-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15200) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-15208) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (arg-1 n))))))))))))) -(define Parser-Idris-n--23040-15146-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-15155) (vector 7 1 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-15163) (vector 0 arg-1))))))))) -(define Parser-Idris-n--23611-15785-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--23545-15712-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--23498-15658-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--23426-15578-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--23327-15468-names (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Idris-extractNames arg-3))) -(define Parser-Idris-n--23276-15410-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--23225-15353-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--23176-15298-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--23129-15245-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--23080-15190-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--23040-15145-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2))) -(define Parser-Idris-n--10485-2875-nameList (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-2903) (vector 8 1 0 (vector 5 ) (lambda (_-2912) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-2936) (vector 0 ns)))))))))))))) -(define Parser-Idris-n--10536-7754-mkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 1))) e-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))) (vector 1 (Parser-Idris-boundToFC 'erased arg-1 arg-3) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) e-6 (vector 0 ) (let ((sc2 arg-3)) (let ((e-1 (vector-ref sc2 1))) e-1)) (Parser-Idris-n--10536-7754-mkPi arg-0 arg-1 arg-2 e-7 e-3)))))))))))) -(define Parser-Idris-n--10498-4052-mergePairs (lambda (arg-0 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 38 (Parser-Idris-boundToFC 'erased arg-4 (Bounded-Text-mergeBounds 'erased 'erased arg-3 arg-6)))) (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 e-2)) (let ((e-1 (vector-ref sc2 1))) e-1)))(else (vector 36 (Parser-Idris-boundToFC 'erased arg-4 (Bounded-Text-mergeBounds 'erased 'erased e-2 arg-6)) (let ((sc1 e-2)) (let ((e-1 (vector-ref sc1 1))) e-1)) (Parser-Idris-n--10498-4052-mergePairs 'erased arg-1 arg-2 arg-3 arg-4 'erased arg-6 e-3)))))))))))) -(define Parser-Idris-n--10125-13555-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--10527-6846-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))(else "_impossible"))))) -(define Parser-Idris-n--20105-12140-fieldBody (lambda (arg-0 arg-1 arg-2 arg-3) (vector 7 1 (vector 10 (vector 8 1 0 (Parser-Idris-multiplicity) (lambda (m) (vector 8 1 0 (Parser-Idris-getMult m) (lambda (rigin) (let ((rig (Parser-Idris-case--fieldDeclC-44fieldBody-12176 arg-0 arg-1 arg-3 arg-2 m rigin (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-237) (lambda (arg-238) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-237 arg-238))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-239) (lambda (arg-240) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-239 arg-240))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-4 arg-5))) (lambda (arg-4) (lambda (arg-5) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-4 arg-5))))) rigin)))) (vector 7 0 (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-12229) (vector 7 1 (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-0) (lambda () (lambda (ty) (vector 0 (lambda (fc) (Types-Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 fc arg-2 rig arg-3 n ty)) ns)))))))))))))))))) (lambda () (lambda (b) (vector 0 (let ((sc0 b)) (let ((e-1 (vector-ref sc0 1))) (e-1 (Parser-Idris-boundToFC 'erased arg-1 b)))))))))) -(define Parser-Idris-n--17460-9306-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--stripBracesC-44drop-9321 arg-0 e-2 e-3 arg-1 (EqOrd-Prelude-C-61C-61_Eq__Char arg-1 e-2))))))))) -(define Parser-Idris-n--20620-12667-ctor (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-12677) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-12693) (vector 0 n))))))))))) -(define Parser-Idris-n--10507-5030-binderName (lambda (arg-0 arg-1) (vector 9 0 0 (Source-Rule-Parser-unqualifiedName) (lambda () (vector 8 0 1 (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 0 (lambda (eta-0) (lambda (eta-1) eta-1)) (Source-Rule-Parser-symbol "_")) (lambda (f) (Core-Parser-Text-map_Functor__C-40C-40GrammarC-32C-36tokC-41C-32C-36cC-41 'erased 'erased 'erased 1 f (vector 0 "_")))))))) -(define Parser-Idris-n--10515-5691-bindAll (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 2 (Parser-Idris-boundToFC 'erased arg-1 e-10) e-6 (vector 1 ) (let ((sc3 e-10)) (let ((e-1 (vector-ref sc3 1))) e-1)) e-11 (Parser-Idris-n--10515-5691-bindAll arg-0 arg-1 e-3 arg-3))))))))))))))) -(define Parser-Idris-n--10482-2373-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--10482-2373-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--10482-2373-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--10482-2373-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--16191-8356-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--16191-8356-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) "") ((5) "") ((6) "